Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Trouble with File::Find::Rule

by Laurent_R (Parson)
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?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (12)
As of 2014-09-17 09:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (70 votes), past polls