-
Регулярное выражение
сегодня вот такую штуку написать пришлось
perl -ne '/^(?:[^\|]*\|){4}([^\|]*)\|([^\|]*)\|(?:[^\|]*\|){29}(?:((?:[^\|]{3})?)[^\|]*)\|/ && print "$1|$2|$3\n"' <здесь было имя файла> | uniq | sort | uniq
Удивился тому, что так быстрее, чем так
perl -ne '/^(?:[^\|]*?\|){4}([^\|]*?)\|([^\|]*?)\|(?:[^\|]*?\|){29}(?:((?:[^\|]{3})?)[^\|]*?)\|/ && print "$ ( Read more... )
