in reply to (Dermot) RE: RE: Re: Stripping page headers
in thread Stripping page headers

Lets try this again. hehe <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> </head> <body>

#!/usr/bin/perl -w
use strict;

my ($REPFILE, $report);

undef $/;

open REPFILE, "report.rpt" or die "Cant open $REPFILE: $!\n";

$report = <REPFILE>;

$report =~ s/^User Report//g;
$report =~ s/^All Users//g;
$report =~ s/^User Name//g;
$report =~ s/^-> Token//g;

print $report;

close REPFILE;

#First section of report.rpt follows

 

User Report Date: 09/26/2000 09:55:13

All Users Page: 1 of 114

 

User Name        Default Login Name        Default Shell Name

-> Token Serial No.         Replacement Last Login         Original Token Type

Temp 1             Temp1

-> 000050488538                 01/01/1986 00:00:00                 SoftID

Temp 2             temp2

-> 000050488537                 01/01/1986 00:00:00                 SoftID

Temp 3             temp3

-> 000050488536                 01/01/1986 00:00:00                 SoftID

 </body> </html>

In Section Seekers of Perl Wisdom