teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

fix

2019/01/17 06:51

投稿

KojiDoi
KojiDoi

スコア13727

answer CHANGED
@@ -1,5 +1,5 @@
1
1
  perlなら1行でOK。
2
2
  ```perl
3
- perl -F, -alne '($.==1)?(chomp, (@c=@_=split(",",$_))) : (@_=map{$F[$_]==1?$c[$_]:0}(0..$#F)); print join(",",@_)'
3
+ perl -F, -alne '($.==1)?(@c=@_=split(",",$_)) : (@_=map{$F[$_]==1?$c[$_]:0}(0..$#F)); print join(",",@_)'
4
4
  input.csv > output.csv
5
5
  ```