Perl: 基本语法参考、配置文件、模板、正则表达式

1 基本语法参考

http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm

 

2 配置文件

http://www.itqun.net/content-detail/93521.html
http://www.9php.com/FAQ/cxsjl/perl/2009/07/4285989147407.html
http://blog.chinaunix.net/u/29291/showart_344126.html

【test.pl】

  
    

   
     
   
     use
   
      Config
   
     ::
   
     IniFiles;

   
     my
   
      
   
     $cfg
   
      
   
     =
   
      new Config
   
     ::
   
     IniFiles( 
   
     -
   
     file 
   
     =>
   
      
   
     "
   
     test.ini
   
     "
   
     ,
   
      
   
     #
   
     配置文件名
   
     

   
      
   
     -
   
     allowcontinue 
   
     =>
   
      
   
     1
   
     ,
   
      
   
     #
   
     是否运行一个参数值写在多行
   
     

   
      
   
     -
   
     reloadwarn 
   
     =>
   
      
   
     1
   
     ,
   
      
 
   
     -
   
     nocase 
   
     =>
   
      
   
     1
   
      ); 
   
     #
   
     大小写不敏感
   
     

   
      

   
     @sect
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     Sections;

   
     print
   
      
   
     "
   
     @sect\n
   
     "
   
     ;


   
     $a1
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     val(
   
     "
   
     section1
   
     "
   
     ,
   
      
   
     "
   
     a
   
     "
   
     );

   
     $b1
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     val(
   
     "
   
     section1
   
     "
   
     ,
   
      
   
     "
   
     b
   
     "
   
     );

   
     print
   
      
   
     "
   
     $a1 $b1\n\n
   
     "
   
     ;


   
     $a2
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     val(
   
     "
   
     section2
   
     "
   
     ,
   
      
   
     "
   
     a
   
     "
   
     );

   
     $b2
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     val(
   
     "
   
     section2
   
     "
   
     ,
   
      
   
     "
   
     b
   
     "
   
     );

   
     @b3
   
      
   
     =
   
      
   
     $cfg
   
     ->
   
     val(
   
     "
   
     section2
   
     "
   
     ,
   
      
   
     "
   
     b
   
     "
   
     );

   
     print
   
      
   
     "
   
     a2:$a2\n\nb2:$b2\n\nb3:@b3\n\n
   
     "
   
     ;

  
    

【test.ini】

  
    

   
     
   
     [
   
     section1
   
     ]
   
     
a
   
     =
   
     1
   
     
b
   
     =
   
     2
   
     


   
     [
   
     section2
   
     ]
   
     
a
   
     =
   
     hello\
world
b
   
     =
   
     <<EOT
hello
world
EOT

  
    

【输出】

  
    

   
     
   
     section1 section2

   
     1
   
      
   
     2
   
     

a2:helloworld

b2:hello
world

b3:hello world

  
    

 

 

3 模板

http://www.lupaworld.com/tutorial-view-aid-8885.html

【test.pl】

  
    

   
     
   
     print
   
      
   
     &
   
     Template(
   
     "
   
     test.template
   
     "
   
     );


   
     sub
   
      Template {
 
   
     local
   
     (
   
     *
   
     FILE);
   
     #
   
      filehandle
   
     

   
      
   
     local
   
     (
   
     $file
   
     );
   
     #
   
      file path
   
     

   
      
   
     local
   
     (
   
     $HTML
   
     );
   
     #
   
      HTML data
   
     

   
      
 
   
     $file
   
      
   
     =
   
      
   
     $_
   
     [
   
     0
   
     ] 
   
     ||
   
      
   
     die
   
      
   
     "
   
     Template : No template file specified\n
   
     "
   
     ;
 
 
   
     open
   
     (FILE
   
     ,
   
      
   
     "
   
     <$file
   
     "
   
     ) 
   
     ||
   
      
   
     die
   
      
   
     "
   
     Template : Couldn't open $file : $!\n
   
     "
   
     ;
 
   
     while
   
      (
   
     <
   
     FILE
   
     >
   
     ) { 
   
     $HTML
   
      
   
     .=
   
      
   
     $_
   
     ; }
 
   
     close
   
     (FILE);
 
 
   
     @contents
   
      
   
     =
   
      qw(小张 小明);
 
 
   
     $HTML
   
      
   
     =~
   
      s
   
     /\
   
     $(
   
     \
   
     w
   
     +
   
     )
   
     \
   
     $
   
     /
   
     $contents
   
     [$
   
     1
   
     -
   
     1
   
     ]
   
     /
   
     g;
 
 
   
     return
   
      
   
     $HTML
   
     ;
}
  
    

【test.template】

  
    

   
     
   
     $1$你好
   
     ，我是
   
     $2
   
     $
  
    

【输出】

  
    

   
     
   
     小张你好，我是小明
  
    

 

4 正则表达式

http://www.chinaunix.net/jh/25/159388.html

9.1 正则表达式的三种形式

首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：

 匹配：m/<regexp>;/ （还可以简写为 /<regexp>;/ ，略去 m）

 替换：s/<pattern>;/<replacement>;/

 转化：tr/<pattern>;/<replacemnt>;/

这篇文章也讲解了正则表达式的语法。