回答編集履歴
1
+add
answer
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
my $data = '';
|
|
12
12
|
open(my $fhi, "<:utf8", "jpn.csv") or die; # readするデータは内部コードにデコードされる。
|
|
13
13
|
while(<$fhi>){
|
|
14
|
-
my @f = split(/
|
|
14
|
+
my @f = split(/<>/, $_);
|
|
15
15
|
if($f[0] ne 'C組'){
|
|
16
16
|
$data .= $_;
|
|
17
17
|
}
|
|
@@ -22,4 +22,9 @@
|
|
|
22
22
|
print {$fho} $data;
|
|
23
23
|
close $fho;
|
|
24
24
|
|
|
25
|
+
```
|
|
26
|
+
|
|
27
|
+
なお、この質問の範囲ならワンライナーでいけますね。
|
|
28
|
+
```
|
|
29
|
+
perl -i.bak -MEncode -Mutf8 -F'<>' -alne '(decode("utf8", $F[0]) ne "C組") and print' jpn.csv
|
|
25
30
|
```
|