Re: Problem with my code





-----Original Message-----
From: Jeff Pang <pangj@xxxxxxxxxxxxx>

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 <pangj@xxxxxxxxxxxxx>
http://home.arcor.de/jeffpang/
.