Help for this page

Select Code to Download

Select or download this

$ perl5.8.6 -MRegexp::Common=list -e 'print map {$_.$/} grep { /$RE{li
+st}{-pat=>"[ugoa]+=[rwxsS]+"}{-sep=>","}/ } @ARGV' ugo=rw,a=r ugo=rw
ugo=rw,a=r

Select or download this

my $perm_re = qr/[ugoa]+=[rwxsS]+/;
$val =~ /^(?:$perm_re(?:,$perm_re)*)$/;