FTP Programm Upload (Seite 2) (Allgemeines zu Perl)

Crian

2005-11-23 15:00

User since
2003-08-04
5873 Artikel
ModeratorIn

Das "Skript von Crian" war ein ungetesteter Versuch in dein Skript den Pfad mit einzubauen um dein Problem zu verdeutlichen, keine Lösung ^^

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

Strat

2005-11-23 15:02

User since
2003-08-04
5246 Artikel
ModeratorIn

vielleicht hilft dir auch (zumindest als nettes zusatzfeature) das script auf meiner "HP -> Perl -> Codebeispiele -> chmod via FTP" weiter...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

esskar

2005-11-23 15:08

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

was ist an meinem script kompilizierter ?

duerov

2005-11-23 15:40

User since
2005-10-26
27 Artikel
BenutzerIn
[default_avatar]

@Crian
Schon klar, war von mir falsch ausgedrückt.
@esskar
Also erstens check ich mal das erste if nicht.
Probier ich gleich mal aus ob das auch ohne geht.

Code: (dl )

if(opendir(my $handle, $path))

In dieser Zeile

Code: (dl )

next if $file =~ m#^\.\.?$#;

wird wenn $file = ... ist die Schleife abgebrochen. Hier liegt glaub ich auch mein Hauptproblem, ich komm in Perl mit diesen RE m#^\.\.?$#; nicht zurecht. Weiß immer nicht wie man die ließt. Da muss ich mich mal kundig machen, dann check ich vielleicht auch, wann du die Schleife abbrichst :-).

Crian

2005-11-23 15:48

User since
2003-08-04
5873 Artikel
ModeratorIn

Das if testet, ob opendir erfolg hatte.

^ = Anfang des Strings
\. = Punkt
? = letztes Zeichen null oder einmal
$ = Ende des Strings

Also wird bei '.', '..' die weitere Verarbeitung übersprungen und mit der nächsten Datei weitergemacht. Aber '.vimrc' und so weiter wird übertragen.

Du könntest auch schreiben

Code: (dl )

next if $file =~ m#^[.]{1,2}$#;

oder

Code: (dl )

next if $file eq '.' or $file eq '..';

\n\n

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

esskar

2005-11-23 15:57

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

du filterst mit deinem grep ja auch schon die verzeichnisse "." und ".." raus... das gleiche mach ich auch mit dem regexp.

duerov

2005-11-24 09:13

User since
2005-10-26
27 Artikel
BenutzerIn
[default_avatar]

Guten Morgen allerseits,
jetzt hätte ich noch eine Frage. Ich lad ja Dateien aus einem Ordner hoch, sollten sich darin weitere Unterordner befinden muss ich auf die ja auch wieder die RE anwenden. Die Anzahl kann auch variieren, wie soll ich dem jetzt sagen, dass er auch die Unterordner mit

Code: (dl )

"Bilder"-->"Herren"-->"1.Mannschaft","2.Mannschaft"

hochlädt? Bis jetzt warens ja nur Dateien.
Gruß!

renee

2005-11-24 12:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Entweder arbeitest Du selbst mit Rekursion oder (was besser waere) Du schaust Dir CPAN:

Net::FTP::Recursive an...

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/

esskar

2005-11-24 13:07

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=renee,24.11.2005, 11:03]Entweder arbeitest Du selbst mit Rekursion oder (was besser waere) Du schaust Dir CPAN:

Net::FTP::Recursive an...[/quote]
selbst dann würde er mit rekursion arbeiten .. hehe

Crian

2005-11-24 14:47

User since
2003-08-04
5873 Artikel
ModeratorIn

ja, aber nicht mehr selbst (:

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