####
#!C:/Perl/bin/perl.exe
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
use Data::Dumper::Simple;
use warnings;
use diagnostics;
open(DB, '<', "C:/Inetpub/wwwroot/DBase.htm") || die "Error: $!\n";
our ($i, $line);
my @arr = ;
splice (@arr, 0, 14); #this trims off all the html setup and table markup
close (DB);
foreach $line(@arr){
$line =~ s/\|//g;
$line =~ s/<\/TD><\/TR>| /\n/g;
$line =~ s/<\/TD> | /\|/g;
$line =~ s/ //g;
$line =~ s/<\/TD><\/TR>//g;
$line =~ s/ | | //g;
chomp($line);
}
my $lines = \@arr;
my ($Ehour, $Emin);
for $i (0 .. $#arr){
$line[$i] = $arr[$i];
}
my @lines = ($line[0], $line[1], $line[2], $line[3], $line[4], $line[5], $line[6]);
print (Dumper (@lines)); #shows all lines are in the array properly.
my ($ticket,$DateAdded,$STime,$ETime,$Pri,$SiteName,$Comments)
= split(/\|/,$line[0]);
print "$line->[0]\n"; #prints "371225 |3/23/2011|16:34 | 19:34 |2 |Company Name ||
| |