Entries from 2011-09-28 to 1 day
3分ハッキングなので超適当。他のファイルで動かなかったらあとで直す。とりあえず動いたのでよし。 #!/usr/bin/perl use strict; use warnings; use XML::Simple; my $xml = XML::Simple->new; my $url = $xml->XMLin($ARGV[0])->{'dict'}->{'string'}; `x-…
3分ハッキングなので超適当。他のファイルで動かなかったらあとで直す。とりあえず動いたのでよし。 #!/usr/bin/perl use strict; use warnings; use XML::Simple; my $xml = XML::Simple->new; my $url = $xml->XMLin($ARGV[0])->{'dict'}->{'string'}; `x-…
