「:num」がわかんなかったので、やってみた。 2 hoge = { "hoge" => 1 , "pga" => 2 } 3 4 word = "hoge" 5 num = 20 6 7 hoge[word] = {} 8 9 hoge[word][:num] = num 10 11 p hoge {"hoge"=>{:num=>20}, "pga"=>2} なんか、大きな人に聞いたら「それはシン…

テキストグラフを生成してくれる君。 1 use strict; 2 use warnings; 3 4 use Text::Graph; 5 use Text::Graph::DataSet; 6 7 print Text::Graph->new('Bar')->to_string( { 1 =>10, 2 =>20 , 3 => 30 } ); こんなかんじ、引数はLineもある。 1 : 2 :*******…

こんな感じでたてて、 package Hoge::Controller::Xmlrpc; use strict; use warnings; use base 'Catalyst::Controller'; sub default : Global { my ( $self, $c ) = @_; $c->xmlrpc; } sub hoge : XMLRPC("method.hoge") { my ( $self, $c, $message ) = @…