chomp

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.

• chomp by Somu
• Re: chomp by Jim Gibson