Mehrere Dateien in eine einzige einfügen - #106418 (Allgemeines zu Perl)

renee

2008-02-27 11:55

User since
2003-08-04
14371 Artikel
ModeratorIn

@tecker: Ein paar Anmerkungen:

Da sollten mehr Fehlerbehandlungen rein:

* opendir( DIR, "." ) or die $!;
* open(FILE,">>$file") or die $!;
* ...

Warum liest Du erst alles in ein Array ein und iterierst dann darüber?

Code: (dl )

opendir DIR, '.' or die $!;
while( my $entry = readdir DIR ){
    if( ... ){
    }
}
...

if ($_ =~ /^([\d]{6,}).txt/) hier sind sowohl die eckigen als auch die runden Klammern unnötig. Außerdem sollte der Punkt maskiert werden, weil sonst auch "1234567txt" gefunden werden würde. Das {6,} sagt "6 oder mehr". Hier wurde gesagt, dass es wohl genau(!) 6 Zahlen sind, also einfach das "," weglassen. Und es sollte noch der Anker am Ende verwendet werden, sonst würde auch "1234567txttxttxttxt" matchen.

Also if ($_ =~ /^\d{6}\.txt$/)

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/