Помогите сделать такой скрипт на perl

[StRaNNiK]

Помогите плз сделать такой вот скрипт на perl.

Имеется текстовый файл. В нем много текста. Задача: запустить скрипт, который произведет фильтрацию. Фильтрация такая: если в строке встречается слово LINUX, то строчку пропускаем. если нет, то удаляем.

[Gike]

open(file,"file.txt");
open(file_out,">new_file.txt");
while($str=Жfile>){
if($str=~/LINUX/){print file_out $str;}
}
close(file);
close(file_out);

вместо Ж надо <

[Ghost]

Gike
Что-то у меня твой скрипт выдает ошибку... Вот такой накатал, проверил - вроде работает...

open FILE, "file.txt";
my @indata = < FILE>;
close FILE;

open FILE, ">file.txt";
foreach (@indata) {
  print FILE $_ if $_ =~ /LINUX/;
}
close FILE;

Добавлено:
Gike, извини. Все работает. Просто скрипт форума немного накосячил в коде - отказался выводить FILE в угловых скобках после $str= у тебя, и @indata= - у меня.

З.Ы. Итить... Третий раз правлю...

[StRaNNiK]

одна и таже ошибка в обоих скриптах
./script: line 1: syntax error near unexpected token `file,"qw.txt"'
./script: line 1: `open(file,"qw.txt");'

[Ghost]

Просто Я
Эээ... У эти меня скрипты работают оба. Попробуй имя файла брать не в кавычки ("), а в апострофы ('). Или писать директивы open и close без скобок (хотя, какая, собственно, разница? ).

[StRaNNiK]

блин.. что ж такое...

[Gike]

извини за глупый вопрос но в начале ты приписал #/usr/bin/perl или как там у тебя на машине надо?

[StRaNNiK]

о, все
а теперь такая просьба а нельзя ли его переделать как-то, чтобы он проверял строку сразу на 2 слова. если одно из двух в строке имеется, то ее оставляем

[Ghost]

Просто Я
Есессно, например:

print FILE $_ if $_ =~ /(LINUX)|(WINDOWS)/;

[rontommy]

А я люблю использовать grep :

open FILE, "file.txt";
my @indata = grep( /(LINUX)|(WINDOWS)/, < FILE>);
close FILE;

open FILE, ">file.txt";
print FILE @indata;
close FILE;

[Drakosha]

если уж про grep:

$ grep LINUX our.file > /tmp/tmp.file
$ mv /tmp/tmp.file our.file