поиск шаблонов в 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, но все еще печатает его 1, но шаблон kartik не сохраняется в файле, но почему его печать 1?как сделать шаблоны поиска?

Answer 1

=~ - это отдельный оператор, поэтому между символами не должно быть пробелов.С пробелом условие оператора if становится присваиванием, которое всегда возвращает true.