Удаление строк в файле на perl

Статус
В этой теме нельзя размещать новые ответы.

pikasun

Постоялец
Регистрация
23 Сен 2009
Сообщения
123
Реакции
9
Требуется на perl удалить все строки в файле между двух меток #START и #END

#START
bla bla
bla
#END
 
PHP:
#!/usr/bin/perl -w
use strict;

my $file = shift || "./in.txt";
my $outfile = shift || "./out.txt";

open IN, "<", $file;
my @all = <IN>;
my $st = join "", @all;
$st =~ s/^(.*#START)(.*)(#END.*)$/$1$3/s;
open OUT, ">", $outfile;
print OUT $st;
close OUT;
close IN;
Код проверил у себя, вроде работает
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху