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

Re: How do I read the files in @ARGV one by one

by merlyn (Sage)
on Mar 19, 2001 at 23:59 UTC ( [id://65523]=note: print w/replies, xml ) Need Help??


in reply to How do I read the files in @ARGV one by one

OK, one other twisted way: 
my @data = do {
  my @copy = @ARGV;
  local $/;
  map { shift @copy, map /(.*\n?)/g, $_ } <>;
};

[download]

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re^2: How do I read the files in @ARGV one by one
by denishowe (Acolyte) on Oct 29, 2014 at 11:43 UTC

    Make sure you don't do what I just did:

    my @ARGV = $file;

    The my creates a new, local @ARGV which is not what you want. Doh!

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://65523]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others goofing around in the Monastery: (1)
As of 2024-04-25 03:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found