sub order に
if (open(ADDR,">> $order_csv")) {
foreach $write (@formCSV) {
if ($write eq '$NUMBER') { push(@CSV,$date_num); }
elsif ($write eq '$ORDER') { $orders =~ s/\n//g; push(@CSV,$orders); }
elsif ($write eq '$DATE') { push(@CSV,$date_now); }
elsif ($write eq '$EMAIL') { push(@CSV,$in{'_email'}); }
elsif ($write eq '$REMOTE_USER') { push(@CSV,$REMOTE_USER); }
else {
$write =~ s/"/"/g;
$write =~ s/&/&/g;
$write =~ s/</</g;
$write =~ s/>/>/g;
push(@CSV,$in{$write});
}
}
print ADDR &EncodeCSV(@CSV) . "\n";
close(ADDR);
}
があります。
if から elsif に示されるスカラーなら、その順番を変えるとそのとおりになります。
ただ買物された中身の順番を変えるには、これをひねらなければなりませんし、
必ず同列に同種の要素が入るとは限らないので、全体を書き換えなければなりません。