topic Re: sort files by size in Operating System - OpenVMS

sort files by size

Alex Chupahin — Thu, 09 Jun 2011 06:19:27 GMT

hello
please, simple question.
How to sort files in the directory by size.

Here is an example.
Whats wrong?

=============================================

$ if p1 .eqs. "" then $ p1 = "*.*"

$ close /nolog outfile
$ open /write outfile sys$manager:x.x
$ loop:
$ file = f$search( p1 )
$ if file .eqs. "" then $ goto done
$ cdt = f$file_attributes( file, "EOF" )
$! cdt = f$cvtime( cdt, "COMPARISON" )
$ write outfile -
cdt, -
" ", -
f$parse( file, , , "NAME" ),-
f$parse( file, , , "TYPE" )
$ goto loop
$ done:
$ close outfile
$ sort sys$manager:x.x sys$manager:z.z /key = (position:1,decimal)
$ type sys$manager:z.z
$ delete sys$manager:x.x.,z.z.

Re: sort files by size

Joseph Huber_1 — Thu, 09 Jun 2011 06:54:17 GMT

SORT can't do 'variable length' keys (except floting point). You have to output the size in a fixed length field like:
$ size=f$fao("!8UL",cdt)
and then output size instead of cdt.

The sort command then is
$ sort sys$scratch:x.x sys$scratch:z.z /key=(position:1,size:8,decimal)

Re: sort files by size

Mark Battle — Thu, 09 Jun 2011 07:07:03 GMT

For a directory tree listing do

$ dir/size [...]/nohead/wid=(filename=90,size=8)/out=space.txt
$ sort space.txt space.txt/key=(position:92,size:9,desc)

Re: sort files by size

Joseph Huber_1 — Thu, 09 Jun 2011 07:29:17 GMT

and without intermediate files:

$ with bash shell: bash -c "ls -lS"

or

$ pipe direct/nohead/notrail/size/width=(DISPLAY=90,filename=80,size=9) 'p1' |-
sort/key=(position:82,size:10,descending) sys$pipe: sys$output | type sys$pipe:

(assuming directory+filenames are not longer than 80, or extent the width).

Re: sort files by size

Kris Clippeleyr — Thu, 09 Jun 2011 07:38:43 GMT

Hi Alex,

Use QDSB, downloadable from
http://www.quadratrix.be/qdsb.html

It's free.

Greetz.
Kris (aka Qkcl)

Re: sort files by size

Alex Chupahin — Thu, 09 Jun 2011 08:14:18 GMT

>$ with bash shell: bash -c "ls -lS"

:) with bash, so I'm unix administrator for ten last years....

Unfortunately I have no practice with OpenVMS system administration, only for playing :(

Re: sort files by size

Alex Chupahin — Thu, 09 Jun 2011 08:14:58 GMT

Thank you all

Re: sort files by size

H.Becker — Thu, 09 Jun 2011 08:19:13 GMT

Just my EUR .02...

Whatever the OP wants to use P1 for and whatever the expected output should look like,

$ bash -c "ls -lS" 'p1'
silently ignores the 'p1'

$ bash -c "ls -lS ''p1'"
requires a Posix style path in P1

and "ls -l" prints some noise. "ls -sS -c1" would come close, but the GNV version I tried seems to have problems to do the correct sort.

>>> $ pipe direct/nohead/notrail/size/width=(DISPLAY=90,filename=80,size=9) 'p1' |-
sort/key=(position:82,size:10,descending) sys$pipe: sys$output | type sys$pipe:

The OP seems to want only names and types. You may want to add a /sel=file=(nodevice,nodir,novers)
The OP had the default sorting order ascending. Anyway, here I would just sort to sys$output and omit the trailing pipe. But I would add another key to sort the file names as well.

Re: sort files by size

Joseph Huber_1 — Thu, 09 Jun 2011 11:37:54 GMT

[
The OP seems to want only names and types. You may want to add a /sel=file=(nodevice,nodir,novers)
]

But then P1 also should be restricted to one directory only, otherwise all files in different subdirectories are listed without indication which one is in which directory!

Anyway a DIR & Sort script is not perfect,
Kris's QDSB is superior.

Re: sort files by size

Alex Chupahin — Fri, 10 Jun 2011 07:43:57 GMT

It is very interesting why DEC/Compaq/HP will not include very useful /SORT option into DIR
as DEC in RT-11 DCL had done?
Very strange.