Perl-link

Perlリンク関数

説明

この関数は、ファイルOLDFILEにリンクされた新しいファイル名NEWFILEを作成します。 この関数はハードリンクを作成します。シンボリックリンクが必要な場合は、symlink関数を使用します。

構文

以下は、この関数の簡単な構文です-

link OLDFILE,NEWFILE

戻り値

この関数は、失敗すると0を返し、成功すると1を返します。

例

以下は、その基本的な使用法を示すサンプルコードです。これにより、既存のファイルを使用して新しいファイルが作成されます-

#!/usr/bin/perl

$existing_file = "/usr/home/test1";
$new_file = "/usr/home/test2";
$retval = link $existing_file, $new_file ;
if( $retval == 1 ) {
   print"Link created successfully\n";
} else {
   print"Error in creating link $!\n";
}

上記のコードが実行されると、次の結果が生成されます-

Error in creating link No such file or directory