Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

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


Comment on Re: read file from ARGV
Download Code
Re^2: read file from ARGV
by 2teez (Priest) 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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016667]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2014-08-30 02:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls