同じ行で重複した単語を削除したいです。
テキストファイル
sapporo aomori akita iwate akita yamagata
sendai miyagi hukushima miyagi akita
mito
・
・
上記のようなファイルの同じ行で重複した単語を削除し下の形にしたいです。
sapporo aomori akita iwate yamagata
sendai miyagi hukushima akita
mito
・
・
open(FILE1, "<xxx.txt") || die "File1 Open Error! \n";
open(OUT, ">zzz.txt") || die "OUT Open Error! \n";
$string1 = <FILE1>;
my @array = split(/\t/,"$string1");
my %count;
@array = grep {!$count{$_}++}@array;
foreach my $element (@array) {
print OUT "$element\t";
}
close(FILE1);
close(OUT);
このプログラムを実行すれば初めの一行は重複した単語を削除できるのですがそこで終了してしまいます。2行目、3行目・・といったように複数行に対して重複した単語を削除するためにはどのようにすればいいのですか。宜しくお願いします。
No.2ベストアンサー
- 回答日時:
>$string1 = <FILE1>;
これは配列で受け取ってないので、入力ファイルから1行だけ取得する処理です。
なので全行を読み込むのであれば、No.1さんの言うとおり、ループさせる必要があります。
ループの書き方ですがファイルハンドルをwhileでループさせるか、一度配列に落としてforeachでループさせるかがベタではないかと。配列に落とすんならこんな感じですかね…。
---
my @data = <FILE1>;
chomp @data;
foreach my $line (@data) {
my @array = split(/\t/, $line);
my %count;
@array = grep {!$count{$_}++}@array;
foreach my $element (@array) {
print OUT "$element\t";
}
print OUT "\n";
}
---
改行を削除しないと整形したファイルの先頭に\tがつくんで、とりあえずchompして、レコードの最後に改行付けてます。
splitで文字列を分割してリストにした後、どのようにループさせれば
良いかを考えてしまい、悪戦苦闘していました(> <)
chompの使い方含め、大変勉強になりました。有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- PHP PHPの構文で間違えが分からない 5 2022/07/11 16:38
- C言語・C++・C# c言語の問題の説明、各所ごとに 5 2023/07/26 11:03
- Excel(エクセル) 表に書いてある単語を1つの行に重複させないで書き出したい。 複数の列行にそれぞれ職種が入力されている 6 2022/05/25 04:49
- PHP SQLとPHPの連結方法がわからないのでアドバイスお願い致します 1 2022/07/12 12:16
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Perl perlのflock関数でロックをかけたままopen関数で何度もファイルを開きなおすことはできますか 3 2023/05/01 22:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
半角文字の縦書き表示
-
ループ中でのmy宣言と処理速度
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
ListBox 複数選択 で オートフ...
-
DOSコマンドのループ内のTIMEコ...
-
範囲指定したセルを1つずつ飛...
-
VBAのautofilter、criteriaの配...
-
再帰関数のインライン展開
-
VBAで3秒だけ時間を止めたい
-
VBAでの一時停止と再開の方法
-
乱数の桁数指定、または範囲指定。
-
列挙型と連想配列の違いを教え...
-
Excel VBA ユーザーフォームの...
-
Do whileでExitせず、ループの...
-
複数の配列の全ての組み合わせ...
-
VB.NETで素因数分解のプログラ...
-
VBA for i=1 to lastrow
-
C言語でファクト関数を使わずに...
-
簡単なエクセルVBA
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
index関数で複数個抜き出す
-
perlで2つの配列を比較する方...
-
perlでファイルの拡張子を除い...
-
桁数指定と四捨五入
-
[Perl]長すぎるif文を簡単にしたい
-
grep関数を用いた複数行からの抽出
-
組み合わせを作るアルゴリズム
-
配列やハッシュで中身が同じか...
-
複数の配列の要素を繰り返し処...
-
正規表現に関する質問
-
データベースから取得したデー...
-
非共通要素を抜き出す
-
ソート時同じ値がある場合、表...
-
C言語の関数ポインタのイメージ...
-
Perl 戻り値の型の判定って出来...
-
QNo.3258883データベースから取...
-
配列に入った変数を二度使いたい
-
ループ中でのmy宣言と処理速度
-
print文内でのsplice文と代入に...
-
アルファベットn文字の組み合わ...
おすすめ情報