Opened by crackbrained at 2004-12-16 12:16
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
@Relais: Fuer die Optionsverarbeitung wuerde ich gar nicht erst auf CPAN schauen, da Getopt::Std und Getopt::Long zum Lieferumfang gehoeren.
@crackbrained: Dein -f ist nichts Perl-eigenes sondern ein Teil der Aufgabenstellung, wie Relais schon erkannt hat. Dein Perlskript soll so funktionieren, dass man es mit "meinskript -f dateiname" aufrufen kann (wobei dateiname der Name einer Datei mit Alignments ist).
Das koennte man mit Getopt::Std z.B. so loesen:
@crackbrained: Dein -f ist nichts Perl-eigenes sondern ein Teil der Aufgabenstellung, wie Relais schon erkannt hat. Dein Perlskript soll so funktionieren, dass man es mit "meinskript -f dateiname" aufrufen kann (wobei dateiname der Name einer Datei mit Alignments ist).
Das koennte man mit Getopt::Std z.B. so loesen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
our $opt_f; # darin landet der Wert der Option -f,
# siehe perldoc Getopt::Std
getopts('f:'); # Optionen auswerten, -f erwartet ein Argument
unless ($opt_f) {
die "Bitte als \"$0 -f dateiname\" aufrufen!";
}
open ALIGNS, '<', $opt_f or die "kann Datei $opt_f nicht zum Lesen oeffnen: $!";
while (<ALIGNS>) {
# mach was mit den Zeilen aus der Datei
# ...
}
close ALIGNS;