perl 正则匹配多个
Vsftp:/root# cat k1.pl
my $_='upDaTe';
if( $_ =~ /^(SELECT|UPDATE|DELETE|INSERT|SET|COMMIT|ROLLBACK|CREATE|DROP|ALTER|CALL)/i){print "1111111111111
";};
Vsftp:/root# perl k1.pl
1111111111111
Vsftp:/root# cat k1.pl
my $_='upDaTe';
if( $_ =~ /^(SELECT|UPDATE|DELETE|INSERT|SET|COMMIT|ROLLBACK|CREATE|DROP|ALTER|CALL)/i){print "1111111111111
";};
Vsftp:/root# perl k1.pl
1111111111111