http://dsas.blog.klab.org/archives/51117561.html
このようなエラーがでてしまいます。
String found where operator expected at ip_diff.pl line 45, near "pod2usage(2) if exists $opt{'"
(Might be a runaway multi-line '' string starting on line 44)
(Missing semicolon on previous line?)
syntax error at ip_diff.pl line 45, near "pod2usage(2) if exists $opt{'"
Bad name after help' at ip_diff.pl line 45.
どうしたら、いいのでしょうか?
perlにはあまり詳しくないのですが、問題なく動く所まではもっていけたので回答を。
問題となっている行の直前(エラー内容を見ると44行目)を以下のように変更してください。
GetOptions(?%opt, 'help|h|?') or pod2usage(2);
↓
GetOptions(%opt, 'help|h|?') or pod2usage(2);
モジュールの不足などがなければ問題なく動くかと思います。
Windows XP Home + Strawberry perl 5.10.0にて動作確認
ありがとうございます。
問題なく動きました。