Perlについての質問箱 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
799:デフォルトの名無しさん 07/05/26 04:09:08 >>797 さてコレをどれくらい短くできるだろうか use strict; open FILE, "data.csv"; my @data; my @index; my @ys; for my $line (<FILE>) { chomp $line; unless (@index) { @index = split(/\s*,\s*/, $line); shift @index; next; } my($y, @d) = split(/\s*,\s*/, $line); push(@ys, $y); for (my $i=0; $i < @d; $i++) { $data[ $index[$i] ][ $y ] = $d[$i]; } } close FILE; open FILE, ">out.csv"; for my $x (@index) { for my $y (@ys) { print FILE "$x, $y, $data[$x][$y]\n"; } } 800:デフォルトの名無しさん 07/05/26 08:04:48 >>799 use strict; open FILE, "data.csv"; my(@data, @index, @ys); while(<FILE>) { chomp; my($y, @d) = split /\s*,\s*/; @index = @d, next unless @index; push @ys, $y; $data[ $index[$_] ][$y] = $d[$_] for 0..@d-1; } open FILE, ">", "out.csv"; for my $x (sort {$a <=> $b} @index) { for my $y (sort {$a <=> $b} @ys) { print FILE "$x, $y, $data[$x][$y]\n"; } } close FILE;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5383日前に更新/220 KB
担当:undef