質問します
あるファイルの入出力で、レコードフォーマットがよくかわるので
そのたびに、プログラム修正が大変です。他の言語ならば、入出力はマクロ化などをしますが
perlの場合は、全てのレコードを読んで独自の判断をする場合がほとんどなので、マクロ化
がしにくいです。例えば下記のようなロジックが数十箇所にあるとすると、splitで分ける文が
レコードフォーマットが変わるたびに全てへんこうになって大変です。
このようなばあい、どのようにして共通化するのでしょうか？、


foreach $num (0 .. $#STOCK) {
$line = $line2 = $STOCK[$num];
&jcode'convert(\$line,'euc');
($DATE,$ID,$BID,$NAME,$EMAIL,$PREF,$SEX,$AGE,$PASS,$COM,$LNGCOM,$BLD,$JOB,$HEIT,$STR,$ACC_MODE_TMP,$PLZX,$BSID) = split(/<>/,$line);