in reply to Help with Header stripping

You didn't say what method you are using to retrieve the file so far.

Had you used LWP::Simple, you would get exactly the content you require like this:

use LWP::Simple;
my $val=get "http://some/url/somewhere";
open(OUT,">some_file_name") || die "Could not save to some_file_name" 
+$!\n";
binmode(OUT); # you only really need this sometimes. BStS.
print OUT $val;
close(OUT);

[download]
If you need more complex queries you might need to use LWP::UserAgent, and you will find the exact value you require (i.e. content without the headers) in the content method of HTTP::Result object you will get back.

Replies are listed 'Best First'.
Re: Re: Help with Header stripping
by Traku (Initiate) on Apr 01, 2004 at 18:58 UTC
    Unfortunately I cannot use LWP. As the professor asked us not to. But I'll keep that in mind for next time!
[reply]
      Ah, if it's homework, you should have told us that, and the parameters of that homework.

      Here is a hint for you: When you look at the communication with your webserver, you will first see the echo of your request (maybe that only happens with telnet, you need to check), terminated by a blank line.

      After that you see the headers sent by the server, terminated by a blank line.

      You do not need to know how the wanted content starts. All you need to know is how the unwanted content ends.

      There, that should be enough of a hint :-)

[reply]
        hmm, I see. Well the unwanted part ends like this: Accept-Ranges: bytes Content-Length: 21696 Connection: close Content-Type: image/gif \n the problem is that, on certain days the file is a different format (gif), and well I know how to tell perl how to match for the end, I am not sure how to tell it to start recording AFTER it reaches that point.
[reply]

In Section Seekers of Perl Wisdom