Thread Perl Script Anpassung: Aus eins mach zwei...
(12 answers)
Opened by ManfredG. at 2007-05-26 02:25
[quote=ManfredG.,26.05.2007, 02:43]- Letztes Wort = Nachname
- Alles davor = Vorname[/quote] Das sollte so gehen: Code: (dl
)
my ($vorname, $nachname) = $t =~ /^\s*(\S(?:.*\S)?)\s+(\S+)\z/s or die "Zu wenig Woerter"; Opis Loesung mit split hingegen wird immer nur die ersten beiden Woerter herausholen und den Rest wegschmeissen. Die folgende Version sollte auch Sachen wie "van" und "de la" richtig behandeln, einfach anhand der Tatsache, dass sie normalerweise klein geschrieben sind: Code: (dl
)
1 my @komponenten = $t =~ /\S+/g; Hallo zusammen, und erst einml herzlichen Dank für Euere Hilfe. Ich denke, die obige Lösung wäre sicherlich ausreichend. Es geht bei der ganzen Sache um die Übermittlung der Kontoinhaber Daten an ein Zahlungsgateway. Also KontoNr. BLZ und Kontoinhaber. Wenn dabei kleinere Verwechslungen vorkommen sollten, bezüglich der exakten Zuordnung des Vornamens und des Nachnamens, ist das wahrscheinlich gar nicht so tragisch. Ich denke hauptsache in beiden Feldern steht etwas und beides zusammen ergibt den entsprechenden Kontoinhaber. Die obige Lösung würde also schon passen. Wenn ich die empfohlene Zeile in mein Script eintrage, bekomme leider immer noch diesen ERROR beim Versuch das Script zu starten: Global symbol "$t" requires explicit package name An was könnte das denn liegen? Ich habe schon versucht die Zeile an unterschiedlichen Stellen zu positionieren... Das betreffende Script hat um die 300 Zeilen. Ist es für Euch eine Hilfe, wenn ich hier einmal das ganze Script poste? Herzlichen Dank für Euere Hilfe. Liebe Grüße Manfred\n\n <!--EDIT|ManfredG.|1180226686--> |