回答編集履歴
3
余計なコードを削除
answer
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
taro,taro,taro1,taro2
|
|
9
9
|
kanji,hiragana,katakana,eigo,kanji
|
|
10
10
|
|
|
11
|
-
$ perl -nle 'print join ",", grep {!$buf{$_}++} split ",",$_;
|
|
11
|
+
$ perl -nle 'print join ",", grep {!$buf{$_}++} split ",",$_;' file.csv
|
|
12
12
|
kingyo,panda,pig
|
|
13
13
|
neko,inu,sakana,penguin
|
|
14
14
|
sea,see,mountain
|
2
「cat file.csv」を追加
answer
CHANGED
|
@@ -1,7 +1,14 @@
|
|
|
1
1
|
Perlのワンライナーでやってみました。
|
|
2
2
|
|
|
3
3
|
```shell
|
|
4
|
+
$ cat file.csv
|
|
5
|
+
kingyo,panda,pig,pig
|
|
6
|
+
neko,inu,sakana,penguin
|
|
7
|
+
sea,see,sea,mountain
|
|
8
|
+
taro,taro,taro1,taro2
|
|
9
|
+
kanji,hiragana,katakana,eigo,kanji
|
|
10
|
+
|
|
4
|
-
$ perl -nle 'print join ",", grep {!$
|
|
11
|
+
$ perl -nle 'print join ",", grep {!$buf{$_}++} split ",",$_; %buf=();' file.csv
|
|
5
12
|
kingyo,panda,pig
|
|
6
13
|
neko,inu,sakana,penguin
|
|
7
14
|
sea,see,mountain
|
1
-a は冗長だったので修正。
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
Perlのワンライナーでやってみました。
|
|
2
2
|
|
|
3
3
|
```shell
|
|
4
|
-
$ perl -
|
|
4
|
+
$ perl -nle 'print join ",", grep {!$seen{$_}++} split ",",$_; %seen=();' file.csv
|
|
5
5
|
kingyo,panda,pig
|
|
6
6
|
neko,inu,sakana,penguin
|
|
7
7
|
sea,see,mountain
|