#!/usr/bin/perl use strict; use warnings; use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry Wall"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; $mojiretsu = "山本 弘"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; |
Larry Wallは10文字です。 山本 弘は12文字です。 |
#!/usr/bin/perl use strict; use warnings; use utf8; use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry Wall"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; $mojiretsu = "山本 弘"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; |
Larry Wallは10文字です。 Wide character in print at shiken2.pl line 15. 山本 弘は4文字です。 |
#!/usr/bin/perl use strict; use warnings; use encoding ("utf-8"); use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry Wall"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; $mojiretsu = "山本 弘"; $suji = length($mojiretsu); print $mojiretsu . "は" . $suji . "文字です。\n"; |
Larry Wallは10文字です。 山本 弘は4文字です。 |
#!/usr/bin/perl use strict; use warnings; use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry Wall"; if ($mojiretsu =~ /\w+/){ print $mojiretsu . "は文字列です。\n"; } else{ print $mojiretsu . "は文字列でありません。\n"; } $mojiretsu = "山本 弘"; if ($mojiretsu =~ /\w+/){ print $mojiretsu . "は文字列です。\n"; } else{ print $mojiretsu . "は文字列でありません。\n"; } |
Larry Wallは文字列です。 山本 弘は文字列でありません。 |
#!/usr/bin/perl use strict; use warnings; use encoding ("utf-8"); use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry Wall"; if ($mojiretsu =~ /\w+/){ print $mojiretsu . "は文字列です。\n"; } else{ print $mojiretsu . "は文字列でありません。\n"; } $mojiretsu = "山本 弘"; if ($mojiretsu =~ /\w+/){ print $mojiretsu . "は文字列です。\n"; } else{ print $mojiretsu . "は文字列でありません。\n"; } |
Larry Wallは文字列です。 山本 弘は文字列です。 |
#!/usr/bin/perl use strict; use warnings; use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry"; if ($mojiretsu =~ /(\w)\1/){ print "「" . $mojiretsu . "」は" . "「" . $1 . "」が重なっています。\n"; } else{ print "「" . $mojiretsu . "」は" . "は文字が重なっていません。\n"; } #\1は()の中の\wで一致するものを返す。 $mojiretsu = "足跡が点点とある。"; if ($mojiretsu =~ /(\w)\1/){ print "「" . $mojiretsu . "」は" . "「" . $1 . "」が重なっています。\n"; } else{ print "「" . $mojiretsu . "」は" . "文字が重なっていません。\n"; } |
「Larry」は「r」が重なっています。 「足跡が点点とある。」は文字が重なっていません。 |
#!/usr/bin/perl use strict; use warnings; use encoding ("utf-8"); use 5.010; my ($mojiretsu, $suji); $mojiretsu = "Larry"; if ($mojiretsu =~ /(\w)\1/){ print "「" . $mojiretsu . "」は" . "「" . $1 . "」が重なっています。\n"; } else{ print "「" . $mojiretsu . "」は" . "は文字が重なっていません。\n"; } #\1は()の中の\wで一致するものを返す。 $mojiretsu = "足跡が点点とある。"; if ($mojiretsu =~ /(\w)\1/){ print "「" . $mojiretsu . "」は" . "「" . $1 . "」が重なっています。\n"; } else{ print "「" . $mojiretsu . "」は" . "文字が重なっていません。\n"; } |
「Larry」は「r」が重なっています。 「足跡が点点とある。」は「点」が重なっています。 |
#!/usr/bin/perl use strict; use warnings; use utf8; my ($seimei, $first_moji); $seimei = "村上康夫"; $first_moji = substr($seimei, 0, 1); print $first_moji, "\n"; |
Wide character in print at shiken21.pl line 9. 村 |
#!/usr/bin/perl use strict; use warnings; use encoding ("utf-8"); my ($seimei, $first_moji); $seimei = "村上康夫"; $first_moji = substr($seimei, 0, 1); print $first_moji, "\n"; |
村 |
#!/usr/bin/perl use strict; use warnings; use utf8; my ($seimei, $first_moji); $seimei = "村上康夫"; $first_moji = substr($seimei, 0, 1); use bytes; print $first_moji, "\n"; |
#!/usr/bin/perl use strict; use warnings; use utf8; use Encode; my ($seimei, $first_moji); $seimei = "村上康夫"; $first_moji = substr($seimei, 0, 1); $first_moji = encode("utf-8", $first_moji); print $first_moji, "\n"; |