String aufteilen

[Steve]

Hallo,

ich möchte aus dem String "[e-mail]" den Vornamen und den Nachnamen extrahieren und Variablen zuweisen.
Ich habe folgenden Lösungsansatz:

my @name;

@name = split(/./, "[e-mail]");
print "$name[0] , $name[1]}";

Leider sind die Vars leer! Und wie bekomme ich "@domain.de" weg?
Nochmals SPLIT anwenden?

Weiss jemand eine Lösung?

Danke,
Steve

[alligator]

@name = split(/./, "[e-mail]");
print "$name[0] , $name[1]}";

Hi,
Quoting ist dein Freund :o)

Probier mal: @name = split(/./, "[e-mail]");

So long ..
alligator

[Tobias Kloth]

Hallo Steve,

@name = split(/./, "[e-mail]");

ich kenn mich in perl nicht aus, aber in php verwendet split() einen regulären Ausdruck - und in diesem hat der Punkt eine besondere Bedeutung und muss also maskiert werden.

Und wie bekomme ich "@domain.de" weg?
Nochmals SPLIT anwenden?

ich würde sagen, ja - aber ich würde das erst machen.

Grüße aus Nürnberg
Tobias

[MudGuard]

Hi,

ich möchte aus dem String "[e-mail]" den Vornamen und den Nachnamen extrahieren und Variablen zuweisen.
Ich habe folgenden Lösungsansatz:
my @name;
@name = split(/./, "[e-mail]");
print "$name[0] , $name[1]}";

. steht für ein beliebiges Zeichen in RegEx.

Leider sind die Vars leer! Und wie bekomme ich "@domain.de" weg?
Nochmals SPLIT anwenden?

Nein, geht auch mit einem Split. Zeichenklassen verwenden!
z.B. /[.@]/

cu,
Andreas

[alligator]

Hook nochmal,

ich hab grad übersehen dass du bei [e-mail],
dass @ auch quoten solltest ...
Ich schlage die folgendes vor:

"[e-mail]" =~ /(.*?).(.*?)@.*/;
print "Vorname: $1\nNachname: $2";

cya
alligator

[Christian Seiler]

Hallo Steve,

@name = split(/./, "[e-mail]");

split erwartet einen regulären Ausdruck.

Leider sind die Vars leer! Und wie bekomme ich "@domain.de" weg?
Nochmals SPLIT anwenden?

Mach es doch so:

my $email = "[e-mail]";

if ($email =~ /^([^.]+).([^@]+)@(.*)$/) {
  $vorname = $1;
  $nachname = $2;
  $domain = $3;
} else {
  # format stimmt nicht
}

Viele Grüße,
Christian

PS: Du arbeitest bei Sedo?

[Steve]

Hi Christian,

es klappt! Diese Coder ist aber ganz schön schwer zu lesen. Voher muss ich nun halt @ durch @ im String ersetzen.

Oder 2 x Split (mit Quoting) anwenden.

my $email = "[e-mail]";
if ($email =~ /^([^.]+).([^@]+)@(.*)$/) {
  $vorname = $1;
  $nachname = $2;
  $domain = $3;
} else {
  # format stimmt nicht
}

PS: Du arbeitest bei Sedo?

Wie soli ich das verstehen?

An alle anderern: Danke für die Hilfe!!

Bye,
Steve

[Christian Seiler]

Hallo Steve,

my $email = "[e-mail]";
if ($email =~ /^([^.]+).([^@]+)@(.*)$/) {
  $vorname = $1;
  $nachname = $2;
  $domain = $3;
} else {
  # format stimmt nicht
}

Das ist aber inzwischen klar, oder?

PS: Du arbeitest bei Sedo?

Wie soli ich das verstehen?

http://www.domain.de/

Viele Grüße,
Christian

[Steve]

Hi Christian,

ich muss gestehen die Anweisung

if ($email =~ /^([^.]+).([^@]+)@(.*)$/)

ist mir nicht ganz klar :-(

Ich habe jetzt die Routine mit 2x Split formuliert.

Bye,
Steve

[Christian Seiler]

Hallo Steve,

ich muss gestehen die Anweisung

if ($email =~ /^([^.]+).([^@]+)@(.*)$/)

ist mir nicht ganz klar :-(

In SELFHTML ist das eigentlich ganz gut beschrieben: http://selfhtml.teamone.de/cgiperl/sprache/regexpr.htm Wenn es Dir nach dem Lesen der Seite immer noch unklar ist, frag nach.

Ich habe jetzt die Routine mit 2x Split formuliert.

Das läuft - wenn das Format immer das gleiche ist - auf dasselbe hinaus.

Viele Grüße,
Christian