opendir(DIR,"/users/temp/test1"); while(defined (my $line = readdir(DIR))){ next if ($line =~ /^\./); . . chomp $line; @filedata = split /!/, $line; . . } closedir (DIR);
Edited: (footpad) 15 Sep. 2001, 20:02 PDT; 16 Sep. 2001, 03:02 GMT
In reply to reading directories by data67
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |