#!
$radius =50;
$area = 3.14*($radius**2);
print $area ,"\n";
##############################################
if ('leon' =~ /\bleon\b/) {
print ("I am leon!\n");
}
else {
print ("who am i?\n");
}
##############################################
$a = 'hello world ';
$b = "fuck u";
print $a+$b, "\n";
print $a.$b, "\n";
##############################################
$name = "leon";
$astring = 'my name is $name';
$bstring = "my name is $name";
$cstring = "my name is \$name";
print $astring, "\n";
print $bstring, "\n";
print $cstring, "\n";
##############################################
$mstring = "fuck " x 10;
print $mstring,"\n";
print $Ustring = uc(leon), "\n";
print lc($Ustring), "\n";
print rand(), "\n";
$instring = "zzz";
$instring++;
print $instring, "\n";
$instring--; #what???
print $instring, "\n";
perl基础-2 (Perl编程24学时教程)
最新推荐文章于 2024-06-14 00:46:10 发布