http://www.fukz.de/2007/07/02/perl-script-parameter/ Manche Hähne glauben, dass die Sonne ihretwegen aufgeht. (Theodor Fontane) Thu, 03 Jan 2013 14:28:45 +0000 hourly 1 http://wordpress.org/?v=3.5.1 http://www.fukz.de/2007/07/02/perl-script-parameter/comment-page-1/#comment-121 Chris Sat, 01 Mar 2008 17:26:04 +0000 http://www.fukz.de/?p=80#comment-121 Es geht einfacher mit Getopt::Std and Getopt::Long.
zB

#!/usr/bin/perl
use Getopt::Long;

my ($help, @url, $size);

#-- prints usage if no command line parameters are passed or there is an unknown
# parameter or help option is passed
usage() if ( ! GetOptions('help|?' => \$help, 'url=s' => \@url, 'size=i' => \$size)
or @ARGV < 1 or defined $help );


sub usage
{
print "Unknown option: @_\n" if ( @_ );
print "usage: program [--url URL] [--size SIZE] [--help|-?]\n";
exit;
}


]]>