opendir, readir into @array in one line?

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

Replies are listed 'Best First'.
(ar0n: glob) Re: opendir, readir into @array in one line? by ar0n (Priest) on Jul 23, 2001 at 19:29 UTC
`my @array = glob("$dir/");` [download] or `my @array = <$dir/>;` [download] see glob [ ar0n ]	[reply] [d/l] [select]
Re: opendir, readir into @array in one line? by MZSanford (Curate) on Jul 23, 2001 at 19:31 UTC
without using backticks, you could try : # bad @array = `ls $dir`; # better @array = glob("$dir/*"); # i usually use what you already had opendir(DIR,"$dir"); @array = readdir(DIR); closedir(DIR); [download] remeber the immortal word's of Socrates who said, "I drank what ?"	[reply] [d/l]
Re: opendir, readir into @array in one line? by nardo (Friar) on Jul 23, 2001 at 20:12 UTC
`@array = readdir(DIR) if(opendir(DIR, $dir));`	[reply] [d/l]
Re: opendir, readir into @array in one line? by abstracts (Hermit) on Jul 23, 2001 at 22:32 UTC
Hello You wondered about whether you can do @array = readdir(DIR) I wonder why you wonder :-). You could've just consulted the perldocs for the answer since it clearly states that: readdir DIRHANDLE Returns the next directory entry for a directory opened by "opendir". If used in list context, returns all the rest of the entries in the direc- tory. If there are no more entries, returns an undefined value in scalar context or a null list in list context. Does this help? Aziz,,,	[reply]
Re: opendir, readir into @array in one line? by mugwumpjism (Hermit) on Jul 23, 2001 at 19:38 UTC
`sub files_in_dir { my ($dir) = (@_); ( -d $dir ) or die "No such directory $d"; opendir DIR, $d or die "Opendir failed; $!"; my @files = grep !/^\.\.?$/, DIR; closedir DIR; return @files; }` [download] Meanwhile, in a nearby piece of code... `my @files = files_in_dir "/my/dir";` [download] Close to what you wanted? `srand 3.14159; print join("", sort{rand 1<0.5}map{$_^"\037"}split m{ }x,"qmptk\|z~wOzm??l]pUqx^k?j"),",\n";` [download]	[reply] [d/l] [select]
Re: opendir, readir into @array in one line? by Wookie (Beadle) on Jul 24, 2001 at 14:38 UTC
In terms of efficency - I'm not too up to speed on perl internals etc. - but isn't it likely that glob constructs lead back to the same underlying functions? That is - opendir and readdir (c functions - not perl) ? So ultimately - aren't most of these options going to be as efficent (or close to it)? game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);	[reply]