Erweiterung einer Funktion zum Zählen von Dateien (Allgemeines zu Perl)

[thread]19392[/thread]

Erweiterung einer Funktion zum Zählen von Dateien

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+6 replies

jan99

2014-11-19 15:53

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

Moin !

leider finde ich das Posting was die Basis für diesen Code nicht wieder....

Code (perl): (dl )

#!/usr/bin/perl
# 
# ToDo
# Ausgabe im Wiki-Format für die Dokumenation

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)
    "from=i" =>   \$from,             # zoom level FROM (or min)
    "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;


if (not @filemask) {
    say "!!!! ##ERROR## !!!! filemask must not be empty!\n";
    help();
}

for my $i ($from .. $to) {
  #### search files
  print "Zoomstufe ".$i."\n";
  my $rule = File::Find::Rule->new();
  # count of files to have action
  my $total_count = 0;
  $rule->name(@filemask);   # set filemasks for search
  $rule->exec(              # this sub is called for each matched file of search
    sub {
      #my ( $shortfn, $dir.$i."\\", $filename ) = @_;
          my ( $shortfn, $dir, $filename ) = @_;
          $dir .= $i."\\";
      $filename = File::Spec->rel2abs($filename);
      $total_count++;
    }
  );
  print "zaehle .....\r";
  $rule->in(@dir);                        #start search in dirs now
  print "total files: ".$total_count."\r";
  print "\n";
}#end-for




exit;

# -----------------------------------------------------------------------------


# ------------------------------------

sub help {
    print <<"HELP";
Usage:
   $PROGNAME --file=FILEMASK --dir=DIR1
   
Parameters:
   --dir           Selected directory
   --file          Filemask for selecting several files
   --wiki          Output in Wiki-Table-Format
   --help          This help
   
Example:

   $PROGNAME --file=a.[12]* -d=X:\\TEST
        
HELP
    exit 4711;
}

__END__

Ich habe dort eine Schleife eingebaut um nummerische Verzeichnisse (beschreiben Zoomstufen für eine Karte) auswerten zu können. Das ist die Schleife mit dem Codeauszug

Code (perl): (dl )

for my $i ($from .. $to) {

Dann habe ich mir überlegt das ich die Nummer noch an das Basis-Auswertungsverzeichnis anhängen muss und die Zeile

Code (perl): (dl )

$dir .= $i."\\";

ergänzt. Aber das lief überhaupt nicht.

Es wird die erste Zoomstufe gestartet und dann zählt er sich wohl einen Ast ab. Ich vermute, das das Problem bei der Übergabe der Parameter liegt. Aber erklären kann ich es mir auch nicht.

Auch der Versuch über

Code (perl): (dl )

my ( $shortfn, $dir.$i."\\", $filename ) = @_;

hat nicht gefruchtet.

Kann mir einer weiterhelfen von Euch?

Gruß Jan :-)

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

+4 replies
Muffi

2014-11-19 16:04
User since
2012-07-18
1465 Artikel
BenutzerIn
Ich bin grad verwirrt.
Code (perl): (dl )

my ( $shortfn, $dir.$i."\\", $filename ) = @_;
Du liest hier Argumente aus, die der sub übergeben werden. Und zwar in Variablen mit einem Variablennamen. Und $dir.$i."\\" ist wohl kein gültiger Variablenname.

Zu
Code (perl): (dl )

$dir .= $i."\\";
Du willst also in einer sub, die aufgerufen wird _nachdem_ die Datei gefunden wurde deren Verzeichnis umbaun? Und was soll dann dabei rauskommen?

Aber meine Kristallkugel sagt, mir, dass du vielleicht sowas in der Art wollen könntest. PS: Ich hab mit / statt \ bessere Erfahrungen.
Code (perl): (dl )

$rule->in(map { $_.$i."\\" } @dir);
edit2: Falls du nur zählen willst brauchts die sub garnicht, du kannst auch "scalar $rule->in(...)" nehmen.
Last edited: 2014-11-19 16:13:43 +0100 (CET)
1 + 1 = 10
- +3 replies
- jan99
  
  2014-11-19 16:13
  
  User since
  2008-09-18
  439 Artikel
  BenutzerIn
  
  Moin !
  
  erst einmal danke - werde ich morgenfrüh gleich angehen.
  
  Quote
  Aber meine Kristallkugel sagt, mir, dass du vielleicht sowas in der Art wollen könntest. PS: Ich hab mit / statt \ bessere Erfahrungen.
  
  Da könnte der Unterschied sein, das ich auf Windows arbeitet - hatte ich vergessen mit zu schreiben.
  
  Gruß Jan :-)
  perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
  - +2 replies
  - Muffi
    
    2014-11-19 16:16
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Das ist Perl egal. Der kann / genauso wie \
    1 + 1 = 10
    - jan99
      
      2014-11-20 08:02
      
      User since
      2008-09-18
      439 Artikel
      BenutzerIn
      
      Moin Muffi,
      
      Deine Glaskugel war richtig geputzt !
      
      Danke !
      
      Gruß Jan :-)
      perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

GwenDragon

2014-11-20 10:43

User since
2005-01-17
14533 Artikel
Admin1

2014-11-19T14:53:33 jan99
Moin !

leider finde ich das Posting was die Basis für diesen Code nicht wieder....

Du meinst msg #177948?

In $rule->exec() kannst du nix ändern, $rule->exec() sucht nicht sondern wird für jede gefundene Datei ausgeführt.
Du musst deine "hochgezählten" Verzeichnisse in $rule->in() übergeben ;)

Ungetestet:

Code (perl): (dl )

for my $i ($from .. $to) {
  #### search files
  print "Zoomstufe ".$i."\n";
  my $rule = File::Find::Rule->new();
  # count of files to have action
  my $total_count = 0;
  $rule->name(@filemask);   # set filemasks for search
  $rule->exec(              # this sub is called for each matched file of search
    sub {
      my ( $shortfn, $dir, $filename ) = @_;
      $filename = File::Spec->rel2abs($filename);
      $total_count++;
    }
  );
  print "zaehle .....\r";

  my @mydirs = map { $_ . $i . "\\" } @dir;

  $rule->in(@mydirs);                        #start search in dirs now

  print "total files: ".$total_count."\r";
  print "\n";
}#end-for

Last edited: 2014-11-20 10:54:49 +0100 (CET)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2014-11-19 15:53.