День добрый.
Есть файл test.txt:
<line1>line1 text</line1>
<line2>line2 text</line2>
И есть скрипт:
#!/usr/local/bin/perl
my $file = 'test.txt';
my $text = grep_file($file, '<line1>([^<]+)<');
print "found: '$text'\n";
$text = grep_file($file, '<line2>([^<]+)<');
print "found: '$text'\n";
sub grep_file {
my $exclusive_lock = 2;
my $unlock_lock = 8;
my $file = @_[0];
my $pattern = @_[1];
print "pattern = '$pattern'\t---\t";
open (FILE, $file) || print "couldn't open $file\n" && return;
flock (FILE, $exclusive_lock);
foreach my $line (<FILE>) {
$line =~ m/^\#/o && next; # ignore comments
$line =~ m/$pattern/o || next;
return $1;
}
flock (FILE, $unlock_lock);
close (FILE);
}
Почему-то ищется всегда толко первый паттерн:
% ./tst.pl
pattern = '<line1>([^<]+)<' --- found: 'line1 text'
pattern = '<line2>([^<]+)<' --- found: 'line1 text'
Подскажите в чем ошибка.
Спасибо.
Вариант для распечатки
Программирование под UNIX (Public)
on 22-Фев-06, 13:25 
