Perl Server Side CGI Scripting Forum

it is a local database. (although i would love to learn the scraping too)

so, from what i got from your post i would be able to run mynewscript.cgi (it would already be holding the predefined searches i would need to display the totals for.)

now i'm at the point where i commented enough out to where only the "100 records found" and nothing else when i run mynewscript.cgi.

if it's still big: remove the lines you commented out and/or try to identify the part where it actually does the searching.

generally speaking, it's pretty easy. You have to figure out how the script uses the parameters you pass in and change those parts.

so, for example, if your script uses CGI.pm and runs the search with

I think this is how it's searching:

#!/usr/bin/perl
use CGI;
$query = new CGI;

#E1. Get the data passed from user
$field1=$query->param('field1');
$field1work=lc($field1);
#E1b. The line below chops characters that cause problems in Perl word searches
$field1work=~tr/[a-zA-Z0-9 \.\,\?\@\-]/ /cd;
if ($field1work eq "select"){
$field1work="";
$field1="";}
$field1pass="$field1";

#E1. Get the data passed from user
$field2=$query->param('field2');
$field2work=lc($field2);
#E1b. The line below chops characters that cause problems in Perl word searches
$field2work=~tr/[a-zA-Z0-9 \.\,\?\@\-]/ /cd;
if ($field2work eq "select"){
$field2work="";
$field2="";}
$field2pass="$field2";
##############

This is the part where it displays like "3 matches found..."

#STEP H================================
#H1. Read each line of the data file, compare with search words

foreach $line (@all){
$line=~s/\n//g;
$loopsaround++;

$checkleng=length($line);
if ($checkleng<2){next};

$linetemp1=lc($line);

#H1a. Support for European characters. Uncomment and replace with your
#character set in brackets for all non-English Characters. See help files.
#$linetemp1=~tr/[ÈÉÊËéêëè]/e/;
#$linetemp1=~tr/[ÀÁÂÃÄÅÆàáâãäåæ]/a/;
#$linetemp1=~tr/[çÇ]/c/;
#$linetemp1=~tr/[ìíîïÍÎÏÌ]/i/;
#$linetemp1=~tr/[ÒÓÔÕÖòóôõöô]/o/;
#$linetemp1=~tr/[ÙÚÛÜùúûü]/u/;

($field1,$field2,$skipthisfield)=split (/$delimiter/,$linetemp1);

#H9. This line specifies the fields to sort results by
#See help databases for patches to allow various kinds of sorts
$line="$delimiter$loopsaround$delimiter$line";

#H9.5 This line removes stray leading spaces before sorting your results
$line=~s/^ +//;

$increcount=0;
#H12. Look for matches in field named field1
if (($field1 =~/\b$field1one/ && $field1 =~/\b$field1two/ && $field1 =~/\b$field1three/ && $field1 =~/\b$field1four/ && $field1 =~/\b$field1five/ && $field1=~/\b$field1six/ && $field1=~/\b$field1seven/) ¦¦ !$field1work) {
$increcount++;}

#H12. Look for matches in field named field2
if (($field2 =~/\b$field2one/ && $field2 =~/\b$field2two/ && $field2 =~/\b$field2three/ && $field2 =~/\b$field2four/ && $field2 =~/\b$field2five/ && $field2=~/\b$field2six/ && $field2=~/\b$field2seven/) ¦¦ !$field2work) {
$increcount++;}

if ($increcount==2){
push (@keepers,$line);}}

#STEP J================================
#J1. Sort matches stored in array. Currently turned off.
#@keepers=sort(@keepers);

#J2. Get and display number of matches found
$length1=@keepers;

#J3. If the number of matches is less than enditem, adjust
if ($length1<$enditem){
$enditem=$length1;
$displaystat="Y";}

#J4. The first field about to display
$disstart=$startitem+1;

#J5. Show user total number of matches found
if ($length1){
print "$length1 Matches Found (displaying $disstart to $enditem)<P>\n";
} else {
print "Your search found zero records, please try again.<P>\n";}

The only problem is this script doesn't look line by line it only counts the entire datafile.

#!/usr/bin/perl

use CGI;
$query = new CGI;

open (my $IN , '<', '/datafiles/tickets.cgi') or die "$!";

my $text = do {local $/; <$IN>};#slurp file into a scalar
$delimiter="\\¦";

print "Content-type: text/html\n\n";
#=======================================
#=======================================
#============Record Count===============
#=======================================
#=======================================

#=======================================
#=================COBC==================
#=======================================
my $cobcpnd = 0;
$cobcpnd++ while ($text =~ m/\bCOBC\b/gi);
my $cobcpnd = 0;
$cobcpnd++ while ($text =~ m/\bPND\b/gi);

my $cobccls = 0;
$cobccls++ while ($text =~ m/\bCLS\b/gi);
$cobccls++ while ($text =~ m/\bCOBC\b/gi);

