LINUX.ORG.RU
решено Форум — Development  

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


0

0

Добрый день!

суть в чем: достать из текста где размещены соответствия в таком формате:

IP фио
IP фио
IP фио

собственно фио пользователя, зная IP.
в bash без проблем
grep 192.168.х.у /mydir/usertab | cut -f2 -d' '

Пытался перевести на perl, языка собственно не знаю, только могу прочесть несложный код.
Читал руководства, понял только способ читать текст построчно и проверять соответствия по условию... Так чтоб выполнить красиво одной строкой - не нашел, а по идее должно быть.
Если не затруднит с такой мелочью -просьба пнуть в нужном направлении (какие команды смотреть).
Задача эта мне нужна только на раз...

заранее спасибо.

Ответ на: комментарий от Jetty

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

malamute
() автор топика
Ответ на: комментарий от ananas

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

malamute
() автор топика
Ответ на: комментарий от ananas

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

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

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

print $a;

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

malamute
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development