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

Re^3: sumof - attempting to sum a column from each file

by CountZero (Chancellor)
on Sep 15, 2012 at 07:31 UTC ( #993847=note: print w/ replies, xml ) Need Help??


in reply to Re^2: sumof - attempting to sum a column from each file
in thread sumof - attempting to sum a column from each file

And your whole program can be as short as this:

use Modern::Perl; my $sum_of_used; @ARGV = <C:/Users/user/Desktop/DOwork/filez/nabillingscript/09_14_2012 +/nas/*>; { no warnings qw/numeric uninitialized/; $sum_of_used += (split /\s+/)[2] while <ARGV>; } say $sum_of_used;
It uses the magic attached to the ARGV filehandle which automatically iterates over all lines of all filenames in @ARGV.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics


Comment on Re^3: sumof - attempting to sum a column from each file
Select or Download Code
Re^4: sumof - attempting to sum a column from each file
by ricky5ive (Initiate) on Sep 18, 2012 at 01:18 UTC

    Very interesting. So you're using a subroutine to calculate the sum?

      A subroutine? Not at all.

      I have put the code inside a block (i.e. the curly braces) to limit the scope of the no warnings qw/numeric uninitialized/ pragma.

      CountZero

      A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

      My blog: Imperial Deltronics

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2014-04-23 19:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (553 votes), past polls