Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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

by 2teez (Priest)
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.

Comment on Re: run a perl script for all files in a folder
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985680]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (10)
As of 2015-05-22 18:26 GMT
Find Nodes?
    Voting Booth?

    In my home, the TV remote control is ...

    Results (464 votes), past polls