perl学习

jordanfang

#!/usr/bin/perl -w
use warnings;
use diagnostics;
print "\nhello\tworld!\n";
my $a="jordan";
my $b="fang";
my $c=$a.$b;
print "\n$a\n";
print "$b\n";
print "$c";
#############################################################
print "$a";
my $d="michael"x3;
print "\n$d";
#############################################################
my $e="$d"x6;
print "\n$e";
my $f=8+9;
print "\n$f";
my $g=$f**2;
print "\n$g";
print "jordan";
##################if语句##########################################
my $num=8;
if ($num >= 8){
        print "\nnum is eq 8\n"
}else{
        print "\nnum is le 8\n"
}
##################标准输入,相当于shell的read line##########################################
print "enter:";
my $line = ;
if($line eq "\n"){
print "That was just a blank line!\n";
}else{
print "That line of input was: $line";
}
#################chomp的用法,去掉回车##########################################
my $have_enter="jordanfang\n\n\n";
print "$have_enter";
chomp $have_enter;
chomp $have_enter;
chomp $have_enter;
print "$have_enter";
################打出小于十的所有偶数############################################
my $count=0;
while ($count<10){
        $count+=2;
        print "\n$count";
}
##############小于十的基数相加:############################################
my $y=1;
while($y<10){
        $sum+=$y;
        $y+=2;
}
print "\nsum eg $sum";
####################字符串相加###############################################
my $w=1;
while($w<10){
        $string.="${w}jordan";
        $w+=1;
}
print "\nstrint is $string";
               
               
               

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/40462/showart_1134451.html