Re: Use of special character "*" to retrieve the contents

Hello dk27,

What about some alternatives? Such as File::Find

#!/usr/bin/env perl

use warnings;
use strict;
use File::Find;

my $location="$var1/$var2/$var3/";

sub find_ksh {
    my $F = $File::Find::name;

    if ($F =~ /ksh$/ ) {
        print "$F\n";
    }
}


find({ wanted => \&find_ksh, no_chdir=>1}, $location);
[download]

Or readdir:

opendir(my $dh, $some_dir) || die "Can't opendir $some_dir: $!";
my @files= map{s/\.[^.]+$//;$_}grep {/\.ksh$/} readdir DIR;
closedir $dh;
[download]

Both solutions are untested but they should work straight out of the box.

Update: ~~Also if you are running linuxOS or Cygwin terminal:~~

Update3: as monk haukex pointed out using back ticks is not a good option, read the link on his response bellow why.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $path = shift || '.';

my @files = `find $path -name '*.ksh' -o -name '*.txt'`;

chomp @files;
print Dumper \@files;
[download]

WindowsOS with Cygwin:

my @files = `find $path \( -name '*.ksh' -o -name '*.txt' \)`;
[download]

Update2: Similar question with some maybe useful answers combining regex on search see (Re: File::Find find several strings in one directory).

Hope this helps.

Seeking for Perl wisdom...on the process of learning...not there...yet!

Comment on Re: Use of special character "*" to retrieve the contents Select or Download Code

Replies are listed 'Best First'.
Re^2: Use of special character "*" to retrieve the contents by haukex (Archbishop) on Jun 07, 2017 at 13:58 UTC
It's important to note there is a difference between readdir/glob and File::Find/find: the latter recurses into subdirectories as well. As for running external commands, I wrote about that, including the potential security risks, at length here. At the very least I would recommend using something like IPC::System::Simple's `capturex`, e.g. `my @files = capturex("find",$path,qw/ ( -name .ksh -o -name .txt ) /);`	[reply] [d/l] [select]
Re^3: Use of special character "*" to retrieve the contents by karlgoethebier (Abbot) on Jun 07, 2017 at 16:54 UTC
"... the latter recurses..." But fortunately there is `-maxdepth 0`. From find: -maxdepth n Always true; descend at most n directory levels below the + command line arguments. If any -maxdepth primary is specified, it applies to the entire +expression even if it would not normally be evaluated. ``-maxdepth 0'' limits the whole +search to the command line argu- ments. [download] Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť Furthermore I consider that Donald Trump must be impeached as soon as possible	[reply] [d/l] [select]
Re^2: Use of special character "*" to retrieve the contents by marinersk (Priest) on Jun 07, 2017 at 14:09 UTC
Of course, this will fall apart a bit when fed `"$var7/$var8/test.dat"`. Imagine their surprise, getting back a list of `.ksh`files from that input. :-)	[reply] [d/l] [select]