2008-04-28から1日間の記事一覧
文字数 と バイト数 lesson011.pl print "文字数\n"; foreach $arg ( @ARGV ) { print $arg, " => ", charCount($arg), "\n"; }print "バイト数\n"; foreach $arg ( @ARGV ) { print $arg, " => ", length($arg), "\n"; }sub charCount { ($_) = @_; # 全角…
文字数 と バイト数 lesson011.pl print "文字数\n"; foreach $arg ( @ARGV ) { print $arg, " => ", charCount($arg), "\n"; }print "バイト数\n"; foreach $arg ( @ARGV ) { print $arg, " => ", length($arg), "\n"; }sub charCount { ($_) = @_; # 全角…
