TShack 発言

On Sun, 27 Dec 2009 16:29:03 +0900 (JST)
Zazel <zazel.ts@...> さんwrote:

> わざわざ2種類つくらなくても、BEGIN{eval "use Audio::Beep;";}
> しておいて場合分けすればいいと思います。

BEGIN{ eval "use Audio::Beep;";our $simple = 1 if $@; }

if($simple){
	# Add beep
	print chr(7);
}else{
	## use Audio::Beep instead of a simple beep
	eval {
		my $beeper = Audio::Beep->new();
		my $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2";
		$beeper->play( $music );
	}
}

　こんな具合ですかね。ひさしぶりにevalを使った^^;) BEGINブロックはPerlで
使うのは初めてだなあ・・・

藤岡 和夫
kazuf@...
日曜プログラマのひとりごと http://homepage1.nifty.com/kazuf/renewal.html