å ¥åãããååã§é©å½ã«æååæãããã¸ã㯠2010-02-08-1 [Programming] ä¸æææµè¡ãããââæååæããç°¡åã«å®ç¾ããæ¹æ³ã ãµã³ãã«ã¨ã㦠perl ã®ã³ã¼ãçã§è§£èª¬ããã ã³ã¼ãï¼seibun.plï¼ï¼ #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my @data = ( ["ãã³", 37], ["çå¤", 19], ["èº", 41], ["ç´è±", 23], ["LOVE", 31], ); while (<>) { chomp; my $r_ref = name2seibun($_, \@data); foreach my $i (@$r
{{#tags}}- {{label}}
{{/tags}}