Re^3: Problem with ampersand and regex

What do you get if you capture?

if( $line =~ /^mail:\s+([\S]+)$/ ) {
    my $mail = $1;
    print "mail=$mail\n";
}
[download]

Dave

Comment on Re^3: Problem with ampersand and regex Download Code

Replies are listed 'Best First'.
Re^4: Problem with ampersand and regex by Anonymous Monk on Dec 19, 2012 at 21:23 UTC
I get mail=asdf.com ? ?	[reply]
Re^5: Problem with ampersand and regex by davido (Cardinal) on Dec 19, 2012 at 21:48 UTC
Add the following to your script: `use Data::Dumper;` [download] ...and then on the line immediately preceding your "for" loop, add, "`print Dumper \@array;`". There might be something broken in your input data, and that would be a simple means of identifying (or eliminating) it as a problem. Dave	[reply] [d/l] [select]
Re^6: Problem with ampersand and regex by Anonymous Monk on Dec 19, 2012 at 22:01 UTC
Done and here is a sample of what I got back: `', 'sn: ThisUser ', 'mail: ThisUser@somewhere.com ', 'cn: This User ', 'uid: MyUID` [download] Now what?	[reply] [d/l]
Re^7: Problem with ampersand and regex by davido (Cardinal) on Dec 19, 2012 at 22:09 UTC
Re^8: Problem with ampersand and regex by Anonymous Monk on Dec 20, 2012 at 14:24 UTC