памятка: simple

Показаны сообщения с ярлыком simple. Показать все сообщения

вторник, 15 ноября 2011 г.

mem #32

Мой первый скрипт на Perl.




#!/usr/bin/perl


$x=100; $y=100;

$dir_url = "http://lit-1/img";

$sm_dir_url = "http://lit-1/img/sm";

$sm_dir = "/www/img/sm";

$script = "g.pl";

$num = 0;

$mes = 15;

$r = 3;



sub err {print "Err: @_";exit;}



sub f_err {$_=~s/\</&lt;/g; $_=~s/\>/&gt;/g; $_=~s/\"/&quot;/g; $_=~s/:/\&\#58;/g;}

sub s {s/%([0-9A-Ha-h]{2})/pack("C", hex($1))/eg;}


sub tab

{

 $alls = int(($smnum-1)/$mes)+1;

 if ($ENV{DOCUMENT_URI} ne "") {$script="$ENV{DOCUMENT_URI}";}

 if ($f{page} > $alls) {err ("incorrect page number.");}

 for ($i=1;$i<=$alls;$i++)

 {

  $a=$page/$mes+1;

  if ($a ne $i) {$LINE .="|<a href=$script?g=$f{g}&page=$i> $i </a>";}

  else {$LINE .="| $i ";}

 }

 print qq~<head>

 <title>my_galery</title>

 <meta http-equiv="Content-Type" content="text/html; charset=KOI8-R">

 </head>

 <body bgcolor="FFFFFF" leftmargin="0"

  topmargin="5" marginwidth="0" marginheight="0">

 <table>

 <tr>

 <td align="center" colspan="5">

 <font size=1>$LINE |</font>

 </td>

 </tr>~;

 $msgs=$mes+$page;

 while ($msgs > $num + $page)

 {

  print "<tr>";

  for ($u=0;$u<$r;$u++)

  {

   $ee=$num + $u + $page;

   print "<td height=\"$y\" width=\"$x\" align=\"center\">";

   if ($smlist[$ee] ne "")

    {

     print "<a href=\"$script\?g=$f{g}&file=$smlist[$ee]&c=$captions[$ee]\">

            <img border=0 width=\"100\" src=\"$sm_dir_url/$smlist[$ee]\"

             alt=\"$captions[$ee]\"></a>";

    }

   else {print"\&nbsp\;";}

   print "</td>";

  }

  $num +=$r;

 }

 print "</tr></table></body></html>"; exit;

}


print "Content-type: text/html\n\n";

if ($ENV{'QUERY_STRING'} eq ''){err ("QUERY_STRING is empty!!! AAAAAAAAAAAA!!!!!");}

@p = split(/&/, $ENV{'QUERY_STRING'});

for (@p){$_ =~ &s; $_ =~ tr/+/ /; ($n, $v) = split(/=/, $_);$f{$n} = $v;$f{$n} =~ &f_err;}

if ($f{page} eq "") {$f{page}=1;}

$file = "$f{g}";

$page=($f{page}-1)*$mes;

if ($f{g} eq "") {err ("incorrect access")}

if ($file ne "")

{

 open (F,"$file") || err ("incorrect name of gallery.");

 while (<F>)

 {

  chop;

  ($key,$value) = split(/:/); $photos{$key} = $value;

 }

 close(F);

 for (sort keys %photos)

 {

  push (@smlist,$_);

  push (@captions,$photos{$_});

 }

 $smnum = @smlist;

}

else {err ("No tps.");}

if ($f{file} ne "")

 {

  print "

  <html>

  <head>

  <title>$f{c}</title>

  </head>

  <body>

  <center>

  <a href=\"javascript:history.back()\">

  <img border=0 src=\"$dir_url/$f{file}\" alt=\"$f{c}\">

  </a>

  </center>

  </body>

  </html>\n";

 }

else {tab();exit;}

Скрипт был написан в 2002-2003 году, когда я только начал изучать этот язык.

четверг, 5 мая 2011 г.

mem #30

Решил опробовать Ubuntu 11.04 и её Unity. С подсветкой та же проблема. Решение:

$ sudo gedit /etc/default/grub

GRUB_CMDLINE_LINUX_DEFAULT="quiet acpi_osi=Linux"
sudo update-grub2
sudo reboot

понедельник, 8 ноября 2010 г.

mem #26

бо о бз с бс з бк к
wo o wg b bw g bbr br

среда, 29 сентября 2010 г.

mem #25

perl -i.bak -ple "s/\r|\n//g;binmode ARGVOUT" file.txt

понедельник, 20 сентября 2010 г.

mem #24

Область видимости переменных. Для управления видимостью используются слова my, our, local. Ограничивается видимость блоком {}, файлом или пакетом. Простой пример:

#!/usr/bin/perl
use strict;
my $q=0;
our $a=1;
our $z=555;
{
my $q="null";
local $a="five";
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";
}
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";

Прочитай скрипт, запусти, помедитируй. Всё ли понятно?

mem #23

Ворч, это для тебя, как для начинающего. Ну и для меня, склероз свой порастрясти...

Приём данных из формы, очень простой скрипт:

#!/usr/bin/perl
use CGI;
use strict;

my $q = new CGI;
my $q->import_names('R'); # импорт данных в пространство имён R

open my $f, ">q.txt"; # открываем файл для записи.
# и пишем данные полученные из формы, 
# обращение к содержимому поля происходит так: $NameSpase::fieldname.
print $f $R::mytextarea1, $R::mytextarea2;

четверг, 16 сентября 2010 г.

mem #22

Задача недели - найти способ соединяться с MS Exchange, читать и записывать в его базу контакты.

вторник, 23 марта 2010 г.

Написать эту заметку побудило прочтение статьи Легкий способ скачать ролик с Youtube.
Здесь я опишу некоторые полезные ключи, остальное можно найти в wiki на официальном сайте.

youtube-dl - маленькая платформонезависимая консольная прога для сливания роликов с youtube.com. Для её работы требуется python 2.х. На момент написания заметки доступна версия от 2010.03.13.

Пользоваться ей очень просто, в примере ролик скачивается в файл vid.flv:

youtube-dl -o vid.flv "http://www.youtube.com/watch?v=foobar"

Некоторые ролики требуют ввести логин с паролем, для этого предусмотрены ключи -о и -р:

youtube-dl -u login -p pass "http://www.youtube.com/watch?v=foobar"

Так же имеется возможность скачивать ролики требуемого качества. Для этого используются ключи -b или --best-quality - в наилучшем доступном качестве, -m или --mobile-version - мобильная версия ролика и -d или --high-def.

Ключ -i или --ignore-errors позволит скачивать видео несмотря на ошибки.

Опция -a или --batch-file позволяет скормить целый файл с адресами роликов. В файле должно быть по одному URL в строке.

Для того, чтобы случайно не затереть уже сохранённый ролик используется ключ -w или --no-overwrites.

Для докачивания ролика используется ключ -c или --continue, как в wget.

среда, 27 января 2010 г.

mem #13

Немного о теге <pre> ...
Этот тег создан для выделения форматированного текста. То есть, текста как есть. Текст внутри тега отображается со всеми пробелами и словами, выделяется моноширинным шрифтом. Теги внутри <pre> обрабатываются браузером как обычно.
Пример применения тега:
<pre>
текст в теге
ссылка внутри тега будет <a>ссылкой</a>
тег <br> будет самим собой,
но он тут не нужен
</pre>

результат будет таким:

текст     в     теге
ссылка внутри тега будет ссылкой
тег 
будет самим собой,
но он тут не нужен

пятница, 20 ноября 2009 г.

mem #7

Hash - это просто. Обозначается значком " % ", за ним идёт имя - %hash_name. Hash - ассоциативный массив, это значит что у каждого значения есть имя(ключ). Записать его можно по разному, обычно это делается так:

my %typical_hash = (
	'some_key_name_0' => 'something',
	...
);

либо так, но первая запись нагляднее:

my %typical_hash = (
	'some_key_name_0', 'something', ...
);

можно так:

my $typical_hash{'some_key_name_0'} = 'something';
...

инициализировать или очистить хэш можно так:

my %hash = ();

извлечь значение из хэша можно по ключу, вот так:

print $typical_hash{'some_key_name_0'};

извлечь значение ключа можно передав хэш функции keys():

print keys %typical_hash;

ключи и значения из хэша берутся с помощью each():

my ($key, $val) = each(%typical_hash);

для того, чтобы перебрать все значения и ключи хэша, необходимо положить функции в цикл:

print for keys %typical_hash;

и для перебора ключей со значениями:

while (my ($key, $value) = each(%typical_hash)) {
	print "ключ $key хранит значение $value\n";
}

либо

print "ключ ".$_." хранит значение ".$typical_hash{$_}."\n" for keys %typical_hash;

данные в хэше хранятся не упорядочено, отсортировать хэш по ключам можно так:

for my $key(sort keys %typical_hash) {
	my $val = $typical_hash{$key};
	print "$key\ => $val\n";
}

посчитать количество пар "ключ => значение" можно с помощью функции keys(), есть два способа:

#1.
print ''.keys %typical_hash ;

#2.
print scalar(keys %typical_hash);

памятка

вторник, 15 ноября 2011 г.

mem #32

четверг, 5 мая 2011 г.

mem #30

понедельник, 8 ноября 2010 г.

mem #26

среда, 29 сентября 2010 г.

mem #25

понедельник, 20 сентября 2010 г.

mem #24

mem #23

четверг, 16 сентября 2010 г.

mem #22

вторник, 23 марта 2010 г.

mem #14

среда, 27 января 2010 г.

mem #13

пятница, 20 ноября 2009 г.

mem #7

Архив блога

Ярлыки

Мой список блогов

Постоянные читатели

вторник, 15 ноября 2011 г.

четверг, 5 мая 2011 г.

понедельник, 8 ноября 2010 г.

среда, 29 сентября 2010 г.

понедельник, 20 сентября 2010 г.

четверг, 16 сентября 2010 г.

вторник, 23 марта 2010 г.

среда, 27 января 2010 г.

пятница, 20 ноября 2009 г.

Архив блога

Ярлыки

Мой список блогов

Постоянные читатели

вторник, 15 ноября 2011 г.

четверг, 5 мая 2011 г.

понедельник, 8 ноября 2010 г.

среда, 29 сентября 2010 г.

понедельник, 20 сентября 2010 г.

четверг, 16 сентября 2010 г.

вторник, 23 марта 2010 г.

среда, 27 января 2010 г.

пятница, 20 ноября 2009 г.