in reply to Re: Re: Re: Help with Header stripping
in thread Help with Header stripping

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.
  • Comment on Re: Re: Re: Re: Help with Header stripping

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Help with Header stripping
by matija (Priest) on Apr 01, 2004 at 20:38 UTC
    Quit thinking about what the unwanted content looks like.

    Concentrate on the empty lin that separates it from the wanted content. And regardless of what the wanted format is, the empty line is always there.

    So you need to remove everything up to and including the empty line.

    This is your homework now: figure out how to skip everything up to and including the blank line.

      Alright, so I am now able to skip everything up to and including the line.. the problem is.. that it will write only write to the new file one line... Like the socket closed on me or something. Here is the snippet of code I am using to copy the file over.

      while($request = <$socket>)
      {
      if($request =~ /(\r\n\r\n)(.*)/)
      {
      print FILE1 $2;
      while($request = <$socket>) {
      print FILE1 $request;
      }
      }
      }