Re: read file from ARGV

[nithins]

in reply to read file from ARGV

hope the below code will b helpful for you

#!/usr/bin/perl 
use strict;
use warnings;
my @a;
open (FH,'<',$ARGV[0]); #or @ARGV[0]
while(<FH>)
{
push(@a,$_);
}

print "@a";

[2teez]

Hi nithins,
I think it would be a good practice to check the return of open function and to also close an opened filehandles like

open my $fh,'<',$ARGV[0] or die "can't open file: $!"; 
  ...
close $fh or die "can't close file: $!";

Except one is doinguse autodie qw(open close);