论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2005-02-02 18:31 |只看该作者 |倒序浏览

假设文件in2是R2 <- (R1) + (R2)
当运行程序
#!c:/perl/bin/perl-w
@ARGV = glob "in2.txt" or die "no file found";
while ( <>; ) {
if (/R(.*) <- $R(.*)$ \+ $R(.*)$/ ) {
$o = $2;
$t =$3 ;
      if($o==$t){
print "ok" ;}
print "$o";
      print "$t";
}
}
的时候，明明$2和$3的值不同，而还是判断为ok

文库|博客

笨狗

丰衣足食

论坛徽章:: 0

2楼 [报告]

发表于 2005-02-03 03:16 |只看该作者

一个正则的问题

.*改成\d试试

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

emacsnw

小富即安

论坛徽章:: 0

3楼 [报告]

发表于 2005-09-12 15:55 |只看该作者

一个正则的问题

原帖由 "yilong777jp" 发表：
假设文件in2是R2 <- (R1) + (R2)
当运行程序
#!c:/perl/bin/perl-w
@ARGV = glob "in2.txt" or die "no file found";
while ( <>; ) {
if (/R(.*) <- $R(.*)$ \+ $R(.*)$/ ) {
$o = $2;
..........

我这儿没打印ok，正常。