Gurus,
I am attempting to eliminate an unwanted header and character in a text file
that appears at the beginning of each page of the file. It seemed like
regular expressions would be ideally suited for this task, but if not, I am
completely open to suggestions. The file header is three lines and appears
below:
Header I want to remove
<<...OLE_Obj...>>
Regexp Quote-Like Operators in the documentation pointed me to ?pattern? and
reset which I attempte to utilize in the script below.
Perl Script (called LoadmasterCleanUp.pl)
#!c:/perl/bin/perl.exe
#This script removes the unwanted header and footer in each page of
loadmaster files
use strict;
use warnings;
$loadmasterfile = "7312TicketListingforDecember2002.txt";
open(DAT, $loadmasterfile) || die("can not open file!");
while (<>) {
if (?^$?) {" <<...OLE_Obj...>> Ticket
List
Line Delv Tkt Ext Delv Del Date Cust # Order # Invoice#
Plnt"
}
} continue {
reset if eof; # clear ?? status
}
close(DAT);
Error Messages
Global symbol "$loadmasterfile" requires explicit package name at
LoadmasterCleanUp.pl line 7.
Global symbol "$loadmasterfile" requires explicit package name at
LoadmasterCleanUp.pl line 8.
Execution of LoadmasterCleanUp.pl aborted due to compilation errors.
System information
Perl Version: 5.6.1
Build: 630
Environment: Windows 95
Any help or pointers as to how to eliminate my error messages and what I am
doing wrong is greatly appreciated.
Thank you and best regards,
Charles
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
