perlについての質問です。

sjisのCSVからとある列を文字数指定で区切って表示しようと思っています。

$COMMENT =~ s/(.{226})(.+)/$1¥…/;

こんな感じのスクリプトで、指定した文字数以上だったら…を表示するようにしたいのですが。対象の列は半角、全角混じりの文章なので場合によっては最後の…が化けてしまいます。

どうやったら希望の通り
最初からX文字まで表示して、X文字以降は
…に置き換える事ができるのでしょうか?

宜しくお願いいたします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/04/07 10:07:04
  • 終了:--

回答(1件)

id:TomCat No.1

TomCat回答回数5402ベストアンサー獲得回数2152005/04/07 10:13:44

ポイント330pt

こちらが参考になると思います。

非常に巧妙な方法で、2バイト文字の「泣き別れ」を解決しています。

id:drivingsummer

ありがとうございました。

とても勉強になりました。

早いですが終了とさせていただきます。

2005/04/07 10:36:43

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません