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

Помогите написать программу

<< < (2/2)

lodevar:

--- Цитировать ---polo (27-04-2001 02:02):
А как изменить так чтобы при вводе цифры 000 то выдавался результат 001 002 003 и т.д.
--- Конец цитаты ---
Цифры 000 нету! Это нолик! А вот строка "000" есть. Так что получаешь результат, переводишь в строку и врезаешь в твои нолики.

polo:
А если по другому, вводить например 1000, а потом удалить первый символ 1, как удаляется первый символ?

cj:

--- Цитировать ---polo (27-04-2001 23:48):
А если по другому, вводить например 1000, а потом удалить первый символ 1, как удаляется первый символ?
--- Конец цитаты ---

$string =~ s/^\\d//;
Оно тебе это надо?

PS Hint:
my $number = 3;
my $pads = 3;
my $format = "\\%0$pads"."d";

my $out = sprintf($format, $number);
print $out;

# 003

polo:
Спасибо, все отлично работает

Навигация

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

[*] Предыдущая страница