编程论坛 » PHP技术论坛 » 运行结果是什么？（注释是日文，我也不知道）

zfliu512 发表于 2006-11-23 16:37

运行结果是什么？（注释是日文，我也不知道）

<P>#!/usr/local/bin/perl</P>
<P>#//////////////////////<BR>#傾僪僎僢僠儏 v1.0<BR>#惢嶌挊嶌 僶僇僐儞僪僢僩僐儉<BR>#惢嶌擔<BR>#//////////////////////</P>
<P>#仭弶婜愝掕--<BR>$data_dir ="./data/ad.txt";        #奿擺愭<BR>$jump_url ="<a href="http://www.moco-coco.com/96849/" target="_blank" >http://www.moco-coco.com/96849/</A>";    #奿擺屻丄僕儍儞僾倀俼俴<BR>#仭偙偙傑偱--</P>
<P><BR>#娐嫬曄悢張棟<BR>if($ENV{'QUERY_STRING'}){<BR>    $address = $ENV{'QUERY_STRING'};<BR>    #僨乕僞奿擺張棟<BR>    open(IN,"&gt;&gt;". "$data_dir") || die "cannot open $template $!";<BR>        print IN $address . "\n";<BR>    close(IN);<BR>}</P>
<P><BR>#巜掕URL昞帵張棟<BR>    $Query{url} = "$jump_url";<BR>    if(!$Query{url}){ &amp;error('晄惓側屇傃弌偟偱偡'); exit;}</P>
<P>    print "Location: $Query{url}\n\n";</P>
<P>#僨僶僢僋<BR>    sub error{<BR>        $message = $_[0];<BR>        print 'Content-type: text/html'."\n\n";<BR>        print '&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;Request Error&lt;/TITLE&gt;&lt;/HEAD&gt;'."\n";<BR>        print '&lt;BODY&gt;'."\n";<BR>        print '&lt;H1&gt;'.$message.'&lt;/H1&gt;'."\n";<BR>        print '&lt;/BODY&gt;&lt;/HTML&gt;'."\n";<BR>    }<BR></P>

查看完整版本: 运行结果是什么？（注释是日文，我也不知道）