perl正则典型应用
发布时间:2020-12-15 21:11:05 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!/usr/bin/perluse strict;use warnings;my $sql="select name,age from user where id=1";#匹配print '$sql是一个查询语句!'."n" if $sql =~ m/^s
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!/usr/bin/perl use strict; use warnings; my $sql="select name,age from user where id=1"; #匹配 print '$sql是一个查询语句!'."n" if $sql =~ m/^selects+([w|,|*]+)s+froms+(w+)/gi; #不匹配 print '$sql不是xml文本!'."n" if $sql !~ m/<s*(w+)s*>/gi; #替换 print "替换结果:$sqln" if $sql =~ s/user/USER/; #转化 print "转化结果:$sqln" if $sql =~ tr/a-z/A-Z/; #提取 print "表名:$2,查询列:$1n" if $sql =~ m/^selects+([w|,|*]+)s+froms+(w+)/gi; #拆分 map {print "$_n"} split(/s/,$sql); 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |