Исходное сообщение
"шелловский grep в perl" Отправлено visitor, 08-Дек-08 12:47
>>тоже пробовал :) эффект тот же... :( > >Не просветите ли, какой же? да, конечно bash-2.05b# cat file.txt Mon Dec  1 10:49:40 2008 Mon Dec  1 10:49:43 2008 Mon Dec  2 10:49:45 2008 Mon Dec  3 10:51:10 2008 Mon Dec  3 10:51:40 2008 Mon Dec  3 10:52:10 2008 Mon Dec  7 10:54:20 2008 Mon Dec  7 10:55:30 2008 Mon Dec  7 10:56:30 2008 Mon Dec  8 10:57:10 2008 Mon Dec  8 10:58:15 2008 Mon Dec  8 10:58:12 2008 bash-2.05b# cat scr.pl #!/usr/bin/perl $d=`date -v -1d '+%h %d'`; ($month,$date) = split(/ /, $d); $date=~s/0//g; $sfile="file.txt"; $gfile="file.N.txt"; #$month="Dec"; #$date="7"; $ndate="$month  $date"; system("grep \"$ndate\" $sfile >$gfile"); нужно выгребать все записи за Dec  7. Скрипт выгребает все. НО!!! если раскомментарить $month="Dec" и $date="7", то все работает хорошо. где засада? Спасибо.