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.
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/; } }
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
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
In Section
Seekers of Perl Wisdom