Re: Text parsing - Perl

I know this is late ... but here is my preferred method.

----- START EXAMPLE -----

opendir(IDIR,$dir_path_string)
or die "cannot opendir $dir_path_string: $!\n";
@file_list_array = grep( ! /^\.{1,2}$/ , readdir(IDIR) );
closedir(IDIR);

----- END - EXAMPLE -----

Now, @file_list_array contains a list of all files in the directory
described by $dir_path_string except those whose names are either one or
two dots.

I've seen people use this RegEx instead: (! /^\.+/) which will exclude
file names that begin with one or more dots, including valid file names
like ".rc" and ".config". I've also seen people do this: (! /^\.+$/)
which will exclude file names made entirely of dots ... including files
and directories named "..." - a trick used by some hackers to hide a
directory on targetted systems.

Walt Mankowski wrote:
> Newsgroups: comp.lang.perl.moderated
> Subject: Re: Text parsing
> Date: Fri, 26 Dec 2003 11:29:55 -0500
>
> On 2003-12-23, Mishra Rohit-R53658 <r53658@email.mot.com> wrote:
>
>>Hi puchi,
>>
>>The code for reading the directory for the files inside it would look like:
>>
>>opendir( DIR, "$path" ) || die("$!");
>>while( $file = readdir(DIR)){
>> chomp($file);
>> if( $file !~ m|\.$| ){
>> # $file contains only the files inside the directory $path
>> .....
>> .....
>> }
>>}
>>
>>Hope it helps
>
>
> I don't think it'll help much, since the output of readdir in scalar
> context is just a single file. It appears that you're assuming it looks
> like the output of dos's dir command.
>
> Try this instead:
>
> opendir DIR, $dir or die "Can't open $dir: $!\n";
> while (my $file = readdir(DIR)) {
> unless (-d "$dir/$file") {
> # do something with "$dir/$file"
> }
> }
> closedir DIR;
>
> Also read the documentation for opendir, readdir, closedir, and -d in
> perlfunc.
>
> Walt