Opened by Gast at 2006-10-06 12:03
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
@anti
ich denke er meinte wohl eher das eingebaute "chmod" in Perl, und nicht das auf der Shell.
-------
Zur Zeit ist mir unbekannt das eine Funktionalität wie sie auf der Shell existiert auch mit chmod in Perl geht. Du kannst aber vorher mit stat die Permission auslesen, dann abändern, und dann die neuen Rechte wieder Zuordnen.
Informationen dazu auch in:
perldoc -f stat\n\n
<!--EDIT|sid burn|1160123495-->
ich denke er meinte wohl eher das eingebaute "chmod" in Perl, und nicht das auf der Shell.
-------
Zur Zeit ist mir unbekannt das eine Funktionalität wie sie auf der Shell existiert auch mit chmod in Perl geht. Du kannst aber vorher mit stat die Permission auslesen, dann abändern, und dann die neuen Rechte wieder Zuordnen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $file = $ARGV[0];
my $mode = (stat($file))[2];
$mode = sprintf '%04o', $mode & 07777;
my $new = $mode | 0001;
print $mode, "\n", $new, "\n";
chmod oct($new), $file;
Informationen dazu auch in:
perldoc -f stat\n\n
<!--EDIT|sid burn|1160123495-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de