Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: run a perl script for all files in a folder

by 2teez (Vicar)
on Aug 06, 2012 at 11:58 UTC ( #985680=note: print w/replies, xml ) Need Help??

in reply to run a perl script for all files in a folder


Or you could either use opendir function to open up the folder in question and then, get each of the file with readdir function to "work" on like so:

use warnings; use strict; opendir my $dh, $ARGV[0] or die "can't open directory: $!"; while ( readdir $dh ) { chomp; next if $_ eq '.' or $_ eq '..'; #..... get each file to work on .... } closedir $dh or die "can't close directory: $!"; ### or use File::Find like so: use File::Find qw(find); find( sub { print $_, $/ }, $ARGV[0] );
The Anonymous subroutine, could be used to do what you want on each of the file in the folder.
Please check the following for more info:
  • perldoc -f opendir
  • perldoc -f readdir
  • perldoc File::Find

Hope this helps.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985680]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2018-03-23 15:46 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (294 votes). Check out past polls.