[Perl-beginners] WG: Directory sizes

When you're getting different results then you're doing something differently ;-)

For one thing, you're using just "du" to call the binary, so we can't be sure you're calling the same "du" in each case. So, when logged in on the remote machine, do "which du" and use the resulting fully qualified path in your rexec call.

Also, look at your environment ("set" and "alias") on the remote machine to see wether you're getting additional options that way.

MfG,
Thomas Bätzler

Hi Thomas,
I don't think I will find the answer there - because it's getting even more strange: I copied the questionable code to a separate file, for testing purposes. Funnily, it worked just as expected:

#!/usr/bin/perl -w
use strict;
use warnings;
use Filesys::DiskUsage qw/du/;

my $backuphost="hsr3s1p7";
my $backupdir="/backup";
my $localdir="/opt/app/oracle/oradata4/dumps";
my $backdir="MVSTADB_9.9.99.99_100505-085707";

my $backdir_used = du( { 'sector-size'=>512 }, "$localdir\/$backdir" ); # zum Berechnen
chomp($backdir_used);
my $backdir_used_kb = $backdir_used/1024; # zur schönen Ausgabe
print "needed space: $backdir_used_kb KB\n";

my ( $rc2, $backupsizetrans ) =
rexec(
$backuphost,
'$(which du) -k ' # KB, zum Berechnen
. "$backupdir\/$backdir"
. ' |tail -1 |awk \'{ print $1 }\''
);
chomp($backupsizetrans);
print "Backup size after ftp: $backupsizetrans KB\n";

gives me exactly the same:

oracle:/opt/data/magna/wartung/work/nora>./test.pl
needed space: 68 KB
Backup size after ftp: 68 KB

I am executing both scripts with the same user (oracle) in the same environment on the same machine. I even closed the editor, closed all open terminal sessions to the machine, re-opened them and immediately executed the scripts. Of course, copying the (working) syntax from the extract script back into the original source didn't have any effect, no correct result yet.

Really confused now ...

Nora