Perl link 函数

• 

  描述

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

  句法

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

  
  link OLDFILE,NEWFILE
  

• 

  返回值

  如果失败，此函数返回0，如果成功，则返回1。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  $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