#!/usr/bin/perl
print '\u=zi mu da xie';
print "\n";
print '\l=zi mu xiao xie';
print "\n";
print "www " x 3;
print "\n";
print "dd " x 2.5;
print "\n";
print "qq " x 0.3;
print "\n";
$v = "vea";
print "$v";
print "\n";
###my $num1;
#$num1 = $num1 + 1;
#$num1 += 1;
#say $num1;
=pod ####
$arr[0]=77;
$arr[1]=88;
$arr[2]=99;
print "\n";
=cut ###
$arr[0]=7;
$arr[1]=8;
$arr[2]=9;
$len=$#arr +1 ;
print "$arr[0]";
print "\n";
print "$len";
print "\n";
($arr[0],$arr[1],$arr[2])=(10,11,12,13,15);
print "$arr[1] \n";
print "$arr[2] \n";
####(8,9,12,13,15)=($arr[2],$arr[1],12,13,15) ;
print "@arr \n";
@copy=@arr;
print "@copy \n";
@arr= qw(16 17 18 19 20);
@copy = 100..120;
print "@arr \n";
print "@copy \n";
pop @arr;
print "@arr \n";
pop @arr;
print "@arr \n";
pop @arr;
print "@arr \n";
pop @arr, 16 ;
print "@arr \n";
push @arr, 88;
print "@arr \n";
push @arr, 99;
print "@arr \n";
push @arr, 98;
print "@arr \n";
push @arr, 97;
print "@arr \n";
shift @arr;
print "@arr \n";
unshift @arr,22 ;
print "@arr \n";
###################################
@remove = splice @arr ,3,1;
print "@arr \n";
@remove2 = splice @arr ,2,1,88..93;
print "@arr \n";
@nei=25..30;
print "@nei \n";
@nei2 = 'wwwww@neiwwwwwww';
print "@nei2 \n";
##########################
@re=reverse @nei;
print "@re \n";
@re2 = reverse (1,2,3,4,5);
print "@re2 \n";
###########
@zimu = qw[d u i x k n j s];
@zimu2 = sort @zimu;
@zimu3 = sort qw[7 2 3 21];
print "@zimu2 \n";
print "@zimu3 \n";
@fruits = reverse sort qw <banana orange watermelon apple>;
print "@fruits \n";
=pod
while ($index,$value)== each @zimu3 {
print "current element = $index:$value";
}
=cut
$value = 0;
while ($value <= 10 ){
$value = $value +1.5 ;
print "$value \n";
}
foreach $num (55..65) {
$num2=$num +0.1;
print "$num \n";
print "$num2 \n";
}
sub win {
return "yes" ;
}
$w = win(55);
print "$w \n";
相应的输出结果
\u=zi mu da xie
\l=zi mu xiao xie
www www www
dd dd
vea
7
3
11
12
10 11 12
10 11 12
16 17 18 19 20
100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
16 17 18 19
16 17 18
16 17
16
16 88
16 88 99
16 88 99 98
16 88 99 98 97
88 99 98 97
22 88 99 98 97
22 88 99 97
22 88 88 89 90 91 92 93 97
25 26 27 28 29 30
wwwww@neiwwwwwww
30 29 28 27 26 25
5 4 3 2 1
d i j k n s u x
2 21 3 7
watermelon orange banana apple
1.5
3
4.5
6
7.5
9
10.5
55
55.1
56
56.1
57
57.1
58
58.1
59
59.1
60
60.1
61
61.1
62
62.1
63
63.1
64
64.1
65
65.1
yes