在perl中搜索模式

Question

use strict; 
use warnings;

open(FILE1, "/cygdrive/c/cpros/mola.txt");
my $line = <FILE1>;
print $line;
close(FILE1);
open(FILE1, ">/cygdrive/c/cpros/mola.txt");

if ($line = ~ /karthik/)
{
  print FILE1 ("1");
}
else
{
  print FILE1 ("0");
}

close(FILE1);

我已经在mola.txt文件中存储了hello world但仍然打印1但是模式karthik没有保存在文件中,但为什么它的打印1？如何制作搜索模式？

Answer 1

=~是一个单独的运算符,因此它的字符之间不应该有空格.使用空格,if语句的条件成为一个总是产生真值的赋值.