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.
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.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/; } }
In reply to Re: listing all files of a dir
by 2teez
in thread listing all files of a dir
by torres09
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |