質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Q&A

解決済

1回答

1487閲覧

Perlで文字を切り出す

plue

総合スコア71

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

0グッド

0クリップ

投稿2017/05/29 05:28

はじめて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}

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

m.ts10806

2017/05/29 05:29

デコードがうまくいっていないとのことですが、Encode::decode()の結果はどのようになっているでしょうか?
plue

2017/05/29 05:34 編集

Encode::decode()の結果である変数$decTextを、decode直後にログ出力しようとしたのですが、出力されていないため結果が不明になっております。decode直前に仕込んだログは出力されるのですが。。
m.ts10806

2017/05/29 05:40 編集

perlやってたのも何年も前の話なのでおぼろげで申し訳ないのですが、そもそも文字列を切り出すだけでdecode→encodeって必要なんですか?
guest

回答1

0

ベストアンサー

Perl開発環境がないので検証ができないのですが、下記が参考になるかもしれません。

UTF-8な文字列をsubstrする

念のため、以下も確認してください。

  • プログラムファイル自体もUTF8か
  • 何かエラーメッセージは出ていないか
  • $_[0]で引数は取得できているか

投稿2017/05/29 05:46

m.ts10806

総合スコア80765

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

plue

2017/05/29 06:20

ご回答いただいたリンク先を参考にすることで、 文字の切り出しを成功することができました。ありがとうございます。
m.ts10806

2017/05/29 06:40

文字コードの扱いはどの言語でも苦労しますもんね。 最終的なコードがどうなったかを質問に追記するか自己回答でコメントしておいてもらえると同じような問題を抱えた人の役に立つかもしれません。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問