Re: script not working

[karlgoethebier]

in reply to script not working

Why not doing it like this:

#!/usr/bin/perl

use strict;
use warnings;
use IO::All;
use autodie qw(:all);

my $file = io shift;

print $file->[1] =~ m/(.{5})/;

__END__

Short, nice, doesn't matter how big the file is...

See IO::All and Tie::File

Regards, Karl