http://www.perlmonks.org?node_id=1043896


in reply to listing all files of a dir

Hi torres09,
is it possible to list all files of a directory in a perl one by one , asking user is this your file

Have you thought of using File::Find or File::Find::Rule
I use to have a "throw-away" script, I once used for deleting files I don't want.
You can modify this to ASK instead of deleting..
For me, the advantage of these modules is that they do ALL the dirty work for me.

use warnings; use strict; use File::Find qw(find); die "No directory is specified" unless defined $ARGV[0]; my $dir = $ARGV[0]; find( \&unwanted, $dir ); sub unwanted { if (/^\.{1,}/) { return } else { print "Do you want to delete ", $_, $/; chomp( my $ans = <STDIN> ); # to delete the file, remove the comment the code below #unlink $_ if $ans =~ /\by\b/; } }
NOTE: Please note that am only showing the usage of one the module, stated above. The OP will have to modify this to satisfy his intended condition.
Moreover, the OP should see documentation for various modules.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me