можно ли такой скрипт замутить? или может на чем-то др.?

[StRaNNiK]

Подскажите, как такое замутить? скриптец.. должен делать вот такое:
1. открывает файл. например qwerty.cfg
2. начинает искать в каждой строке словосочетание "всем привет"
3. если находит, то строку удаляет.
4. сохраняет файл

[Ghost]

Сделай на перле, это проще всего:

open (FILE, "qwerty.cfg");
my @indata = <FILE>;
close (FILE);
open (FILE, ">qwerty.cfg");
foreach (@indata) { print FILE $_ unless $_ =~ /всем привет/; }
close (FILE);

[Bek]

#!/usr/bin/perl -w    
$infile = "qwerty.cfg";  
open FD0, "> tmp";
open FD, "< $infile" || die "cannot open qwerty.cfg";    
   while (<FD>) {
     if ($_ !~ m/всем привет/) {
       print FD0 "$_\n";
     }
   }
   close FD; close FD0;
   unlink ($infile);
   rename ("tmp",$infile);

примерно так на perl'е выглядит
Исправил ошибки, но оптимизировать не стал

[Drakosha]

народ, вы чего????????

grep -v "всем привет" qwerty.cfg > /tmp/tmp
mv /tmp/tmp qwerty.cfg

[Bek]

на перле круче

[StRaNNiK]

Drakosha and Ghost - сэнк. заработало.
Bek - выводит ошибку

syntax error at ./123.pl line 4, near "open "
No comma allowed after filehandle at ./123.pl line 7.

[Bek]

ну да
в 3 строке ";" не поставил

[ivahaev]

Просто Я, вообще, советую RegExp'ы поизучать. С помощью только их можно таких вещей с текстом натворить!

[Drakosha]

имхо the simpler - the better

[Bek]

Drakosha
зато скрипт всегда можно доработать

[StRaNNiK]

Bek
все равно ошибку выдает

No comma allowed after filehandle at ./123.pl line 7.

[ivahaev]

Просто Я:
No comma allowed after filehandle at ./123.pl line 7.

Я так понимаю, что нужно удалить ";" (comma) в седьмой строке.
... или где-то рядом добавить

[Ghost]

No comma allowed after filehandle - Не должно быть запятой после хэндла файла. Судя по всему это в строчке с print. Насколько я знаю перл, нужно было написать print FD0 "$_\n";, а не print FD0, "$_\n";.

[Bek]

Ghost все верно
звиняйте - у меня под рукой нет перла и писал по памяти сразу в форум.