
Perlのデータ処理に関する質問です。
afcb7dc0,"福岡県","天神","福岡県","博多・福岡空港"
09f115fc,"東京都","東急沿線","東京都","東急沿線","東京都","代官山、恵比寿-五反田","東京都","東急沿線","東京都","三田、浜松町-品川","東京都","東急沿線"
3933245b,"東京都","新宿・代々木"
・・・
という形式のCSVファイルがあるときに、これを
afcb7dc0,"福岡県",2,"天神",1,"博多・福岡空港",2
09f115fc,"東京都",6,"東急沿線",4,"代官山、恵比寿-五反田",1,"三田、浜松町-品川",1
3933245b,"東京都",1,"新宿・代々木",1
の形式に変換するにはどうすればいいでしょうか?
ご教授願います。
No.2ベストアンサー
- 回答日時:
それなら例えば
while (my $line = <>) {
chomp $line;
my ($id, @data) = split /,/, $line;
my %count;
my @item;
for (@data) {
push @item, $_ unless $count{$_}++;
}
print $id;
for (@item) {
print ",$_,$count{$_}";
}
print "\n";
}
とかでどうだろ.
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlで2次元配列をサブルーチ...
-
Perlで、「が」を、「...
-
Perlのエラーについてご教授く...
-
openした後、closeしないでプロ...
-
perl の open について教えてく...
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
-
perlの構文でカンマの意味が分...
-
perlについての質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
openした後、closeしないでプロ...
-
Perlのエラーについてご教授く...
-
INDIRECT 横に再度抽出したい
-
フローチャート 九九
-
perl の open について教えてく...
-
perlをバージョンアップしたら...
-
perlで2次元配列をサブルーチ...
-
perl 正規表現でエラー
-
bashスクリプト
-
perlでリテラル値はメモリにど...
-
perlについての質問
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
perl このテキストファイルを簡...
-
Wallpaper Engineでおすすめの...
-
Perlで同じフォルダにある任意...
-
perlで複数のファイルの処理に...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
おすすめ情報