On 08/06/2007 12:32 AM, Jeff Pang wrote:
[...]
while(my $obj = readdir DIR) {
next if $obj =~ /^\.+$/; #or [...]
More, precisely, you might use this:
next if $obj =~ /\A\.\.?\z/;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
