[EMAIL PROTECTED] wrote:
> 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
What are you trying to do? See how many files still need to be dumped?
Or ???
Wags ;)
>
> Derek B. Smith
> OhioHealth IT
> UNIX / TSM / EDM Teams
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
