Re: print +split

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.

use strict;
[download]

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?

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.

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
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: print +split Select or Download Code

Replies are listed 'Best First'.
Re^2: print +split by drock (Beadle) on Mar 13, 2005 at 01:46 UTC
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 [download]	[reply] [d/l]
Re^3: print +split by chas (Priest) on Mar 13, 2005 at 02:30 UTC
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.	[reply] [d/l] [select]
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
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]


Clear questions and runnable code get the best and fastest answer
	PerlMonks