[PerlChina] China-pm Digest, Vol 38, Issue 3

gary jsz gary.jsz at gmail.com
Wed Jun 4 20:52:49 PDT 2008


这个文件的所属者为root,而/bin/ls这个文件也是所有用户都可以运行的。

请问还需要哪里设置嘛?

2008/6/5 <china-pm-request at pm.org>:

> Send China-pm mailing list submissions to
>        china-pm at pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        http://mail.pm.org/mailman/listinfo/china-pm
> or, via email, send a message with subject or body 'help' to
>        china-pm-request at pm.org
>
> You can reach the person managing the list at
>        china-pm-owner at pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of China-pm digest..."
>
>
> Today's Topics:
>
>   1.  请教perl cgi页面如何显示ls信息 (gary.jsz)
>   2.  请教perl cgi页面如何显示ls信息 (gary.jsz)
>   3. Re:  请教perl cgi页面如何显示ls信息 (Yisu Dong)
>   4. Re:  请教perl cgi页面如何显示ls信息 (truncatei)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Thu, 5 Jun 2008 11:11:09 +0800
> From: "gary.jsz" <gary.jsz at gmail.com>
> Subject: [PerlChina] 请教perl cgi页面如何显示ls信息
> To: "china-pm at pm.org" <china-pm at pm.org>, "china-pm at pm.org"
>        <china-pm at pm.org>
> Message-ID: <200806051111065626409 at gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
>  我的代码如下:
> #!/usr/bin/perl -w
> #
> use strict;
> use utf8;
> #use CGI qw/:standard/;
> use CGI qw/:all/;
> print header,
>        start_html("Mailing list manager system page"),
>        h1('Maillist&#31649;&#29702;&#31995;&#32479; '),
>        start_form,
>        "What are you doing?",
>        popup_menu(-name=>'choose',
>                   -values=>[qw(select create delete modify)]),p,
>        submit,
>        end_form,
>        hr;
> if(param()){
>        if (em(param('choose')) =~ /select/){
>                system "date";
>                print `ls -l \$HOME`;
> #system "ls -l \$HOME"
>        }
>        if (em(param('choose')) =~ /create/){
>                system "date -u";
>
>        }
> }
>
> 其中时间能正确显示,但是,就是不能打印 ls -l $HOME 这行,换成 system "ls -l
> \$HOME"也不能打印,还希望各位老师能指教,谢谢!
>
>
>
>
> Gary.jsz
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html
>
> ------------------------------
>
> Message: 2
> Date: Thu, 5 Jun 2008 11:11:09 +0800
> From: "gary.jsz" <gary.jsz at gmail.com>
> Subject: [PerlChina] 请教perl cgi页面如何显示ls信息
> To: "china-pm at pm.org" <china-pm at pm.org>, "china-pm at pm.org"
>        <china-pm at pm.org>
> Message-ID: <200806051111065626409 at gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
>  我的代码如下:
> #!/usr/bin/perl -w
> #
> use strict;
> use utf8;
> #use CGI qw/:standard/;
> use CGI qw/:all/;
> print header,
>        start_html("Mailing list manager system page"),
>        h1('Maillist&#31649;&#29702;&#31995;&#32479; '),
>        start_form,
>        "What are you doing?",
>        popup_menu(-name=>'choose',
>                   -values=>[qw(select create delete modify)]),p,
>        submit,
>        end_form,
>        hr;
> if(param()){
>        if (em(param('choose')) =~ /select/){
>                system "date";
>                print `ls -l \$HOME`;
> #system "ls -l \$HOME"
>        }
>        if (em(param('choose')) =~ /create/){
>                system "date -u";
>
>        }
> }
>
> 其中时间能正确显示,但是,就是不能打印 ls -l $HOME 这行,换成 system "ls -l
> \$HOME"也不能打印,还希望各位老师能指教,谢谢!
>
>
>
>
> Gary.jsz
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html
>
> ------------------------------
>
> Message: 3
> Date: Thu, 5 Jun 2008 11:20:16 +0800
> From: "Yisu Dong" <ximiff at gmail.com>
> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息
> To: china-pm at pm.org
> Message-ID:
>        <b3a8e37e0806042020w744d564bp4cfb66eb1edab008 at mail.gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
> 我的没有问题。可以打印
>
> 2008/6/5 gary.jsz <gary.jsz at gmail.com>:
>
> >   我的代码如下:
> >  #!/usr/bin/perl -w
> > #
> >  use strict;
> > use utf8;
> >  #use CGI qw/:standard/;
> > use CGI qw/:all/;
> >  print header,
> >         start_html("Mailing list manager system page"),
> >         h1('Maillist&#31649;&#29702;&#31995;&#32479; '),
> >         start_form,
> >         "What are you doing?",
> >         popup_menu(-name=>'choose',
> >                    -values=>[qw(select create delete modify)]),p,
> >         submit,
> >         end_form,
> >         hr;
> >  if(param()){
> >         if (em(param('choose')) =~ /select/){
> >                 system "date";
> >                 print `ls -l \$HOME`;
> > #system "ls -l \$HOME"
> >         }
> >         if (em(param('choose')) =~ /create/){
> >                 system "date -u";
> >
> >         }
> >  }
> >
> > 其中时间能正确显示,但是,就是不能打印 ls -l $HOME 这行,换成 system "ls -l
> > \$HOME"也不能打印,还希望各位老师能指教,谢谢!
> >
> > ------------------------------
> >   Gary.jsz
> >
> >
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> >
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html
>
> ------------------------------
>
> Message: 4
> Date: Thu, 5 Jun 2008 11:40:08 +0800
> From: truncatei <truncatei at gmail.com>
> Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息
> To: china-pm at pm.org
> Message-ID:
>        <c0d775f40806042040g76f87854re4669cde449a3180 at mail.gmail.com>
> Content-Type: text/plain; charset=UTF-8
>
> 看下运行这个CGI的用户身份,Apache一般运行在不同的用户帐号下
>
> 2008/6/5 gary.jsz <gary.jsz at gmail.com>:
> >  我的代码如下:
> > #!/usr/bin/perl -w
> > #
> > use strict;
> > use utf8;
> > #use CGI qw/:standard/;
> > use CGI qw/:all/;
> > print header,
> >         start_html("Mailing list manager system page"),
> >         h1('Maillist&#31649;&#29702;&#31995;&#32479; '),
> >         start_form,
> >         "What are you doing?",
> >         popup_menu(-name=>'choose',
> >                    -values=>[qw(select create delete modify)]),p,
> >         submit,
> >         end_form,
> >         hr;
> > if(param()){
> >         if (em(param('choose')) =~ /select/){
> >                 system "date";
> >                 print `ls -l \$HOME`;
> > #system "ls -l \$HOME"
> >         }
> >         if (em(param('choose')) =~ /create/){
> >                 system "date -u";
> >
> >         }
> > }
> >
> > 其中时间能正确显示,但是,就是不能打印 ls -l $HOME 这行,换成 system "ls -l
> > \$HOME"也不能打印,还希望各位老师能指教,谢谢!
> >
> > ________________________________
> > Gary.jsz
> >
>
> ------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
> End of China-pm Digest, Vol 38, Issue 3
> ***************************************
>



-- 
gary
gary.jsz at gmail.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment-0001.html 


More information about the China-pm mailing list