Please HELP... [SOLVED]

Доброго времени.

Помогите плиз. Три дня без результата...
Почему вот это не срабатывает. Говорит, что это истина...

Вызов

my-pc# test.pl no

Code

my $path = $ARGV[0];
if ( $path ne "no" ) {
   ...
}

Плакаю над кодом... =(

Я тоже уплакиваюсь :D

В bash'е, при операциях сравнения строк не канает оператор -ne,
работает только иероглиф !=.
Мобыть и в perl'е так же?

не надо плакать - перекомпиль

не надо плакать - перекомпиль perl и сделай

perl-cleaner --reallyall

у меня все нормально отработало по твоему примеру.

SysA написал(а):не надо

SysA написал(а):
не надо плакать - перекомпиль perl и сделай

perl-cleaner --reallyall

у меня все нормально отработало по твоему примеру.

Легко сказать - перекомпиль... Я разработчик. Админы не дают прав - звери. =( И перл не люблю.

.

Lilu написал(а):
Легко сказать - перекомпиль... Я разработчик. Админы не дают прав.

Уточнение - вы разрабатываете ПО на Gentoo, в которой вы не являетесь root-ом,
потому что Gentoo вам поставили другие люди, так?
Зачем же вы пытаетесь суппортить такую машину - говорите админам, пусть чинят.

А сейчас немного оффтопа, но, пользуясь случаем, хочется сказать следующее:
Только на последнем месте работы мне удалось с ещё одной стороны прочувствовать,
что GNU/Linux это в первую очередь СВОБОДА, наблюдая матерящихся коллег с альтернативной осью,
машины которых в самый неудачный момент по команде контроллера домена внезапно перезагружаются.

Админам, отбирающим права НА КОМПИЛЯЦИЮ у РАЗРАБОТЧИКОВ - посылаю лучи неодобрения.

а эта строка - это просто подпись

удивительно, читаю Ваш

удивительно, читаю Ваш коммент, останавливаюсь на слове СВОБОДА и одновременно слышу Кипелова: "Мы верим в Свою СВОБОДУ!".
по теме: "пример работает", может установить свой perl в /home ?

Если ничего не было, то как могло что-то появиться? А если все-таки что-то было, то откуда тогда оно взялось? Нашу Вселенную породила Рекурсия!

юзай bash

#!/bin/bash

path=$1

if [ "$path" != "no" ]
then
...
else
...
fi

какой будет вывод такой

какой будет вывод такой строки кода:

my $ii=0; foreach(@ARGV){print $ii++,":\"$_\"\n";}

?

Решено.

Кривые руки всему виной.

а все в том, что твое no

а все в том, что твое no считывается из $ARGV[0] вместе с переводом строки. и в $path содержится "no\n". добавь после определения $path эту строку

chomp $path;

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".