[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