#! /usr/bin/perl use strict; use warnings; use 5.020; use Getopt::Long; #> sub routines #> -------------------------------------------------------------------- sub modified_warnings { my ( $message ) = @_; # Ersetze hier die generische Meldungen jeweils durch eine eigene $message =~ s/Unknown option: .+/Parameter - Fehler/; $message =~ s/Option (.+) requires an argument$/Parameter $1 benoetigt ein Argument./; print STDERR $message; } #> main programm #> -------------------------------------------------------------------- my $foo = "default"; my $bar = "default"; { local $SIG{__WARN__} = \&modified_warnings; GetOptions( 'foo:s' => \$foo, 'bar=i' => \$bar, ) or die "Falsche Verwendung!\n"; }; say "Foo: $foo"; say "Bar: $bar";