Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 関数 - chmod

ファイルのパーミッションを変更します。

戻り値1 = chmod 値1 , リスト値1

戻り値1
変更が成功すると成功したファイルの個数を返す
値1
ファイルのモードを指定(リスト値1の先頭の値)
リスト値1
ファイル名を並べたリスト

(例)
# test1.txtが存在する場合削除する if (-e "test1.txt") { unlink("test1.txt"); } # test2.txtが存在する場合削除する if (-e "test2.txt") { unlink("test2.txt"); } open NEW, ">test1.txt"; close NEW; $n = chmod 0666, "test1.txt", "test2.txt"; # test2.txtは存在しない print "結果 : " . $n . "\n"; # test2.txtも作成 open NEW, ">test2.txt"; close NEW; $n = chmod 0666, "test1.txt", "test2.txt"; # 両方のファイルが存在 print "結果 : " . $n . "\n";

実行結果
結果 : 1 結果 : 2