2005-12-05 detaファイルから最大値と最小値を取り出す。 メモ Perl perl -ne'next if/^#/;($x,$y)=/^(\S+)\t(\S+)$/ or die;$mix=$x if($mix>$x);$max=$x if($max<$x);$miy=$y if($miy>$y);$may=$y if($may<$y);' -e'END{print "x[${mix}:${max}]\ny[${miy}:${may}]\n"}' dataEND{}で囲まないと、最後に実行してくれない。*1 -e は単純につながるのか。 *1:毎行実行してしまう。