Directory Help

[jjinva]

VMS 7.3-1. I have a requirement to find all files with same exact filename without the extension. For Example: In my directory
I have error.com, error.lis, error.rep.

I need some incantation of dir that will return just error. as you see no extension.

Is there a such a parameter?

[Duncan Morris]

Hi Jjinva,

what you should try is

dir error.

note the trailing full stop

you can see specific versions with

dir error.;-1

etc


Duncan

[Hein van den Heuvel]

I'm not sure what you mean, but I am sure there is no option for DIRECTORY to get there.

Do you just want to drop the versions and show just 1 copy with no version?

$ pipe dir *.*; | perl -pe "s/;\d+//g"

Note, the ";" after the filespec is critical to report a single (the highest) version.

1 file per line, or columns?

$ perl -le "print foreach ()"


1 name, no extention, no version per 'group'?

$ perl -le "$names{(split /\./)[0]}++ foreach (<*>); print foreach (sort keys %names)"

Why do you need the particular output?
What problem are you really trying to solve?
Maybe we can help better know that!


Hope this helps some,
Hein van den Heuvel (at gmail dot com)
HvdH Performance Consulting

[Jon Pinkley · Accepted solution]

This appears to do what you are asking for

$ dir/col=1

Directory ROOT$USERS:[JON.DIRECTORY_TEST]

ABC.1;2
ABC.1;1
ABC.2;1
ABC.3;1
DEF.TXT;1

Total of 5 files.
$ pipe dir *.*; /select=(file:(nonode,nodev,nodir,notype,nover)) /nohead/notrail | sort sys$pipe sys$output /nodup
ABC
DEF
$

[Robert Gezelter]

jjriva,

Yes, DIRECTORY/COLUMN=1 *.; should do it. If you are building this list for further processing, the /NOHEAD and /NOTRAIL parameters may be of use.

- Bob Gezelter, http://www.rlgsc.com

[jjinva]

John,

Thank you. That does exactly what I was looking for.

[jjinva]

Sorry , I meant Jon.

[Hoff]

I'd probably look to use f$search and f$parse here, depending on the specific requirements. Parsing output works for this case, but there are alternatives.

In a loop...

f$search("ddcu:[dev]ERROR.*",1)

gets the file

then f$parse to extract the filename from the full specification.

There are almost certainly examples of this DCL file-processing loop around the 'net.

[jjinva]

Answer found thread closed. Thanks for all the replies.