perl 既存のファイルに権限を追加する
#指定した引数をファイル名として扱い、そのファイルの所有者がユーザ自信であり、読み込み権限を持っていれば、既存の権限に加えて所有者とグループの書込権限を付けるスクリプト #既存のファイルに権限を追加する #append_mod.pl if(@ARGV > 0){ if(-o $ARGV[0]){ #所有者のファイルかどうか調べる #ファイル情報を取得 ($device, $inode, $mode, $nlink, $userid, $groupid, $rdev, $size, $accesstime, $modifytime, $changetime, $blocksize, $blockcount) = stat($ARGV[0]); #権限を追加 chmod($mode | 0220, $ARGV[0]); }else{ print "所有のファイルではありません\n"; } }else{ print "ファイル名を指定してください\n"; }
- 作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪
- 出版社/メーカー: オライリージャパン
- 発売日: 2012/07/25
- メディア: 大型本
- 購入: 7人 クリック: 22回
- この商品を含むブログ (17件) を見る