Skip to content

Several parsing and formatting bugs #13

Description

@nwellnhof

(Moving https://rt.cpan.org/Ticket/Display.html?id=52102 to GitHub.)

See the test script below. I get the following output:

parsing: "Newsletter from <superm@rket>" <newsletter@example.com>
phrase: Newsletter from
address: superm@rket
reformatted: "Newsletter from " <superm@rket>

parsing: "Lawrence Peter \"Yogi\" Berra" <yogi@berra.com>
phrase: Lawrence Peter \"Yogi\" Berra
address: yogi@berra.com
reformatted: "Lawrence Peter \\"Yogi\\" Berra" <yogi@berra.com>

parsing: "Peter\\Sales Department" <peter@example.com>
phrase: Peter\\Sales Department
address: peter@example.com
reformatted: "Peter\\Sales Department" <peter@example.com>

parsing: "Peter\Sales Department" <peter@example.com>
phrase: Peter\Sales Department
address: peter@example.com
reformatted: "Peter\Sales Department" <peter@example.com> 
#!/usr/bin/perl
use strict;

use Email::Address;

sub test {
    my $string = shift;
    print "parsing: $string\n";
    my @addresses = Email::Address->parse($string);
    print "phrase: ", $addresses[0]->phrase, "\n";
    print "address: ", $addresses[0]->address, "\n";
    print "reformatted: ", $addresses[0]->format, "\n\n";
}

test('"Newsletter from <superm@rket>" <newsletter@example.com>');
test('"Lawrence Peter \\"Yogi\\" Berra" <yogi@berra.com>');
test('"Peter\\\\Sales Department" <peter@example.com>');
test('"Peter\\Sales Department" <peter@example.com>');

Activity

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

      Milestone

      No milestone

      Relationships

      None yet

      Development

      No branches or pull requests

      Issue actions