Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^3: print +split

by chas (Priest)
on Mar 13, 2005 at 02:30 UTC ( [id://439049]=note: print w/replies, xml ) Need Help??


in reply to Re^2: print +split
in thread print +split

Try:
while (<DATA>) { if (/regular files|archdone files/) { local $, = "\n"; s/,//; print +(split)[2], $,; $diff[++$i] = (split)[2]; } } print $diff[1]-$diff[2],"\n"; __DATA__ regular files 62,622 597.488G 641547379187 archdone files 62,535 597.008G 641032761295

Your code wasn't performing a subtraction. Also, as Roy mentioned the /^\d+/ wasn't matching.

Replies are listed 'Best First'.
Re^4: print +split
by drock (Beadle) on Mar 13, 2005 at 19:35 UTC
    Chas.... I understand now... my bad. Anyway it is printing the two elements of not computing the difference.
    root@stkv440-srvA [ / ]-> perl /usr/local/bin/ohiohealth/filecp_chk.OH +.pl 64696 64684 Difference is: 64696 - 64684
    I got it... I was a matter interpolation in my print statement. THANK YOU CHAS!!!! : ) Have a nice week!
      You 're welcome!
      I didn't see your print statement, but I'm sure I know what you mean. *Actually, you can imbed function calls within strings, although it isn't necessary here.* Look at:
      $diff[1]=62622; $diff[2]=62535; print $diff[1]-$diff[2],"\n"; print "$diff[1]-$diff[2]\n"; print "@{[$diff[1]-$diff[2]]}\n";
      chas
Re^4: print +split
by drock (Beadle) on Mar 13, 2005 at 19:23 UTC
    hey chas... where are you defining $i in $diff++$i??? I am not followinf you logic. Will you please provide some psuedo code?

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2024-03-29 04:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found