parse_dir doesn't seem to work

nysus has asked for the wisdom of the Perl Monks concerning the following question:

I have a simple function to test the parse_dir function:

  1 #!/usr/bin/perl
  2 use File::Listing qw(parse_dir);
  3 $listing = `ls -l`;
  4 @directories = parse_dir($listing);
  5 print @directories;
[download]

Using perl version 5.8.8. No errors, but nothing is returned even though there are definitely entries in the directory. Any ideas?

$PM = "Perl Monk's";
$MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ Deacon";
$nysus = $PM . $MCF;
Click here if you love Perl Monks

Comment on parse_dir doesn't seem to work Download Code

Replies are listed 'Best First'.
Re: parse_dir doesn't seem to work by Cubes (Pilgrim) on Jan 03, 2008 at 17:38 UTC
What's in $listing before you pass it to parse_dir? What's in @directories afterwards? (Data::Dumper may be useful here)	[reply]
Re^2: parse_dir doesn't seem to work by nysus (Parson) on Jan 03, 2008 at 17:43 UTC
using data dumper, $listing is the directory listing. dumping @directories produces nothing. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ Deacon"; $nysus = $PM . $MCF; Click here if you love Perl Monks	[reply]
Re^3: parse_dir doesn't seem to work by Cubes (Pilgrim) on Jan 03, 2008 at 17:49 UTC
I get the correct list returned (using 5.8.5) from parse_dir. Perhaps there's something it doesn't like about your brand of ls -l? Looks like there's a parameter to parse_dir to make it speak up on unparseable lines... does that help?	[reply]
Re^4: parse_dir doesn't seem to work by nysus (Parson) on Jan 03, 2008 at 18:17 UTC
Re^5: parse_dir doesn't seem to work by randyk (Parson) on Jan 03, 2008 at 18:42 UTC
Re^5: parse_dir doesn't seem to work by Cubes (Pilgrim) on Jan 03, 2008 at 18:25 UTC
Re^4: parse_dir doesn't seem to work by nysus (Parson) on Jan 04, 2008 at 02:13 UTC
Re: parse_dir doesn't seem to work by GrandFather (Saint) on Jan 03, 2008 at 17:49 UTC
maybe there are no subdirectories to the current working directory when the script is run? Perl is environmentally friendly - it saves trees	[reply]
Re^2: parse_dir doesn't seem to work by nysus (Parson) on Jan 03, 2008 at 17:53 UTC
There are definitely subdirectories. When I print $listing, there is 151 directories/symlinks. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ Deacon"; $nysus = $PM . $MCF; Click here if you love Perl Monks	[reply]
Re^3: parse_dir doesn't seem to work by GrandFather (Saint) on Jan 03, 2008 at 17:58 UTC
It may be worth providing a small sample of the $listing contents for those of us that are *nixly challenged. Perl is environmentally friendly - it saves trees	[reply]