[linux] reg exp a cislo

Bohdan Spes spes na infotrans.sk
Čtvrtek Září 28 10:24:22 CEST 2000


Zdravim. 

	Vcera som po dlhej dobe robil s perlom a narazil som na velky :) problem.
Parsoval som riadok ktory vyzeral takto:
					3245865;komentar haha
a potreboval som ziskat to cislo. Moj prvy hlupy napad bol takyto:
if ($line =~ /\s(\d+)[\s\;]/) { print $1;}
lenze to mi vzdy vratilo len prvu cifru 3. Potom mi napadlo taketo nieco:
if ($line =~ /\s(\d\d*\d)[\s\;]/) {print $1;} a slava, vystup bol spravny, teda
3245865. Lenze ma to jeden hacik, to cislo musi byt minimalne dvojciferne pri
takomto porovnani a to mi vadi. Ak poznate INTELIGENTNEJSI sposob, ako ziskat
to cislo cez reg. vyrazy, budem vam vdacny. Ide to asi aj cez split a mozno
este aj inym sposobom (tiez ma zaujimaju), ale najviac ma zaujimaju reg.
vyrazy.
-- 
            v
Mgr. Bohdan Spes, Infotrans s.r.o., Dubravska cesta 9, 842 20 Bratislava 
Tel:07/5941 2950 Email: spes na infotrans.sk, spes na pobox.sk
ICQ#:56233611


----- End forwarded message -----

-- 
            v
Mgr. Bohdan Spes, Infotrans s.r.o., Dubravska cesta 9, 842 20 Bratislava 
Tel:07/5941 2950 Email: spes na infotrans.sk, spes na pobox.sk
ICQ#:56233611



Další informace o konferenci linux