Pascal Bourguignon wrote:

> gavino <gavcomedy@gmail.com> writes:
>
> > I have a file named movie1.
> > name1,500
> > name2,yellow
> >
> > I want to write a program/script that reads the value from the file
> > next to a name, with 1 comma in between.

....

> > For a number it will test if x > 400.
> > For the string it will test if sting = green
> > If the test fails, the result should be a file named movie.error with
> > the name,value pairs that FAIL in the test.

....

> (with-open-file (movie.error "movie.error" :direction :output
> :if-exists :append
> :if-does-not-exist :create)
> (loop
> :for line = (read-line *standard-input* nil nil)
> :while line
> :do (let ((comma (position #\, line)))
> (when comma
> (let* ((name (subseq line 0 comma))
> (vfield (subseq line (1+ comma)))
> (value (or (ignore-errors (parse-integer vfield
> :junk-allowed nil))
> vfield)))
> (unless (if (integerp value)
> (> value 400)
> (string= value "green"))
> (format movie.error "~A,~A~%" name value)))))))

awk -F, "!(($2~/^ *green *$/) || (/[0-9] *$/ && ($2>400)))" junk.txt

--- Input file ---
name1,500
name2, yellow
name3, 300
name4,green
name5, green
name6, 500
name7,yellow-green

--- Output ---
name2, yellow
name3, 300
name7,yellow-green