http://qs1969.pair.com?node_id=439046


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

yes Roy, thanks but I intended to paste everything including use strict, but forgot. The missing $ was a mistake...sorry I have the same code and it is not subtracting the two values 62622 and 62535.
use strict; use warnings; use diagnostics; use MIME::Lite; use Logfile::Rotate; $ENV{"PATH"} = qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/lo +g); ########## ## Fuji ## ########## my $dev = qw/original1/; my $dev1 = qw/clinical1/; my $diff=0; open (FOO, "samcmd a $dev 2>\&1 |" ) || die "unable to open pi +pe... Broken? $!"; while (<FOO>) { if (/regular files|archdone files/) { local $, = "\n"; #s/^\w+(\s+)\w+(\s+)// && s/,//,; s/,//, print +(split)[2], $,; if (/^\d+/) { $diff -=$2; ##--## 62622 - 62535 # I dont really need this if b/c # I know what $_ contains after the split # which is the two numbers. } } } __DATA__ regular files 62,622 597.488G 641547379187 archdone files 62,535 597.008G 641032761295