|
| 1.3, alexvs (??), 01:33, 05/12/2006 [ответить]
| +/– |
Статье "mod_perl за 30 минут. Часть 1" уже бог знает сколько лет, вот только она на пяти листах описывает то что можно было написать одной строчкой portupgrade -Niv mod_perl.
А вот самого интересного: как написать для него скрипты она абсолютно не раскрывает. Как изменится скрипт:
#!/usr/bin/perl
use strict;
my $logfile = '/usr/local/www/logs/test';
my $query=$ENV{QUERY_STRING};
my ($str) = $query =~/tt=(.*?)&/;
open L, ">> $logfile";
print L "$str\n";
close L;
| | |
| 1.4, Супербизон (?), 10:33, 05/12/2006 [ответить]
| +/– | |
Не понятные статьи - новичкми всё равно perl не используют(мозгов не хватает) а аксакалы(вроде меня :) ) всё уже давно знают | | |
| |
| 2.5, Nerian (?), 23:20, 05/12/2006 [^] [^^] [^^^] [ответить]
| +/– |
 Невыдержал. Аксокалом в Perl то ты не сразу стал. А новичкам полезно мозги развивать. | | |
| 2.6, Аноним (-), 08:24, 06/12/2006 [^] [^^] [^^^] [ответить]
| +/– |
>Не понятные статьи - новичкми всё равно perl не используют(мозгов не хватает)
>а аксакалы(вроде меня :) ) всё уже давно знают
Уже много лет программирую на Perl, сильно порадовал пример
my $command = shift @ARGV;
sub AUTOLOAD { die "Unknown command: $AUTOLOAD" }
no strict 'refs';
&{$command}(@ARGV);
Век живи - век учись, как говорится. | | |
|
|
