Hi Arie,

> This example (in "Traversing a Hash"):
> 
>    #-----------------------------
>    # download the following standalone program
>    #!/usr/bin/picolisp /usr/lib/picolisp/lib.l
> 
>    (load "@lib/misc.l")
> 
>    (in (opt)
>       (until (eof)
>          (when (match '(~(chop "From: ") @From) (line))
>             (accu 'From @From 1) ) ) )
> 
>    (for Person (sort From)
>       (prinl (car Person) ": " (cdr Person)) )
> 
>    (bye)
> 
> again has no input file given.

I don't remember at all ;) But you could simply make something up.

For example a file with

   abc
   From: Rory Gallagher
   def
   From: Jimi Hendrix
   ghi
   From: Eric Clapton
   jkl
   From: Rory Gallagher
   mno

gives

   Eric Clapton: 1
   Jimi Hendrix: 1
   Rory Gallagher: 2

♪♫ Alex

-- 
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe

Reply via email to