Portál AbcLinuxu, 1. května 2025 14:03
>>> i = "5" >>> i.isdigit() True >>>
$a =~ /^[+-]?\d+(?:\.\d+)?/
a nebo mnohem lépe a radostnějiuse Scalar::Util qw(looks_like_number); ... if (looks_like_number($a)) { ... } else { ... } ...
$a =~ /^[+-]?\d+(?:\.\d+)?/
No fuj... print "$a je cislo" if ($a eq ($a + 0))
Akorát je neošetřeno explicitní uvedení znaménka + .
Akorát je neošetřeno explicitní uvedení znaménka + .Ano, taková nepodstatná maličkost, když můžeme použít interní funkci perl api
looks_like_number
na nímž je Scalar::Util::looks_like_number
pouze wrapper. Místo toho necháme perl zavolat tuto funkci hned dvakrát, pokusíme se o sčítání a nakonec ještě budeme porovnávat řetězce s tím výsledkem, že to nefunguje pro všechny případy (hloupé + na začátku). Aneb jak to dělat jednoduše, když to jde složitě, že?
>>> a=["1","2","3","a","b"] >>> ", ".join(a) '1, 2, 3, a, b' >>>
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.