Perl初试

#!/usr/bin/perl

#第1、2学时 入门、数字和字符串

#ex01
#print qq(Hello,world!) #qq() 取代了双引号
#print q/Hello,world!/ #取代双引号

#ex02
#$_="$_ stand for default value";
#print;#print the value of $_

#ex03
#$radius = 50;
#$area = 3.14*($radius ** 2);# ** stand for ^2
#print $area;

#ex04-并置运算符
#$str1="I am ";
#$str2="lu";
#$_=$str1.$str2;#equal with $_="I am $str2";
#print;

#ex05
#$str="-" x 100;#here is x,not X
#print $str;

#ex06
#$a=length("length");#length is 6
#$b=lc("BIG TO SMALL");#输出小写
#$c=uc("small to big");#输出大写
#$d=rand(10);#获得0到10之间的随机数 有小数
#print $d;

#ex07加减(只有数字容易理解，字母加数字如下)
#$a="c9";
#$a++;#$a = d0;
#$b="zzz";
#$b++;#result:aaaa
#print $b;

#ex08 <>运算符（读写文件）
#print "what is you name?/n";
#$name = <STDIN>;#scanf
#chomp $name;#输入时回车结束，这样chomp可以去除回车符
#print "your name is $name";

#ex09 亦字符兮亦数字
#$a=10;
#$b="20";
#$c=$a+$b;#result is 30，当做数字处理
#print $a.$b;#result 1020,当做字符串处理
#$str = "abc";
#print $str+10;#result is 10;#$str++;
#print $str;

#第三学时 控制程序流 for while exit(no switch)
#Attention:数字0 字符串"0" 未定义值为假 其余为真
#$r=<STDIN>;chomp $r;
#if($r eq 10)#$r==10# eq(==) gt(>) lt(<) ge(>=) le(<=) ne(!=)
#{
 # print '$r is 10';
#}
#else
#{
 #print "some other";
#}

$a=0;
#while($a<10)
#{
  #last if ($a==5);#last break;
#  $a++;
#  print "$a/n";
#}

 

#第三学时 列表与数组
#@array =qw(A B C);#@array=('A','B','C');
#$array[3]='D';
#$array[4]='$';#just $ and A
#print @array;#result: ABCD$A
#$size=@array;#数组长度 5
#print $size;
#print $array[-1];#倒数第一个
#print $array[-2];#倒数第二个
#print $#array;#最后一个索引号 4
#双点 1..10,1到10
#@array=("*")x100;print @array;

#print scalar(localtime);#Thu Jun 16 22:35:26
#print localtime;#201126352216511141660

#遍历数组
#for 循环

#foreach
#@array=qw(A B C D E);
#foreach $item (@array) {print $item};

#标量与数组的转化 split
#@words=split(/ /,"sun mon tue wen thu");print @words;

#$myname="luyanya";
#print "my name is $myname :",join('-',split(//,$myname));#out: my name is luyanya :l-u-y-a-n-y-a

#print "1212121","4545454";#逗号也可以连接字符串.

#数组排序 sort函数
#@number=qw(3 4 2 1 7 5);
#@sorted=sort{$a<=>$b} @number;print @sorted;#飞船运算符

#比较字符串 cmp
#reverse 字符串倒序排列

#第5学时 进行文件操作
use File::Copy ;
use strict ;
copy("c:/book/三国演义.txt","c:/book/aa")||warn "could not copy files :$!" ;
#将c:/book/三国演义.txt复制到c:/book/aa下