Работа с числом в PERL

[YYYn]

$num = "000011";

     Делаю $num++; получается 12, а надо 000012 мля...

[NeoNox]

Везет! А у меня 000012. И что делать?
А если серьезно, то нонсенс. Приведи полный кусок скрипта.

ЗЫ. Давай без всяких "мля" обойдемся.

[YYYn]

Везет! А у меня 000012. И что делать?
А если серьезно, то нонсенс. Приведи полный кусок скрипта.

УГУ, везет как утопленнику...

Кажется понял откуда ноги растут, но не знаю это как решить.
Похоже дело в $num = ; я прав?

   open(NUMBER,"num.txt");
   $num = ;
   close(NUMBER);
   if ($num == 9999999)  {
      $num = "1";
   }
   else {
      $num++;
   }
   open(NUM,">num.txt") || die $!;
   print NUM "$num";
   close(NUM);

В num.txt - 000011

[GotZfild]

В крайнем случае пользуйся sprintf

[Serchey]

000012

- не верю!
У меня в практике тоже такое было, а делал приблизительно следующее:

$num = "000011";
$num++;
while(length($num) < 6){$num = "0".$num;}

И все.

[NeoNox]

А так работает? Не проверял, но должно. Вечером внимательнее посмотрю.
open(NUMBER, "num.txt");
chomp($num = <NUMBER>); # Читает 000011 
close(NUMBER);

print $num; # Выдает 000011 

$test=$num;

if ($num == 9999999) {
$test = 1;

} else {
$test++;
}
print "<p>$test"; # Выдает 000012

open(NUM,">num.txt") ;
print NUM "$test"; # Пишет 000012
close(NUM);

- не верю!

Кому?

[YYYn]

- не верю!
У меня в практике тоже такое было, а делал приблизительно следующее:

$num = "000011";
$num++;
while(length($num) < 6){$num = "0".$num;}

Спасибо, Serchey!

Всё ОК! Тема закрыта.

[YA]

while(length($num) < 6){$num = "0".$num;}

А цикл то здесь зачем?
$num=("0"x(6-length($num))).$num;

[Serchey]

А цикл то здесь зачем?

.
YA, что проще, то что ты написал, или я?(я имею ввиду для машини)

NeoNox, это тебе я не поверил. Да, последний скрипт также нерабочий, логики в нем не видно.

[NeoNox]

Serchey, мы же не на кофейной гуще гадаем, правильно?
Возьми и проверь перед тем как говорить.

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


#!/usr/bin/perl
print "Content-type: text/html\\n\\n";

$num = "000011";
$num++;
print "$num";

А в последнем, это тебе логики не видно .
Но он также рабочий.

[YA]

Serchey

что проще, то что ты написал, или я?

Надеюсь, то, что я написал - операций-то меньше
Будет время - замерю скорость (для разного количества нулей).