Good evening,
I am running into a wierd bump with some older code of mine. What the following code does is behave as a proxy on a website changing minor things. The problem it runs into is left and right double quotes which appear on certain websites. When it spits them out it isnt the same;
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
binmode(STDOUT,":utf8"); #it doesnt print right with it here or not
my $t=qq(<img border="0px" src="http://server.com/T.png" alt="T.png"
+/>);
my $req = CGI->new();
use LWP::Simple;
my $content= get($req->param('go'));
$content=~s|<div id="jump-to-nav">.*?</div>||g;
$content=~s|<div class="printfooter".*|</body></html>|msg;
$content=~s|"(/tmpwiki/phase3)|"http://server.com$1|g;
$content=~s|<head>.*</head>|<head><meta http-equiv="Content-Type" cont
+ent="text/html;charset=utf-8" /><title>BTT</title></head>|msg;
$content=~s|(\<img)|$1 border="0px" |msg;
$content=~s|BTT400:||;
$content=~s|$t.*?$t||msg;
if ($req->param("f")){
print "Content-type: application/x-download\nContent-Disposition:attac
+hment;filename=\"Business Requirement.doc\"\n\n".$content;
}else{print $req->header().$content;}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|