はじめてperlを使用してプログラムを組んでいます。
変数の文字列の頭5文字を取得して返却する関数を作成しているのですが、
まずデコードがうまくいっていないのですが、なにが間違っているのかわかりません。
ご教示お願いいたします。
perl
1use Encode; 2sub Test { 3 4 # 引数取得 5 my $username = $_[0]; 6 7 # 返却値 8 my $username_h5 = ""; 9 10 # ユーザ名の設定有無チェック 11 if(defined($username)) { 12 # ユーザが5文字を超える場合は頭5桁を切り出す 13 if (length($username) > 5) { 14 # デコード 15 my $decText = Encode::decode("utf-8", $username); 16 17 # 頭5桁の切り出し 18 $decText = substr($decText, 0, 5); 19 20 # エンコード 21 $username_h5 = Encode::encode("utf-8", $decText); 22 23 } else { 24 $username_h5 = $username; 25 } 26 } else { 27 $username_h5 = $username; 28 } 29 return $username_h5; 30}
回答1件
あなたの回答
tips
プレビュー