マニュアルページに記述されているfpingスクリプトに構文エラーがあります

Question

マニュアルページに記載されているfpingスクリプトを実行しようとしています。

#!/usr/local/bin/perl 
require 'open2.pl'; 

$MAILTO = "root"; 

$pid = &open2("OUTPUT","INPUT","/usr/local/bin/fping -u"); 

@check=("slapshot","foo","foobar"); 

foreach(@check) { print INPUT "$_\n"; } 
close(INPUT); 
@output=; 

if ($#output != -1) { 
    chop($date=`date`); 
    open(MAIL,"|mail -s 'unreachable systems' $MAILTO"); 
    print MAIL "\nThe following systems are unreachable as of: $date\n\n"; 
    print MAIL @output; 
    close MAIL; 
} 

しかし、私はそれを実行して、どこからでも、次のエラーを取得：

syntax error at /path/to/pingtest.pl line 13, near "=;" 
Execution of /path/to/pingtest.pl aborted due to compilation errors. 

は、誰かがライン13と間違っているものを私を助けることができますか？私はopen2.plを持っており、fpingのパスは正しいです。

Answer 1

オンラインman-pageでスクリプトが見つかった場合は、<OUTPUT>がHTMLマークアップとして解釈され削除されました。それは

@output = <OUTPUT>; 

をお読みください。しかし、それが書かれたように、このPerlスクリプトは、数十年前

• require open2.plの使用は、それがuse strictまたはuse warningsを使用していないlong-ago replaced by use IPC::Open2

• だった、と語彙の回避に見えます変数

• ファンクションコールでは、弧あなたは、外部に問題がある場合にのみ、非常に特殊なケースでopenへ

• 呼び出しは昔ながらとあいまいな2引数バージョン