Perl-Ecke

SpaceRat

attouga hat geschrieben:

- das Perl-Skript aufrufen ... Ergebnis ist eine mueller.csv (509 Zeilen) fuer GoPal3/4 im selben Verzeichnis
(... ich hab es _nicht_ unter WINDOWS probiert ! )

Zweierlei:

Das Programmieren in Perl hast Du nicht von mir abgeguckt... Dein Stil ist sauberer. Man könnte fast meinen, Du wüsstest, was Du da tust...
Wenn Du es nicht unter Windows probiert hast: Wie kompostierst Du Dir die PSFs? Läuft PSFCreator unter WINE?

SpaceRat

rohoel hat geschrieben:

übrigens super, die erste drogerie! :up:

ich könnte heulen vor freude! :lachtot:

Haben wir bestimmt auch von den NF abgeerntet :lachtot:

PS: Wieso schreibe ich hier eigentlich die Perl-Scripts, wenn attouga weit bessere reguläre Ausdrücke gebastelt kriegt?
Und Hashes kann der Mann auch noch. Ich hasse Hashes.... am Ende kommt der Kerl auch noch mit Hashes von Hashes oder Arrays von Hashes oder Hashes von Arrays.... oder einem Hash of Hashes of Hashes of Hashes...

@attouga: Kann man Dich mieten?

PS: Eine Einschränkung: Die RegExp für Straße/Hausnummer ist nicht so ausgefeilt...

Code:

if ( $strhnr =~ /(.*) (\d.*)/ )

matched nicht richtig bei Hausnummern mit Anhang (1a, 10c, usw.) oder Bereichen (1-3).

Code:

      if ( $strhnr =~ /^(.+?)
               \s?
               (\d{1,}\s*(?:[a..zA..Z]{1}|)\s*(?:[\/\-\+]|)\s*(?:\d{1,}|)\s*(?:[a..zA..Z]{1}|)|)$/ix )

matched relativ zuverlässig jede Straße+Hnr.-Kombi bei der Anordnung Straße Hausnummer (Nicht Hausnummer+Straße).

Außerdem dürfte bei Deiner RegExp eine Drogerei Müller in der Straße des 17. Juni so enden:
...;Straße des;17;....

attouga · **Registriert:** Sa 19. Apr 2008, 20:49 **Beiträge:** 88

SpaceRat hat geschrieben:

attouga hat geschrieben:

- das Perl-Skript aufrufen ... Ergebnis ist eine mueller.csv (509 Zeilen) fuer GoPal3/4 im selben Verzeichnis
(... ich hab es _nicht_ unter WINDOWS probiert ! )

Zweierlei:

Das Programmieren in Perl hast Du nicht von mir abgeguckt... Dein Stil ist sauberer. Man könnte fast meinen, Du wüsstest, was Du da tust...

Yepp ... Jahrelanges "Perl-Rumgehacke" .... aber "Sauber" .... nee is' und bleibt "Q&D" ....
hab fuenf Jahre meinen "Werkstudenten" versucht Perl beizubringen .... Hartes Brot ...
Am Ende konnt mir der das Wasser reichen (manchmal)
Als alter "Assembler"-Programmierer wundert man sich, was man alles mit einer Zeile Perl-Code anstellen kann ...
Seitdem ich Perl kenne, lasse ich von "C" die Finger .. das krieg ich nich' mehr auf die Reihe ....

SpaceRat hat geschrieben:

Wenn Du es nicht unter Windows probiert hast: Wie kompostierst Du Dir die PSFs? Läuft PSFCreator unter WINE?

WINE .... ne hab ich noch nich' probiert .... waer aber mal' ne Stunde wert ....
... Linux und dann via "Putty/pscp" auf die WIN-Dose ....
.... mein Werkstudent hat es immer min WINSCP gemacht ... is' mir aber zu "dekadent" !!!!

SpaceRat

rohoel hat geschrieben:

SpaceRat hat geschrieben:

Und Hashes kann der Mann auch noch. Ich hasse Hashes.... am Ende kommt der Kerl auch noch mit Hashes von Hashes oder Arrays von Hashes oder Hashes von Arrays.... oder einem Hash of Hashes of Hashes of Hashes...

ich vesteh nur hauptbahnhofer in hannover!

Das geht mir ähnlich. Deshalb vermeide ich ja auch Hashes.

rohoel hat geschrieben:

EDIT: die type-id-liste sollte auch mal jemand oben weiterpflegen, so muß man schon arg wissen, wo was steht! wichtige post´s gehen hier leicht verschütt, und keiner macht sich gerne zwei mal arbeit (oder, admin?).

Ich dachte, Du machst das...

attouga · **Registriert:** Sa 19. Apr 2008, 20:49 **Beiträge:** 88

SpaceRat hat geschrieben:

rohoel hat geschrieben:

übrigens super, die erste drogerie! :up:

ich könnte heulen vor freude! :lachtot:

PS: Wieso schreibe ich hier eigentlich die Perl-Scripts, wenn attouga weit bessere reguläre Ausdrücke gebastelt kriegt?
Und Hashes kann der Mann auch noch. Ich hasse Hashes.... am Ende kommt der Kerl auch noch mit Hashes von Hashes oder Arrays von Hashes oder Hashes von Arrays.... oder einem Hash of Hashes of Hashes of Hashes...

... das laesst sich beliebig kombinieren ....

Zitat:

@attouga: Kann man Dich mieten?

.... neee ... hier gibt's das fuer lau ... (.... aber nur hier ....)

SpaceRat hat geschrieben:

PS: Eine Einschränkung: Die RegExp für Straße/Hausnummer ist nicht so ausgefeilt...

Code:

if ( $strhnr =~ /(.*) (\d.*)/ )

matched nicht richtig bei Hausnummern mit Anhang (1a, 10c, usw.) oder Bereichen (1-3).
Außerdem dürfte bei Deiner RegExp eine Drogerei Müller in der Straße des 17. Juni so enden:
...;Straße des;17;....

Neee neeee ...
if ( $strhnr =~ /(.*) (\d.*)/ )
... passt hier scho .....

NaviJoy

Perl-Ecke

Wer ist online?