On Tuesday, April 29, 2008, 8:15:59, Grega Fajdiga wrote:
> Tule sem našel stringe, ki najbrž ne ustrezajo tem pogojem
Zelo preprosto lahko preizkusiš, da ustrezajo:
$ echo 'GROUPBOX "Archive format", -1, 10, 70, 82, 40, BS_GROUPBOX' | perl -e
'while(<>) { $n++ if /^\s*\w+,?\s*"[^"]+"/ }; print "$n\n"'
1
Razlaga regexpa /^\s*\w+,?\s*"[^"]+"/:
^ - začni na začetku vrstice
\s* - 0 ali več presledkov, tabulatorjev
\w+ - 1 ali več črk, številk in znakov _
,? - morda vejica (lahko obstaja, ali pa ne)
\s* - 0 ali več presledkov, tabulatorjev
"[^"]+" - narekovaj, najmanj en znak, ki ni narekovaj, narekovaj
--
< Jernej Simončič ><><><><>< http://eternallybored.org/ >
Paper is always strongest at the perforations.
-- Corry's Law
_______________________________________________
lugos-list mailing list
lugos-list@lugos.si
http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list
