#perl 重要练习

数组，列表练习--小游戏的例子

 

 

 

文件练习 

 

 

 

模式匹配练习-- 一道包括数组、文件和模式匹配的综合练习题：

   编写一个短程序，是他能够执行下列操作：

   1）打开一个文件

   2）将所有文件行读入一个数组

   3）从每行中取出所有单词

   4）找出至少拥有4个连续辅音或非原因字符的所有单词（比如"thoughts" 或者"yardstick")

   open(MFILE,"file.txt");

   @lines=<MFILE>;

   close(MFILE);

   foreach (@lines){

       if(m/[^aeiou]{4,}/i){

            print $_;

        }

   }

 

 

 

 

哈希结构练习

 

 

 

函数练习 

 

 

 

亿阳经典脚本： 见附件

 

 

 

-------------------------------------------------------------------------------------------------

perl常用函数:

          chop

          chomp

          split(/pattern/,$text,limit)

          join($string,@array)

          index($string,$substring,position)

          substr($string,offset,length)

          grep(/pattern/,@array)

          push

          sort(@array)

          length($string)

 

-------------------

join函数：

     @array=("one","two","three");

　　$total=join("：",@array); 这时$total="one：two：three";

 

 

-------------------

匹配运算符：m// 

@F=$phrase=~m/\w/g;
for($i=0;$i<@F;$i++){
   print $F[$i].".";
}

 

 

-------------------

grep函数

　　语法：grep(/pattern/,@array)

　　说明：将合文字处理模式(regular expression)的数组元素找出来。

　　示例：

　　@array=("one","on","in");

　　$count=grep(/on/,@array); #这时$count=2

　　@result=grep(/on/,@array);#这时@result=("one","on");

 

 

eg.1  @array=qw(grephound bloodhound terrier mutt chihuahua);

         @result=grep(s/hound/hounds/,@array);

         foreach $tmp (@result){

            print $tmp." ";

         }

       

         @result=grep(length($_)>5,@array);

         foreach $tmp (@result){

            print $tmp." ";

         }

       

-------------------

指令：push

　　语法：push(@array,$string)

　　说明：在数组@array的最后附加新的元素 ($string)到数组@array中。

　　示例：@array=("one","two"); push(@array,"three"); #这时$@array=("one","two","three")

 

 

 

-------------------

hash相关：

　　指令：keys

　　语法：keys(%array)

　　说明：取出关联数组%ARRAY中全部的key。

　　示例：%NAME=(1,"mike",2,"michael"); @readkey=keys(%NAMES); #这时@readkey=(1,2);

　　--------------------------------------------------------------------------------

　　指令：values

　　语法：values(%array)

　　说明：取出关联数组%ARRAY中全部的value。

　　示例：%NAMES=(1,"mike",2,"michael"); @readval=values(%NAMES);

               #这时@readval=("mike","michael");

 

 

参考：http://www.freeoa.net/index.php/programs/21-perlpp/330-perl