perl 匹配例子

#!/usr/bin/perl -w
use strict;

my $dir="D:\\perl_script\\anroidmanifest\.txt";
open (F1,"$dir")||die "Cannot open $dir:$!";

while () {

if (//) {

if (/MAIN/) {
last;
}

 

if (/<\/activity>/../next;
}

if (/<\/action>/../

if (/android:name="(.+)"/) {
print "$1";
last;
}
}

}

}

阅读(620) | 评论(0) | 转发(0) |

0

上一篇：perl删除目录下过期的文件

下一篇：perl使用xml::simple来读写xml