#!/usr/bin/perl -- use strict; use warnings; use Data::Dump 'pp'; use Email::Address; my $line = 'asdf@example.com,qwerty@example.com,bananas@example.com'; my @addresses = Email::Address->parse($line); pp $line, \@addresses; $_ .= "" for @addresses; # stringify pp $line, \@addresses; __END__ do { my $b = [ bless([ undef, "asdf\@example.com", "", "asdf\@example.com", [ \"asdf\@example.com,qwerty\@example.com,bananas\@example.com", 0, ], ], "Email::Address"), bless([ undef, "qwerty\@example.com", "", "qwerty\@example.com", ['fix', 1], ], "Email::Address"), bless([ undef, "bananas\@example.com", "", "bananas\@example.com", ['fix', 2], ], "Email::Address"), ]; $b->[1][4][0] = \${$b->[0][4][0]}; $b->[2][4][0] = \${$b->[0][4][0]}; ( "asdf\@example.com,qwerty\@example.com,bananas\@example.com", $b, ); } ( "asdf\@example.com,qwerty\@example.com,bananas\@example.com", [ "asdf\@example.com", "qwerty\@example.com", "bananas\@example.com", ], )
In reply to Re: Dealing with '@' in Text Strings
by Anonymous Monk
in thread Dealing with '@' in Text Strings
by Red_Dragon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |