没事写个小相册，不要见笑，挖哈哈！

tsie_chen

print "Content-type: text/html\n\n";            #header


print "  <style type= text/css>        # CSS
        body {       
                font-size: 13px;
                font-family:Verdana;
                background:#111111;
                color:#AAA;
        }
        td{        border: dashed #555 1.5px;
                padding: 3px 3px 3px 3px;
                background:#cccccc;
        }
        img {
                padding: 0px 0px 0px 0px;
        }


</style>
";

if ($ENV{REQUEST_METHOD} eq "GET") {
                $in=$ENV{QUERY_STRING};
        }

if ($in) {
                $in=~s/\+/ /g;
                $in=~s/%(..)/pack("c",hex($1))/ge;
                @RQ=split(/&/,$in);
                foreach $RQ(@RQ){
                                                ($key,$value) = split(/=/,$RQ);
                                        $RQ{$key}=$value;
                                    }
        }
       

        my $dir = '../../img/';
        chdir $dir;
        my @img = <*> ;
        my $img_no = @img;       
       
        if ($RQ{'k'}){
                $i = $RQ{'k'};               
        } else {
                $i = 0;
        }
        if ($i < 0) { $i = 0};
        if ($i > $#img) { $i = $#img};

        my $i1 = $i - 1;
        my $i2 = $i + 1;
       
        print "<table align=center><tr align=center><td>$img_no / $i2<br> <a href=?k=$i1>上一张</a>< = ><a href=?k=$i2>下一张</a> </td></tr>";
       
       

        print "<tr align=center><td>";
        print "<img src=$dir/$img[$i] width=600><br>";
        #print "$img[$i]<br>";

        print "</td></tr></table>";

兰花仙子

    print "</td></tr></teble>";

单词拼写错误。

用CGI.pm更好。

tsie_chen

小学毕业。。。手指头多动。。hehe ..不好意思呀。改了，

神仙姐姐，我是来学perl的不是来学CGI.pm的！

kingwmj

学习了。。。。

flw

小学毕业。。。手指头多动。。hehe ..不好意思呀。改了，

神仙姐姐，我是来学perl的不是来学CGI.pm的！
tsie_chen 发表于 2010-12-14 17:47

买椟还珠？我要的是葫芦？

tsie_chen

买椟还珠？我要的是葫芦？

！？

天气确实比较冷啊。哈哈。

有的好东西，确实是很好用的。

“条条大路通罗马”这是perl的宗旨。

所要了解的是perl在各种应用中所实现的原理。

“活学活用，学以自用”！

很简单，每个人的需求不一样，我要的是我想要的！