Исходное сообщение
"PERL Use of uninitialized value in pattern match (m//)" Отправлено Darktj, 18-Авг-09 18:49
>в студию кусок лог файла, на котором можно воспроизвести ошибку Michael огромное спасибо! Проблема решена, она заключалась в 1) "while (){" заменил на "while (<SEM>){" 2) "m/\'$LOG_PATTERN'/" убрал кавычки и обратный слэш "m/$LOG_PATTERN/" Благодарю Michael за то что подсказал куда копать ;) теперь скрипт выглядит так: #!/usr/bin/perl -w use strict; #Change this regular expression pattern according to your apache log forma. my $LOG_PATTERN = q{(.*) \- \[(.*)\] \"(.*) (.*)\?(.*) HTTP\/(.*)\" ([0-9]*) ([0-9]*) \"(.*)\" \"(.*)\" \"(.*)\" \"(.*)\" \-}; my $len = @ARGV; if ($len <1){      print "Usage : perl script_name logfile\n";      exit(); } if (!(-e $ARGV[0])){       print $ARGV[0]," not exists.\n";         exit(); } #Open log file for reading. open (SEM, "< $ARGV[0]") or die "Cannot open file $ARGV[0]\n"; while (<SEM>){               #We can also assign to a hash.               if (my($ip,               $date,               $method,               $url,               $query,               $protocol,               $ret_code,               $byte,               $referer,               $user_agent,               $tc, $imp)=($_ =~ m/$LOG_PATTERN/)){               print "IP :",$ip, " date :",$date, " referer:",$referer,"\n";        } } close(SEM);

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>в студию кусок лог файла, на котором можно воспроизвести ошибку > Michael огромное спасибо! Проблема решена, она заключалась в > 1) "while (){" заменил на "while (<SEM>){" > 2) "m/\'$LOG_PATTERN'/" убрал кавычки и обратный слэш "m/$LOG_PATTERN/" > Благодарю Michael за то что подсказал куда копать ;) > теперь скрипт выглядит так: > #!/usr/bin/perl -w > use strict; > #Change this regular expression pattern according to your apache log forma. > my $LOG_PATTERN = q{(.*) \- \[(.*)\] \"(.*) (.*)\?(.*) HTTP\/(.*)\" ([0-9]*) ([0-9]*) \"(.*)\" > \"(.*)\" \"(.*)\" \"(.*)\" \-}; > my $len = @ARGV; > if ($len <1){ > print "Usage : perl script_name logfile\n"; > exit(); > } > if (!(-e $ARGV[0])){ > print $ARGV[0]," not exists.\n"; > exit(); > } > #Open log file for reading. > open (SEM, "< $ARGV[0]") or die "Cannot open file $ARGV[0]\n"; > while (<SEM>){ > #We can also assign to > a hash. > if (my($ip, > > $date, > > $method, > > $url, > > $query, > > $protocol, > > $ret_code, > > $byte, > > $referer, > > $user_agent, > > $tc, $imp)=($_ =~ m/$LOG_PATTERN/)){ > > print "IP :",$ip, " date :",$date, " referer:",$referer,"\n"; > } > } > close(SEM);
	Введите код, изображенный на картинке: