Perl link()函数

perl link()函数例子，link()函数学习，link()函数实例代码，link()函数在线教程等

语法

link OLDFILE,NEWFILE

定义和用法

创建一个新的文件名，创建一个NEWFILE的文件，链接到文件OLDFILE。该函数创建一个硬链接；如果你想要一个符号链接，那么使用符号链接的函数。

返回值

0 - 失败；

1 - 成功；

例子

试试下面的例子：这将使用现有的文件创建新的文件。

#!/usr/bin/perl
#by www.gitbook.net

$existing_file = "/uer/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";
}