回答編集履歴
1
+add
test
CHANGED
@@ -24,7 +24,7 @@
|
|
24
24
|
|
25
25
|
while(<$fhi>){
|
26
26
|
|
27
|
-
my @f = split(/
|
27
|
+
my @f = split(/<>/, $_);
|
28
28
|
|
29
29
|
if($f[0] ne 'C組'){
|
30
30
|
|
@@ -47,3 +47,13 @@
|
|
47
47
|
|
48
48
|
|
49
49
|
```
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
なお、この質問の範囲ならワンライナーでいけますね。
|
54
|
+
|
55
|
+
```
|
56
|
+
|
57
|
+
perl -i.bak -MEncode -Mutf8 -F'<>' -alne '(decode("utf8", $F[0]) ne "C組") and print' jpn.csv
|
58
|
+
|
59
|
+
```
|