Perl und $_

[Christoph]

Die eingebauten Perl-Funktionen arbeiten ja mit $_, wenn sie ohne Argumente aufgerufen werden.

Frage: Wie definiere ich selber eine Funktion, die $_ als Inputargument verwendet, wenn keine Input-Argumente angegeben werden?

[DaTa]

sub x {
  my $arg = defined($_[0]) ? $_[0] : $_;
  print "$arg\n";
}

$_="abc";
x();
x("def");