Leser: 2
|< 1 2 >| | 13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
#! /usr/bin/perl
use strict;
use warnings;
my $file = '/zu/pruefende/datei';
if(-f $file){
print "Ist ne Datei\n";
}
QuoteWie kann ich nun in meinem Perl-Skript einbauen das dieser Parameter auf der Kommandozeile akzeptiert wird?
Quoteperl -h
Usage: perl [switches] [--] [programfile] [arguments]
-0[octal] specify record separator (\0, if no argument)
-a autosplit mode with -n or -p (splits $_ into @F)
-C enable native wide character system interfaces
-c check syntax only (runs BEGIN and CHECK blocks)
-d[:debugger] run program under debugger
-D[number/list] set debugging flags (argument is a bit mask or alphabets)
-e 'command' one line of program (several -e's allowed, omit programfile)
-F/pattern/ split() pattern for -a switch (//'s are optional)
-i[extension] edit <> files in place (makes backup if extension supplied)
-Idirectory specify @INC/#include directory (several -I's allowed)
-l[octal] enable line ending processing, specifies line terminator
-[mM][-]module execute `use/no module...' before executing program
-n assume 'while (<>) { ... }' loop around program
-p assume loop like -n but print line also, like sed
-P run program through C preprocessor before compilation
-s enable rudimentary parsing for switches after programfile
-S look for programfile using PATH environment variable
-T enable tainting checks
-t enable tainting warnings
-u dump core after parsing program
-U allow unsafe operations
-v print version, subversion (includes VERY IMPORTANT perl info)
-V[:variable] print configuration summary (or a single Config.pm variable)
-w enable many useful warnings (RECOMMENDED)
-W enable all warnings
-X disable all warnings
-x[directory] strip off text before #!perl line and perhaps cd to directory
QuoteWie kann ich nun in meinem Perl-Skript einbauen das dieser Parameter auf der Kommandozeile akzeptiert wird?
perl -e 'for ( @ARGV ) { print "$_: JAU\n" if -f $_; }' / /etc/passwd
1
2
3
4
5
my $index;
until ( $ARGV[++$index] eq '-f' ) { # Alle durchgehen und vergleichen.
# irgendwas mit den anderen Parameter tun, falls nötig
}
my $gesuchter_paramter = $ARGV[$index];
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;
|< 1 2 >| | 13 Einträge, 2 Seiten |