Perl 链接函数

说明

此函数创建一个新文件名 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