perl正则典型应用

大佬教程收集整理的这篇文章主要介绍了perl正则典型应用，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/usr/bin/perl
use Strict;
use warnings;

my $sql="SELEct name,age from user where id=1";

#匹配
print '$sql是一个查询语句！'."\n" if $sql =~ m/^SELEct\s+([\w|,|\*]+)\s+from\s+(\w+)/gi;

#不匹配
print '$sql不是xml文本!'."\n" if $sql !~ m/<\s*(\w+)\s*>/gi;

#替换
print "替换结果：$sql\n" if $sql =~ s/user/USER/;

#转化
print "转化结果：$sql\n" if $sql =~ tr/a-z/A-Z/;

#提取
print "表名：$2,查询列：$1\n" if $sql =~ m/^SELEct\s+([\w|,|\*]+)\s+from\s+(\w+)/gi;

#拆分
map {print "$_\n"} split(/\s/,$sql);

大佬总结

以上是大佬教程为你收集整理的perl正则典型应用全部内容，希望文章能够帮你解决perl正则典型应用所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。