Hi, use "undef $/".
#! c:/perl/bin/perl.exe use strict; undef $/; open (LST,"c:/test/show.txt")||die "$^E ; $!\n"; my $data = <LST>; #print "$data"; my @array = split(/\*+/, $data); print "$_\n" for (@array);
I think it will help you.
Regards,
Velusamy R.
In reply to Re: Spliting a log file into chunks and saving it into an array
by Samy_rio
in thread Spliting a log file into chunks and saving it into an array
by blackadder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |