Perlについての質問箱 38箱目

570 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 16:21:14 ] gmplayerに配信元を渡す為に、 ブラウザでasxファイルをクリックしたら起動するように関連付けた 以下のようなものを作ってみました。 #!/usr/bin/perl use strict; use warnings; my $mplayer = 'gmplayer'; my @media ; while (<>) { /=\s?\"((?:http|mms):\/\/.*(?:wmv|wsx|wma|asf|mp3|mp4))\"/; push @media, $1 if ($1 ne ''); } @media ? exec $mplayer, pop @media : die "There is no streaming lines in this asx file!\n"; チェックの為にシェルからasxファイルを引数にして起動したところ、 わざとマッチする行が無いasxファイルでチェックした時には Use of uninitialized value in string ne at ./mp_wp line 11, <> line 1. Use of uninitialized value in string ne at ./mp_wp line 11, <> line 2. （以下略） There is no streaming lines in this asx file! という風に警告を表示されてしまいました。 この警告を出さなくするにはどうしたらいいのでしょうか？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef