在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语句的条件变为总是产生真的赋值。