glob an array of filenames

[NullTerminator]

I want to glob an array of filenames retrieved from a source control list command.

The array contains a list of filenames with newlines.
I could walk the list and pre chomp them, but how to feed them to glob and get the filtered list out

Tnx
Jeb
\0

 

[mbrooks]

This post has been here long enough. Here we go!

This takes the contents of a directory and adds each * to an array.

#!/usr/bin/perl -w

use strict;

use FileHandle;

my $dir = "/path/to/directory";

opendir DIR, "$dir/" or die "Failed to open $!";
my @files = readdir(DIR);
closedir DIR;

my @glob_array;

my $i = 0;
for my $file (@files) {
    unless ( $file eq '.' || $file eq '..' ) {
        $glob_array[$i] = ( new FileHandle("<$file") );
        $i++;
    }
}

my $fh1 = readline($glob_array[0]);

print $fh1 . "\n";

M. Brooks

http://mbrooks.info

 

[NullTerminator]

Thanks MBrooks. Not exactly what I'm trying to do.
Subvrsion (source control) list command returns a list of filenames separated by newline.

I want to apply a user supplied wildcard pattern to the array of names returned

code.java
proj.properties
readme.txt

user supplies "*.java"

routine returns
[ code.java ]

I did a workaround by trnaslating the the * and ? filepatterns to regex .* and ." and then walking the list.

I thought there might be a way to use the pattern matching portion of glob against a array of names.

 

[mbrooks]

Wow! I was way off base on that one.

M. Brooks

http://mbrooks.info

 

[KevinADC]

maybe:

$user = '*.java';
$user =~ s/*\.//;
chdir('/path/to/files/') or die "$!";
@files = <*\.$user>;

 

[NullTerminator]

sorry, there no concept of chdir in the picture. Calling ls on the source control product returns a flat list of unqualified file and directory names. An array of lines is returned from `svn ls

http://source.control.com/path`

I want to provide a glob like filtering for the end users. Can I feed an array of names to glob.

I worked around it like this

sub globNames {
    my ($pattern, @list) = @_;
    my @listOut;
    # replace shell wildcards with perl style
    $pattern =~ s/\*/.*/;
    $pattern =~ s/\?/.?/;
    $pattern =~ s/\\/\//;
    
    for (@list) {
        if( /$pattern/ ) {
            push (@listOut, $_ );
        }
    }
    return @listOut;    
}   # end globNames

I like kevins trick with

 @files = <*\.$user>;

but I'll have to look into building more flexibility into it.

Thanks guys
Jeb\0

 

[KevinADC]

OK, I also misunderstood what you are trying to do. This module might be what you want:

http://search.cpan.org/~rclamp/Text-Glob-0.06/lib/Text/Glob.pm

basically does glob type matching on text, like you have in your array, instead of on a filesystem.