číslo z řetězce

[Pavel Šmerk]

No260 wrote:

> Zdravím a má dotaz ohledně řetězce : z následujícího řetězce v uvozovkách
> chci vyjmout jen číslo
> $retezec = "  1250 , - "


$cislo = ($retezec =~ /(\d+)/)[0] || 0

vykousne prvni posloupnost cifer z $retezce, pripadne vrazi do cisla 
nulu, pokud $retezec nebude obsahovat zadnou cislici.

> (řetězce jsou různé, hledám univerzální řešení)

univerzalni reseni bude samozrejme zaviset na vlastnostech tech retezcu, ze.