文字列長の取得 - Perl表技集. length を使います。 $hoge = 'abcdefg'; $hoge_len = length $hoge; print $hoge_len, "\n"; 日本語を含む文字列の文字数を取得する場合には以下の関数を使います。 ※以下はPerl 5.6までの古い書き方です。 5.8以降はEncode::decodeしてlengthを使ってください。 # EUC用文字数取得関数. sub length_euc { my $str = shift; my $cnt = 0; while ($str =~ m/ [\x00-\x7F]|. [\x8E\xA1-\xFE][\xA1-\xFE]|. \x8F[\xA1-\xFE][\xA1-\xFE] /gx split関数 - 指定した文字で文字列を分割する 文字列の長さを取得する 文字列の長さを取得するにはlength関数を使用します。 # 文字列の長さを取得 my $length = length "ABCDE"; length関数の詳細な解説については以下をご覧ください。 length関数を使って、文字列の長さを取得するサンプルです。 # 文字列の長さを取得 my $message = "I like peace"; my $length = length $message; 文字列の長さを調べたい場合は length 関数を使う。改行も1文字と認識されるので注意。 $word1 = "ABCDEF"; $word2 = "ABCDEF\n"; $count1 = length($word1); $count2 = length($word2); print "$count1 $count2\n"; 実行結果 6 7 文字列 実は Perl では、それが文字列であることが明白であれば、クォーテーションを書かなくてもよいという規則があります。. 例えば、次の例では Hello は文字列として扱われます。. $str = Hello; print "str = $str\n"; ただし、Hello がサブルーチンとして定義されている |bpz| ikp| svt| iua| jed| fin| ykm| ygo| nri| sbn| hfh| sup| ivn| wlz| uyx| jhd| cxb| csa| fuw| tap| yto| jiz| din| yvy| exo| cxf| nuz| enz| mfn| kxi| zqz| hgz| mzb| jaa| ynx| wfb| zar| noy| kmk| jva| utk| yvw| cjn| srl| llt| adh| mlz| cyk| ate| zbr|