Wed, 15 Sep 1999 18:33:00 +0000

FH,

You would have to parse the fetched page before writing it to the local file. To do that, you'd have to use a couple of regular expressions.

You can read more on regular expressions at http://www.perl.com/CPAN.

keithl — Wed, 15 Sep 1999 03:56:00 +0000

this is the only way (I know of right now) to advance the pointer to where I want it to point to (I am SURE there is a better way!)

I just wanted to thank everybody for
a) not laughing to hard !
b) your suggestions

fairhousing — Wed, 15 Sep 1999 01:00:00 +0000

i'll try this question again.

how exactly would i pinpoint just the info i wanted to be saved to a text file instead of the whole page. for example, the header on my site "birmingham alabama jobs..." birminghamnet.com. how would i specify the header as the only thing i wanted saved to a txt file?

thanks in advance

----------
My Site Got Hacked, Check It Out!
http://www.birminghamnet.com

Tue, 14 Sep 1999 19:46:00 +0000

You must add the correct content headers before printing anything to a browser.
add this line: print "content-type: text/html\n\n";

Something that catched my attention is the repetition of $line=<FILE>; -- What are you trying to acomplish with this?

Stefen Enns — Tue, 14 Sep 1999 19:02:00 +0000

keithl: Try this modification.

...
open (FILE, $t);
my $att=0;
print "Content-Type: text/html\n\n";
while ( ( $att ==0 ))
{
$line=<FILE>;
...

keithl — Tue, 14 Sep 1999 18:57:00 +0000

here is the source, Please keep in mind that I am a complete novice at this !!! so dont laugh too hard

#!/usr/bin/perl
use LWP::Simple;
$ft=get("http://finance.yahoo.com/q?s=hhs&d=v1");
open (F,">>hhs.htm");
print F $ft;
close F;

$t="hhs.htm";
open (FILE, $t);
my $att=0;

while ( ( $att ==0 ))
{
$line=<FILE>;
chomp ( $line );
if ($line eq "<th nowrap>More Info</th>" )
{
$att=1;
}
}
$line=<FILE>;
$line=<FILE>;
$line=<FILE>;
$line=<FILE>;
$line=<FILE>;
print $line;
close (FILE);
open (QUOTE, ">>stock.txt");
print QUOTE $line;
close (QUOTE);

would anybody have any idea why this would work when I execute the script through telnet and NOT when I execute through the browser? (I set all permissions on ALL files to 755)

Steve — Mon, 13 Sep 1999 16:44:00 +0000

Keithl, what's the source for this CGI file. It sounds interesting and I would like to check it out.

-steve

keithl — Mon, 13 Sep 1999 16:32:00 +0000

fairhousing-

i parsed the .htm file (which is now a .txt file) until I found the phrase that was above the stock line. Then saved the stock line . It could probably be done much quicker and cleaner, like I said - I am just starting to learn Perl!

fairhousing — Sun, 12 Sep 1999 23:54:00 +0000

to take this a step further how could one specify which parts of the page to save and which parts not to save to a txt file. this way the exact info wanted could be saved without all the other garbage.

thanks in advance

----------
My Site Got Hacked, Check It Out!
http://www.birminghamnet.com

keithl — Sun, 12 Sep 1999 00:11:00 +0000

actually, I wanted to use this as an excercise in Perl. I just started reading up on it and I am very new to this! I was trying to pull stock tickers from yahoo. I was able to write the script, changed permissions to 755 and it errored out. But when I telnet to my server and type "perl (program name).pl" it works?

you said there were some better ways. Could you please expand a little on that? you can email me directly or put it on the forum