1 # !/usr/bin/perl -w
2
3 @list = <STDIN>;
4 @list = sort(@list);
5 @list = reverse @list;
6
7 print "\n";
8
9 print @list;
10
11 print "\n";
12 print "input the number:\n";
13 $num = <STDIN>;
14 print $list[$num];
15 srand;
16 print $list[rand(@list)];
2
3 @list = <STDIN>;
4 @list = sort(@list);
5 @list = reverse @list;
6
7 print "\n";
8
9 print @list;
10
11 print "\n";
12 print "input the number:\n";
13 $num = <STDIN>;
14 print $list[$num];
15 srand;
16 print $list[rand(@list)];
鍙戠幇絎洓琛?@list[$num]鐨勭粨鏋滀篃鏄竴鏍風(fēng)殑錛屼笉蹇呮槸$list[$num]錛岄毦閬撴槸鐗堟湰闂錛?br /> 涔︿笂璇磗rand鏄繘琛岄殢鏈烘暟鍒濆鍖栫殑錛屼絾鏄彂鐜板鏋滃垹闄よ繖琛屼篃鍙互
]]>
1)鍒╃敤鍛戒護(hù)tar xvfz *.tar.gz灝哸pache瑙ｅ帇.
2)cd httpd-2.2.11 3)鍒╃敤./configure --help鏌ョ湅甯姪淇℃伅,鐪嬬湅闇瑕侀厤緗摢浜涢夐」.鐢變簬鎴戣瑁卪ysql鍜宲hp,鎵浠ラ夋嫨浜?jiǎn)浠ヤ?br /> 鍑犱釜閫夐」:./configure --prefix=/usr/local/apache2 --enable-rewrite --with-mpm=worker --enable-so
鏈鍚庝竴涓緢閲嶈,濡傛灉瑕佽php,涓瀹氳鍐?鍓嶉潰涓や釜涓嶆槸蹇呴渶鐨?<濡傛灉涓嶆槑鐧介夐」鐨勫惈涔?鍘籫oogle.>
4)make
5)make install
3. 鍚姩Apache錛?br /> #cd /usr/local/apache2/bin
#./apachectl start
鍋滄帀apache鏄?br />
#cd /usr/local/apache2/bin
#./apachectl stop
4.嫻嬭瘯瀹夎鏄惁鎴愬姛錛屾祻瑙堝櫒杈撳叆http://localhost, 欏甸潰鏄劇ずit works錛岃〃鏄巃pache瀹夎鎴愬姛.
5.嫻嬭瘯perl.鏂囦歡涓篶gitest.pl,鏀懼湪/usr/local/apache2/cgi-bin鐩綍涓紝騫朵笖chmod a+x cgitest.pl浣垮叾鍙墽琛?br />
錛?/p>
#!/usr/bin/perl -w
use CGI;
{
my $q = new CGI;
print $q->header(),
$q->start_html("hello,perl"),
$q->h1('hello perl'),
$q->end_html();
}
6.鍦ㄦ祻瑙堝櫒涓緭鍏ワ細(xì)http://localhost/cgi-bin/cgitest.pl 鍗沖彲鐪嬪埌hello perl銆?br />
7.鑷畾涔夋枃浠跺瓨鏀句綅緗細(xì)
# ScriptAlias /cgi-bin/ "/usr/local/apache2/cgi-bin/"
# ScriptAlias /cgi/ "/usr/local/www/"
ScriptAlias / "/usr/local/www/"
#<Directory "/usr/local/apache2/cgi-bin">
<Directory "/usr/local/www">
榪欐牱灝卞彲浠ュ皢緗戦〉鏂囦歡瀛樻斁鍦?usr/local/www鐩綍
璁塊棶鐨勬椂鍊欙細(xì)http://localhost/cgitest.pl 鍗沖彲銆?nbsp;
1 #!/usr/bin/perl
2 print ("Hello, world!\n");
鍗蟲(chóng)墦鍗癏ello World錛?br />
2銆佸彉閲忓畾涔夛細(xì)2 print ("Hello, world!\n");
1 #!/usr/bin/perl -w
2 print "What is your name? ";
3 $name = <STDIN>; #瀹氫箟涓涓彉閲忛噰鐢ㄧ鍙?
4 chomp ($name); #鍒犻櫎鏈瓧絎︿覆鏈鍚庣殑"\n"錛屽嵆鍥炶濺絎?/span>
5 print "Hello, $name!\n";
3銆佸湪perl涓紝鍙尯鍒嗗瓧絎︿覆鍜屾暟瀛楄繖涓ょ鏁版嵁綾誨瀷錛岃屼笖涓よ呬箣闂磋繕鍙互浜掓崲銆傚瓧絎︿覆鍒嗗崟寮曞彿瀛楃涓插拰2 print "What is your name? ";
3 $name = <STDIN>; #瀹氫箟涓涓彉閲忛噰鐢ㄧ鍙?
4 chomp ($name); #鍒犻櫎鏈瓧絎︿覆鏈鍚庣殑"\n"錛屽嵆鍥炶濺絎?/span>
5 print "Hello, $name!\n";
鍙屽紩鍙峰瓧絎︿覆錛屾暟瀛楀垎鏁村瀷鍜屾誕鐐瑰瀷銆?br /> 4銆乻tring repetition operator錛?br /> "fred" x 3 # is "fredfredfred"
5銆?." operator
"hello" . "world" # same as "helloworld"
6銆乧hop and chomp Functions
1 $x = "hello world";
2 chop($x); # $x is now "hello worl"
3
4 $a = "hello world\n";
5 chomp ($a); # $a is now "hello world"
6 chomp ($a); # aha! no change in $a
7銆乿ariable interpolation錛?br />
2 chop($x); # $x is now "hello worl"
3
4 $a = "hello world\n";
5 chomp ($a); # $a is now "hello world"
6 chomp ($a); # aha! no change in $a
1 $a = "fred";
2 $b = "some text $a"; # $b is now "some text fred"
3
4 $fred = 'hi';
5 $barney = "a test of " . '$fred'; # literally: 'a test of $fred'
6 $barney2= "a test of \$fred"; # same thing
8銆乴ist literal2 $b = "some text $a"; # $b is now "some text fred"
3
4 $fred = 'hi';
5 $barney = "a test of " . '$fred'; # literally: 'a test of $fred'
6 $barney2= "a test of \$fred"; # same thing
1,2,3) # array of three values 1, 2, and 3
("fred",4.5) # two values, "fred" and 4.5
9銆乴ist constructor operator
(1 .. 5) # same as (1, 2, 3, 4, 5)
(1.2 .. 5.2) # same as (1.2, 2.2, 3.2, 4.2, 5.2)
(1.3 .. 6.1) # same as (1.3,2.3,3.3,4.3,5.3)
10銆?quote word" function
@a = ("fred","barney","betty","wilma"); # ugh!
@a = qw(fred barney betty wilma); # better!
11銆丄rray Element Access
@fred = (7,8,9);
$b = $fred[0]; # give 7 to $b (first element of @fred)
$fred[0] = 5; # now @fred = (5,8,9)
@fred[0,1]; # same as ($fred[0],$fred[1])
12銆乸ush and pop Functions
@mylist = (1,2,3);
push(@mylist,4,5,6); # @mylist = (1,2,3,4,5,6)
pop(@mylist); # @mylist = (1,2,3,4,5);
13銆乻hift and unshift Functions
@fred = (5,6,7);
unshift(@fred,2,3,4); # @fred is now (2,3,4,5,6,7)
$x = shift(@fred); # $x gets 2, @fred is now (3,4,5,6,7)
14銆乺everse Function
@a = (7,8,9);
@b = reverse(@a); # gives @b the value of (9,8,7)
@b = reverse(7,8,9); # same thing
14.1 <STDIN> as an Array:
@a = <STDIN>; # read standard input in a list context
15銆乀he if/unless Statement錛寀nless鍏跺疄灝辨槸if not
1 print "how old are you? ";
2 $a = <STDIN>;
3 chomp($a);
4 unless ($a < 18) {
5 print "Old enough! Cool! So go vote!\n";
6 $voter++;
7 }
16銆乼rue or false錛?br />
In Perl, the rules are slightly weird, but they give you the expected2 $a = <STDIN>;
3 chomp($a);
4 unless ($a < 18) {
5 print "Old enough! Cool! So go vote!\n";
6 $voter++;
7 }
results. The control expression is evaluated for a string value in scalar
context (if it's already a string, no change, but if it's a number, it is converted
to a string).If this string is either the empty string (with a length of zero), or a
string consisting of the single character "0" (the digit zero), then the value of
the expression is false. Anything else is true automatically.Some examples below錛?br />
0 # converts to "0", so false
1-1 # computes to 0, then converts to "0", so false
1 # converts to "1", so true
"" # empty string, so false
"1" # not "" or "0", so true
"00" # not "" or "0", so true (this is weird, watch out)
"0.000" # also true for the same reason and warning
undef # evaluates to "", so false
17銆乪lsif錛坣ot elseif or elif錛?br />
1 if (some_expression_one) {
2 one_true_statement_1;
3 } elsif (some_expression_two) {
4 two_true_statement_1;
5 } else {
6 all_false_statement_1;
7 }
18銆亀hile/until Statement2 one_true_statement_1;
3 } elsif (some_expression_two) {
4 two_true_statement_1;
5 } else {
6 all_false_statement_1;
7 }
1 $stops = 0;
2 do {
3 $stops++;
4 print "Next stop? ";
5 chomp($location = <STDIN>);
6 } until $stops > 5 || $location eq 'home';
19銆乫or Statement2 do {
3 $stops++;
4 print "Next stop? ";
5 chomp($location = <STDIN>);
6 } until $stops > 5 || $location eq 'home';
for ( initial_exp; test_exp; re-init_exp ) {
statement_1;
}
20銆乫oreach Statement
@a = (1,2,3,4,5);
foreach $b (reverse @a) {
print $b;
}
or
foreach (reverse @a) {
print; # $_ variable is used as a default for many of Perl's operations
}
21銆丠ash
%smooth = ("aaa","bbb","234.5",456.7);
22銆乲eys Function
$fred{"aaa"} = "bbb";
$fred{234.5} = 456.7;
@list = keys(%fred); # @list gets ("aaa",234.5) or (234.5,"aaa")
23銆乿alues function
%lastname = (); # force %lastname empty
$lastname{"fred"} = "flintstone";
$lastname{"barney"} = "rubble";
@lastnames = values(%lastname); # grab the values
24銆乪ach Function
while (($first,$last) = each(%lastname)) {
print "The last name of $first is $last\n";
}
25銆乨elete Function
%fred = ("aaa","bbb",234.5,34.56); # give %fred two elements
delete $fred{"aaa"}; //# %fred is now just one key-value pair
26銆丠ash Slices
@score{"fred","barney","dino"} = (205,195,30);
Hash slices can also be used to merge a smaller hash into a larger one. In this example,
the smaller hash takes precedence in the sense that if there are duplicate keys,
the value from the smaller hash is used:
%league{keys %score} = values %score;
Here, the values of %score are merged into the %league hash. This is equivalent to
the much slower operation:
%league = (%league, %score); # merge %score into %league
27銆両nput from STDIN
$a = <STDIN>; # read the next line
@a = <STDIN>;
Typically, one thing you want to do is read all lines one at a time and do something
with each line. One common way to do this is:
while (defined($line = <STDIN>)) {
# process $line here
}
28銆丏iamond Operator
If you don't specify any filenames on the command line, the diamond operator reads
from standard input automatically.
#!/usr/bin/perl
while (<>) {
print $_;
}
or
@ARGV = ("aaa","bbb","ccc");
while (<>) { # process files aaa, bbb, and ccc
print "this line is: $_"; //print every line in these files aaa,bbb and ccc
}
29銆乸rintf for Formatted Output
printf "%15s %5d %10.2f\n", $s, $n, $r;
30銆乮f (($words{$somename} || "groucho") eq $someguess) {
return 1; # return value is true
娉ㄦ剰涓婇潰鐨剕|涓嶆槸鎴栬繍綆楃錛岃屾槸璇村鏋滃乏杈圭殑鍊間負(fù)絀虹殑璇濓紝閭ｄ箞灝辨槸鐢ㄥ彸杈圭殑鍊箋?br />
]]>