FC2ブログ
人生ずっと勉強。
ITを軸としたT型人間になりたい人のブログ。
07 | 2018/08 | 09
S M T W T F S
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -

スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

【Perl】latexのテーブルの行列を転置するコードを書いてみた
あんま調べてないので、もしかしたら車輪の再発明かもしれませんが。
latexで論文書いてるときに、スペースの関係で表の行列を入れ替える必要が
出てきたときに

「うぉぉぉぉぉぉぉぉぉめんどくせぇぇぇぇぇぇぇぇぇぇぇぇぇぇ」

となったので、perlで行列を入れ替えるコード書きました。
どんな状態でも完璧に動くかはわかりませんが、参考までに。
少なくともセルの結合とかしてるときにその辺までうまくやっちゃっては
くれません。あしからず。

たぶんもっと簡潔に書ける方法あるんだろうな。perlだけに。


use strict;

my( @row );
while(<STDIN>){
chomp;
s/\s*\\\\\s*//g;
s/\\hline//g;
push @row, [split /\s*&\s*/];
}
for( my $i = 0; $i <= $#{@{$row[0]}}; $i++ ){
for( my $j = 0; $j <= $#row; $j++ ){
$row[$j][$i] .= " & " if $j != $#row;
print $row[$j][$i];
}
print " \\\\ \\hline\n";
}

スポンサーサイト

コメント

コメントの投稿














管理者にだけ表示を許可する


トラックバック
トラックバック URL
http://kiyotakagoto.blog3.fc2.com/tb.php/33-8ca359c7
この記事にトラックバックする(FC2ブログユーザー)

わたくし

いろいろリンク

カテゴリ

月別アーカイブ

最新記事

最新コメント

最新トラックバック

検索フォーム

RSSリンクの表示

リンク

このブログをリンクに追加する

ブロとも申請フォーム

この人とブロともになる

QRコード

QR

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。