Cockneyphil has asked for the wisdom of the Perl Monks concerning the following question:

This is part of a script which (currently) lists all files in a directory.
How can I alter this script to make it include ONLY the filenames which start with xxxxx ?
 
opendir THEDIR, "$basepath$ARGV[0]" or die "Unable to open directory: 
+$!";
my @allfiles = readdir THEDIR;
closedir THEDIR;
for my $file ( sort { $b <=> $a } @allfiles )
{
    .....
}

[download]

Replies are listed 'Best First'.
Re: Only files starting with xxxx
by TheHobbit (Pilgrim) on May 11, 2002 at 14:13 UTC

    Hi,
    Simple enough... Use grep.Replace the line 

    @allfiles = readdir THEDIR;

    [download]
    with 
    @allfiles = grep /^xxxxx/,readdir THEDIR;

    [download]
    And you're done!

    Cheers

    Leo TheHobbit
[reply]
[d/l]
[select]
Re: Only files starting with xxxx
by choocroot (Friar) on May 11, 2002 at 14:17 UTC
    use the grep function : 

    @allfiles = grep { m/^xxxx/ } readdir THEDIR;

    [download]

    And you'll need to modify your $numfiles calculation ...

[reply]
[d/l]
Re: Only files starting with xxxx
by fundflow (Chaplain) on May 13, 2002 at 13:33 UTC
    This is probably the simplest: 
    @thefiles = <xxxx*>;

    [download]
[reply]
[d/l]
Re: Only files starting with xxxx
by dsheroh (Monsignor) on May 11, 2002 at 14:11 UTC 
    my @allfiles = readdir THEDIR;
closedir THEDIR;
my @filtered_files = grep /^xxxxx/, @allfiles;
foreach my $file...

    [download]

    Originally posted as a Categorized Answer.

[reply]
[d/l]
Re: Only files starting with xxxx
by amitbhosale (Acolyte) on Feb 14, 2008 at 09:04 UTC
    Hi,
    Below mentioned script list's the files starting with "xxx" 
    #!/usr/bin/perl -w
use strict;

sub dodir {
    opendir(DIR,$_[0]) or die "Couldn't open $_[0] directory $!";
    my $dir=$_[0];
    
    if ( $dir !~ /\/$/ ) 
    { 
        $dir .= "/";
    }
    my @List=readdir(DIR);
    closedir(DIR);
    splice(@List,0,2);
    foreach my $file (@List) {
      $file = $dir.$file;
     if( -d $file) { dodir($file); }
     elsif ($file =~ /xxx*/ ) { print "\n File $file is present in $di
+r"; 
     #print "\n File type: ",stat($file)->mode; 
     }
    }
}
my $dir_name="/home";
if ( -d $dir_name) {
    dodir($dir_name); 
}

    [download]
    ========o/p====== 
    File /home/myprog/xxxabc is present in /home/myprog/
 File /home/myprog/xxxpqr is present in /home/myprog/

    [download]

    Originally posted as a Categorized Answer.

[reply]
[d/l]
[select]
Re: Only files starting with xxxx
by Cockneyphil (Acolyte) on May 11, 2002 at 14:57 UTC
    Thanx everyone --ooo0---"(_)"---0ooo---

    Originally posted as a Categorized Answer.

[reply]

Back to Seekers of Perl Wisdom