Re: Show all files with empty filename

From: Joseph Huber (huber_at_NOBODY-mppmu.mpg.de)
Date: 07/13/05


Date: 13 Jul 2005 17:12:00 +0200

In article <000001c5877b$806afeb0$994614ac@wat153>, "Rudolf Wingert" <win@fom.fgan.de> writes:
> I would like to see all files without an filename within OpenVMS
> 7.3[-1]. With DIR it is impossible. If I use $DIR [*...].*, I will see
> all files of the disk. Also is there a strange behavior if you delete
> files (e.g. $DEL hugo.*;*) and there is no filetyp (error in
> filenamespecification). Is this a bug or a feature?

Method 1: use GNV/bash
 bash$ ls .*

Method 2: use a DCL command-file like the following:

 $! <title> directory of files with empty name (.typ) </title>
 $ if p1.eqs."" then p1=".*"
 $ last = ""
 $ loop:
 $ file=f$search(p1)
 $ if file.eqs."" then exit
 $ if file.eqs.last then exit
 $ last = file
 $ fn = f$parse(file,,,"NAME")
 $ if fn.eqs."" then write sys$output file
 $ goto loop
 
Then @thisfile [...].*

The second question: I can't see while delete for a file with no
file-type ("*.") results in an error. Maybe Your DEL command
does something wrong ?
It simply works:

Directory DISK$HUBER:[HUBER]

test.;1

Total of 1 file.
delete test.;
sh sym $STATUS
  $STATUS == "%X10000001"

-- 
   Joseph Huber, Muenchen  http://www.huber-joseph.de/


Relevant Pages

  • Re: Show all files with empty filename
    ... >> I would like to see all files without an filename within OpenVMS ... WRITE is one of the DCL commands that do automatic expression evaluation. ...
    (comp.os.vms)
  • Re: mv and white spaces
    ... > I'm trying to write a little shell script to rename files by changing ... > their extension. ... > exit $E_BADARGS ... > But it doesn't work if there is a white space in filename. ...
    (comp.unix.shell)
  • Re: If...else and exit;
    ... I've not tried to understand or fix your code I've just ... Note that by reapeatedly posting code that so badly indented you are ... foreach my $filename { ... # if /FASTSEARCH/ is no found i want the program to exit. ...
    (comp.lang.perl.misc)
  • Re: how to open this file
    ... thanks,but that first file is opening but second one is giving me ... problam it's giving me message that no such files or directory so am i ... # Remove the newline from the filename ... > exit is also wrong, technically, since you exit..., ...
    (comp.lang.perl.misc)
  • Re: Waiting for process end , how?
    ... Dim pr As Process ... pr.Start(Fname) where Fname is the filename to use with the process. ... How about to use the wait for exit in the process class to wait on the ...
    (microsoft.public.dotnet.languages.vb)