Perl函数正在尝试将旧文件移动到磁带目录。.但是有时无法..想要了解它的作用

Question

我是pe​​rl的新手，无法理解这段代码的作用？有人可以解释一下吗。]

     if(do_link_unlink($file,$tapefile)){
        $totape_free -= -s($tapefile);
     } else {
        print_log("ERROR: totape $file failed, skipping to next");
        next;
     }
  } else {
     print_log("ERROR: totape is full, skipping move of $file");
  }



# return 1 for success
sub do_link_unlink {

    my ($src,$dest) = @_;

    # sanity check
    if($src eq $dest){
        print_log("ERROR: link-unlink src IS desc !!! $src $dest");
        return(0);
    }

Answer 1

您发布的代码段比较两个字符串是否相同。

如果是，它将调用print_log（两次），这大概会将提供的字符串写入错误日志。

如果不是，do_link_unlink可能会继续做其他事情，但是您提供了那部分代码。返回do_link_unlink后，将从$tapefile中减去由$totape_free命名的文件的大小。不执行错误检查以查看-s是否成功。