[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

741: 2019/03/18(月)00:38 ID:9+FFV4Nx(1)調 AAS
>>494 >>496 Perl5
use feature say;
@data = <DATA>;
chomp @data;
@tags = split'　', shift @data;
%idx = map{$_ => $n++} @tags;
@sum = 0 x $n;
for (@data) {
　@fs = split'　';
　for (0..$n-1) {
　　$v = $fs[$_];
　　if ($v =~ /^(\d+\.\d*|\d*\.\d+|\d+)$/) {
　　　$sum[$_] += $v;
　　} else {
　　　warn "変なデータが紛れ込んでいます＿ノ乙(､ﾝ､)_`$v'\n";
　　}
　}
}
for (@tags) {
　say "$_ の合計 = ", $sum[$idx{$_}];
}
__DATA__
カラム1　カラム2　カラム3　カラム4
1,0　2.0　3.0　4.0
2.1　3.1　4.1　5.1

~ $ perl 13_494.pl
変なデータが紛れ込んでいます＿ノ乙(､ﾝ､)_`1,0'
カラム1 の合計 = 2.1
カラム2 の合計 = 5.1
カラム3 の合計 = 7.1
カラム4 の合計 = 9.1

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.038s