Re: script not working

[CountZero]

in reply to script not working

Putting the whole file into an array is wasteful of time and memory. What will happen if it is a 10 GB file?

You can do just as easy the following:

use Modern::Perl;
use autodie;
open my $file1, '<', './file1.txt';
<$file1>;
my $secondline = <$file1>;
my $fivefirstfile1= substr($secondline, 0, 5);

It is faster and uses less memory.