Re^3: 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
[download]

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 +.pl 64696 64684 Difference is: 64696 - 64684` [download] I got it... I was a matter interpolation in my print statement. THANK YOU CHAS!!!! : ) Have a nice week!	[reply] [d/l]
Re^5: print +split by chas (Priest) on Mar 13, 2005 at 20:56 UTC
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";` [download] chas	[reply] [d/l]
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?	[reply]