How to print text file from hash table one line at a time

I'm having difficulty trying to figure out how to print a text file from a hash table one line at a time. I have the text file read into the hash table and can print the text file all at once, but I can't seem to figure out how to do it one line at a time.

Here is what I'm trying to do: I want the user to be able to print the text file one line at a time by clicking a button to see the next line.

Example: If text_file1 first line is line1 and the second line is line2, I want line1 to print when the user clicks the submit button then when they click it again line2 will be printed. Any help would be appreciated. If you need more information or an explanation please ask.

Expand|Select|Wrap|Line Numbers

 #! /usr/local/bin/perl
 
BEGIN

{

        open(STDERR, ">&STDOUT");

        select(STDERR); $| = 1;

        select(STDOUT); $| = 1;

        print qq{Content-type: text/html\n\n 

        <title>Assignment #6 (CS Credit)</title>

        <body text="white" bgcolor="blue">

        <font face="arial" size="4">

        <div align="center">};

}               
 
my $url = '/~westj2/cgi-bin/assignment6_CS_credit5.cgi';
 
$buffer = $ENV{'QUERY_STRING'};
 
if($buffer eq "")

{

        &input;

        exit;

}       
 
@pairs = split(/&/, $buffer);

foreach $pair(@pairs)

{

        ($name, $value) = split(/=/, $pair);
 
        $value =~ tr/+/ /;

        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        $name =~ tr/+/ /;

        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
        if($FORM{$name} eq "")
 
        if($FORM{$name} eq "")

        {

                $FORM{$name} = $value;

        }

        else

        {

                $FORM{$name} .= " " . $value;

        }

}
 
my $linenum = 1;
 
&hash;
 
my $counter;
 
if($FORM{'direction'} eq 'forward')

{

        $counter = 1;

}

else

{       

        $counter = $linenum - 1;

}
 
&input;

&output;
 
sub input

