TOP - Perl - 関数 - chmod

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

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

(例)
if (-e "test1.txt")            # test1.txtが存在する場合削除する
{
    unlink("test1.txt");
}
if (-e "test2.txt")            # test2.txtが存在する場合削除する
{
    unlink("test2.txt");
}

open NEW, ">test1.txt";
close NEW;

$n = chmod 0666, "test1.txt", "test2.txt";     # test2.txtは存在しない

print "結果 : " . $n . "\n";

open NEW, ">test2.txt";                        # test2.txtも作成
close NEW;

$n = chmod 0666, "test1.txt", "test2.txt";     # 両方のファイルが存在

print "結果 : " . $n . "\n";
実行結果
結果 : 1
結果 : 2


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.