Opened by FoCMB at 2007-12-03 11:53
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Ein paar Anmerkungen:
my @eintraege = readdir(DIR);
Hier holst Du nicht nur Dateien, sondern auch alle Verzeichnisse (inklusive der Einträge '.' (aktuelles Verzeichnis) und '..' (übergeordnetes Verzeichnis)).
Wenn Du alle .txt-Dateien haben willst, solltest Du es so machen:
my @eintraege = grep{ -f "/Daten/alt" . $_ and /\.txt$/ }readdir(DIR); mehr zu dem "-f" findest Du unter
-f -X.
Du solltest eine Variable für den Verzeichnispfad verwenden. Das macht das Skript wartbarer...
Aus
kannst Du das hier machen:
my @eintraege = readdir(DIR);
Hier holst Du nicht nur Dateien, sondern auch alle Verzeichnisse (inklusive der Einträge '.' (aktuelles Verzeichnis) und '..' (übergeordnetes Verzeichnis)).
Wenn Du alle .txt-Dateien haben willst, solltest Du es so machen:
my @eintraege = grep{ -f "/Daten/alt" . $_ and /\.txt$/ }readdir(DIR); mehr zu dem "-f" findest Du unter
-f -X.Du solltest eine Variable für den Verzeichnispfad verwenden. Das macht das Skript wartbarer...
Aus
Code: (dl
)
1
2
3
4
5
my $n = 0;
for ($n = 2 ; $n < $anzahl + 1 ; $n++)
{
my $filename = $eintraege[$n];
#...
kannst Du das hier machen:
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/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/