Files verschieben und kopieren (gelöst) (Allgemeines zu Perl)

[thread]18998[/thread]

Files verschieben und kopieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies

epsodus

2014-03-28 14:04

User since
2014-03-28
3 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,
ich bin neu in diesem Forum und habe schon eine Bitte. Dazu muß ich sagen,
mit Perl habe ich keine Erfahrung. Mein Problem ist folgendes :
Ich möchte Dateien in einem Verzeichnis an einem bestimmten Merkmal
erkennen und dann in ein bestimmtes Verzeichnis kopieren oder verschieben. Unten habe ich mal einiges dazu geschrieben. Wer könnte mir dabei helfen, ich möchte auch daraus lernen. Wenn ich ehrlich bin,
es hört sich kompliziert an und meine Bitte ist wohl sehr groß, seh wahrscheinlich auch unverschämt.

Diese Dateien liegen im Verzeichnis C:\Test\Import
Dateinamen :
1.) TTS3.DOWN.GGFFF.02502185.W144285.X204150.Z55.8984.CSV
2.) TTS3.xxxxxx.xxxxxx.CONFIRM.xxxxxxx.xxxxxxx.xxxx.CSV
3.) TTS3.xxxxxx.xxxxxx.02502106.xxxxxxx.xxxxxxx.xxx.xxxx.CSV
4.) TTS3.xxxxxx.xxxxxx.02502100.xxxxxxx.xxxxxxx.xxx.xxxx.CSV
5.) RT001.TTS3.xxxxxx.xxxxxx.02502185.xxxxxxx.xxxxxxx.xxx.xxxx.CSV

Die Dateien sollen wie folgt erkannt werden :
1.) TTS3 und 02502185
2.) TTS3 und CONFIRM
3.) TTS3 und 02502106
4.) TTS3 und 02502100
5.) RT001 und TTS3 , hier kann das erste Merkmal (RT001) variieren.

1.) GGR-Datei ( TTS3 und 02501185 ) ins Verzeichnis GGR zuerst kopieren
2.) Confirm-Datei ( TTS3 und Confirm ) ins Verzeichnis Confirm verschieben
3.) Nack-Datei ( TTS3 02502106 ) ins Verzeichnis Nack verschieben
4.) Ack-Datei ( TTS3 und 02502100 ) ins Verzeichnis Ack zuerst kopieren

5.) Nic-Datei ( z.B. RT001 und TTS3 ) ins Verzeichnis Nic verschieben .
Hier steht immer ein 5 stelliges Kürzel mit einem . vor dem TTS3

6.) GGR und ACK- Datei ( TTS3 und 02502185 ) , ( TTS3 und 02502100 ) ins Verzeichns
AckGGR jetzt verschieben

Ich hoffe das ich es mal gutmachen kann.
Last edited: 2014-03-28 14:52:42 +0100 (CET)

+4 replies

Raubtier

2014-03-28 15:07

User since
2012-05-04
1083 Artikel
BenutzerIn
[default_avatar]

Und wo genau ist jetzt dein Problem?

Dateien einlesen kannst du zum Beispiel mit glob oder readdir. Dann könntest du die Dateien an den Punkten in ein Array splitten. Und dann deine Merkmake mit dem 1. und 4. Element vergleichen.

Umbenennen geht mit rename oder mit der Funktion move aus Perldoc:

File::Copy.

Eine Beschreibung der Funktionen bekommst du mit perldoc -f <funktionsname> auf der Kommandozeile oder unter http://perldoc.perl.org/index-functions.html
Last edited: 2014-03-28 15:10:41 +0100 (CET)

+3 replies

epsodus

2014-03-28 15:14

User since
2014-03-28
3 Artikel
BenutzerIn
[default_avatar]

Hallo,

mein Problem ist, ich kann kein Perl und habe im Moment keine Vorstellung wie ich es überhaupt anpacke.

+2 replies

epsodus

2014-03-28 15:23

User since
2014-03-28
3 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe nit den Verzeichnissen angefangen. Dazu folgendes geschrieben :

Code: (dl )

 #!/usr/bin/perl

use strict;

my $verz="c:/Test";


sub verarbeite {
    my @files;
    my $x;
    chdir "${verz}/$_[0]";

    @files = glob("*.csv");

    open OUT, ">", "${verz}/Ergebnis/$_[1]";
    foreach my $file (@files) {
        print "Searching $file\n";
#
#
#
verarbeite("Import", "*.csv"); #

Versuche gerade meine Verzeichnisse anzulegen

Gast ert

2014-03-29 11:12

die { klammern sollten geschlossen } werden. ich glaube nicht das das so funktioniert.

Code (perl): (dl )

 #!/usr/bin/perl

use strict;
use warnings;

my $verz="c:/Test";


sub verarbeite {
    my ($name, $dir, $glob) = @_;

    my @files = glob("$dir/$glob");

    my $outdir="$dir/Ergebnis";
    my $outfile="$outdir/$name";

    if( @files ) {

       unless(-d $outdir) {
         mkdir($outdir) or die("Error mkdir $outdir : $!");
       }

        open( my $fh, '>', $outfile) or die("Error open $outfile : $!");
        
        for my $file (@files) {
            print "Searching $file\n";

            # ...

        }

        close($fh);

    }
}

verarbeite("Import", $verz, "*.csv");

Last edited: 2014-03-29 11:21:38 +0100 (CET)

hlubenow

2014-03-29 18:50

User since
2009-02-22
885 Artikel
BenutzerIn
[default_avatar]

Ja, ist 'ne große Bitte, aber mir war mal wieder langweilig:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

use File::Copy;

my $indir = "C:/Test/Import";

my @crit = (["TTS3", "02502185"],
            ["TTS3", "CONFIRM"],
            ["TTS3", "02502106"],
            ["TTS3", "02502100"]);

my @dirs = ("GGR",
            "Confirm",
            "Nack",
            "Ack");

sub createDir {
    my $dirname =shift;
    if (! -e $dirname) {
        # mkdir($dirname);
        print "$dirname\n";
    }
}

chdir($indir);
my @files = glob("*.CSV");
my $dirname;
for my $i (@files) {
    for my $u (0 .. $#crit) {
        if ($i =~ /\Q$crit[$u][0]\E/ &&
            $i =~ /\Q$crit[$u][1]\E/) {
           if ($dirs[$u] eq "Ack" || $dirs[$u] eq "GGR") {
                my $d2 = "$indir/AckGGR";
                createDir($d2);
                my $t2 = "$d2/$i";
                # copy($i, $t2);
                print "$i -> $t2\n";
            }
            $dirname = "$indir/$dirs[$u]";
            print "\n";
            createDir($dirname);
            my $target = "$dirname/$i";
            # move($i, $target);
            print "$i -> $target\n";
        }
    }
    if ($i =~ /.{5}\.TTS3/) {
        $dirname = "$indir/Nic";
        print "\n";
        createDir($dirname);
        my $target = "$dirname/$i";
        # move($i, $target);
        print "$i -> $target\n";
    }
}

Ist das richtig, daß auch die RT001.-Datei auf "TTS3" und "02502185" matcht, also zugleich auch eine GGR-Datei ist?

View all threads created 2014-03-28 14:04.