-----Original Message----- >From: Jeff Pang <[EMAIL PROTECTED]> > >while(<DIR>) { > next if /^\.+$/; #or > next if $_ eq '.' or $_ eq '..'; >} >
Sorry for the mistake,it's, while(my $obj = readdir DIR) { next if $obj =~ /^\.+$/; #or next if $obj eq '.' or $obj eq '..'; } -- Jeff Pang <[EMAIL PROTECTED]> http://home.arcor.de/jeffpang/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/