Thanks.
I should have used the magic word 'convert' in my SuperSearch ...
Actually it is not really elegant, but it will do for me.

One more Thank You

Regards...

Stefan

I'm going to eschew the unpack or pack functions in my reply. Here is one way to accomplish what you are after. There are more elegant ways I'm sure.

#!/usr/bin/perl
#################################################################
$|=1;
use strict;

my $permstring="rw-rw----";
my $num=0;

for (my $i=0;$i<9;$i+=3) {
  
  $num = ($num * 8) + getoctal(substr($permstring,$i,3));

}

printf "%o\n",$num;

exit(0);

sub getoctal {
  my $str=shift;
  my $rval=0;

  $rval+=4 if substr($str,0,1) ne '-';
  $rval+=2 if substr($str,1,1) ne '-';
  $rval+=1 if substr($str,2,1) ne '-';

  return $rval;
}

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Peter L. Berghold --- Peter@Berghold.Net
"Those who fail to learn from history are condemned to repeat it."
[download]

Well, if you only ever have "r", "w", "x", and "-" present, then you can use pack/unpack for this:

sub perm2mode {
    my( $perm )= @_;
    if(  9 != length($perm)
     ||  9 != ( $perm =~ tr/rwx-/1110/ )  ) {
        die "Unsupported permission string ($_[0])";
    }
    return unpack "v", pack "b*", ''.reverse$perm;
}
[download]

my $mode= perm2mode("rw-r----x");
my $str= sprintf "0%o", $mode;
print "mode=$mode str=$str\n";
my $bad= 0+$str;
printf "bad=%d=0%o mode=%d=0%o\n", $bad, $bad, $mode, $mode;
[download]

mode=417 str=0641
bad=641=01201 mode=417=0641
[download]