perlのpushについてです。
お世話になります。perlのpushについてです。
データファイルを読み@XXに入れます。
実際はもうちょっと複雑なのですが、
foreach $DATA (@XX){$CHECK='';
($A,$B)=split(/\,/$DATA);
# $Bには改行コードを含んでいます。
if ($A==1){$A=2;$CHECK=1;}
if ($A==2){$A=3;$CHECK=1;}
if ($A==3 and $B==1){$A=1;$B=9;$CHECK=1;}
if ($CHECK==1){
push(@N,"$A,$B");}else{
push(@N,"$DATA"9;}
}
として、＠Ｎをファイルに出力すると１行目を除き、
行の先頭になぜか空白が付いてしまいます。
別のスクリプトで読むときに数字以外は削除というような
文を加えても削除できず、
if ( $A eq '1'){・・・・
としたときにマッチしてくれません。
よって、この最初にファイルに書き出す際に空白が付かないように
したいのですが、何故付いてしまうのか？、回避方法は？
ご指導頂けたら幸いです。
付いてしまいます。
