--- Telemachus Odysseos <[EMAIL PROTECTED]> wrote:
>
> #!/usr/bin/perl
>
> opendir(CD,"/path/to/directory/here");
> while ( $_ = readdir(CD)) {
> next if $_ eq "." or $_ eq "..";
> print $_, " " x (30-length($_));
> print (-s $_ );
Here you need to specify the absolute path for the files.
print -s "/path/to/dir/$_";
> print "\n";
> }
>
____________________________________________________________________________________
Sick of deleting your inbox? Yahoo!7 Mail has free unlimited storage.
http://au.docs.yahoo.com/mail/unlimitedstorage.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
