初学perl,问个小问题

crosslife

UID: 10332
帖子: 8
积分: 18
在线时间: 10 分钟

1^# crosslife 发表于 2008-12-01 14:59

初学perl,问个小问题

[Copy to clipboard] [ - ]

CODE:

#! perl -w
  $line = <STDIN>;
  if ($line == "good"){
  print "that's good";
  }else{
    print "you are wrong!\n"
  }

这样可以得到正确的结果,比如输入good,输出

QUOTE:

D:\>perl test.pl
good
Argument "good" isn't numeric in numeric eq (==) at test.pl line 3, <STDIN> line
1.
Argument "good\n" isn't numeric in numeric eq (==) at test.pl line 3, <STDIN> li
ne 1.
that's good

而把==换成eq,即

[Copy to clipboard] [ - ]

CODE:

#! perl -w
  $line = <STDIN>;
  if ($line eq "good"){
  print "that's good";
  }else{
    print "you are wrong!\n"
  }

QUOTE:

D:\>perl test.pl
good
you are wrong!

请问这是为什么?如果字符串比较应该怎么写..谢谢了

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-12-01 15:08

$line = <STDIN>;
chomp($line);

crosslife

UID: 10332
帖子: 8
积分: 18
在线时间: 10 分钟

3^# crosslife 发表于 2008-12-01 15:12

谢谢你..还是不太明白..我是想比较2个字符串..eq应该是可以的吧..为什么我写出的代码跑出来不是这个结果呢

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-12-01 15:19

因为从 STDIN 读进来的字串结尾有换行符。

crosslife

UID: 10332
帖子: 8
积分: 18
在线时间: 10 分钟

5^# crosslife 发表于 2008-12-01 15:27

谢谢..明白了..