Aplogies,

Header appears below:

Header I want to remove

                                Ticket List
Line       Delv Tkt        Ext Delv     Del Date  Cust  #       Order #
Invoice#        Plnt


Best regards,


Charles

>  -----Original Message-----
> From:         Rote, Charles Robert  
> Sent: Friday, January 17, 2003 11:55 PM
> To:   '[EMAIL PROTECTED]'
> Cc:   '[EMAIL PROTECTED]'
> Subject:      RE:  Perl Newbie Question on Regular Expressions
> 
> 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

Reply via email to