my $cobctotal = 0;
$cobctotal++ while ($text =~ m/\bCOBC\b/gi);
#=======================================

#=======================================
#=============DO NOT CALL===============
#=======================================
my $dncpnd = 0;
$dncpnd++ while ($text =~ m/\b50640382\b/gi);
$dncpnd++ while ($text =~ m/\bPND\b/gi);

my $dnccls = 0;
$dnccls++ while ($text =~ m/\bCLS\b/gi);
$dnccls++ while ($text =~ m/\b50640382\b/gi);

my $dnctotal = 0;
$dnctotal++ while ($text =~ m/\bCLS\b/gi);
$dnctotal++ while ($text =~ m/\bPND\b/gi);
$dnctotal++ while ($text =~ m/\b50640382\b/gi);
#=======================================

#=======================================
#=================TOTAL=================
#=======================================
my $pnd = 0;
$totalpnd++ while ($text =~ m/\bPND\b/gi);

my $cls = 0;
$totalcls++ while ($text =~ m/\bCLS\b/gi);

my $total = 0;
$totaltotal++ while ($text =~ m/\bCLS\b/gi);
$totaltotal++ while ($text =~ m/\bPND\b/gi);
#=======================================

haven't tested it, but it might just do the job. btw, I always recommend "use strict;". It enforces a cleaner style and catches typos and the sorts. keeps you out of trouble.

$field2work=~tr/[a-zA-Z0-9 \.\,\?\@\-]/ /cd;

its properly written like so if I understand what it wants to do: delete any character not found in the search pattern:

$field2work =~ tr/a-zA-Z0-9.,?@-//cd;

right now the code below uses a word search to count all of the records and puts the results in a table.

Status____COBC__DNC___Total
Pending___1104__1098___916
Closed____564___558____376
Total_____188___182____1292

The problem is, i need it to search each line not the entire file.

It counts "pnd"(status) and anything with "COBC"(course name) together.

So the 1st item in the table is 1104 instead of 12, because it counted all of PND in the file then all of COBC in the file and added them together. (I realize that is what the code is doing) i need help to tell the code to look for PND and COBC that are on the same line and then count the data file for that unique search.

Maybe word search is not the way to go. But im kinda stuck...

#!/usr/bin/perl

use CGI;
$query = new CGI;

open (my $IN , '<', 'd:/inetpub/cgi-bin/tickets.cgi') or die "$!";

my $text = do {local $/; <$IN>};#slurp file into a scalar
$delimiter="\\¦";

print "Content-type: text/html\n\n";
#============Record Count===============
#=================COBC==================
my $cobcpnd = 0;
$cobcpnd++ while ($text =~ m/\bCOBC\b/gi);
$cobcpnd++ while ($text =~ m/\bPND\b/gi);

my $cobccls = 0;
$cobccls++ while ($text =~ m/\bCLS\b/gi);
$cobccls++ while ($text =~ m/\bCOBC\b/gi);

my $cobctotal = 0;
$cobctotal++ while ($text =~ m/\bCOBC\b/gi);
#=============DO NOT CALL===============
my $dncpnd = 0;
$dncpnd++ while ($text =~ m/\bDNC\b/gi);
$dncpnd++ while ($text =~ m/\bPND\b/gi);

my $dnccls = 0;
$dnccls++ while ($text =~ m/\bCLS\b/gi);
$dnccls++ while ($text =~ m/\bDNC\b/gi);

my $dnctotal = 0;
$dnctotal++ while ($text =~ m/\bDNC\b/gi);
#=================TOTAL=================
my $pnd = 0;
$totalpnd++ while ($text =~ m/\bPND\b/gi);

my $cls = 0;
$totalcls++ while ($text =~ m/\bCLS\b/gi);

my $total = 0;
$totaltotal++ while ($text =~ m/\bCLS\b/gi);
$totaltotal++ while ($text =~ m/\bPND\b/gi);

#=============Start Output==============
print "<table border=8 bordercolor=green><tr valign=top>\n";
print "<td>Status</td>\n";
print "<td>COBC/EEO Training</td>\n";
print "<td>DO NOT CALL</td>\n";
print "<td>Total</td>\n";
print "</tr>\n";
#==============Pending==================
print "<tr valign=top>\n";
print "<td>Pending</td>\n";
print "<td>$cobcpnd</td>\n";
print "<td>$dncpnd</td>\n";
print "<td>$totalpnd</td>\n";
print "</tr>\n";
#==============Closed===================
print "<tr valign=top>\n";
print "<td>Closed</td>\n";
print "<td>$cobccls</td>\n";
print "<td>$dnccls</td>\n";
print "<td>$totalcls</td>\n";
print "</tr>\n";
#==============Total====================
print "<tr valign=top>\n";
print "<td>Total</td>\n";
print "<td>$cobctotal</td>\n";
print "<td>$dnctotal</td>\n";
print "<td>$totaltotal</td>\n";
print "</tr>\n";
#================END====================