Можно ли передать аргументы типа sprintf в функцию Perl?

Question

Рассмотрим следующий пример кода.

my $a = "test";
my $b = "stackoverflow";

test("%s - %s\n", $a, $b);

sub test {
    my $error = sprintf(@_);
    print $error;
}

Это печатает 3, а не отформатированную строку.Можно ли даже сделать то, что я пытаюсь?

Answer 1

Как предположил VGE, это прототип, который вызывает проблемы, но вам нужно использовать shift, а не pop:

sub test {
    my $error = sprintf(shift, @_);
    print $error;
}

sprintf оценивает свой первый аргумент в скалярном контексте. Если это массив, вы получите длину массива.

Answer 2

Perldoc говорит sprintf ФОРМАТ, СПИСОК

Возвращает строку, отформатированную обычными соглашениями printf функции библиотеки C sprintf. Для получения более подробной информации смотрите ниже и смотрите sprintf (3) или printf (3) в вашей системе для объяснения общих принципов.

Я никогда не пробовал этого, но, я думаю, вы можете попробовать набрать @_, чтобы получить формат и передать оставшийся список после.