HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。<br><br><div class="gmail_quote">2008/6/5 <<a href="mailto:china-pm-request@pm.org">china-pm-request@pm.org</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Send China-pm mailing list submissions to<br>
<a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
<br>
To subscribe or unsubscribe via the World Wide Web, visit<br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
or, via email, send a message with subject or body 'help' to<br>
<a href="mailto:china-pm-request@pm.org">china-pm-request@pm.org</a><br>
<br>
You can reach the person managing the list at<br>
<a href="mailto:china-pm-owner@pm.org">china-pm-owner@pm.org</a><br>
<br>
When replying, please edit your Subject line so it is more specific<br>
than "Re: Contents of China-pm digest..."<br>
<br>
<br>
Today's Topics:<br>
<br>
1. Re: 请教perl cgi页面如何显示ls信息 (truncatei)<br>
2. Re: 请教perl cgi页面如何显示ls信息 (purl lamp)<br>
3. Re: China-pm Digest, Vol 38, Issue 3 (gary jsz)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Thu, 5 Jun 2008 11:41:18 +0800<br>
From: truncatei <<a href="mailto:truncatei@gmail.com">truncatei@gmail.com</a>><br>
Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
To: <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
Message-ID:<br>
<<a href="mailto:c0d775f40806042041q28a411a9h47bf116087cbe286@mail.gmail.com">c0d775f40806042041q28a411a9h47bf116087cbe286@mail.gmail.com</a>><br>
Content-Type: text/plain; charset=UTF-8<br>
<br>
可以向脚本中加入这些命令<br>
whoami<br>
id<br>
<br>
<br>
2008/6/5 truncatei <<a href="mailto:truncatei@gmail.com">truncatei@gmail.com</a>>:<br>
> 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下<br>
><br>
><br>
<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Thu, 5 Jun 2008 11:45:47 +0800<br>
From: "purl lamp" <<a href="mailto:lamp.purl@gmail.com">lamp.purl@gmail.com</a>><br>
Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
To: <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
Message-ID:<br>
<<a href="mailto:367185060806042045pc9d3f43jafade30e09ce5cca@mail.gmail.com">367185060806042045pc9d3f43jafade30e09ce5cca@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="gb2312"<br>
<br>
maybe the problem is about $HOME<br>
whose home? shall perl work as bash (read the .bashrc to get it)?<br>
<br>
2008/6/5 gary.jsz <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>>:<br>
<br>
> 我的代码如下：<br>
> #!/usr/bin/perl -w<br>
> #<br>
> use strict;<br>
> use utf8;<br>
> #use CGI qw/:standard/;<br>
> use CGI qw/:all/;<br>
> print header,<br>
> start_html("Mailing list manager system page"),<br>
> h1('Maillist&#31649;&#29702;&#31995;&#32479; '),<br>
> start_form,<br>
> "What are you doing?",<br>
> popup_menu(-name=>'choose',<br>
> -values=>[qw(select create delete modify)]),p,<br>
> submit,<br>
> end_form,<br>
> hr;<br>
> if(param()){<br>
> if (em(param('choose')) =~ /select/){<br>
> system "date";<br>
> print `ls -l \$HOME`;<br>
> ＃system "ls -l \$HOME"<br>
> }<br>
> if (em(param('choose')) =~ /create/){<br>
> system "date -u";<br>
><br>
> }<br>
> }<br>
><br>
> 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l<br>
> \$HOME"也不能打印，还希望各位老师能指教，谢谢！<br>
><br>
> ------------------------------<br>
> Gary.jsz<br>
><br>
><br>
> _______________________________________________<br>
> China-pm mailing list<br>
> <a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
><br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <a href="http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html" target="_blank">http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html</a><br>
<br>
------------------------------<br>
<br>
Message: 3<br>
Date: Thu, 5 Jun 2008 11:52:49 +0800<br>
From: "gary jsz" <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>><br>
Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3<br>
To: <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
Message-ID:<br>
<<a href="mailto:dd532750806042052p6b1187a9u8572b5cedbc84b12@mail.gmail.com">dd532750806042052p6b1187a9u8572b5cedbc84b12@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="gb2312"<br>
<br>
这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。<br>
<br>
请问还需要哪里设置嘛？<br>
<br>
2008/6/5 <<a href="mailto:china-pm-request@pm.org">china-pm-request@pm.org</a>>:<br>
<br>
> Send China-pm mailing list submissions to<br>
> <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
><br>
> To subscribe or unsubscribe via the World Wide Web, visit<br>
> <a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
> or, via email, send a message with subject or body 'help' to<br>
> <a href="mailto:china-pm-request@pm.org">china-pm-request@pm.org</a><br>
><br>
> You can reach the person managing the list at<br>
> <a href="mailto:china-pm-owner@pm.org">china-pm-owner@pm.org</a><br>
><br>
> When replying, please edit your Subject line so it is more specific<br>
> than "Re: Contents of China-pm digest..."<br>
><br>
><br>
> Today's Topics:<br>
><br>
> 1. 请教perl cgi页面如何显示ls信息 (gary.jsz)<br>
> 2. 请教perl cgi页面如何显示ls信息 (gary.jsz)<br>
> 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong)<br>
> 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei)<br>
><br>
><br>
> ----------------------------------------------------------------------<br>
><br>
> Message: 1<br>
> Date: Thu, 5 Jun 2008 11:11:09 +0800<br>
> From: "gary.jsz" <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>><br>
> Subject: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
> To: "<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>" <<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>>, "<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>"<br>
> <<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>><br>
> Message-ID: <<a href="mailto:200806051111065626409@gmail.com">200806051111065626409@gmail.com</a>><br>
> Content-Type: text/plain; charset="gb2312"<br>
><br>
> 我的代码如下：<br>
> #!/usr/bin/perl -w<br>
> #<br>
> use strict;<br>
> use utf8;<br>
> #use CGI qw/:standard/;<br>
> use CGI qw/:all/;<br>
> print header,<br>
> start_html("Mailing list manager system page"),<br>
> h1('Maillist&#31649;&#29702;&#31995;&#32479; '),<br>
> start_form,<br>
> "What are you doing?",<br>
> popup_menu(-name=>'choose',<br>
> -values=>[qw(select create delete modify)]),p,<br>
> submit,<br>
> end_form,<br>
> hr;<br>
> if(param()){<br>
> if (em(param('choose')) =~ /select/){<br>
> system "date";<br>
> print `ls -l \$HOME`;<br>
> ＃system "ls -l \$HOME"<br>
> }<br>
> if (em(param('choose')) =~ /create/){<br>
> system "date -u";<br>
><br>
> }<br>
> }<br>
><br>
> 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l<br>
> \$HOME"也不能打印，还希望各位老师能指教，谢谢！<br>
><br>
><br>
><br>
><br>
> Gary.jsz<br>
> -------------- next part --------------<br>
> An HTML attachment was scrubbed...<br>
> URL:<br>
> <a href="http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html" target="_blank">http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html</a><br>
><br>
> ------------------------------<br>
><br>
> Message: 2<br>
> Date: Thu, 5 Jun 2008 11:11:09 +0800<br>
> From: "gary.jsz" <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>><br>
> Subject: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
> To: "<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>" <<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>>, "<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>"<br>
> <<a href="mailto:china-pm@pm.org">china-pm@pm.org</a>><br>
> Message-ID: <<a href="mailto:200806051111065626409@gmail.com">200806051111065626409@gmail.com</a>><br>
> Content-Type: text/plain; charset="gb2312"<br>
><br>
> 我的代码如下：<br>
> #!/usr/bin/perl -w<br>
> #<br>
> use strict;<br>
> use utf8;<br>
> #use CGI qw/:standard/;<br>
> use CGI qw/:all/;<br>
> print header,<br>
> start_html("Mailing list manager system page"),<br>
> h1('Maillist&#31649;&#29702;&#31995;&#32479; '),<br>
> start_form,<br>
> "What are you doing?",<br>
> popup_menu(-name=>'choose',<br>
> -values=>[qw(select create delete modify)]),p,<br>
> submit,<br>
> end_form,<br>
> hr;<br>
> if(param()){<br>
> if (em(param('choose')) =~ /select/){<br>
> system "date";<br>
> print `ls -l \$HOME`;<br>
> ＃system "ls -l \$HOME"<br>
> }<br>
> if (em(param('choose')) =~ /create/){<br>
> system "date -u";<br>
><br>
> }<br>
> }<br>
><br>
> 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l<br>
> \$HOME"也不能打印，还希望各位老师能指教，谢谢！<br>
><br>
><br>
><br>
><br>
> Gary.jsz<br>
> -------------- next part --------------<br>
> An HTML attachment was scrubbed...<br>
> URL:<br>
> <a href="http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html" target="_blank">http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html</a><br>
><br>
> ------------------------------<br>
><br>
> Message: 3<br>
> Date: Thu, 5 Jun 2008 11:20:16 +0800<br>
> From: "Yisu Dong" <<a href="mailto:ximiff@gmail.com">ximiff@gmail.com</a>><br>
> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
> To: <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
> Message-ID:<br>
> <<a href="mailto:b3a8e37e0806042020w744d564bp4cfb66eb1edab008@mail.gmail.com">b3a8e37e0806042020w744d564bp4cfb66eb1edab008@mail.gmail.com</a>><br>
> Content-Type: text/plain; charset="gb2312"<br>
><br>
> 我的没有问题。可以打印<br>
><br>
> 2008/6/5 gary.jsz <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>>:<br>
><br>
> > 我的代码如下：<br>
> > #!/usr/bin/perl -w<br>
> > #<br>
> > use strict;<br>
> > use utf8;<br>
> > #use CGI qw/:standard/;<br>
> > use CGI qw/:all/;<br>
> > print header,<br>
> > start_html("Mailing list manager system page"),<br>
> > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),<br>
> > start_form,<br>
> > "What are you doing?",<br>
> > popup_menu(-name=>'choose',<br>
> > -values=>[qw(select create delete modify)]),p,<br>
> > submit,<br>
> > end_form,<br>
> > hr;<br>
> > if(param()){<br>
> > if (em(param('choose')) =~ /select/){<br>
> > system "date";<br>
> > print `ls -l \$HOME`;<br>
> > ＃system "ls -l \$HOME"<br>
> > }<br>
> > if (em(param('choose')) =~ /create/){<br>
> > system "date -u";<br>
> ><br>
> > }<br>
> > }<br>
> ><br>
> > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l<br>
> > \$HOME"也不能打印，还希望各位老师能指教，谢谢！<br>
> ><br>
> > ------------------------------<br>
> > Gary.jsz<br>
> ><br>
> ><br>
> > _______________________________________________<br>
> > China-pm mailing list<br>
> > <a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
> > <a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
> ><br>
> -------------- next part --------------<br>
> An HTML attachment was scrubbed...<br>
> URL:<br>
> <a href="http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html" target="_blank">http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html</a><br>
><br>
> ------------------------------<br>
><br>
> Message: 4<br>
> Date: Thu, 5 Jun 2008 11:40:08 +0800<br>
> From: truncatei <<a href="mailto:truncatei@gmail.com">truncatei@gmail.com</a>><br>
> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息<br>
> To: <a href="mailto:china-pm@pm.org">china-pm@pm.org</a><br>
> Message-ID:<br>
> <<a href="mailto:c0d775f40806042040g76f87854re4669cde449a3180@mail.gmail.com">c0d775f40806042040g76f87854re4669cde449a3180@mail.gmail.com</a>><br>
> Content-Type: text/plain; charset=UTF-8<br>
><br>
> 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下<br>
><br>
> 2008/6/5 gary.jsz <<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>>:<br>
> > 我的代码如下：<br>
> > #!/usr/bin/perl -w<br>
> > #<br>
> > use strict;<br>
> > use utf8;<br>
> > #use CGI qw/:standard/;<br>
> > use CGI qw/:all/;<br>
> > print header,<br>
> > start_html("Mailing list manager system page"),<br>
> > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),<br>
> > start_form,<br>
> > "What are you doing?",<br>
> > popup_menu(-name=>'choose',<br>
> > -values=>[qw(select create delete modify)]),p,<br>
> > submit,<br>
> > end_form,<br>
> > hr;<br>
> > if(param()){<br>
> > if (em(param('choose')) =~ /select/){<br>
> > system "date";<br>
> > print `ls -l \$HOME`;<br>
> > ＃system "ls -l \$HOME"<br>
> > }<br>
> > if (em(param('choose')) =~ /create/){<br>
> > system "date -u";<br>
> ><br>
> > }<br>
> > }<br>
> ><br>
> > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l<br>
> > \$HOME"也不能打印，还希望各位老师能指教，谢谢！<br>
> ><br>
> > ________________________________<br>
> > Gary.jsz<br>
> ><br>
><br>
> ------------------------------<br>
><br>
> _______________________________________________<br>
> China-pm mailing list<br>
> <a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
><br>
> End of China-pm Digest, Vol 38, Issue 3<br>
> ***************************************<br>
><br>
<br>
<br>
<br>
--<br>
gary<br>
<a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a><br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <a href="http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html" target="_blank">http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html</a><br>
<br>
------------------------------<br>
<br>
_______________________________________________<br>
China-pm mailing list<br>
<a href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
<br>
End of China-pm Digest, Vol 38, Issue 4<br>
***************************************<br>
</blockquote></div><br><br clear="all"><br>-- <br>gary<br><a href="mailto:gary.jsz@gmail.com">gary.jsz@gmail.com</a>