All,
Here is my code:
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $fout = qq(/usr/local/log/fuji.out);
open (OUT, "+>$fout") || die "unable to open file: $fout $!";
open (FOO, "samcmd a $dev 2>\&1 |" ) || die "unable to open pipe...
$!";
while (<FOO>) {
if (/regular files/ or /archdone files/) {
my $diff=0;
local $, = "\n";
s/,//;
print +(split)[2], $,, $diff-=$1;
}
and it prints w/out the $diff code
62622
62535
WITH the $diff code it is NOT subtracting the two numbers which is what I
need.
I think the problem is $_ contains data from the original app command which
is
regular files 62,622 597.488G 641547379187
archdone files 62,535 597.008G 641032761295
and so I am saying subtract what is in field 1 , well field 1 is empty, but
why????
finally, I took away the + from the print and I had some errors, why is the
+ infront of the split needed in Perl?
thank you,
derek
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
