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