perl 循环截取字符串

最新推荐文章于 2021-11-12 14:48:52 发布

scan724

最新推荐文章于 2021-11-12 14:48:52 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 正则

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/53787769

Perl 正则专栏收录该内容

20 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl脚本进行字符串处理，特别是对于包含数据库查询语句的字符串。通过正则表达式匹配，脚本截取并打印出字符串中的单词块，并在后续循环中进行组合和格式化，将点号后的空格替换为点号，最后对处理后的字符串进行拆分并逐一展示每个部分。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[oracle@oadb test]$ cat t1.pl 
my $sql="where `lc`.`tb`.`xx` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id4` >22";
 print "\$sql is $sql\n";
 foreach  ($sql =~ /(`\w+`\s*\.*\s*)/g){
    print "\$_ is $_\n";
    push (@str,$_);
    };
   $sql="";
   foreach (@str){
     $sql=$sql.$_;
    };
   $sql =~ s/\s+\.\s+/\./g;
   my @arr=split (/\s+/,$sql);
   foreach (@arr){
    print "\$_ is $_\n";
   };
[oracle@oadb test]$ perl t1.pl 
$sql is where `lc`.`tb`.`xx` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id4` >22
$_ is `lc`.
$_ is `tb`.
$_ is `xx` 
$_ is `tb2` . 
$_ is `id2` 
$_ is `id3` 
$_ is `id4` 
$_ is `lc`.`tb`.`xx`
$_ is `tb2`.`id2`
$_ is `id3`
$_ is `id4`

Vsftp:/root# perl a9.pl 
$

了解本专栏