<!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>
<DIV>#!/usr/bin/perl -w</DIV>
<DIV>#</DIV>
<DIV></DIV>
<DIV>use strict;</DIV>
<DIV>use utf8;</DIV>
<DIV></DIV>
<DIV>#use CGI qw/:standard/;</DIV>
<DIV>use CGI qw/:all/;</DIV>
<DIV></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></DIV>
<DIV></DIV>
<DIV>if(param()){</DIV>
<DIV> if (em(param('choose')) =~ /select/){</DIV>
<DIV> system "date";</DIV>
<DIV> print `ls -l \$HOME`;</DIV>
<DIV style="TEXT-INDENT: 6em"><FONT color=#000080>＃system "ls -l
\$HOME"</FONT></DIV>
<DIV> }</DIV>
<DIV> if (em(param('choose')) =~ /create/){</DIV>
<DIV> system "date -u";</DIV>
<DIV> </DIV>
<DIV> }</DIV>
<DIV></DIV>
<DIV>}</DIV></DIV>
<DIV><FONT face=Verdana color=#000080 size=2></FONT> </DIV>
<DIV><FONT face=Verdana color=#000080 size=2>其中时间能正确显示，但是，就是不能打印 ls -l $HOME
这行，换成 system "ls -l \$HOME"也不能打印，还希望各位老师能指教，谢谢！</FONT></DIV>
<DIV><FONT color=#000080></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></BODY></HTML>