topic Re: Perl script in Operating System - HP-UX

Perl script

Stanimir — Tue, 19 Aug 2003 13:26:21 GMT

Could anybody send me a Perl-script for
encounting the sum of all files in
a directory /including files in subdirectories/, in bytes?
High points-level!!

Re: Perl script

John Poff — Tue, 19 Aug 2003 13:29:20 GMT

Hi,

Yes, but how about:

du -sk

JP

Re: Perl script

Kent Ostby — Tue, 19 Aug 2003 13:33:05 GMT

How about awk ?

find . -depth -exec ll {} \; | grep -v -e total -e drwx | awk '{datotal
+=$5;}END {print datotal}'

Or if you want to break it into two nicer steps:

find . -depth -exec ll {} \; | grep -v -e total -e drwx > useme

awk '{datotal+=$5;}END {print datotal}' < useme

Re: Perl script

Umapathy S — Tue, 19 Aug 2003 13:37:09 GMT

JS,
I think du -s will do. du -sk will give in 1024 byte blocks.
Do you really need a perl script for this.

HTH,
Umapathy

Re: Perl script

Jean-Luc Oudart — Tue, 19 Aug 2003 13:37:13 GMT

run a find + ll command (e.g. find . | xargs -l20 ll ) and pipe into the following script :

#!/bin/sh

# llsum_size : sum file size for ll result (file or stdin)
#
# usage : llsumsize [ filename ]
# filename : output of the 'll' command

awk '
BEGIN{ total=0; countfile=0; }
{
if(substr($1,1,1)=="-") {
total+=$5;
countfile++;
}
}
END{ totalmb= total / (1024 * 1024 );
printf("llsumsize : nbfiles counted = %d\n",countfile);
printf("llsumsize : total (bytes) = %12d\n",total);
printf("llsumsize : total (Mbytes) = %12.2f\n",totalmb);
} ' $1

Rgds,
JL

Re: Perl script

Brian Bergstrand — Tue, 19 Aug 2003 13:38:01 GMT

I know you want Perl, but as John already mentioned df already does this.

For bytes though, you'd want. du -ks will give the output in kilobytes. du -s will output the number of 512 byte blocks.

cd $MYDIR
echo $(( $(du -s . | cut -f1) * 512 ))

HTH.

Re: Perl script

Stanimir — Tue, 19 Aug 2003 13:41:11 GMT

Thanks,Gays!!!
I know HPUX-command "du". :))
But I want exactly Perl-script !!!

Re: Perl script

A. Clay Stephenson — Tue, 19 Aug 2003 14:01:48 GMT

This is a very easy script in Perl but it does you no favor to post it. The quest is the learning of Perl itself. If you do a man of File::Find, you should really have everything you need to get started.

Re: Perl script

Sergejs Svitnevs — Tue, 19 Aug 2003 14:20:32 GMT

:)
#!/usr/bin/perl -w
system("du -sk");

Regards,
Sergejs

Re: Perl script

Sergejs Svitnevs — Tue, 19 Aug 2003 14:59:58 GMT

version nr. 2

#!/usr/local/bin/perl -w
my $path="/home/";
print "\n\nThe sum of all files in a directory '$path' (including files in subdirectories) is ", &Sizes ($path), " bytes \n";
sub Sizes {
my $dir = shift;
my $size = 0;
my $entry;
my @subDirs;
chdir $dir or die " chdir failed ($!)\n";
opendir DIR, "." or die " opendir failed ($!) \n";
while (defined ($entry = readdir DIR)) {
if (-f $entry) {
$size += -s _;
}
elsif (-d _ and $entry ne '.' and $entry ne '..') {
$size += -s _;
push @subDirs, $entry;
}
}
closedir DIR or die " closedir failed ($!)\n";
foreach $dir (@subDirs) {
$size += &Sizes ($dir);
}
chdir '..' or die " chdir .. failed ($!)\n";
return $size;
}

Regards,
Sergejs

Re: Perl script

Brian Bergstrand — Tue, 19 Aug 2003 15:20:36 GMT

use File::Find;

my $base = $ARGV[0] || "./";
my $total = 0;

sub addsize {
$total += -s;
}
find(\&addsize, $base);

print "$total\n";

Re: Perl script

H.Merijn Brand (procura — Tue, 19 Aug 2003 16:25:54 GMT

# perl -MFile::Find -le'find(sub{-f and$s+=-s},".");END{print$s}'

Enjoy, have FUN! H.Merijn