<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.3314" name=GENERATOR>
<STYLE>@font-face {
font-family: 宋体;
}
@font-face {
font-family: Verdana;
}
@font-face {
font-family: @宋体;
}
@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; layout-grid: 15.6pt; }
P.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
LI.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
DIV.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
FONT-WEIGHT: normal; COLOR: windowtext; FONT-STYLE: normal; FONT-FAMILY: Verdana; TEXT-DECORATION: none; mso-style-type: personal-compose
}
DIV.Section1 {
page: Section1
}
UNKNOWN {
FONT-SIZE: 10pt
}
BLOCKQUOTE {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 2em
}
OL {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
UL {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
</STYLE>
</HEAD>
<BODY style="FONT-SIZE: 10pt; MARGIN: 10px; FONT-FAMILY: verdana">
<DIV><FONT face=Verdana color=#000080 size=2>现在又来一个问题。</FONT></DIV>
<DIV><FONT color=#000080>因为http的执行者是apache，那么，我怎么成切换高级用户的权限呢？</FONT></DIV>
<DIV><FONT face=Verdana color=#000080 size=2></FONT> </DIV>
<DIV><FONT face=Verdana color=#000080 size=2></FONT> </DIV><FONT
face=Verdana color=#000080 size=2>
<HR style="WIDTH: 100px" align=left color=#b5c4df SIZE=1>
</FONT>
<DIV><FONT face=Verdana color=#c0c0c0 size=2>
<DIV>
<DIV><FONT color=#000000>Gary.jsz</FONT></DIV>
<DIV> </DIV></DIV></FONT></DIV>
<HR color=#b5c4df SIZE=1>
<DIV><FONT face=Verdana size=2><STRONG>发件人：</STRONG> china-pm-request@pm.org
</FONT></DIV>
<DIV><FONT face=Verdana size=2><STRONG>发送时间：</STRONG> 2008-06-05 13:13:44
</FONT></DIV>
<DIV><FONT face=Verdana size=2><STRONG>收件人：</STRONG> china-pm@pm.org
</FONT></DIV>
<DIV><FONT face=Verdana size=2><STRONG>抄送：</STRONG> </FONT></DIV>
<DIV><FONT face=Verdana size=2><STRONG>主题：</STRONG>
China-pm_Digest,_Vol_38,_Issue_5 </FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>
<DIV>Send China-pm mailing list submissions to</DIV>
<DIV>china-pm@pm.org</DIV>
<DIV></DIV>
<DIV>To subscribe or unsubscribe via the World Wide Web, visit</DIV>
<DIV>http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>or, via email, send a message with subject or body 'help' to</DIV>
<DIV>china-pm-request@pm.org</DIV>
<DIV></DIV>
<DIV>You can reach the person managing the list at</DIV>
<DIV>china-pm-owner@pm.org</DIV>
<DIV></DIV>
<DIV>When replying, please edit your Subject line so it is more specific</DIV>
<DIV>than "Re: Contents of China-pm digest..."</DIV>
<DIV></DIV>
<DIV></DIV>
<DIV>Today's Topics:</DIV>
<DIV></DIV>
<DIV> 1. Re: China-pm Digest, Vol 38, Issue 3 (truncatei)</DIV>
<DIV> 2. Re: China-pm Digest, Vol 38, Issue 4 (gary jsz)</DIV>
<DIV></DIV>
<DIV></DIV>
<DIV>----------------------------------------------------------------------</DIV>
<DIV></DIV>
<DIV>Message: 1</DIV>
<DIV>Date: Thu, 5 Jun 2008 11:57:23 +0800</DIV>
<DIV>From: truncatei <truncatei@gmail.com></DIV>
<DIV>Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3</DIV>
<DIV>To: china-pm@pm.org</DIV>
<DIV>Message-ID:</DIV>
<DIV><c0d775f40806042057t7ffff107w211ca183f02eaa2b@mail.gmail.com></DIV>
<DIV>Content-Type: text/plain; charset=UTF-8</DIV>
<DIV></DIV>
<DIV>你理解错我们的意思了</DIV>
<DIV>文件的Owner和谁运行是不一样的，它是使用当前运行用户的env，而不管owner是谁</DIV>
<DIV></DIV>
<DIV>你可以加个 id 或者 whoami 的系统调用在程序里看看CGI到底是以哪个用户身份运行。</DIV>
<DIV></DIV>
<DIV>2008/6/5 gary jsz <gary.jsz@gmail.com>:</DIV>
<DIV>> 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。</DIV>
<DIV>></DIV>
<DIV>> 请问还需要哪里设置嘛？</DIV>
<DIV>></DIV>
<DIV></DIV>
<DIV>------------------------------</DIV>
<DIV></DIV>
<DIV>Message: 2</DIV>
<DIV>Date: Thu, 5 Jun 2008 13:09:34 +0800</DIV>
<DIV>From: "gary jsz" <gary.jsz@gmail.com></DIV>
<DIV>Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 4</DIV>
<DIV>To: china-pm@pm.org</DIV>
<DIV>Message-ID:</DIV>
<DIV><dd532750806042209u5502423aw38fec0ad01607d20@mail.gmail.com></DIV>
<DIV>Content-Type: text/plain; charset="gb2312"</DIV>
<DIV></DIV>
<DIV>HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。</DIV>
<DIV></DIV>
<DIV>2008/6/5 <china-pm-request@pm.org>:</DIV>
<DIV></DIV>
<DIV>> Send China-pm mailing list submissions to</DIV>
<DIV>> china-pm@pm.org</DIV>
<DIV>></DIV>
<DIV>> To subscribe or unsubscribe via the World Wide Web, visit</DIV>
<DIV>> http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>> or, via email, send a message with subject or body 'help' to</DIV>
<DIV>> china-pm-request@pm.org</DIV>
<DIV>></DIV>
<DIV>> You can reach the person managing the list at</DIV>
<DIV>> china-pm-owner@pm.org</DIV>
<DIV>></DIV>
<DIV>> When replying, please edit your Subject line so it is more specific</DIV>
<DIV>> than "Re: Contents of China-pm digest..."</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Today's Topics:</DIV>
<DIV>></DIV>
<DIV>> 1. Re: 请教perl cgi页面如何显示ls信息 (truncatei)</DIV>
<DIV>> 2. Re: 请教perl cgi页面如何显示ls信息 (purl lamp)</DIV>
<DIV>> 3. Re: China-pm Digest, Vol 38, Issue 3 (gary jsz)</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> ----------------------------------------------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 1</DIV>
<DIV>> Date: Thu, 5 Jun 2008 11:41:18 +0800</DIV>
<DIV>> From: truncatei <truncatei@gmail.com></DIV>
<DIV>> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> To: china-pm@pm.org</DIV>
<DIV>> Message-ID:</DIV>
<DIV>> <c0d775f40806042041q28a411a9h47bf116087cbe286@mail.gmail.com></DIV>
<DIV>> Content-Type: text/plain; charset=UTF-8</DIV>
<DIV>></DIV>
<DIV>> 可以向脚本中加入这些命令</DIV>
<DIV>> whoami</DIV>
<DIV>> id</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> 2008/6/5 truncatei <truncatei@gmail.com>:</DIV>
<DIV>> > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 2</DIV>
<DIV>> Date: Thu, 5 Jun 2008 11:45:47 +0800</DIV>
<DIV>> From: "purl lamp" <lamp.purl@gmail.com></DIV>
<DIV>> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> To: china-pm@pm.org</DIV>
<DIV>> Message-ID:</DIV>
<DIV>> <367185060806042045pc9d3f43jafade30e09ce5cca@mail.gmail.com></DIV>
<DIV>> Content-Type: text/plain; charset="gb2312"</DIV>
<DIV>></DIV>
<DIV>> maybe the problem is about $HOME</DIV>
<DIV>> whose home? shall perl work as bash (read the .bashrc to get it)?</DIV>
<DIV>></DIV>
<DIV>> 2008/6/5 gary.jsz <gary.jsz@gmail.com>:</DIV>
<DIV>></DIV>
<DIV>> > 我的代码如下：</DIV>
<DIV>> > #!/usr/bin/perl -w</DIV>
<DIV>> > #</DIV>
<DIV>> > use strict;</DIV>
<DIV>> > use utf8;</DIV>
<DIV>> > #use CGI qw/:standard/;</DIV>
<DIV>> > use CGI qw/:all/;</DIV>
<DIV>> > print header,</DIV>
<DIV>> > start_html("Mailing list manager system page"),</DIV>
<DIV>> > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),</DIV>
<DIV>> > start_form,</DIV>
<DIV>> > "What are you doing?",</DIV>
<DIV>> > popup_menu(-name=>'choose',</DIV>
<DIV>> > -values=>[qw(select create delete modify)]),p,</DIV>
<DIV>> > submit,</DIV>
<DIV>> > end_form,</DIV>
<DIV>> > hr;</DIV>
<DIV>> > if(param()){</DIV>
<DIV>> > if (em(param('choose')) =~ /select/){</DIV>
<DIV>> > system "date";</DIV>
<DIV>> > print `ls -l \$HOME`;</DIV>
<DIV>> > ＃system "ls -l \$HOME"</DIV>
<DIV>> > }</DIV>
<DIV>> > if (em(param('choose')) =~ /create/){</DIV>
<DIV>> > system "date -u";</DIV>
<DIV>> ></DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> ></DIV>
<DIV>> > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l</DIV>
<DIV>> > \$HOME"也不能打印，还希望各位老师能指教，谢谢！</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> > Gary.jsz</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > China-pm mailing list</DIV>
<DIV>> > China-pm@pm.org</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>> ></DIV>
<DIV>> -------------- next part --------------</DIV>
<DIV>> An HTML attachment was scrubbed...</DIV>
<DIV>> URL:</DIV>
<DIV>> http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html</DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 3</DIV>
<DIV>> Date: Thu, 5 Jun 2008 11:52:49 +0800</DIV>
<DIV>> From: "gary jsz" <gary.jsz@gmail.com></DIV>
<DIV>> Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3</DIV>
<DIV>> To: china-pm@pm.org</DIV>
<DIV>> Message-ID:</DIV>
<DIV>> <dd532750806042052p6b1187a9u8572b5cedbc84b12@mail.gmail.com></DIV>
<DIV>> Content-Type: text/plain; charset="gb2312"</DIV>
<DIV>></DIV>
<DIV>> 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。</DIV>
<DIV>></DIV>
<DIV>> 请问还需要哪里设置嘛？</DIV>
<DIV>></DIV>
<DIV>> 2008/6/5 <china-pm-request@pm.org>:</DIV>
<DIV>></DIV>
<DIV>> > Send China-pm mailing list submissions to</DIV>
<DIV>> > china-pm@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > To subscribe or unsubscribe via the World Wide Web, visit</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>> > or, via email, send a message with subject or body 'help' to</DIV>
<DIV>> > china-pm-request@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > You can reach the person managing the list at</DIV>
<DIV>> > china-pm-owner@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > When replying, please edit your Subject line so it is more specific</DIV>
<DIV>> > than "Re: Contents of China-pm digest..."</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Today's Topics:</DIV>
<DIV>> ></DIV>
<DIV>> > 1. 请教perl cgi页面如何显示ls信息 (gary.jsz)</DIV>
<DIV>> > 2. 请教perl cgi页面如何显示ls信息 (gary.jsz)</DIV>
<DIV>> > 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong)</DIV>
<DIV>> > 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei)</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ----------------------------------------------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 1</DIV>
<DIV>> > Date: Thu, 5 Jun 2008 11:11:09 +0800</DIV>
<DIV>> > From: "gary.jsz" <gary.jsz@gmail.com></DIV>
<DIV>> > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> > To: "china-pm@pm.org" <china-pm@pm.org>, "china-pm@pm.org"</DIV>
<DIV>> > <china-pm@pm.org></DIV>
<DIV>> > Message-ID: <200806051111065626409@gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset="gb2312"</DIV>
<DIV>> ></DIV>
<DIV>> > 我的代码如下：</DIV>
<DIV>> > #!/usr/bin/perl -w</DIV>
<DIV>> > #</DIV>
<DIV>> > use strict;</DIV>
<DIV>> > use utf8;</DIV>
<DIV>> > #use CGI qw/:standard/;</DIV>
<DIV>> > use CGI qw/:all/;</DIV>
<DIV>> > print header,</DIV>
<DIV>> > start_html("Mailing list manager system page"),</DIV>
<DIV>> > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),</DIV>
<DIV>> > start_form,</DIV>
<DIV>> > "What are you doing?",</DIV>
<DIV>> > popup_menu(-name=>'choose',</DIV>
<DIV>> > -values=>[qw(select create delete modify)]),p,</DIV>
<DIV>> > submit,</DIV>
<DIV>> > end_form,</DIV>
<DIV>> > hr;</DIV>
<DIV>> > if(param()){</DIV>
<DIV>> > if (em(param('choose')) =~ /select/){</DIV>
<DIV>> > system "date";</DIV>
<DIV>> > print `ls -l \$HOME`;</DIV>
<DIV>> > ＃system "ls -l \$HOME"</DIV>
<DIV>> > }</DIV>
<DIV>> > if (em(param('choose')) =~ /create/){</DIV>
<DIV>> > system "date -u";</DIV>
<DIV>> ></DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> ></DIV>
<DIV>> > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l</DIV>
<DIV>> > \$HOME"也不能打印，还希望各位老师能指教，谢谢！</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Gary.jsz</DIV>
<DIV>> > -------------- next part --------------</DIV>
<DIV>> > An HTML attachment was scrubbed...</DIV>
<DIV>> > URL:</DIV>
<DIV>> ></DIV>
<DIV>> http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 2</DIV>
<DIV>> > Date: Thu, 5 Jun 2008 11:11:09 +0800</DIV>
<DIV>> > From: "gary.jsz" <gary.jsz@gmail.com></DIV>
<DIV>> > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> > To: "china-pm@pm.org" <china-pm@pm.org>, "china-pm@pm.org"</DIV>
<DIV>> > <china-pm@pm.org></DIV>
<DIV>> > Message-ID: <200806051111065626409@gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset="gb2312"</DIV>
<DIV>> ></DIV>
<DIV>> > 我的代码如下：</DIV>
<DIV>> > #!/usr/bin/perl -w</DIV>
<DIV>> > #</DIV>
<DIV>> > use strict;</DIV>
<DIV>> > use utf8;</DIV>
<DIV>> > #use CGI qw/:standard/;</DIV>
<DIV>> > use CGI qw/:all/;</DIV>
<DIV>> > print header,</DIV>
<DIV>> > start_html("Mailing list manager system page"),</DIV>
<DIV>> > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),</DIV>
<DIV>> > start_form,</DIV>
<DIV>> > "What are you doing?",</DIV>
<DIV>> > popup_menu(-name=>'choose',</DIV>
<DIV>> > -values=>[qw(select create delete modify)]),p,</DIV>
<DIV>> > submit,</DIV>
<DIV>> > end_form,</DIV>
<DIV>> > hr;</DIV>
<DIV>> > if(param()){</DIV>
<DIV>> > if (em(param('choose')) =~ /select/){</DIV>
<DIV>> > system "date";</DIV>
<DIV>> > print `ls -l \$HOME`;</DIV>
<DIV>> > ＃system "ls -l \$HOME"</DIV>
<DIV>> > }</DIV>
<DIV>> > if (em(param('choose')) =~ /create/){</DIV>
<DIV>> > system "date -u";</DIV>
<DIV>> ></DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> ></DIV>
<DIV>> > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l</DIV>
<DIV>> > \$HOME"也不能打印，还希望各位老师能指教，谢谢！</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Gary.jsz</DIV>
<DIV>> > -------------- next part --------------</DIV>
<DIV>> > An HTML attachment was scrubbed...</DIV>
<DIV>> > URL:</DIV>
<DIV>> ></DIV>
<DIV>> http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 3</DIV>
<DIV>> > Date: Thu, 5 Jun 2008 11:20:16 +0800</DIV>
<DIV>> > From: "Yisu Dong" <ximiff@gmail.com></DIV>
<DIV>> > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> > To: china-pm@pm.org</DIV>
<DIV>> > Message-ID:</DIV>
<DIV>> > <b3a8e37e0806042020w744d564bp4cfb66eb1edab008@mail.gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset="gb2312"</DIV>
<DIV>> ></DIV>
<DIV>> > 我的没有问题。可以打印</DIV>
<DIV>> ></DIV>
<DIV>> > 2008/6/5 gary.jsz <gary.jsz@gmail.com>:</DIV>
<DIV>> ></DIV>
<DIV>> > > 我的代码如下：</DIV>
<DIV>> > > #!/usr/bin/perl -w</DIV>
<DIV>> > > #</DIV>
<DIV>> > > use strict;</DIV>
<DIV>> > > use utf8;</DIV>
<DIV>> > > #use CGI qw/:standard/;</DIV>
<DIV>> > > use CGI qw/:all/;</DIV>
<DIV>> > > print header,</DIV>
<DIV>> > > start_html("Mailing list manager system page"),</DIV>
<DIV>> > > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),</DIV>
<DIV>> > > start_form,</DIV>
<DIV>> > > "What are you doing?",</DIV>
<DIV>> > > popup_menu(-name=>'choose',</DIV>
<DIV>> > > -values=>[qw(select create delete modify)]),p,</DIV>
<DIV>> > > submit,</DIV>
<DIV>> > > end_form,</DIV>
<DIV>> > > hr;</DIV>
<DIV>> > > if(param()){</DIV>
<DIV>> > > if (em(param('choose')) =~ /select/){</DIV>
<DIV>> > > system "date";</DIV>
<DIV>> > > print `ls -l \$HOME`;</DIV>
<DIV>> > > ＃system "ls -l \$HOME"</DIV>
<DIV>> > > }</DIV>
<DIV>> > > if (em(param('choose')) =~ /create/){</DIV>
<DIV>> > > system "date -u";</DIV>
<DIV>> > ></DIV>
<DIV>> > > }</DIV>
<DIV>> > > }</DIV>
<DIV>> > ></DIV>
<DIV>> > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l</DIV>
<DIV>> > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！</DIV>
<DIV>> > ></DIV>
<DIV>> > > ------------------------------</DIV>
<DIV>> > > Gary.jsz</DIV>
<DIV>> > ></DIV>
<DIV>> > ></DIV>
<DIV>> > > _______________________________________________</DIV>
<DIV>> > > China-pm mailing list</DIV>
<DIV>> > > China-pm@pm.org</DIV>
<DIV>> > > http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>> > ></DIV>
<DIV>> > -------------- next part --------------</DIV>
<DIV>> > An HTML attachment was scrubbed...</DIV>
<DIV>> > URL:</DIV>
<DIV>> ></DIV>
<DIV>> http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 4</DIV>
<DIV>> > Date: Thu, 5 Jun 2008 11:40:08 +0800</DIV>
<DIV>> > From: truncatei <truncatei@gmail.com></DIV>
<DIV>> > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息</DIV>
<DIV>> > To: china-pm@pm.org</DIV>
<DIV>> > Message-ID:</DIV>
<DIV>> > <c0d775f40806042040g76f87854re4669cde449a3180@mail.gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset=UTF-8</DIV>
<DIV>> ></DIV>
<DIV>> > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下</DIV>
<DIV>> ></DIV>
<DIV>> > 2008/6/5 gary.jsz <gary.jsz@gmail.com>:</DIV>
<DIV>> > > 我的代码如下：</DIV>
<DIV>> > > #!/usr/bin/perl -w</DIV>
<DIV>> > > #</DIV>
<DIV>> > > use strict;</DIV>
<DIV>> > > use utf8;</DIV>
<DIV>> > > #use CGI qw/:standard/;</DIV>
<DIV>> > > use CGI qw/:all/;</DIV>
<DIV>> > > print header,</DIV>
<DIV>> > > start_html("Mailing list manager system page"),</DIV>
<DIV>> > > h1('Maillist&#31649;&#29702;&#31995;&#32479; '),</DIV>
<DIV>> > > start_form,</DIV>
<DIV>> > > "What are you doing?",</DIV>
<DIV>> > > popup_menu(-name=>'choose',</DIV>
<DIV>> > > -values=>[qw(select create delete modify)]),p,</DIV>
<DIV>> > > submit,</DIV>
<DIV>> > > end_form,</DIV>
<DIV>> > > hr;</DIV>
<DIV>> > > if(param()){</DIV>
<DIV>> > > if (em(param('choose')) =~ /select/){</DIV>
<DIV>> > > system "date";</DIV>
<DIV>> > > print `ls -l \$HOME`;</DIV>
<DIV>> > > ＃system "ls -l \$HOME"</DIV>
<DIV>> > > }</DIV>
<DIV>> > > if (em(param('choose')) =~ /create/){</DIV>
<DIV>> > > system "date -u";</DIV>
<DIV>> > ></DIV>
<DIV>> > > }</DIV>
<DIV>> > > }</DIV>
<DIV>> > ></DIV>
<DIV>> > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l</DIV>
<DIV>> > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！</DIV>
<DIV>> > ></DIV>
<DIV>> > > ________________________________</DIV>
<DIV>> > > Gary.jsz</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > China-pm mailing list</DIV>
<DIV>> > China-pm@pm.org</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>> ></DIV>
<DIV>> > End of China-pm Digest, Vol 38, Issue 3</DIV>
<DIV>> > ***************************************</DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> --</DIV>
<DIV>> gary</DIV>
<DIV>> gary.jsz@gmail.com</DIV>
<DIV>> -------------- next part --------------</DIV>
<DIV>> An HTML attachment was scrubbed...</DIV>
<DIV>> URL:</DIV>
<DIV>> http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html</DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> China-pm mailing list</DIV>
<DIV>> China-pm@pm.org</DIV>
<DIV>> http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV>></DIV>
<DIV>> End of China-pm Digest, Vol 38, Issue 4</DIV>
<DIV>> ***************************************</DIV>
<DIV>></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV>-- </DIV>
<DIV>gary</DIV>
<DIV>gary.jsz@gmail.com</DIV>
<DIV>-------------- next part --------------</DIV>
<DIV>An HTML attachment was scrubbed...</DIV>
<DIV>URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/7df7fdb4/attachment.html </DIV>
<DIV></DIV>
<DIV>------------------------------</DIV>
<DIV></DIV>
<DIV>_______________________________________________</DIV>
<DIV>China-pm mailing list</DIV>
<DIV>China-pm@pm.org</DIV>
<DIV>http://mail.pm.org/mailman/listinfo/china-pm</DIV>
<DIV></DIV>
<DIV>End of China-pm Digest, Vol 38, Issue 5</DIV>
<DIV>***************************************</DIV></FONT></DIV></BODY></HTML>