Verne in Blogger

匹配操作符 =~与 !~

if ($question =~ /please/) {
    print ("Thank you for being polite!\n");
}
else {
    print ("That was not very polite!\n");
}

模式中的特殊字符

if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/) {
  print ("$varname is a legal scalar variable\n");
} elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/) {
  print ("$varname is a legal array variable\n");
} elsif ($varname =~ /^[A-Za-z][_0-9a-zA-Z]*$/) {
  print ("$varname is a legal file variable\n");
} else {
  print ("I don't understand what $varname is.\n");
}

if ($number =~ /^-?\d+$|^-?0[xX][\da-fa-F]+$/) {
  print ("$number is a legal integer.\n");
} else {
  print ("$number is not a legal integer.\n");
}

字符串连接需要用"." 不能用+

while(1){
 print ("please input num:(\"q\" to exit):");
 $Inp = ;
 chomp($Inp);
 if($Inp eq "q"){
  last;
 }
 for($i = 1; $i <= $Inp ; $i++){
  for($j = 0; $j< $Inp-$i ; $j++ ){
   print(" ");
  }
  for($j = 0; $j< 2*$i-1 ; $j++){
   print("*");
  }
  print("\n");
 }
}

$i = 0;
while($i<100){
   print ("$Num1-$Num2 = \t");
   $i++;
  }
 }elsif($op > 2.5 and $op<=5){
  if($Num1+$Num2<=100){
   print ("$Num1+$Num2 = \t");
   $i++;
  }
 }elsif($op >5 and $op <=7.5){
  if( $Num1*$Num2 >=100){
   print ("$Num1*$Num2 = \t");
   $i++;
  }
 }elsif($op >7.5 and $op <=10){
  if($Num2 != 0 and int($Num1/$Num2)==$Num1/$Num2){
   print ("$Num1/$Num2 = \t");
   $i++;
  }
 }
}

open(Input , "dict.txt");
while($Line = ){
 chomp($Line);
 ($K,$V) = split("=>",$Line);
 $hash{$K} = $V;
}
close(Input);

while(1){
 print "Input the word u want to search:(\"q\" to exit)\n";
 $Line = ;
 chomp($Line);
 if($Line eq "q"){
  last;
 }
 if( defined $hash{$Line}){
  print "$hash{$Line}\n";
 }else{
  print "没有找到\n";
 }
}

open(Input , "mytext");
while($Line = ){
 chomp($Line);
 foreach $Item( split(" ",$Line) ){
  $hash{$Item}++;
 }
}
close(Input);

foreach $K(sort keys %hash){
 print "$K $hash{$K} \n";
}

open(Input , "eng1.txt");
while($Line = ){
 chomp($Line);
 foreach $Item(split(" ",$Line)){
  $hash1{$Item}++;
 }
}
close(Input);

open(Input , "eng2.txt");
while($Line = ){
 chomp($Line);
 foreach $Item(split(" ",$Line)){
  if( defined $hash1{$Item}){
   $hash2{$Item}++;
  }
 } 
}
close(Input);

foreach $K(sort keys %hash2){
 if(defined $hash1{$K}){
  print "$K $hash1{$K} $hash2{$K}\n";
 }
}

Perl文件操作

打开一个文件操作

• 只读
• open (FileVar, “<File.txt”);
• 写
• open (FileVar, “>File.txt”);
• 添加
• open (FileVar, “>>File.txt”);

OpenText("dict.txt");
while(1){
 print"input a word(press \'q\' to exit):";
 $Line=;#读取输入字符串
 chomp($Line);
 if($Line eq "q")
 { 
  last; #退出循环
  }
 else{
  search($Line);
 }
}
sub OpenText{
 my ($file)=@_;
 open(In,"$file");
 my $Line;
 while($Line=){
  chomp($Line);
  my @item=split("=>",$Line);
  if(@item==2){
   $hash{$item[0]}=$item[1];
  }
 }
close(In);
}

sub search{
 my($Line)=@_;
 if ( defined $hash{$Line} )
 {  
  print "$hash{$Line}\n";
 }

}

数组

数组变量

• 以 @ 开头
• 数组的的元素可以是数值、字符串或两者的混合

数组的赋值

哈希

简单变量类型

简单变量的操作符

控制结构

结构块

if语句

除非语句块

循环语句（LOOP）

1. 解释型语言,需要解析器和虚拟机
2. 动态数据,不需要数据类型的声明
3. 不需要编译
4. 调用库往往是源码

1. 功能强大
2. 容易学习
3. 容易使用
4. 开放源代码
5. 跨平台

open(F, $filename);
 $m = join(“”, );
 @m = split(/\s+/, $m);

F = open(filename, ‘r’)
n = F.read().split()

open(File,"");
while($Line=){
 chomp($Line);
 ($Word,$Trans)=split("=>",$Line);
 $hashDict{$Word}=$Trans; 
}
close(File);
print "Pls Input word:\n";
$ForSearch=);
if ( defined $hashDict{$ForSearch} ){
  print "$hashDict{$ForSearch}\n";
}else{
  print "$ForSearch is not in the dict!\n";
}

1. Larry Wall于1987年，为文本处理编写。
2. 结合了C，sh， awk和sed的有点。
3. 开放源代码，免费下载安装程序。
4. 解释性的脚本语言
5. Perl不是GUI程序。

1. 出色卓越的处理文本能力。
2. 特别适合于CGI编程
3. 跨平台的编程语言，window，linux…
4. 自主内存管理，没有内存泄漏问题。
5. 强大便捷的模块化功能。