Forum Webscript.Ru
Программирование => Perl => Тема начата: RainMan от 14 Апреля 2004, 10:38:33
-
Podskajite pojaluista pocemu vidaetsya warning?
privoju kusok koda gde vizivaetsya oshibka:
#1) determ @path;
while ($path_s =~ m/([^\\/]+)/g) { push(@path, $1); }
#2) determ @linking
@linking=split(/\\//, $link_s);
for ($q=$#path, $j=0; $q>=$#path-$#linking, $j<=$#linking; $q--, $j++)
{
print "$q\\n";
print "$j\\n";
}
Posle vipolneniya vilaziet vot chto: "Useless use of numeric ge (>=) in void context at ..."
Podskajite pojaluista chto delati chtobi warning ne vilazil? Vrode oshibki v kode net...
-
1. Пишем по-русски. Кнопочка translit->rus тебе поможет в этом.
2. Описание ошибки и возможно решение нужно искаить в perldoc perldiag
3. у тебя в условии for каша. через пол года сам не разберешся.
Я бы написал:
#!/usr/bin/perl
use strict;
my @path = (1,2,3,4,5,6,7);
my @linking = (1,2,3,4);
my $array_delta = $#path-$#linking;
my $q=$#path;
my $j=0;
for ($q>=$array_delta, $j<=$#linking)
{
$q--;
$j++;
print "$q -- $j\\n";
}
-
За решение проблеми - спасибо!
П.С. Мне разрешили так писати тут (не по русски) (смотри топиц "регулярние вирайения").
На меня ругалиси что не по русски пишу а ето транслит погано так работает!
-
RainMan я им пользуюсь на протяжении полугода и нареканий особых он у меня не вызывает.
дам еще ссылку: http://www.yandex.ru/keyboard_qwerty.html
наклейки на клавиатуру продаются в интернет магазинах.
Следует уважать собеседников.
-
NeoNox если би ти сидел за SUN без возмойности меняти что либо я би посмотрел как би ти писал на русском! Я йе писал - нет возмойности писати -не виноват я что на работе стоят SunOS которие не понимаиют русскии язик!
Esli takoi translit ustraivaet - togda pojaluista, prosto odin moder skazal mojno, ti govorish - nelzya, opredelitesi - da ili net!
Izvinite za offtop!
-
закрывайте конфу - всем спасибо!
-
SunOs в роли терминала это действительно смешно.
Тему закрываю.