txt-datei filtern - #129016 (Allgemeines zu Perl)

Gast anon

2009-12-06 21:39

Quote
Wenn man sich an anderen Programmen orientiert ist "-" oder "--" der Platzhalter für STDOUT oder für STDIN.

Das ist falsch. - steht für STDIN/STDOUT. -- steht für Ende der Optionen.

Das Fachwort für Entwickler, die sich an anderen Programmen aus der freien Wildbahn orientieren, lautet Schwachkopf. Will man es richtig machen, bedient man sich Spezifikationen und Standards: GNU Getopt, GNU coding standards, TAOUP

Code (perl): (dl )

[... use use use use use use ...]
my %opt = (min => 10, max => 15,);
GetOptions(\%opt, qw(input=s output=s min:i max:i)) or pod2usage(2);

{
    my $in  = IO::File->new('-' eq $opt{input}  ? '<-' : ($opt{input},  'r'))
        or die "could not open $opt{input} for reading: $!\n";
    my $out = IO::File->new('-' eq $opt{output} ? '>-' : ($opt{output}, 'w'))
        or die "could not open $opt{output} for writing: $!\n";

    [while ...]
}
# Handles hier automatisch geschlossen, da Ende des Gültigkeitsbereichs.

Code: (dl )

1
2

# Optionen in beliebiger Reihenfolge.
script.pl --min=20 --max=30 -i - -o -

Edit betterworld: Weitere OT-Kommentare bitte in txt-datei filtern - offtopic-split
Last edited: 2009-12-07 14:12:58 +0100 (CET)