hi, thanks for your answer. but how can i do that together with glob?



Please keep the thread going in the list, you might get a faster reply by posting to the list


#!/usr/bin/perl
@dateien=glob("/var/*.html"); #i need the age etc here?
$size=0;
foreach (@dateien)
   {$size+=(-s $_);}
print $size;


Like this


while (glob ("/var/*.html")) { #At this point $_ contains the filename, you can change this to while (my $filename = glob ("/var/*.html"))
print "Size = ", -s, "\n"; #perldoc -f -x, these operators (except -t) work on the contents of $_ if no arg is given
print "Age = ", -M _, "\n"; #perldoc -f -x, check out the special _ filehandle
}



THANK YOU








-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to