Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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 surveying the Monastery: (12)
As of 2015-10-06 19:53 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (160 votes), past polls