vergleichen von zwei .zip dateien (Allgemeines zu Perl)

fraggs

2006-12-18 11:26

User since
2006-09-11
179 Artikel
BenutzerIn

hallo erstmal schoenen montag :p
frage: ich moechte zwei .zip files auf den namen ueber pruefen. Wie wuerde die basis dafuer aussehen ? muss ich ein modul verwenden ?

ich habe ja jetzt schon text vergleicht und durchsucht doch die eigentlichen file name sind mir ein raetsel.

danke

mmm twix

renee

2006-12-18 11:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Bitte etwas genauer...

Welche Namen willst Du vergleichen?? Die der .zip-Dateien? Dann

Code: (dl )

my $zip1 = 'Test.zip';
my $zip2 = 'Test2.zip';
if($zip1 eq $zip2){
    print "gleich";
}
else{
    print "ungleich!";
}

Oder willst Du die Dateinamen der Dateien vergleichen, die *im* zip-File gepackt sind? Dann nimmst Du am besten CPAN:

Archive::Zip

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

fraggs

2006-12-18 12:03

User since
2006-09-11
179 Artikel
BenutzerIn

ja die zip files sind in einer daten bank und haben entweder jcoverage oder emma in dem datei namen.

dh ich muss vergleichen und if jcoverage run subroutine jcoverage else run emma

dies alles liegt auf einer CM synergy daten bank dh. ich werde die datei namen via query raus holen (kennt vielleicht jemand der im software entwicklungs business drin ist)

und ja ich will die namen der .zip dateien vergleichen nicht den inhalt.

EDIT: nochmals genauer. mit pseudo code

If jcoverage is found in name of zip1 then run jcoveragesub else run emmasub

dh ich muss pruefen ob jcoverage in dem namen vorhanden ist oder nicht also nicht direkt die zwei dateien vergleichen sondern rausfinden ob in einem der zwei jcoverage drink steckt.

ich ueberlege mal ob ich es noch irgendwie besser erklaeren kann\n\n

mmm twix

renee

2006-12-18 12:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

if($zip1 =~ /jcoverage/){
   jcoveragesub();
}
else{
   emmasub();
}

Oder mit index (siehe perldoc -f index):

Code: (dl )

if(index($zip1,"jcoverage") != -1){
    jcoveragesub();
}
else{
    emmasub();
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/