Verwenden Sie variadic Argumente als Argumente für sprintf

Question

Ich möchte einen Wrapper um printf(...) programmieren.

Mein erster Versuch war:

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

Als Array (in Skalarkontext) ist kein Formatstring, das funktioniert nicht (wie erwartet).

Kennt jemand eine Lösung? Wahrscheinlich ohne spezielle Pakete zu benutzen?

EDIT: Im realen Kontext möchte ich sprintf verwenden. Offensichtlich gibt es einen Unterschied zwischen printf und sprintf.

Answer 1

Wie über diese

sub pf { printf $_[0],@_[1..$#_] } 

Answer 2

Die sprintf Funktion hat ein ($@)prototype, so dass das erste Argument sprintf wird immer im skalare Kontext ausgewertet, auch wenn es ein Array ist.

$x = sprintf(@a);  # same as sprintf(scalar @a) 

Also, bevor Sie sprintf aufrufen, müssen Sie die Vorlage aus dem Rest der Argumente trennen. Hier ist eine kurze Art und Weise:

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

Merkwürdiger, printf kein Prototyp hat und tut, was Sie erwarten.

printf(@a);   # same as printf($a[0], @a[1..$#a]) 

Answer 3

Viele der named operators (wie sprintf) haben spezielle Syntax. sprintf ‚s Syntax ist definiert als

sprintf FORMAT, LIST 

Dies kann oft (aber nicht immer) mit prototype zu sehen.

Das Problem ist, dass Sie eine der folgenden Syntax anstelle der dokumentierten Syntax verwendet haben.

Wechseln Sie einfach zur dokumentierten Syntax, um Ihr Problem zu lösen.

sub printf2 { 
    my ($format, @args) = @_; 
    print sprintf($format, @args); 
} 

Oder wenn Sie das Kopieren vermeiden wollen,

sub printf2 { 
    print sprintf($_[0], @_[ 1..$#_ ]); 
}