Сравнение строк БЕЗ учёта регистра в perl

m/'hello'/i например

#!/usr/bin/perl my $str=$ARGV[1]; my $str2=$ARGV[2]; my $tmp_str="\U$str"; my $tmp_str2="\U$str2"; if ($tmp_str eq $tmp_str2) { print "ura"; } else { print "nea"; }

Спасибо за solution!

В Perl есть функции lc() и uc(), переводящие аргумент в нижний и верхний регистры. Переводишь в один регистр сравниваешь.

my $str = "qwer";
my $other = "QWER";

print "Bingo" if ( $str =~ /^\Q$other\E$/i );