2004-06-21 evalとtr/// perl $cnt01AL1H = (($tmp[2] =~ tr/01/01/) and eval"($tmp[5] =~ tr/$xge1//);"); こうかけば望みどおりだ。 メモしとこう。