perl 匹配的一个例子

#!/usr/bin/perl -w
use strict;
my $dir="D:perl_scriptanroidmanifest.txt";
open (F1,"$dir")||die "Cannot open $dir:$!";

while (<F1>) {
if (/<activity/../</action>/) {

if (/MAIN/) {
last;
}
 
if (/</activity>/../<receiver/) {
next;
}
if (/</action>/../<action/) {
if (/android:name="(.+)"/) {
print "$1";
last;
}
}
}
}