Verzeichnis mit Unterverzeichnissen durchsuchen (Seite 3) (Allgemeines zu Perl)

Crian

2004-06-02 11:50

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=renee,02.06.2004, 09:27]

Code: (dl )

push(@dateien,$_) unless($_ =~ /^\.\.?/);

[/quote]
Das ist böse ... da wird .WichtigesVerzeichnis auch nicht mit aufgenommen...

besser

Code: (dl )

push(@dateien,$_) unless($_ =~ /^\.\.?$/);

oder

Code: (dl )

push(@dateien,$_) unless($_ =~ /^\.{1,2}$/);

oder

Code: (dl )

push(@dateien,$_) unless $_ eq '.' or $_ eq '..';

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-06-02 12:27

User since
2003-08-04
14371 Artikel
ModeratorIn

uups, das $ wollte ich eigentlich auch schreiben...

Ich bin irgendwie noch nicht so ganz fit heute...

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/

Tom

2004-06-03 21:15

User since
2003-09-20
470 Artikel
BenutzerIn

Also, ich danke euch schon mal, es funktioniert jetzt fast alles so wie ich das haben wollte, bis aus eins. Ihr habe jetzt mit unless bestimmte Einträge unterdrückt, wie muß ich das jetzt schreiben damit ich nur bestimmte Einträge bekomme???

Ich dachte so

Code: (dl )

find(sub {push(@dateien,$_) if $_ eq '.gif' },@directories);

da muß aber noch irgendwas vor das .gif damit alle Dateien mit der Endung gif gefunden werden , aber was???

Danke

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2004-06-03 22:50

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

if($_ =~ /\.gif$/)

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/

Tom

2004-06-04 14:58

User since
2003-09-20
470 Artikel
BenutzerIn

Jo, Danke funktioniert.

Für was ist eigentlich das $ gut???

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2004-06-04 15:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Dass es am Ende vom Dateinamen sein muss...

http://www.uni-tuebingen.de/plant.biochemistry/Lehre/Perl_regex.pdf
http://www.ceebt.embo.org/projects/project9/material/block_8.pdf

perldoc perlre
<- hier findest Du weitere Infos zu Regular Expressions\n\n

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/

renee

2004-06-04 15:13

User since
2003-08-04
14371 Artikel
ModeratorIn

Zum Einstieg bei RegEx sehr gelungen: http://www.regenechsen.de/regex_de/regex_1_de.html

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/

Tom

2004-06-05 15:43

User since
2003-09-20
470 Artikel
BenutzerIn

Danke

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen