eigentlich nur Dateien Verschieben

[Levent]

hi,

ich will aus einem Verzeichnis Dateien
verschieben:

die logfiles hole ich mit

my @logfiles = glob("logfiles/*.log");

foreach(@logfiles){
    move($_,"11-2003/".$_);
}

jemand eine idee? vielleicht auch gleich
ne idee, wie ich die dateien gleichnamig
gzip'pen kann vorher ?

danke

[Struppi]

jemand eine idee? vielleicht auch gleich
ne idee, wie ich die dateien gleichnamig
gzip'pen kann vorher ?

Ja mit dem Modul wahrschenlich: http://theoryx5.uwinnipeg.ca/CPAN/data/Compress-Zlib/Zlib.html

Struppi.

[Erwin]

hi,

jemand eine idee? vielleicht auch gleich
ne idee, wie ich die dateien gleichnamig
gzip'pen kann vorher ?

Verstehe zwar das Problem nicht ganz, aber ich nehme dazu
  use File::Copy;
        copy("file1","file2");
        copy("Copy.pm",\*STDOUT);'
        move("/dev1/fileA","/dev2/fileB");

und zum zippen
foreach $file (@files){
        print "gzip -9 $file";
        my $x = qx(gzip -9 $file);
        print "$x\n";
}

Erwin