note
Roy Johnson
The + is there to keep print from thinking those parentheses contain its argument. You are missing the $ on diff in your if. The if doesn't match because the line does not start with digits.
<code>
use strict;
</code>
would have helped you some. Some judicious print statements would also be enlightening. The code is getting pretty bletcherous. Did you copy some of these constructs?
<p>
I've updated it just enough that it runs and you can see what you've got. I don't know where you want to take it from here.
<code>
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $diff=0;
# open (FOO, "samcmd a $dev 2>\&1 |" ) || die
# "unable to open pipe... Broken? $!";
while (<DATA>) {
if (/regular files|archdone files/) {
local $, = "\n";
#s/^\w+(\s+)\w+(\s+)// && s/,//,;
s/,//, print +(split)[2], $,;
if (/^\d+/) {
$diff -=$1; ##--## 62622-62535
}
else {
print "$_ does not start with digits.\n";
}
}
}
print "Difference is: $diff\n";
#close (FOO) or warn "unable to close file $!";
__DATA__
regular files 62,622 597.488G 641547379187
archdone files 62,535 597.008G 641032761295
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-300037">
<hr>
<small><b>Caution:</b> Contents may have been coded under pressure.</small>
</div></div>
439031
439031