topic list file mode in Operating System - HP-UX

list file mode

ikbea — Tue, 24 Jan 2006 23:20:11 GMT

Hi all,

Run ls -l
-rwxr-x--- 1 owner group size date filename

How to get filename in mode 750 instead of
-rwxr-x---

Thanks ?

Re: list file mode

Geoff Wild — Tue, 24 Jan 2006 23:23:51 GMT

Uh...-rwxr-x--- is 750 - you mean you want it to display as 750?

Rgds...Geoff

Re: list file mode

ikbea — Wed, 25 Jan 2006 01:34:41 GMT

I prepared a script for get mode of filename. For some reason, I want to get 750 (number) instead of -rwxr-x---.

Re: list file mode

Ivan Ferreira — Wed, 25 Jan 2006 01:45:30 GMT

You could create a script and use the cut command and case to convert the permissions, something like this logic:

result = cut from 2-4
case result = rwx then mode 700
case result = rw- then mode 600
case result = r-- then mode 400
and so on

result = cut from 5-7
case = rwx then mode 700+70
and so on

Probably some good c programmer on this forum could do this easily.

Re: list file mode

Muthukumar_5 — Wed, 25 Jan 2006 01:56:12 GMT

Use this:

#!/usr/bin/perl

# Input is like permission only = -rwxrw-rw-

while (<>)
{
@arr=split //;
for ($i=1;$i<=3;$i++) {
if ( $arr[$i] =~ /r/ ) {
$own+=4;
}
if ( $arr[$i] =~ /w/ ) {
$own+=2;
}
if ( $arr[$i] =~ /x/ ) {
$own+=1;
}
if ( $arr[$i] =~ /s/ ) {
$own+=1;
$SID+=4;
}
if ( $arr[$i] =~ /S/ ) {
$SID+=4;
}
}
for ($i=4;$i<=6;$i++) {
if ( $arr[$i] =~ /r/ ) {
$group+=4;
}
if ( $arr[$i] =~ /w/ ) {
$group+=2;
}
if ( $arr[$i] =~ /x/ ) {
$group+=1;
}
if ( $arr[$i] =~ /s/ ) {
$group+=1;
$SID+=2;
}
if ( $arr[$i] =~ /S/ ) {
$SID+=2;
}
}
for ($i=7;$i<=9;$i++) {
if ( $arr[$i] =~ /r/ ) {
$other+=4;
}
if ( $arr[$i] =~ /w/ ) {
$other+=2;
}
if ( $arr[$i] =~ /x/ ) {
$other+=1;
}
if ( $arr[$i] =~ /t/ ) {
$other+=1;
$SID+=1;
}
if ( $arr[$i] =~ /T/ ) {
$SID+=1;
}
}
print $SID . $own . $group . $other . "\n";
}

save it as mode.pl

Execution:

# echo "-rwsrwsrw-" | perl mode.pl
6776
# echo "-rwsrwsrwT" | perl mode.pl
7776

Or simply as,

# ls -l | awk '{ print $1; }' | perl mode.pl

--
Muthu

Re: list file mode

Peter Godron — Wed, 25 Jan 2006 02:46:07 GMT

Hi,
can I suggest you have a look at:
http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=60179

Previously asked question

Re: list file mode

Ralph Grothe — Wed, 25 Jan 2006 03:25:06 GMT

Hi,

if you already use Perl for the task,
why not use Perl's built ins (viz. stat())?

e.g.
you could collect mode bits in a file to mode hash like this

my $dir2stat = '/etc';
my $dh = do { local *DH };
opendir $dh, $dir2stat or die "Cannot opendir(): $!\n";
my %mbits;
map { $mbits{$_} = sprintf '%04o', (stat)[2] & 07777 }
map "$dir2stat/$_",
grep(!/^\.{1,2}/, readdir $dh);
closedir $dh;

For details please refer to "perldoc -f stat".

HTH
Ralph