Beitrag von Jürgen (614 Beiträge) am Mittwoch, 11.Juni.2003, 14:46.
@Perl-Profis/ regex Sonderzeichen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 14:50.
Re: @Perl-Profis/ regex Sonderzeichen
Antworten
Beitrag von Christoph Bergmann (8110 Beiträge) am Mittwoch, 11.Juni.2003, 14:50.
Re: @Perl-Profis/ regex Sonderzeichen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 15:09.
Re: @Perl-Profis/ regex Sonderzeichen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 15:31.
Re: @Perl-Profis/ regex Sonderzeichen
achso... dann hab ich das falsch verstanden.... ich dachte, genau diese zeichen sollen nicht dürfen ;-)
Antworten
Beitrag von Jürgen (614 Beiträge) am Mittwoch, 11.Juni.2003, 15:23.
Re: @Perl-Profis/ regex Sonderzeichen
Hi Christoph, Hi Sander,
Danke.
Bekomm ne Fehlermeldung:
[ Fehler: (perl) in /blabla/putmeb: Invalid [] range ";-:" before HERE mark in regex m/[^\w.,;-: << HERE ]/ ]
Verwendet: if($Name=~ /[^\w.,;-:]/)
Ja, Christoph: Erlaubte Zeichen. (:;. usw..)
Hmm??
Gruß
Jürgen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 15:33.
Re: @Perl-Profis/ regex Sonderzeichen
setz dem bindestrich mal als letztes zeichen
Sander
Antworten
Beitrag von Jürgen (614 Beiträge) am Mittwoch, 11.Juni.2003, 15:46.
Re: @Perl-Profis/ regex Sonderzeichen
Hi Sander,
jupp, funzt so ;-)
Auf das wäre ich nie gekommen - Bindestrich als letztes Zeichen zu setzen.
Jetzt ist das so, das ich eine Menge Felder überprüfen muss, ob Sonderzeichen enthalten sind.
Gibt es da eine einfachere, bessere Lösung
dafür als:
<perl>
if($Name=~ /[^\w.,;:-]/)
{
out "$Name enthält Sonderzeichen!<br>";
}
if($Vorname=~ /[^\w.,;:-]/)
{
out "$Vorname enthält Sonderzeichen!";
}
else
{
my $emsg="";
if(%_put)
{
$emsg.="Kartengültigkeit<br>" if $_put{_EndDat_Jahr} eq "";
usw..
...
Gruß
Jürgen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 16:41.
Re: @Perl-Profis/ regex Sonderzeichen
foreach("Name","Vorname"){
{
if($$_=~ /[^\w.,;:-]/)
{
out $$_." enthält Sonderzeichen!<br>";
$err=1;
}
}
if(!$err)
{
my $emsg="";
if(%_put)
{
$emsg.="Kartengültigkeit<br>" if $_put{_EndDat_Jahr} eq "";
usw..
put undef, "member";
Sander
Antworten
Beitrag von Jürgen (614 Beiträge) am Mittwoch, 11.Juni.2003, 17:12.
Re: @Perl-Profis/ regex Sonderzeichen
Hi Sander,
Danke erst mal für die promten Antworten.
Soweit funzt es, aber sobald ein Feld korrekt ausgefüllt wurde, schreibt mir
mein put in die Datenbank. D.h., die anderen Felder könnten Sonderzeichen beinhalten.
Ausgabe sollte so noch aussehen.
Texte beinhalten Sonderzeichen!!
Zurück zur Eingabe!!
Name: Jürgen enthält Sonderzeichen!
Vorname: Scheugenpflu% enthält Sonderzeichen!
Danke.
Gruß
Jürgen
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juni.2003, 19:52.
Re: @Perl-Profis/ regex Sonderzeichen
Antworten