detaファイルから最大値と最小値を取り出す。

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"}' data

END{}で囲まないと、最後に実行してくれない。*1
-e は単純につながるのか。

*1:毎行実行してしまう。