Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Trouble with File::Find::Rule

by Laurent_R (Abbot)
on Dec 12, 2013 at 23:14 UTC ( #1066933=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
     
    while($count < 2) {
        print $count;
    ...
                                    ->in( $directory );
        $count++;
    }
    
  2. or download this
    my $base_dir = 'C:\Test\Calls\';
    my @directories = $base_dir . $_ . '\' for qw /History Archive/;
    my @files;
    for my $dir (@directories) {
         push @files, $_ for glob ($curr_dir . "*.wma"), glob ($curr_dir .
    + "*.wmv");
    }
    
  3. or download this
    my $base_dir = 'C:\Test\Calls\';
    my @directories = $base_dir . $_ . '\' for qw /History Archive/;
    ...
              push @files, $_ for glob ($curr_dir . $ext);
         }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1066933]
help
Chatterbox?
[Corion]: A good morning ;)

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2017-07-26 07:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (384 votes). Check out past polls.