On Tue, 15 Jul 2003, Marius Barbu wrote:
> Se da un fisier de forma:
> liniei+n+m
> </marcaj1>
>
> Cum se extrage in Perl blocul de linii dintre <marcaj2> si </marcaj2> ?
cat fisier | perl -e 'my @buff=<STDIN>;
my @block;
my $inblock=0;
my $line;
foreach $line (@buff) {
$inblock=0 if ($line=~/marcaj2/);
push (@block, $line) if ($inblock eq 1);
$inblock=1 if ($line=~/marcaj1/);
}
print "##textul dintre marcaje:\n";
print @block;
print "##EO textul dintre marcaje.\n";
'
--
Any views or opinions presented within this e-mail are solely those of
the author and do not necessarily represent those of any company, unless
otherwise specifically stated.
