Почему то код не работает, как надо

[samlab]

  Приветствую всех... Вот тружусь над таким простым кодом, а что то не работает

Код:

#!/usr/bin/perl -w

$| = 1;

open(F, '<num.txt') || die $!;

my @some = <F>;

close F;

my $now;

my $i =1;

$i++;
if(!$now){ $now = shift(@some);
              chomp($now);
              print"NUM $now\n";}
              if($i>3)
              {
              $now = shift(@some);
              chomp($now);
                print"NUM $now\n";
              $i=0;

              }

Т.е., 2 раза должно выпасть число 1, а потом 2, потом 3 и т.п. А почему то не работает, как надо.
Содержимое файла num.txt

Код:

1
2
3
4
5
6
7
8
9
10

Помогите пожалуйста, умные головы . Заранее спасибо большое за помощь...

[RXL]

samlab, а что ты хотел получить?

[Вад]

я так понимаю, цикла не хватает. вместо первого if какой-нибудь while должен быть?

[samlab]

samlab, а что ты хотел получить?

Чтобы в цикле бралось число из файла, потом следующее и т.д.

Добавлено через 14 секунд:

я так понимаю, цикла не хватает. вместо первого if какой-нибудь while должен быть?

Нет, не помогло...

[Sla]

что не помогло?
код покажи где не помогло.

[RXL]

Эх...

Код:

my ($fd, $num);

open $fd, '<num.txt' or die $!;

while (<$fd>)
{
    chomp;
    $num = 0 + $_; # Для преобразования строки в число.
    print "NUM $num\n";
}

close $fd;

[samlab]

Эх...

Код:

my ($fd, $num);

open $fd, '<num.txt' or die $!;

while (<$fd>)
{
    chomp;
    $num = 0 + $_; // Для преобразования строки в число.
    print "NUM $num\n";
}

close $fd;

C:\>c.pl
Unrecognized character \xC4; marked by <-- HERE after  + $_; // <-- HERE near co
lumn 23 at C:\c.pl line 12.
Не робит што то...

Добавлено через 1 минуту и 9 секунд:

что не помогло?
код покажи где не помогло.

Код:

#!/usr/bin/perl -w

$| = 1;

open(F, '<num.txt') || die $!;

my @some = <F>;

close F;

my $now;

my $i =1;

$i++;
while(!$now){ $now = shift(@some); # заменил как вы сказали первый цикл на while
              chomp($now);
              print"NUM $now\n";}
              if($i>3)
              {

[Sla]

Код:

$i++;
while(!$now){ $now = shift(@some); # заменил как вы сказали первый цикл на while
              chomp($now);
              print"NUM $now\n";}
              if($i>3)
              {

Это какой-то обрывок
Но....
Читай код

Присвоили И равное 1
Увеличили И на единицу
Вошли  в цикл
    В цикле что-то должны делать с И
 

[RXL]

samlab, ошибку исправил. См. пост №6.

[samlab]

Всем спасибо за участие, буду дальше сам разбираться.