Perl link用法及代碼示例

描述

此函數創建一個新文件名 NEWFILE，鏈接到文件 OLDFILE。該函數創建一個硬鏈接；如果需要符號鏈接，請使用 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