Дайте скрипт адрессной книги в формате CSV на перле или шелле!

cat addrbook.csv | awk -F, '{print "name=",$1,"phone=",$2}'

Тебя обманули, это не перл!

З.Ы. Боюсь заглядывать в исходники tkLOR, вдруг там тоже не tcl/tk, а VB какой-нибудь

Домой приеду - выложу ссылку.

> Тебя обманули, это не перл!

Логично. Более похоже на шелл, вызывающий awk.

> З.Ы. Боюсь заглядывать в исходники tkLOR, вдруг там тоже не tcl/tk, а VB какой-нибудь

Там смесь befunge с intercal-ом :)

http://ifolder.ru/7446641

Прошу прощения, задержался с выкладыванием.

Там простая программка, которая может добавлять записи в файл и выводить из файла по regex'пу. Там pm-файл прилагается - самописный модуль для чтения-записи csv. Сейчас нет времени переписать с использованием Text::CSV. Не уверен, если честно, читает ли Text::CSV записи, в полях которых содержится символ перевода строки. Я так понял, без доп. костылей - нет.

Первая строка в файле - это названия полей.

Описание нет, поэтому описываю здесь. Проге даётся первым параметром имя файла, дальше ключи действия. Например, "$ ~/bin/pb.pl ~/.pb -a" или "$ ~/bin/pb.pl ~/.pb -m name=леша -m addr=ленина".

Основные ключи:

-a добавить запись.
-m задаёт regex для поля, которому оно должно соответствовать что б запись попала в вывод.
--show задаёт поля записи, которые будут в выводе.
-h выводит записи в html-формате.
-ht выводит html-таблицу.

Как-то так. Если есть желание чем-то дополнить, то могу на sf.net замутить проект, так проще будет.

У меня, собственно, прописан alias pb="~/bin/pb.pl ~/.pb" .

Спасибо! То что нужно!!!

>Как-то так. Если есть желание чем-то дополнить, то могу на sf.net замутить проект, так проще будет.

Да, конечно! Только чуть позже... Я пишу комплексную вещь. Как только будет работоспособна, выложу как раз на sf.net

Я так понимаю, есть желание совместно поработать? ;)

Можно по мылу договориться -- auf1994 AT yandex DOT ru

А вообще, конечно, лучше общаться по джабберу...