No.3ベストアンサー
- 回答日時:
文字の正規表現は下記のURLを参考にされてみてはどうでしょう
ここによるとShift-Jisの2バイト文字の正規表現は[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]
これをもとに1バイトの文字数,2バイトの文字数を返す関数を考えてみると...
sub kazoeru {
#戻り値 (1バイト文字の数,2バイト文字の数)
my($one, $two);
while ($_[0] =~ /([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])|./g) {
if (defined $1) {
# 2バイト文字を1個発見!!
$two++;
}
else {
# 違ったみたい..1バイト文字としてカウント
$one++;
}
}
return ($one, $two);
}
#Sample
($han, $zen) = kazoeru("abcあああ123");
print "han=$han zen=$zen\n";# han=6 zen=3
参考URL:http://www.din.or.jp/~ohzaki/perl.htm#Character
No.2
- 回答日時:
半角1文字は1バイト。
全角文字(日本語など)1文字は、2バイトです。
perlでいう1文字は1バイト、半角文字1文字の事です。
例えば、abc は3文字、あいう は6文字(6バイト)
となります。(abあ は4文字)。
No.1
- 回答日時:
「半角の文字数を知る」というのがどういう意味かよくわからないんですが....
たとえば "abcAAXYZ1203ああ" という文字列に対して, いくつを返せばいいんでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(IT・Webサービス) Googleスプレッドシートの数式 5 2022/12/08 17:52
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Ruby 1、Rstudioで回帰直線を求めるために必要な関数はなにか?アルファベット2文字で答えよ。 2、r 1 2022/08/03 11:38
- その他(プログラミング・Web制作) 文章中の数値を自動で足すサービスはあるでしょうか? 1 2022/10/16 08:10
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
テキストファイルで提出とは?
-
perlのflock関数でロックをかけ...
-
bashスクリプト
-
perlをバージョンアップしたら...
-
perl 正規表現でエラー
-
perlで2次元配列をサブルーチ...
-
Perlで特定文字列から特定文字...
-
英数文字列のうちの数値を4桁に...
-
openした後、closeしないでプロ...
-
perlで自動ログインをしたいが...
-
Perlのエラーについてご教授く...
-
Strawberry Perl for Windows ...
-
arduino の割り込み処理について
-
アルファベットに付いて質問し...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□...
-
perlでリテラル値はメモリにど...
-
Perlで時間の計算
-
perlについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
openした後、closeしないでプロ...
-
perlをバージョンアップしたら...
-
Perl の外部モジュールの利用方法
-
Perlのエラーについてご教授く...
-
テキストファイルで提出とは?
-
bashスクリプト
-
Windows10においての『Perl』の...
-
perlのflock関数でロックをかけ...
-
Perlで特定文字列から特定文字...
-
perlプログラミング 空白行削除
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字...
-
Wallpaper Engineでおすすめの...
-
perl 正規表現でエラー
-
perlで複数のファイルの処理に...
-
perlでリテラル値はメモリにど...
-
このファイルを開く方法で困っ...
-
LinuxにおいてのPerlのプログラ...
-
PerlでUTF-8のファイルの文字列...
おすすめ情報