Perl 文件处理范例

男娘i 2021-11-11 00:40 316阅读 0赞

. 任意字符

？0或者1个

\* 任意个

\+ 一个或者以上

$\_ 默认数组

$@ 第一被匹配的字符

$\` 被匹配字符之前的字符

$' 被匹配字符之后的字符

$1 第一个被匹配的字符，以左括号的顺序算。

<>砖石输入符

=~ 匹配判断符号

\\d 数字

\\D 非数字

\\w \[A-Za-z0-9\_\]

\\W 非  \[A-Za-z0-9\_\]

\\s 字符

\\S 非字符

\{n\} 重复n次

open FILE, "file.txt" 打开已经存在的文件

open FILE,">file.txt" 打开file.txt,如果不存在的话就创建file.txt

open FILE,">>file.txt" 打开，并将新内容追加到文本的末端，如果不存在的话，创建file.txt

双引号内的转义符

\\n           换行  
\\r            回车  
\\t            制表符  
\\f             formfeed  
\\b          退格  
\\a         响铃  
\\e          escape（ASCII 中的escape 字符）  
\\007      任何八进制值（这里是，007=bell(响铃)）  
\\x7f       任何十六进制值（这里是，007=bell）  
\\cC          一个控制符（这里是，ctrl +c）  
\\\\           反斜线  
\\”        双引号  
\\l          下个字符小写  
\\L        接着的字符均小写直到\\E  
\\u        下个字符大写  
\\U          接着的字符均大写直到\\E  
\\Q        在non-word 字符前加上\\，直到\\E  
\\E         结束\\L,\\U 和\\Q

example1

从一个mail.list中识别 @eric.com的usr name,排序后输出到result.list中。

mail.list:

[f@brand.com][f_brand.com]  
[d@eric.com][d_eric.com]  
[g@syv.com][g_syv.com]  
[a@eric.com][a_eric.com]  
[h@mail.com][h_mail.com]  
[c@eric.com][c_eric.com]  
[x@joey.com][x_joey.com]  
[b@eric.com][b_eric.com]

perl script:

![ContractedBlock.gif][] ![ExpandedBlockStart.gif][] 代码

\# ! /usr/bin/perl   \#perl directory declaration   
   
 open  MAIL , **"** **mail.list** **"** ;                \# open and read mail.list context   
 open  RESULT , **"** **>result.list** **"** ;        \# create a new file named" result.list", using filehandle "RESULT" to transfer information   
   
 $n   = 0 ;                                    \# define a varibale   
   
  
 foreach  ( < MAIL > )\{                   \# processing each line from context <MAIL>   
 if ( / ( \\ @eric \\. com) / )                    \#  judge if pattern"@eric.com" matched, and store it in "$&"     
     \{    $array \[ $n \] =   **"** **$\`\\n** **"** ;         \#  store words before matched("$\`") in @array   
          $n   = $n   \+ 1 ;                     \# index add one   
     \}  
\}  
  
 @sorted   =   sort  ( @array );           \#  sort array by letters   
   
 print  RESULT  @sorted ;               \#  print array in output file   
   
 close  RESULT;                          \#  close file   
 close  MAIL;

result.list

a  
b  
c  
d

example2

将当前目录下所有 .cc结尾的文件 重命名为 .c结尾

\# ! /usr/bin/perl   
   
 @list   = glob ( **'** **./\*.cc** **'** );  
  
 foreach   $list ( @list )\{  
     my   $name   =   $list ;  
     $name   =~  s / cc$ / c / ;  
     rename   $list , $name ;    
    \}

example 3

将文件的中的各个module 实例化，输出到新的文件中。

![ContractedBlock.gif][] ![ExpandedBlockStart.gif][] 代码

\# ! /usr/bin/perl   
   
  
 open  TMP , **"** **>instance.v** **"** ;  
  
 while ( <> )\{  
 if ( /^ module ( .\* ) \\ (( .\* ) \\ );$ / m)\{  
     $module\_name   = $ 1 ;  
     $port\_list   =  $ 2 ;  
      
     @ports   =   split ( /,/, $port\_list );  
     my   $n   = @ports ;  
     my   $i = 0 ;  
  
     print  TMP  **"** **$module\_name U\_$module\_name(\\n** **"** ;  
  
     for ( $i = 0 ;  $i < $n ;  $i   = $i \+ 1 )\{  
         print  TMP  **"** **$ports\[$i\]($ports\[$i\]),\\n** **"** ;  
         if ( $i == $n   \- 1 )\{  
          print  TMP  **"** **);\\n** **"** ;  
        \}  
    \}     
\}        
\}  
  
  
 close  TMP;  
 close  CODE;

windows下perl脚本范例

1  \# ! C:\\strawberry\\perl\\bin\\perl   
  2   system ( **"** **update.bat** **"** ); \#运行脚本  
  3   open  FILE ,   **"** **file.lst** **"** ;  
  4   @lines   =< FILE > ;\#将文本所有内容读入@lines  
  5    
  6   foreach   $lines  ( @lines )\{ \#处理@lines中的每行  
  7       chomp ( $lines );  
  8       open  SOURCE , **"** **$lines** **"** ;  
  9       my   @content =< SOURCE > ;  
 10       open  Result  , **"** **> ./result/$lines** **"** ; \#windows下的路径也是用斜杠，而不是反斜杠  
 11       \# $lines =~ s/txt/png/;  
 12      \#print Result "$lines\\n";   
 13        foreach   $content ( @content )  
 14      \{  
 15           if ( $content   =~   / Image filename / )  
 16          \{      
 17               chomp ( $content );  
 18               @dirname   = split ( / **"** **/,$content);**  
 19  **            print Result ** **"** $dirname \[$ \# dirname\] \\n";       
 20                print   **"** **$dirname\[$\#dirname\] \\n** **"** ;  
 21          \}  
 22    
 23    
 24           if ( $content   =~   / (Objects with ground truth  :  ) / )  
 25          \{  
 26               $re   =  $ **'** **;**  
 27  **            @num =split(/\\s/,$re);**  
 28  **            print Result "$num\[0\] \\n";    **  
 29  **        \}        **  
 30    
 31  **        if($content =~ /(\$Xmin, Ymin\$ - \$Xmax, Ymax\$ :)/)**  
 32  **        \{**  
 33  **            $a=$** **'** ;  
 34               if ( $a   =~   / (\[ 0 \- 9 \] \+ ) \\ D \* (\[ 0 \- 9 \] \+ ) \\ D \* (\[ 0 \- 9 \] \+ ) \\ D \* (\[ 0 \- 9 \] \+ ) / )  
 35              \{  
 36                   print  Result  **"** **$1 $2 $3 $4 \\n** **"** ;  
 37              \}  
 38        
 39          \}  
 40    
 41      \}  
 42           close  SOURCE;  
 43           close  Result;  
 44    
 45  \}  
 46   close  FILE;  
 47    
 48

转载于:https://www.cnblogs.com/zhangzhi/archive/2010/10/19/1855302.html

[f_brand.com]: mailto:f@brand.com
[d_eric.com]: mailto:d@eric.com
[g_syv.com]: mailto:g@syv.com
[a_eric.com]: mailto:a@eric.com
[h_mail.com]: mailto:h@mail.com
[c_eric.com]: mailto:c@eric.com
[x_joey.com]: mailto:x@joey.com
[b_eric.com]: mailto:b@eric.com
[ContractedBlock.gif]: https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif
[ExpandedBlockStart.gif]: /images/20211109/b149cbe0d552499a9dde6fc2bfeebeb3.png