How to Open Directory and read and display all the file using perl

rajeshkumar created the topic: How to Open Directory and read and display all the file using perl

Method 1

$DIR = "/home/rajesh";
$DIRHANDLE = "HANDLE";

opendir ($DIRHANDLE, "$DIR") || die "Error Opening $DIR : $!";
@dirlist = readdir ($DIRHANDLE);
foreach (@dirlist)
{
print "$_ \n";
}

Method 2

@dirlist = ls -A $DIR;
foreach (@dirlist)
{
print "$_ \n";
}

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn