无涯教程-Perl - link函数

描述

此函数创建一个新文件名NEWFILE,链接到文件OLDFILE。该函数创建一个硬链接；如果需要符号链接,请使用符号链接功能。

语法

以下是此函数的简单语法-

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

参考链接

https://www.learnfk.com/perl/perl-link.html