Как сравнить 2 переменные на НЕ равенство?

[Alexandr]

Пишу
if (1 == 1) {print "1";} else {print "0";} #1
if (1 != 1) {print "1";} else {print "0";} #0
if ("1" == "1") {print "1";} else {print "0";} #1
if ("1" != "1") {print "1";} else {print "0";} #0
Типа всё ок.

if ("1-1-1" != "1-2-1") {print "1";} else {print "0";} #0
if ("1-1-1" == "1-2-1") {print "1";} else {print "0";} #1
Странно!!??

И ещё вопрос:
Выбираю в массив данные из базы MySQL (5 шт.)
@ary=$sth->fetchrow();
Как правильно проверить элемент массива на NULL?

И ещё:
Как определить есть ли в переменной определённая подстрока?

[mike]

Хм...

perldoc perlop

Для сравнения строк есть спец. операторы:

eq, gt, lt, cmp

[USE]

Странно!!??

для того чтобы проверять числовые значения используй "==" и "!=", а для того, чтобы проверять строки (ведь у тебя уже идут строки в другом примере) надо использовать "eq" и "ne" соответственно.

Как определить есть ли в переменной определённая подстрока?

можно регулярным выражением:

Код: [Выделить]


if( $variable =~ /$string/ )
{
    print "В переменной есть требуемая строка";
}


[mike]

Выбираю в массив данные из базы MySQL (5 шт.)
@ary=$sth->fetchrow();
Как правильно проверить элемент массива на NULL?

unless (defined $ary[$el]) не подойдет?

Как определить есть ли в переменной определённая подстрока?

$pos = index $str, $substr, $start_pos

[Alexandr]

Пасибо ребята!
Быстро и оперативно. Тока покурить успел сходить. :-)

ne - работает!

unless (defined $ary[$el]) не подойдет?

if (defined $ary[4]) {print "1\\n\\n

";}#1
if (defined @ary[4]) {print "1\\n\\n

";}#1

Не катит. :-(

[Alexandr]

if( $variable =~ /$string/ )
{
    print "В переменной есть требуемая строка";
}

А как, нет подстроки?

[USE]

Не катит. :-(

а просто проверить что там записана строка NULL нельзя?

Код: [Выделить]

print "NULL" if $ary[4] =~ /^null$/i;

[USE]

А как, нет подстроки?

Код: [Выделить]


if( $variable =~ /$string/ )
{
    print "В переменной есть требуемая строка";
}
else
{
    print "Подстроки нет";
}


[Alexandr]

Да без else.
Мне надо в сочетании с др. условиями.
И, кстати, так правильно
if (условие1 || условие2) ... #условие1 или условие2
if (условие1 && условие2) ... #условие1 и условие2

[USE]

[off]

Мне надо в сочетании с др. условиями.

сформулируй нормально задачу,  а то тебе сегодня надо, завтра - нет.[/off]

[Alexandr]

print $ary[4];#{пусто}

а начинешь проверять
if ($ary[4] eq \'\') {print "1\\n\\n

";} else {print "0\\n\\n

";}#0

И, кстати, как правильно
$ary[4] или @ary[4]

[Alexandr]

сформулируй нормально задачу

Как определить нет ли в переменной определённой подстроки и др. переменная пуста?

[USE]

if ($ary[4] eq \'\') {print "1\\n\\n

";} else {print "0\\n\\n

";}#0

должно выводить 1. скопируй эту строку и запусти на исполнение. сам увидишь чего получится.

$ary[4] - обращение к пятому элементу массива. если тебе это требовалось

[mike]

Как определить нет ли в переменной определённой подстроки и др. переменная пуста?

А скомбинировать предыдущие ответы?

[Alexandr]

Да да. Сори. Сам впарился.
Все ок.
if (defined($ary[4])) {print "4 - определена\\n\\n

";} else {print "4 - не определена\\n\\n

";}
if ($ary[4] eq \'\') {print "4 - пуста\\n\\n

";} else {print "4 - не пуста\\n\\n

";}


###
4 - не определена

4 - пуста