{

        print "<form method='get' action='$url'>";
 
        print "<b><font face='arial' color='white' size='3'><table

        align='center'><tr><td><b>Select a file to scan: </td><td><select name='filename'>";
 
        if($FORM{'filename'} eq 'Seinfeld')

        {

                my $filename = $FORM{'Seinfeld'};

                print "<option value='Seinfeld' SELECTED>Seinfeld</option>";

                print "<option value='Running_PRs'>Running PRs</option>";

        }   

        else

        {

                $filename = $FORM{'Running_PRs'};

                print "<option value='Seinfeld'>Seinfeld</option>";

                print "<option value='Running_PRs' SELECTED>Running PRs</option>";

        }
 
        print "</select></td></tr><br><tr><td><b><font face='arial' color='white' size='3'>";
 
        if($FORM{'direction'} eq 'forward')

        {

                my $direction = $FORM{'forward'};

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='forward'>Forward</label></td><td><input

type='radio' name='direction' value='forward' CHECKED></td></tr><br>";

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='reverse'>Reverse</label></td><td><input

type='radio' name='direction' value='reverse'></td></tr><br>";

        }

        else

        { 
 
        else

        {

                $direction = $FORM{'reverse'};

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='forward'>Forward</label></td><td><input 

type='radio' name='direction' value='forward'></td></tr><br>";

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='reverse'>Reverse</label></td><td><input 

type='radio' name='direction' value='reverse' CHECKED></td></tr><br>";

        }
 
        print "</table><p align='center'><input type='submit'

name='submit' value='Submit'><input type='reset'

value='Reset'></form>";

}
 
sub hash

{

        open(file, "<$FORM{'filename'}") || die "Cannot open file: $!\n";
 
        my $line;

#       my $linenum = 1;
 
        while($line = <file>)

        {

                $hash{$linenum} = $line;

                $linenum++;

        }

}       
 
sub output

{

        print "$hash{$counter}";
 
        if($FORM{'direction'} eq 'forward')

        { 

#               $line = $linenum - 1;
 
                $counter++;

        }

        else

        {

                $counter--;

        }

}

Jul 20 '09 #1

Subscribe Post Reply

4175

KevinADC

4,059

Expert 2GB

And you want to do this in a CGI script? First thing is to correct all syntax errors. Here is one:

Expand|Select|Wrap|Line Numbers

         if($FORM{$name} eq "")
 
        if($FORM{$name} eq "")

You find the rest, if any.

Jul 20 '09 #2

JWest46088

Sorry, I must have copied that line twice when I was copying and pasting it. Line 35 isn't supposed to be there. I think that's the only "error" that was in there. I wasn't getting any error messages.

Jul 20 '09 #3

numberwhun

3,509

Expert Mod 2GB

@JWest46088
While that line may not have been there, Kevin is referring to syntax, which is important. Unless you tell it, Perl won't always complain about everything. So, right after the first line in your code put:

Expand|Select|Wrap|Line Numbers

 
use strict;

use warnings;

Then, re-run your script and see what it tells you.

You need to be careful when you just copy code from somewhere else. Be sure you know what it does. Also, too many people don't follow standard, good coding practices.

Regards,

Jeff

Jul 20 '09 #4

JWest46088

@numberwhun
This is my code. I meant when I was copying it from my editor to here, but it probably isn't good, standard coding practices. ;P

Any suggestions for my predicament?

Jul 20 '09 #5

RonB

589

Expert Mod 512MB

Why would you want to do this in a CGI environment?

You should be using the CGI module to process the form submission instead of doing it manually.

Loading the entire file into a hash when you only want a single line is probably the worst/slowest approach.

I haven't check your code to see if you're already doing this, but you need to update the form with the current line number and pass that back as a hidden field.

You really should be using css instead of those depreciated html tags (such as the font tag).

Jul 21 '09 #6

JWest46088

@RonB
I know it may not be the best and most efficient code, but that is how I was taught to do it.

In one of my programs trying to accomplish this, I don't know if it's the one I posted, but I do have the line number as a hidden field inside the input sub. The line number isn't incrementing like I want it to though.

Jul 21 '09 #7

RonB

589

Expert Mod 512MB

There's nothing in your posted code that indicates that you're tracking the currently displayed line number.

Start by making the changes that have already been suggested, then post that new code and tell us where you need more help.

Jul 21 '09 #8

JWest46088

@RonB
Here is the actually program:

http://web.cs.sunyit.edu/~westj2/cgi...CS_credit5.cgi

Here is the new code:

http://web.cs.sunyit.edu/~westj2/cgi...S_credit5_code

Please excuse all of the comments. I've been trying everything to figure this out. The hidden fields are on the bottom of the input sub. The thing that I need help with is displaying the file one line at a time when the user clicks the submit button. It only prints out the first line of the file and doesn't go any further. The counter must not be incrementing or something, but I can't figure out why.

Same code:

Expand|Select|Wrap|Line Numbers

 #! /usr/local/bin/perl
 
BEGIN

{

        open(STDERR, ">&STDOUT");

        select(STDERR); $| = 1;

        select(STDOUT); $| = 1;

        print qq{Content-type: text/html\n\n

        <title>Assignment #6 (CS Credit)</title>

        <body text="white" bgcolor="blue">

        <font face="arial" size="4">

        <div align="center">};

}
 
my $url = '/~westj2/cgi-bin/assignment6_CS_credit5.cgi';
 
$buffer = $ENV{'QUERY_STRING'};
 
if($buffer eq "")

{

    &input;

    exit;

}
 
@pairs = split(/&/, $buffer);

foreach $pair(@pairs)

{

        ($name, $value) = split(/=/, $pair);
 
        $value =~ tr/+/ /;

        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        $name =~ tr/+/ /;

        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
        if($FORM{$name} eq "")

        {

                $FORM{$name} = $value;

        }

        else

        {

                $FORM{$name} .= " " . $value;

        }

}
 
my $linenum = 1;

my $line;

my $counter;
 
&hash;
 
#my $counter = $FORM{'counter'};
 
if($FORM{'direction'} eq "forward")

{

    $counter = 1;

}

else

{

    $counter = $linenum - 1;;

}
 
#$olddirection = $FORM{'direction'};

#$oldfilename = $FORM{'filename'};
 
print "exit hash $counter";
 
#&output;

&input;

&output;
 
#        if(($counter >= $linenum) || ($counter <= 0))

#        {

#        $counter++;

#                &output;

#        exit;

        }
 
