Perl, чтение файла с разделителями, перевести команду шелловскую

А зачем это переводить на перл ? )

perl -ne 's/192.168.x.y (.*)/print $1/e' /mydir/usertab

просто есть перловый скрипт в который надо это встроить. там вывод по IP а я хочу усовершенствовать и вывести фио.

ananas, спасибо Вам огромное :) работает!

А зачем e(val expr) + print, если не секрет?

чтоб результат вывести. -n - это молчаливый цикл

чето я конечно ландух, но прекрасно работая из консоли - оно не работает изнутри перлового скрипта. syntax error at ./myscript.pl line 24, near "-ne" думал может каких кавычек-скобок надо, или вызов perl лишний, раз и так уже внутри... вот тут читал. http://perl.find-info.ru/perl/015/search/2.htm но как понял, команда пишется именно так и внутри скрипта... что ему еще надо...

нет. внутри скрипта будет несколько по другому

while (<>) {
  print $1 if (/192.168.x.y (.*)/);
}

И еще раз огромное спасибо !

моя задача полностью решена

my $a;
while (<UTF>)
{ $a =$1 if (/$k (.*)/); }
if ($a eq ") {$a = $k}

print $a;

вот такой hello world :)