Frage zu GetOptions - warum funktioniert meine Erweiterung nicht ? (Allgemeines zu Perl)

[thread]19391[/thread]

Frage zu GetOptions - warum funktioniert meine Erweiterung nicht ?

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+4 replies

jan99

2014-11-18 08:24

User since
2008-09-18
439 Artikel
BenutzerIn
[default_avatar]

Moin !

ich habe, unter win7, ein einfaches Script zum Zählen von Dateien. (Urquelle: msg #177948)

Das wird derzeit noch so aufgerufen ...

Code: (dl )

perl C:\Perl-Tools\tile_counter.pl --dir=%folder2delete%\%%n\ --file=*.png

und das Perl sieht wie folgt aus:

Code (perl): (dl )

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

use Cwd;
use File::Spec;
use Getopt::Long;
use File::Find::Rule;

$| = 1;

my $PROGNAME = ( split m|[\\/]|, $0 )[-1];

help() if !@ARGV;

my ( @filemask, @dir );
my ( $wiki_output, $help );
GetOptions(
    "f|file=s" =>
      \@filemask,                   # filemasks to select several files (DEFAULT: all files)
    "d|dir=s"  => \@dir,            # dirs for scan (DEFAULT: current dir)
        "wiki" =>   \$wiki_output,      # report in wiki-format (DEFAULT: off)
    "h|help" => \$help              # show help
) or die "Error in command line arguments\n";

### set defaults of parameters if not already set
push @dir, Cwd::cwd()
  if not @dir;              # use current dir, if no parameter --dir defined
  $wiki_output     //= 0;

help() if $help;

..

Nun wollte ich dieses soweit aufbohren das ein Wert zum Hochzählen der der Ordner mit eingebaut werden kann. Das weitere rund-her-um ist sollte nebensächlich sein.

Der Aufruf soll jetzt wie folgt aussehen:

Code: (dl )

perl C:\Perl-Tools\tile_counter.pl --from=10 --to=20 --dir=%folder2delete%\%%n\ --file=*.png

und mein Code sieht wie folgt aus:

Code (perl): (dl )

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

use Cwd;
use File::Spec;
use Getopt::Long;
use File::Find::Rule;

$| = 1;

my $PROGNAME = ( split m|[\\/]|, $0 )[-1];

help() if !@ARGV;

my ( @filemask, @dir );
my ( $wiki_output, $help, $from, $to);
GetOptions(
    "f|file=s" => \@filemask,         # filemasks to select several files (DEFAULT: all files)
    "d|dir=s"  => \@dir,              # dirs for scan (DEFAULT: current dir)
    "wiki" =>     \$wiki_output,      # report in wiki-format (DEFAULT: off)
    "f|from=i" => \$from,             # zoom level FROM (or min)
    "t|to=i" =>   \$to,               # zoom level TO (or max)
    "h|help" =>   \$help              # show help
) or die "Error in command line arguments\n";

### set defaults of parameters if not already set
push @dir, Cwd::cwd()
  if not @dir;              # use current dir, if no parameter --dir defined
  $wiki_output     //= 0;

help() if $help;

for my $i ($from .. $to) {
        print "$i\n";
    }

Was mich nur wunder ist, dass die Hochzählschleife nicht erreicht werden kann.

Kann mir einer weiterhelfen?

Gruß Jan :-)

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

bianca

2014-11-18 09:01

User since
2009-09-13
6977 Artikel
BenutzerIn

Wenn du mal vor der Schleife $from und $to printest, was enthalten sie?
10 print "Hallo"
20 goto 10
+2 replies
GwenDragon

2014-11-18 09:07
User since
2005-01-17
14532 Artikel
Admin1
Wenn du schon DOS-Variablen verwendest auf der Commandline, im Batch, dann in Anführungszeichen, falls Leezeichen drin sind ;)

Ansonsten gehts so:

T:\>.\tile_counter.pl --from=10 --to=20 --dir="%folder2delete%\%%n\" --file=*.png 10 11 12 13 14 15 16 17 18 19 20

Außerdem empfehle ich bei den Zeichen für die Kurz-Parameter diese eindeutig zu machen!
Code: (dl )

1 2 3 4 5 6

"f|file=s" => \@filemask, # filemasks to select several files (DEFAULT: all files) "d|dir=s" => \@dir, # dirs for scan (DEFAULT: current dir) "wiki" => \$wiki_output, # report in wiki-format (DEFAULT: off) "f|from=i" => \$from, # zoom level FROM (or min) "t|to=i" => \$to, # zoom level TO (or max) "h|help" => \$help # show help
Du hast im Zweifel zweimal -f, einmal für from, einmal für file
Wenn du die Kurzform bei from weglässt, gehts.

Lass dir mal mit say ausgeben, was in den Parametern drin ist.
Code (perl): (dl )

1 2 3 4 5

my $DEBUG = 1; $DEBUG && say '------------------------------'; $DEBUG && say $from; $DEBUG && say $to; $DEBUG && say '------------------------------';
mit "f|from=i" => \$from ergibt:
T:\>tile_counter.pl --from=10 --to=20 --dir=%folder2delete%\%%n\ --file=*.png ------------------------------ ARRAY(0x7aeda4) 20 ------------------------------

Wenn es nur --file erlaubt ist:
T:\>tile_counter.pl --from=10 --to=20 --dir=%folder2delete%\%%n\ --file=*.png ------------------------------ 10 20 ------------------------------ 10 11 12 13 14 15 16 17 18 19 20
Last edited: 2014-11-18 09:22:50 +0100 (CET)
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- jan99
  
  2014-11-18 09:32
  
  User since
  2008-09-18
  439 Artikel
  BenutzerIn
  
  hi !
  
  danke - das doppelte "f" hatte ich übersehen!
  
  gruß Jan :-)
  perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-11-18 08:24.