こんなんがあって use strict; my %hoge = %{sub_fuga};ダメだろ。と思ってしまった。 てっきりsub_fugaというサブルーチンはハッシュの名前を返すものだと思ってしまった。 シンボリックリファレンスになっちゃうからだめじゃん。 と思った。 でもあれだな…

各月の日数を取得したい。もしくは各月の最終日を取得したい。 use Date::Calc qw( Today Days_in_Month ); my ( $year, $month, $day ) = Today; $days = Days_in_Month( $year, $month ); こんなんも見つけた。 各月の日数。 @list = ( 31, ((($y % 4 == 0…

XMLオブジェクトに含まれる改行やら空白やらは無意味にあってはいけないので、ignoreWhiteを真にしておく。 var XMLobj:XML = new XML() XMLobj.ignoreWhite = trueXMLの宣言をしたらすぐ下にignoreWhiteを真にした方がいい。 XML文字列読み込んだ後でignore…