> while (<ASN>) {
>
> if (/^FILEHEADER/) {
> #ignore
> } elsif (/^DOC HEADER(\d+)/) {
> s/(DOC HEADER)(3 )/:ASNLNT: /;
> print;
>
> } elsif (/^HEADER/) {
> chomp;
> @fields = split(/~/, $_,);
> print join('~', @fields, "\n");
while (<DATA>) {
chomp;
my @fields = split /~/;
if ( /^FILEHEADER/ ) {}
elsif ( /^DOC HEADER\d+/ ) { s/(DOC HEADER)(3 )/:ASNLNT: / }
elsif ( /^HEADER/ ) {}
elsif ( /^EDI_ASN / ) {}
elsif ( /^EDI_ASN_D / ) { s/~LT00(\d+)/~LT$1 / }
# etc...
print;
} # end while
What happens when you do a print "[$_]\n"; before using next()? I bet your
regexp is failing.
- Ron
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