#&next;
 
#sub next

#{
 
#if($FORM{'next'} eq 'check')

#{

#    &output;

#}

#}

#&output;

#&output;

#&output;

#}
 
sub input

{

    print "<form method='get' action='$url'>";
 
    print "<b><font face='arial' color='white' size='3'><table

    align='center'><tr><td><b>Select a file to scan: </td><td><select name='filename'>";
 
        if($FORM{'filename'} eq 'Seinfeld')

        {

                my $filename = $FORM{'Seinfeld'};

                print "<option value='Seinfeld' SELECTED>Seinfeld</option>";

                print "<option value='Running_PRs'>Running PRs</option>";

        }

        else 

        {

                $filename = $FORM{'Running_PRs'};

                print "<option value='Seinfeld'>Seinfeld</option>";

                print "<option value='Running_PRs' SELECTED>Running PRs</option>";

        }
 
        print "</select></td></tr><br><tr><td><b><font face='arial' color='white' size='3'>";
 
        if($FORM{'direction'} eq 'forward')

        {

                my $direction = $FORM{'forward'};

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='forward'>Forward</label></td><td><input type='radio' name='direction' value='forward' CHECKED></td></tr><br>";

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='reverse'>Reverse</label></td><td><input type='radio' name='direction' value='reverse'></td></tr><br>";

        }

        else

        {

                $direction = $FORM{'reverse'};

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='forward'>Forward</label></td><td><input type='radio' name='direction' value='forward'></td></tr><br>";

                print "<tr><td><b><font face='arial' color='white' size='3'><label for='reverse'>Reverse</label></td><td><input type='radio' name='direction' value='reverse' CHECKED></td></tr><br>";

        }
 
        print "</table><p align='center'><input type='submit' name='submit' value='Submit'><input type='hidden' name='counter' 

value='$counter'><input type='hidden' name='linenum' value='$linenum'></form>";

#<input type='hidden' name='olddirection' value='$olddirection'><input type='hidden' name='oldfilename' 

#value='$oldfilename'><input type='hidden' name='counter' value='$counter'></form>";
 
#        my $line;

#        my $linenum = 1;
 
#        open(file, "<$FORM{'filename'}") || die "Cannot open file: $!\n";

#        while($line = <file>)

#        {

#                $hash{$linenum} = $line; 

#                $linenum++;

#        }
 
#print "<input type='checkbox' name='next' value='check'>";

#print "<input type='checkbox' name='next' value='uncheck'>";
 
    print "test";

    print "<br>linenum: $linenum";

    print "<br>line: $line";

    print "<br>counter: $counter";

}
 
sub hash

{

        open(file, "<$FORM{'filename'}") || die "Cannot open file: $!\n";
 
#    my $line;

#    my $linenum = 1;

    print "hash linenum: $linenum";
 
        while($line = <file>)

        {  

                $hash{$linenum} = $line;

                $linenum++;

        }

    print "hash linenum: $linenum";
 
    for($linenum = 1; $linenum < 7; $linenum++)

    {

        print "hash: $hash{$linenum}";

    }

}
 
sub output       

