Thanks to Elie, Jay and Shawn, all work fine, but I used the Jay solution. What
I was using is:
#!/usr/bin/perl
use strict;
use warnings;
$/ = "";
my $file = "111505_SystemOut_1.log";
open ( FILE, "<$file" ) || die "El nombre de archivo es incorrecto o no
existe\n$!\n";
while ( my $lines = <FILE> ) {
if ( $lines =~ /(.+\n)(.+\n)(.+:-1)/ ) {
print "$1";
print "$2";
print "$3";
}
}
But it does not work.
Thanks again !!!!
--
_______________________________________________
Get your free email from http://mymail.bsdmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
