A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
「特定の文字」の出現回数を調べるなら tr/// がセオリー. s///g と同じといえば同じだけど.
「すべての文字」の出現回数を (個別に) 数えるなら split + ハッシュ.
No.1
- 回答日時:
こんな感じでいかがですか?
半角、全角混じっているとutf8使わないと大変だと思います。
count.plをutf-8で保存して動かしたら、
「あ」だと1、「い」だと2というように表示されると思います。
count.pl
#!/usr/bin/perl
use strict;
use utf8;
#調べる文字列
my $text = 'あい いA AAううえええおおかかかおおお1234漢字カタカナ';
my @list = split //, $text;
my $count;
foreach (@list) {
#//のなかに調べる文字を入れる
if (/あ/) { $count++; }
}
print "$count\n";
この回答への補足
ありがとうございます。
申し訳ありませんが、さらに教えていただけるとありがたいです。
fileからデータを入れたいので、以下のようにしてみました。
use strict;
use utf8;
#調べる文字列
open(IN,"a.txt");
my $text = <IN>;
my @list = split //, $text;
my $count;
foreach (@list) {
#//のなかに調べる文字を入れる
if (/あ/) { $count++; }
}
close(IN);
print "$count\n";
これでは、何も表示されませんでした。
プログラム中でのfile openの仕方が、
いまいちよくわかりません。
ご教示いただけると助かります。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UTF-8のPerlから、UTF-8、EUC、...
-
$obj->decode($bytes)って何?
-
スペースで区切られた氏名から...
-
[VBScript]バイト長の判定
-
半角・全角の由来
-
エクセルにMicrosoft Barcode C...
-
Excelの中に全角ひらがな、漢字...
-
数字を文字列に変換し短縮化する
-
住宅にカナを入力する際に丁目...
-
VBA EXCEL あるセルの中の一...
-
文字列を quoted-printable 文...
-
UWSC教えて
-
VBAでシングルクオート(8217)を...
-
Excel・ユーザーフォームの情報...
-
角カッコが含まれてるかどうか...
-
全角英数字を半角英数字に変換...
-
エクセルの認識機能 VLOOKUP関数
-
特定の列のみ置換を行いたい
-
各項目がダブルクォーテーショ...
-
VBScript 日付の比較について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
perl でエラー:Wide character...
-
【LaTeX】pBibTeXでのエラーの...
-
MFCのコントロールにUTF-8の文...
-
CGIでメール送信で件名文字化け
-
Jcodeによるカタカナ→ひらがな変換
-
WindowsでUTF-8のPerlスクリプ...
-
Java+MySQLで特殊文字(丸数字(...
-
【文字コード】外見上は全く同...
-
デバッグ情報が文字化けする
-
Cannot decode string with wid...
-
HTML::Templateでutf-8のテンプ...
-
Jcode.pmでconvertできない
-
perl について
-
カタカナ一覧表が知りたい
-
JcodeモジュールとEncodeモジュ...
-
sedやperlでの2バイト文字を含...
-
オブジェクト? perlをオーバー...
-
UTF-8のPerlから、UTF-8、EUC、...
-
pythonの文字コードとファイル操作
-
WWW::Mechanizeの文字コードに...
おすすめ情報