simple regex

Bhargav Coca

I am trying to do simple split for the output which i get when i do "ls" on a Linux box. i am pushing this to a file Dirlist.txt and doing this code

use strict;
undef $/;
open (LST,"Dirlist.txt")||die "$^E ; $!\n";
my $data = ;
#print "$data";
my @array = split(/\b/, $data);
print "$_\n" for (@array);


---My Output-------

abd.txt 123.exe cdc.ipl
asd.txt 234.exe pmd.ipl
.....
...


Some one please hit my head.

Thanks

Adam Stoller

I am trying to do simple split for the output which i get when i do "ls" on a Linux box. i am pushing this to a file Dirlist.txt and doing this code use strict; undef $/; open (LST,"Dirlist.txt")||die "$^E ; $!\n"; my $data = ; #print "$data"; my @array = split(/\b/, $data); print "$_\n" for (@array); ---My Output------- abd.txt 123.exe cdc.ipl asd.txt 234.exe pmd.ipl ..... ... Some one please hit my head. Thanks

Use opendir/readdir/closedir - it's more portable and sometimes more efficient.

If you really want to read this data from a file - it would help to see the format of the actual file that's being read