之前学习 perl 语言时一些学习例子（记录）

#!/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