免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 怎样检测+?
123下一页
最近访问板块 发新帖
查看: 2771 | 回复: 20
打印 上一主题 下一主题

怎样检测+? [复制链接]

445236708

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2014-03-27 23:04 |只看该作者 |倒序浏览
大家好  我编程序遇到了一个问题，我不知道怎样检测出+来，代码如下：
if(($sample[2] =~ /CDS/) && ($sample[6] =~ /\+/)

提示的错误信息为：
Quantifier follows nothing in regex; marked by <-- HERE in m/+ <-- HERE / at C:\Perl\第四题.pl line 32.
rubyish

论坛徽章:
7
戌狗 日期:2013-12-15 20:43:38技术图书徽章 日期:2014-03-05 01:33:12技术图书徽章 日期:2014-03-15 20:31:17未羊 日期:2014-03-25 23:48:20丑牛 日期:2014-04-07 22:37:44巳蛇 日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛 日期:2016-03-17 20:36:13
2楼 [报告]
发表于 2014-03-28 01:33 |只看该作者
  1. while (<DATA>) {
  2.     my @sample = split;
  3.     if ( $sample[0] eq 'CDS' and $sample[1] eq '+' ) {
  4.         print;
  5.     }
  6. }
  7. __DATA__
  8. CDS +
  9. ASS +
  10. CDS -
复制代码
  1. while (<DATA>) {
  2.     my @sample = split;
  3.     #if ( $sample[0] =~ /CDS/ and $sample[1] =~ /\+/ ) {
  4.     if ( $sample[0] =~ /CDS/ and $sample[1] eq '+' ) {

  6.         print;
  7.     }
  8. }
  9. __DATA__
  10. CDSA +
  11. ASSB +
  12. CDSC -
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
q1208c

论坛徽章:
33
荣誉会员 日期:2011-11-23 16:44:17天秤座 日期:2014-08-26 16:18:20天秤座 日期:2014-08-29 10:12:18丑牛 日期:2014-08-29 16:06:45丑牛 日期:2014-09-03 10:28:58射手座 日期:2014-09-03 16:01:17寅虎 日期:2014-09-11 14:24:21天蝎座 日期:2014-09-17 08:33:55IT运维版块每日发帖之星 日期:2016-04-17 06:23:27操作系统版块每日发帖之星 日期:2016-04-18 06:20:00IT运维版块每日发帖之星 日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津 日期:2016-05-06 12:46:59
3楼 [报告]
发表于 2014-03-28 08:36 |只看该作者
回复 1# 445236708

if(($sample[2] =~ /CDS/) && ($sample[6] =~ /\+/)
   

是不是差了半个 括号 呀
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
zhlong8

论坛徽章:
46
15-16赛季CBA联赛之四川 日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯 日期:2015-04-11 17:31:45天蝎座 日期:2015-03-25 16:56:49双鱼座 日期:2015-03-25 16:56:30摩羯座 日期:2015-03-25 16:56:09巳蛇 日期:2015-03-25 16:55:30卯兔 日期:2015-03-25 16:54:29子鼠 日期:2015-03-25 16:53:59申猴 日期:2015-03-25 16:53:29寅虎 日期:2015-03-25 16:52:29羊年新春福章 日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼 日期:2015-07-13 10:44:56
4楼 [报告]
发表于 2014-03-28 08:46 |只看该作者
错误提示是你把 + 用到了正则表达式第一个字符的位置，你贴出来这里是没问题的
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
塞图宝

论坛徽章:
0
5楼 [报告]
发表于 2014-03-30 03:16 |只看该作者
回复 3# q1208c


    我也觉得是
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
104359176

求职 : 软件工程师
论坛徽章:
3
程序设计版块每日发帖之星 日期:2015-10-07 06:20:00程序设计版块每日发帖之星 日期:2015-12-13 06:20:00程序设计版块每日发帖之星 日期:2016-05-05 06:20:00
6楼 [报告]
发表于 2014-03-30 21:45 |只看该作者
好像是少了个括号
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
445236708

论坛徽章:
0
7楼 [报告]
发表于 2014-03-31 10:22 |只看该作者
恩恩 ，已经编译通过了，谢谢回复 6# 104359176


  
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
pitonas

论坛徽章:
5
丑牛 日期:2014-01-21 08:26:26卯兔 日期:2014-03-11 06:37:43天秤座 日期:2014-03-25 08:52:52寅虎 日期:2014-04-19 11:39:48午马 日期:2014-08-06 03:56:58
8楼 [报告]
发表于 2014-03-31 14:23 |只看该作者
{:2_172:} 大牛, 怎样编译通过的

回复 7# 445236708


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
445236708

论坛徽章:
0
9楼 [报告]
发表于 2014-03-31 15:37 |只看该作者
不许嘲笑我{:2_174:} ，看我代码，改了一下逻辑就直接OK了，你说我是有多机智，哈哈哈
  1. if($sample[2] =~ m/CDS/) #判断是否为 CDS
  2.         {               
  3.                 $ini= $sample[3];
  4.                 $end = $sample[4];
  5.                
  6.                 if($sample[6] =~ m/\+/)
  7.                 {
  8.                         $Print_data = substr($data{$name2},$ini - 1,$end - $ini + 1);
  9.                 }
  10.                 elsif ( $sample[6] =~ m/-/)
  11.                 {
  12.                         my $Print_data_1 = substr($data{$name2},$ini - 1,$end - $ini + 1);
  13.                         $Print_data = reverse $Print_data_1;#反转  因为有-号
  14.                         $Print_data =~ tr/AGCT/TCGA/;#替换成互补链
  15.                 }       
  16.                 print OUT "$Print_data";
  17.         }
复制代码
回复 8# pitonas


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
pitonas

论坛徽章:
5
丑牛 日期:2014-01-21 08:26:26卯兔 日期:2014-03-11 06:37:43天秤座 日期:2014-03-25 08:52:52寅虎 日期:2014-04-19 11:39:48午马 日期:2014-08-06 03:56:58
10楼 [报告]
发表于 2014-03-31 15:46 |只看该作者
多机智高手的啊，学习了。
赞一个！
非常棒！
回复 9# 445236708


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP