Equivalent of ls -d

[Another Brian]

I'm trying to get a list of the files and directories. I was using:
my @FILES = `ls -ld $INPUT`;

Where the value being passed into $INPUT includes a wild card that
identifies lots of files and directories. I am getting this error:
ksh: /acct/v/vobadm/bin/stattest.pl: 0403-027 The parameter list is
too long.

I do not want to descend into subdirectories. I tried using readdir
but if $INPUT contains a wild card, it lists the files in the
subdirectories.

Is there a Perl equivalent of "ls -d $INPUT"?

Thank you,
Brian

 

[A. Sinan Unur]

I'm trying to get a list of the files and directories. I was using:
my @FILES = `ls -ld $INPUT`;

Where the value being passed into $INPUT includes a wild card that
identifies lots of files and directories. I am getting this error:
ksh: /acct/v/vobadm/bin/stattest.pl: 0403-027 The parameter list is
too long.

I do not want to descend into subdirectories. I tried using readdir
but if $INPUT contains a wild card, it lists the files in the
subdirectories.

Huh?

Could you please share with us the code that does that?

Sinan

 

[xhoster]

I'm trying to get a list of the files and directories. I was using:
my @FILES = `ls -ld $INPUT`;

Where the value being passed into $INPUT includes a wild card that
identifies lots of files and directories. I am getting this error:
ksh: /acct/v/vobadm/bin/stattest.pl: 0403-027 The parameter list is
too long.

Yep, that is a shell limitation.

I do not want to descend into subdirectories. I tried using readdir
but if $INPUT contains a wild card, it lists the files in the
subdirectories.

I find that hard to believe. Can you demonstrate this?

Is there a Perl equivalent of "ls -d $INPUT"?

On a modern perl, its standard glob can deal with much larger file lists
than the shell can. It naturally does the equivalent ls's -d. To simulate
ls's -l you would need to stat each file coming out of glob.

Xho

 

[Juha Laiho]

I'm trying to get a list of the files and directories. I was using:
my @FILES = `ls -ld $INPUT`; ....
I do not want to descend into subdirectories. I tried using readdir
but if $INPUT contains a wild card, it lists the files in the
subdirectories.

You can check the entries returned from readdir -- see
perldoc -f -X

.... f.ex.

$ent = readdir( DIR );
if (-f $ent) {
// do something for plain files
}

 

[Another Brian]

Yep, that is a shell limitation.


I find that hard to believe. Can you demonstrate this?

Unfortunately I've deleted the test code and haven't been able to
quickly recreate it.

On a modern perl, its standard glob can deal with much larger file
lists
than the shell can. It naturally does the equivalent ls's -d. To
simulate
ls's -l you would need to stat each file coming out of glob.

GLOB! That's the command. I was just too brain dead to remember it.
Thank you. It works great!

Brian.