That's why they made File::stat:
use File::stat; 
$file = "/usr/bin/perl"; 
$st = stat($file) or die "No $file: $!";
 print "sz: ", $st->size, "\n"

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

"If you don't say anything, you won't be called on to repeat it" 
Calvin Coolidge
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to