Le Saturday 01 November 2008 18:08:17 Pierre Habouzit, vous avez écrit :
[...]
>
> To: John Doe <some.address@xxxxxxxx>, Random Joe <random.joe@xxxxxxx>,
> Superman <batman@xxxxxx>,
> "Someone with a comma, inside its tag name" <a@xxxxx>
>
fg@erwin ~ $ cat t.txt
To: John Doe <some.address@xxxxxxxx>, Random Joe <random.joe@xxxxxxx>,
Superman <batman@xxxxxx>, "Someone with a comma, inside its tag name"
<a@xxxxx>
fg@erwin ~ $ <t.txt perl -ne 's,^To:\s*,,i; @mails = m/\s*((?:"[^"]+")?
\s*<[^@]+@[^@]+>)\s*,?/g; END { print join("\n", @mails) . "\n"}'
<some.address@xxxxxxxx>
<random.joe@xxxxxxx>
<batman@xxxxxx>
"Someone with a comma, inside its tag name" <a@xxxxx>
That's regex, not especially perl ;)
--
Francis Galiegue
ONE2TEAM
Ingénieur système
Mob : +33 (0) 6 83 87 78 75
Tel : +33 (0) 1 78 94 55 52
fge@xxxxxxxxxxxx
40 avenue Raymond Poincaré
75116 Paris
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
