perl 循环截取字符串

[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 $sql is where `lc`.`tb`.`xx` = 1 and `tb2` . `id2` = 2 or `id3` > 3 and `id4` >22$_ is `lc`.`tb`.`xx`$_ is `tb2`.`id2`$_ is `id3`$_ is `id4`


                                             
        0        0           
	
				
	
					   
perl 循环截取字符串
	  	   
Perl 字符串截取函数substr
	  	   
Perl 字符串截取函数substr
	  	   
循环截取字符串
	  	   
iOS 循环截取字符串
	  	   
substr截取字符串 不用循环？
	  	   
smarty 截取字符串，调用php中的方法，foreach循环
	  	   
SQL 循环截取法分割字符串，默认返回数据表
	  	   
css截取截取字符串
	  	   
perl中操作mysql，字符匹配与替换，字符串截取，计算字符长度
	  	   
字符串截取
	  	   
字符串截取
	  	   
字符串截取
	  	   
截取字符串
	  	   
截取字符串
	  	   
截取字符串
	  	   
字符串截取
	  	   
字符串截取
	     		  
	  	   
Caffe error Cannot copy param 0 weights from layer, shape mismatch
	  	   
算法——质数处理
	  	   
永远要设定Deadline，完成比完美更重要
	  	   
Hadoop与Spark以及那些坑
	  	   
vs2012 error c4996 'fopen'
	  	   
perl 循环截取字符串
	  	   
scp后台运行
	  	   
SDWebImage加载图片URL第一次失败，后面图片URL存在不刷新的问题
	  	   
swift 2.2基本数据类型详解
	  	   
防止网页被外部调用
	  	   
php利用simple_html_dom类，获取页面内容，充当爬虫角色
	  	   
跟iPhone手机图标类似的控件抖动
	  	   
自定义圆形的ImageView
	  	   
Android 开发环境下载地址 -- 百度网盘 adt-bundle android-studio sdk adt 下载