Hello everyone, #this code works for any valid input # use strict; use warnings;
print "\n\n\tEnter directory : ";
my $path = <>;
chomp($path); #but if this line is eliminated, it
shows d drive(current drive) for any input
my @files = glob "$path/*" or die;
print "\n\n\tReading file names in $path";
print "\n\n\tFiles are :\n";
foreach ( @files ){print;print"\n";}
print "\n\n";
system('pause');
What's going on??
Somu.
