Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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

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.


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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-07-26 10:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (175 votes), past polls