[LUGOS] Štetje

[Jernej Simončič]

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