Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^3: print +split

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

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


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.

Comment on Re^3: print +split
Select or Download Code
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 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";
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?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (12)
As of 2015-10-13 11:58 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (302 votes), past polls