Vsftp:/root# cat k1.pl
my $_='upDaTe';
if( $_ =~ /^(SELECT|UPDATE|DELETE|INSERT|SET|COMMIT|ROLLBACK|CREATE|DROP|ALTER|CALL)/i){print "1111111111111\n";};
Vsftp:/root# perl k1.pl
1111111111111
perl 正则匹配多个
最新推荐文章于 2024-06-14 00:46:10 发布
Vsftp:/root# cat k1.pl
my $_='upDaTe';
if( $_ =~ /^(SELECT|UPDATE|DELETE|INSERT|SET|COMMIT|ROLLBACK|CREATE|DROP|ALTER|CALL)/i){print "1111111111111\n";};
Vsftp:/root# perl k1.pl
1111111111111