Программирование > Perl

Сравнение скаляров - не сравниваются

(1/1)

webser:
Суть:: есть цикл, где читается инфа из файла и сравниваются переменная с полученной ранее.

# поиск наименования компании
for ($i=0;$i

webser:
Продолжение мытарств :::
Поставил подробную ОТЛАДОЧНУЮ печать (данные файла - те же)

my $firm ="";
for ($i=0;$i>>>> tmp_firm ::: $tmp_firm

!;

if ($tmp_id eq $id1) {
my $firm = $tmp_firm;
print qq!
OK ::::::: id1 :::: $id1 | tmp_id :::: $tmp_id | === | firm ::: $firm >>>>> tmp_firm ::: $tmp_firm

!;
}
}
print "
firm2 = ".$firm."\\n\\n";


Результаты работы скрипта ::::

id1 :::: 0005 | tmp_id :::: 0001 | === | firm ::: >>>>> tmp_firm ::: 2К-аудит
id1 :::: 0005 | tmp_id :::: 0002 | === | firm ::: >>>>> tmp_firm ::: 3 канал
id1 :::: 0005 | tmp_id :::: 0003 | === | firm ::: >>>>> tmp_firm ::: BBM
id1 :::: 0005 | tmp_id :::: 0004 | === | firm ::: >>>>> tmp_firm ::: Brother
id1 :::: 0005 | tmp_id :::: 0005 | === | firm ::: >>>>> tmp_firm ::: Cool Air
OK ::::::: id1 :::: 0005 | tmp_id :::: 0005 | === | firm ::: Cool Air >>>>> tmp_firm ::: Cool Air
id1 :::: 0005 | tmp_id :::: 0006 | === | firm ::: >>>>> tmp_firm ::: De\'Longhi
id1 :::: 0005 | tmp_id :::: 0007 | === | firm ::: >>>>> tmp_firm ::: European Food Group
id1 :::: 0005 | tmp_id :::: 0008 | === | firm ::: >>>>> tmp_firm ::: Home Net Telecom (HNT)
id1 :::: 0005 | tmp_id :::: 0009 | === | firm ::: >>>>> tmp_firm ::: Imac
id1 :::: 0005 | tmp_id :::: 0010 | === | firm ::: >>>>> tmp_firm ::: Incity

firm2 =

ПОЧЕМУ ?????????????????????????!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Yaroslav:

--- Код: ---#!/usr/bin/perl -w

open (FILE, "test.htm");
@file=;
close (FILE);

$id1=\'0005\';

foreach (@file) {
  ($tmp_id, $tmp_firm) = split(/\\#/);
  print "id1 :::: $id1 | tmp_id :::: $tmp_id\\n";
  if ($tmp_id eq $id1) { $firm = $tmp_firm; }
}
print "FIRM = $firm !!!";
--- Конец кода ---


id1 :::: 0005 | tmp_id :::: 0001
id1 :::: 0005 | tmp_id :::: 0002
id1 :::: 0005 | tmp_id :::: 0003
id1 :::: 0005 | tmp_id :::: 0004
id1 :::: 0005 | tmp_id :::: 0005
id1 :::: 0005 | tmp_id :::: 0006
id1 :::: 0005 | tmp_id :::: 0007
id1 :::: 0005 | tmp_id :::: 0008
id1 :::: 0005 | tmp_id :::: 0009
id1 :::: 0005 | tmp_id :::: 0010
FIRM = Cool Air !!!

webser:
ФАНТАСТИКА - РАБОТАЕТ !!!

И почему у меня не работало? Что-бы избежать ошибок в будущем - вроде ТО ЖЕ самое делал!

Навигация

[0] Главная страница сообщений

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 
Перейти к полной версии