topic Re: Directory Help in Operating System - OpenVMS

Directory Help

jjinva — Tue, 05 Feb 2008 16:49:53 GMT

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?

Re: Directory Help

Duncan Morris — Tue, 05 Feb 2008 17:05:32 GMT

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

Re: Directory Help

Hein van den Heuvel — Tue, 05 Feb 2008 17:22:43 GMT

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

Re: Directory Help

Jon Pinkley — Tue, 05 Feb 2008 18:40:37 GMT

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
$

Re: Directory Help

Robert Gezelter — Tue, 05 Feb 2008 19:05:16 GMT

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

Re: Directory Help

jjinva — Tue, 05 Feb 2008 19:30:41 GMT

John,

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

Re: Directory Help

jjinva — Tue, 05 Feb 2008 19:43:59 GMT

Sorry , I meant Jon.

Re: Directory Help

Hoff — Tue, 05 Feb 2008 21:26:45 GMT

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.

Re: Directory Help

jjinva — Tue, 05 Feb 2008 21:50:52 GMT

Answer found thread closed. Thanks for all the replies.