-----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/
