Mr. Shawn H. Corey wrote:
for my $file ( glob( '/tmp/yahoo.*' ) ){
unlink $file if -f $file;
}
See:
* perldoc -f unlink
* perldoc -f glob
* perldoc perlfunc and search for -f under "Alphabetical Listing
of Perl Functions"
thanks, I tried
if ( -f q#/tmp/<text.*># ) {
system("rm -rf /tmp/<text.*>");
}
and worked.. but above seems better.. i will read up on those as well..
thank you.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/