
素人で大変申し訳ございません。
他の人が作ったPerlを改良しようと思っております。
仕様は、csvのカンマからカンマの間に入っている
文字を取得するというのですが、
英数字の場合は、正常に取得できるのですが、
半角ひらがなが入ると文字の取得ができません。
下記の$outputで、私が必要な情報を得ようと思っているのですが、
下記の右辺をどのように変えれば、半角ひらがなも取得できるでしょうか?
$output =~ s|/\*\s(([A-Z0-9_])+)\s\*/|$D->{$1}|g;
※エンコードが必要でしたら、utf-8を使いたいと思っています。
一部分の大変失礼な質問と思いますが、何卒よろしくお願い致します。
No.8
- 回答日時:
繰り返しますが、CSVはアプリケーション依存です。
様々なフォーマットがあります。1) ,,間に,があるとき\,でエスケープする
2) ,,間に日本語があるときは全体を""で囲む
3) ,,間に"があるときは\でエスケープする
などがあると思います。
それらがわからないと正規表現は書けません。
詳しくは、
CSV形式の行から値のリストを取り出す ( http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values )
以降の記事をお読みください。
No.7
- 回答日時:
あなたが行いたいことは本当に「csvのカンマからカンマの間に入っている文字を取得する」なのでしょうか?
>$output =~ s|/\*\s(([A-Z0-9_])+)\s\*/|$D->{$1}|g;
の右辺は正規表現部分は、カンマ~カンマの間をあらわすようなものではないですけど。
ぱっと見、
"/*空白文字"~"空白文字*/"で囲まれたアルファベット大文字・数字・アンダーバーで
構成された文字列
なのですが。
No.6
- 回答日時:
「文字の取得ができない」というのは, 具体的にはどのような入力に対してどのような結果を期待しているところでどのような答えになってしまうのですか?
あと,
$output =~ s|/\*\s(([A-Z0-9_])+)\s\*/|$D->{$1}|g;
は何を意図しているのですか? 「csvのカンマからカンマの間に入っている文字を取得する」こととの関連性が見えないのですが.
できればファイルのオープンとか読み込みの部分も見たいねぇ.
No.5
- 回答日時:
「半角ひらがな」を含む入力ファイルというのは、一般にはないと思いますが、どのようなエンコードでしょうか?
半角カタカナであれば、入力ファイルのエンコードは特に気にする必要はないと思います。
「csvのカンマからカンマの間に入っている文字を取得する」ということは「カンマを区切り文字と考えて、カンマの間にある文字や数字を取り出す」ということであれば、split関数が使えます。
例えば、入力ファイル(input.csv)が
ABC,アイウエオ,10000
DEF,カキクケコ,20000
GHI,サシスセソ,30000
というcsvファイルであれば、下記のスクリプトで
open(IN1,"input.csv");
open(OUT1,">output.txt");
while($line1=<IN1>){
chomp($line1);
my $tmp=$line1;
@in1=split(",",$line1);
$out1=join("\t",@in1);
printOUT1"$out1\n";
}
close(IN1);
close(OUT1);
$in1[0]にABCやDEF、GHIが入り、$in1[1]にアイウエオ、カキクケコ、サシスセソなどが入ります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
Strawberry Perl for Windows ...
-
perlのプログラミング 部分入れ...
-
Perlでファイルの末尾から指定...
-
perl の open について教えてく...
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6.0でMSChartをタイマーを使...
-
matlabで、平均値を求める方法...
-
MSDOSからワイルドカード指定で...
-
VBA エクセルで1列で表示したい。
-
perlでカンマ区切り(CSV)デー...
-
複数のCSVを一度にダウンロード
-
perlで重複をさせない処理
-
UTF-8で5~6バイトになる文字コ...
-
COBOLのCOMP形式について
-
10Mバイトて文字数に すると何...
-
char str[256]の256の意味は?
-
stable diffusionのエラー
-
Excel 1セル当りの文字数が2...
-
「1TB」のHDDに日本語は何字入...
-
DataGridViewの特定列に入力さ...
-
ピクセル,dpiから容量(バイト...
-
Excel VBA メール作成について ...
-
バイト列とバイナリ列の違いが...
-
エクセルシート名の制限を変更...
-
ListView重複データ削除
おすすめ情報