gav^

You could always just use Archive::Tar and get the mode directly without parsing anything.

Have you looked at Stat::lsMode (alt.)?

It's aimed more towards the inverse of what you're doing, but there's an undocumented function called lsmode that might be of interest...

    --k.

Assuming you have a valid 9 digit mode string with -'s where the bits are off, here's a small snippet that'll usually do what you want:

$_ = "-r-x-w-rwx"; # Mode string in $_
my $bits = 0;
for (split //) {
    $bits *= 2;
    $_ ne "-" and $bits++;
}
printf "My bits are: %o\n", $bits;
[download]

The basic technique is to loop through the string, checking each character to see whether it's a "-" (off bit) or not (on bit). Each time through the loop, multiply $bits by 2 to shift the previous result out of the way, and then add 1 if the lowest bit should be turned on.

This does not detect the setuid or setgid bits, or anything other than standard drwxrwxrwx bits correctly.

Alan