#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; while (<DATA>) { chomp; /^(.+) (<.+>) (\(.+\)) (.+) (.+)$/; print "$1 $3 $5\n"; } __DATA__ aanis <aanis@xyz.com> (Anis Ahmed A) accessed 2007/10/04 aaputin <aaputin@xyz.com> (Artem Aputin) accessed 2007/10/04 aazarov <alexey.azarov@tlmcom.ru> (Alexey Azarov) accessed 2007/10/04
And the output is-
aanis (Anis Ahmed A) 2007/10/04 aaputin (Artem Aputin) 2007/10/04 aazarov (Alexey Azarov) 2007/10/04
In reply to Re: reading from file
by bruceb3
in thread reading from file
by johny
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |