[Perl] Warning bei shift im Rückgabewert

[baumgartner]

Hallo,

Wie kann ich ein Warning bei einem shift im Rückgabewert verhindern bei eingeschalteten warnings?

# ein Modul
sub link {
	"\n <a class='link' href=' " . shift . " '>" . shift . "</a> " ; 
}

Warning: Use of "shift" without parentheses is ambiguous at /...../CSS_Style.pm line 44.

Was für möglichkeiten hab ich hier ausser warnings auszuschalten oder die werte vorher in eine Variable zu packen?

[michael.sprick]

Hi,

eigentlich stehts ja da...

Klammern setzen

shift() oder shift(@_);

EDIT:
Übringes: link() ist eine Perl-Funktion - benutze lieber einen anderen Namen.

sub mylink($$)
{
  return("..." shift(@_) . "..." . shift(@_) . "...");
}