{

#    print "<form method='get' action='$url'>";

    print "entering output";
 
    print "line: $line<br>";

    print "linenum: $linenum<br>";

    print "counter: $counter<br>";
 
#    $line = $linenum - 1;
 
    print "$hash{$counter}";
 
        if($FORM{'direction'} eq 'forward')

        {                

#            $line = $linenum - 1;
 
                $counter++;

        print "coutner: $counter";

        }                

        else                    

        {                

                $counter--;

        }
 
#    if(($counter >= $linenum) || ($counter <= 0))

#    {

#        &input;

#    }

}

Jul 21 '09 #9

KevinADC

4,059

Expert 2GB

When I try your new code this is the output:

Content-type: text/html

<title>Assignment #6 (CS Credit)</title>
<body text="white" bgcolor="blue">
<font face="arial" size="4">
<div align="center">Unquoted string "file" may clash with future reserved word at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 158.
Unmatched right curly bracket at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 79, at end of line
syntax error at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 79, near "}"
syntax error at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 154, near "}"
syntax error at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 175, near "}"
syntax error at C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi line 207, near "}"
Execution of C:\PROGRA~2\PERLBU~1\debug\spbdtest.cgi aborted due to compilation errors.

So I really have no idea how you are even running that code since it still appears to have a few syntax errors.

Jul 21 '09 #10

chorny

Expert

Ovid's CGI Course is a good tutorial about CGI Perl programming

Jul 21 '09 #11

numberwhun

3,509

Expert Mod 2GB

@KevinADC
Sure, put the two pragmas that I mentioned at the beginning of your script, right after the shebang line and solve all of your syntax issues. Then, once they are out of the way and not bothersome, you can get down to any real errors in your code.

I wasn't mentioning them earlier to point out any type of bad coding, I was suggesting them for just this purpose. It is good coding practice to use them, that way you avoid all syntax issues and can see if your code runs right.

Regards,

Jeff

Jul 21 '09 #12

Similar topics

C++ hash map container

by: Matthias Käppler | last post by:

Hi, I need to store objects of a FileInfo class containing information about a specific file. I can uniquely identify these files by their serial number. I thought it would be a good idea to use...

C / C++

Efficient Text File Copy

by: Materialised | last post by:

Hi everyone, What I am wanting to do, is to copy, a simple plain text file, to another file, but omitting duplicate items. The way I thought of doing this, involved copying all the items into...

C / C++

fastest way to parse a file; Most efficient way to store the data?

by: hoopsho | last post by:

Hi Everyone, I am trying to write a program that does a few things very fast and with efficient use of memory... a) I need to parse a space-delimited file that is really large, upwards fo a...

C# / C Sharp

Modify code using a hash table in comparing two text files

by: richardkreidl | last post by:

I have the following hash script that I use to compare two text files. 'Class Public Class FileComparison Public Class FileComparisonException Public Enum ExceptionType U 'Unknown A 'Add...

Visual Basic .NET

My hash table is in need of peer review

by: Johan Tibell | last post by:

I would be grateful if someone had a minute or two to review my hash table implementation. It's not yet commented but hopefully it's short and idiomatic enough to be readable. Some of the code...

C / C++

accessing char as int through union

by: Hallvard B Furuseth | last post by:

Is the code below valid? Generally a value must be accessed through the same type it was stored as, but there is an exception for data stored through a character type. I'm not sure if that...

C / C++

Printing from the print preview screen

by: Brad Pears | last post by:

I have a vb.net 2005 application and am using the print preview screen. This screen has a printer icon on it that the user can use to print the document currently being viewed. It uses the default...

Visual Basic .NET

139

How to implement a Hash Table in C

by: ravi | last post by:

Hi can anybody tell me that which ds will be best suited to implement a hash table in C/C++ thanx. in advanced

C / C++

Perl and print text file selectively help!

by: itdaddy | last post by:

hey perl gurus! i am new to this forum cause i need help. I have done many scripts. but i want to use perl to do this: What I want to do is this. I have a QRP file that I can convert to a txt...

Perl

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp