2012-01-16T14:37:22 murphy

Das sieht so aus, als läge das Problem eher an einem falschen Aufruf von GetOptions, denn es fehlt hier eine Angabe, wohin das Optionsargument gespeichert werden soll. Ich nehme an es sollte wohl

Code (perl): (dl )

1
2

#line 20
GetOptions('file|f=s' => \$opt_file) or die('useage...');

heißen.

1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl
use strict;
use warnings;

use lib './lib';

use Getopt::Long qw(:config gnu_getopt);

our $opt_file;
GetOptions('file|f=s') or die('usage...');
print "file: $opt_file\n";

1
2

% ./versuch2.pl --file=test.txt
file: test.txt