Naja, für so etwas einfaches ziehe ich aber eine im Code sichtbare RE der Verwendung des Moduls vor. Anders wäre es bei komplizierteren Sachen...

[quote=Crian,17.10.2003, 15:43]Also lieber /^[-+0-9.,_]+$/ oder was man an Zeichen so gern in seiner Zahl zulassen möchte...[/quote]
",,,," ist aber keine Zahl.

Das stimmt. Es kommt natürlich darauf an, was man da eigentlich filtert, also wie gut (oder schlecht) die Eingangsdaten sind. Wenn ... vorkommen kann und andere Schweinereien wie '-.,,+.' etc., braucht man komplexere RE's und dann würd ich zu den vorgefertigten greifen.

Edit: Wie verfährt Perl eigentlich mit '_' in Zahlen? Wird das Zeichen generell ignoriert, oder nur an den passenden Stellen?

Ist "-_9._6" eine Zahl für Perl?

Perl sagt mit



"nein".

Bei



sagt es "ja", allerdings gibt es drei mal

Quote

Misplaced _ in number at C:\Daten\perl\underscore_in_zahl.pl line 1.

von sich...\n\n

<!--EDIT|Crian|1066663889-->

Wenn im zweiten Fall "ja" herauskommt, ist dein perl kaputt, denn die Zahlen sind nicht gleich. ;)

Was den Underscore angeht: Perl mag ihn nur zwischen Ziffern, wo er ja auch sinnvoll ist; an anderen Stellen einer Zahl gibt's eine Warnung.

Zum Problem siehe uebrigens auch perldata:
[quote=Scalar values,perldata]
[...] At other
      times, you might prefer to determine whether string data can be used numerically by calling the POSIX::strtod() function
      or by inspecting your string with a regular expression (as documented in perlre).
          warn "has nondigits"        if     /\D/;
          warn "not a natural number" unless /^\d+$/;             # rejects -3
          warn "not an integer"       unless /^-?\d+$/;           # rejects +3
          warn "not an integer"       unless /^[+-]?\d+$/;
          warn "not a decimal number" unless /^-?\d+\.?\d*$/;     # rejects .2
          warn "not a decimal number" unless /^-?(?:\d+(?:\.\d*)?|\.\d+)$/;
          warn "not a C float"
              unless /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/;
[/quote]

Das Thema ist gar nicht so uninteressant, z.B. ob eine Variable undef, 0 oder '' ist.

Ich habe mal sowas gebraucht, um in HTML ein Tabellenfeld auf jeden Fall sichtbar zu gestalten. Bei fehlt der Rahmen, wenn . Mit verschwindet auch die 0, wenn vorher war. Es beseitigt nur das ''- und undef-Problem.\n\n

<!--EDIT|steffenw|1066674395-->

[quote=Dubu,20.10.2003, 19:50]Wenn im zweiten Fall "ja" herauskommt, ist dein perl kaputt, denn die Zahlen sind nicht gleich. ;)[/quote]
War wohl ein Kopierfehler, es sollte heißen:



Edit: Oh, kein Kopierfehler, ein heftiger Fehler im Code Tag, mal sehen, ob tt das hinekommt:

print -1_9._62 == -19.6742 ? "ja\n" : "nein\n";

Edit2: AUCH NICHT *kratz*

Im Klartext: print -1_9._62 == -19.6742 ? "ja\n" : "nein\n";

Edit 3: Auch im Klartext nicht, dieses Forum ist bugged....

ich füg mal Doppelpunkte zwischen jedes Zeichen ein:

p:r:i:n:t: :-:1:_:9:.:_:6:_:_:7:_:4:_:_:2: :=:=: :-:1:9:.:6:7:4:2: :?: :":j:a:\:n:": ::: :":n:e:i:n:\:n:":;\n\n

<!--EDIT|Crian|1066725938-->

Diesen Fehler im Board habe ich schon zweimal beschrieben: Text zwischen doppelten Unterstrichen wird einfach geloescht. (Und durch das Prinzip, dass nicht die Eingabe, sondern das geparste Ergebnis gespeichert wird, hat man den Text nach der Vorschau nicht mal mehr im Edit-Fenster...)