[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] opening file: with code



For those of you who didnt read my first post....

I can successfully open a text file and display the contents on the web
> >>using a perl script, however when the text file becomes too large my
script
> >>hangs. The log file is less than 8k when it does this.   How can I allow
a
> >>larger text file to be displayed?  Does anyone have a suggestion?

Thanks already for all the input!  Here is the code...please dont laugh too
loudly...

#!/usr/local/bin/perl

require "subparseform.lib";
&Parse_Form;

#volitile data from searchform.html

$aptsize = $formdata{'aptsize'};
$orent = $formdata{'orent'};
$zone = $formdata{'zone'};
$pricerange = $formdata{'pricerange'};
$month = $formdata{'month'};
$pets = $formdata{'pets'};
$smoke = $formdata{'smoke'};

#opens rental.txt
open (LOG, "<rental.txt") || &ErrorMessage;
@logmessages = <LOG>; 
close (LOG);

#splits log file into seperate entries
foreach $event (@logmessages) {
		@event = split (/=/, $event);

#splits entries into seperate scalars
#print"@pevent\n";

foreach $pevent (@event)  {
		@pevent = split (/,/, $pevent);
}

#compares volitile data against rental.txt
#sorting....

if ($pevent[0]=~/$aptsize/)    {
if ($pevent[1]=~/$orent/)      {
if ($pevent[2]=~/$zone/)       {
if ($pevent[3]=~/$pricerange/) {
if ($pevent[4]=~/$month/)      {
if ($pevent[5]=~/$pets/)       {
if ($pevent[6]=~/$smoke/)      {


print"
<html>.....................</html>\n";

} else { 
} 
} else {
}
} else {
}
} else {
}
} else {
}
} else {
}
#end sorting!sub ErrorMessage {
exit;
}
}
}


Thanks agian!  -Gene





________________________________________________________________
Get FREE voicemail, fax and email at http://voicemail.excite.com
Talk online at http://voicechat.excite.com

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org