Dotaz: perl - číslo rozděleno mezerami

[motorcb]

Dobry den.Mam dalsi problem s Perlem :)

Je-li číslo rozděleno mezerami (např. 1 650 000), odstraňte tyto mezery a číslo slepte.

Napada nekoho nejaky napad? :)
diky

Odpovědi

[tyctor]

$cislo =~ s/ //g;

[motorcb]

my $promena="Cena tohoto zboží je 1 650 000";

a v takovemto pripade by se to delalo jak? Potreboval bych aby zustaly zachovane mezery mezi slovama a aby nebyli mezi cislicema....

Diky :)

[happy barney]

s/(?<=\D)\s(?=\D)//g

[motorcb]

Bohuzel odtrani mezery mezi slovy :(

[happy barney]

jasné, nie D, ale d, v oboch prípadoch

[motorcb]

To je poresne ono,diky moc :)
A nechalo by se jeste udelat aby kdyby pred cislem byl dolar (např. $ 1 650 000) abz to ten dolar take pripojilo k cislu???? $1650000
Jeste jednou diky :)

[pht]

namatkou bych to upravil s/(?<=[\d\$])\s(?=\d)//g

[motorcb]

Presne toto jsem hledal.Diky moc. Mas u me pivo :)

[pht]

Myslim, ze se o nej podelim s "happy barney" :)

[motorcb]

$promena="Cena tohoto zboží je $1,650,000.43";
Prosim jak to predelat na:
Cena tohoto zboží je $1650000.43

[happy barney]

do look-before pridať čiarku

[motorcb]

? :)

[happy barney]

a) moja odpoveď bola chybná (rieši iný problém)
b) miesto \s zápis [\s,]

[motorcb]

Bohuzel stale nefunguje :( Dela to stale to same co predtim

[Jiří J.]

To záleží na tom, zda víte, kolik mezer v čísle bude, apod.
Nevím, zda to bude fungovat, jen tipuju z hlavy:

$promenna =~ s/[0-9]\s//g;

To ovšem matchne ale i poslední číslo před mezerou, kdybyste uvedl příklad využití v praxi, možná, že by to šlo zařídit jinak (pokud před číslem nejsou mezery, dá se rafinovaně použít ^ v [], apod.).

[motorcb]

Mam spousty textu a potrebuju z nich vytahnout vsechny cisla.... A udelat statistuku vyskytu jedntlivejch cisel ale mam problem prave s vymazanim mezer mezi cisli :(

[rastos]

$ echo bob joe 234 745 sue ann | \
sed -e 's/[a-zA-Z ]* \([0-9]*\)/\1/g' -e 's/\([0-9]*\) \([0-9]*\)/\1\2/g' -e 's/\([0-9]*\)[a-zA-Z ]/\1/g '
234745

Bez záruky.

[happy barney]

echo 'bob 123 joe 345 sue' ... 123345sue