Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: read file from ARGV

by nithins (Sexton)
on Feb 02, 2013 at 07:33 UTC ( #1016667=note: print w/replies, xml ) Need Help??

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";

Replies are listed 'Best First'.
Re^2: read file from ARGV
by 2teez (Vicar) on Feb 02, 2013 at 09:13 UTC

    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);

    If you tell me, I'll forget.
    If you show me, I'll remember.
    if you involve me, I'll understand.
    --- Author unknown to me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016667]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2018-03-21 07:02 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (264 votes). Check out past polls.