Re: using regular expressions showing just the hits.

\D+ stands for "non-digit repeated". You want "alphanumeric repeated", so try

while ( /([[:alnum:]]+)(\@dh\.nl)/g ) {
    my ($name, $domain) = ($1, $2);
    print "$name$domain\n";
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: using regular expressions showing just the hits. Select or Download Code

Replies are listed 'Best First'.
Re^2: using regular expressions showing just the hits. by fritsimeel (Initiate) on Apr 05, 2013 at 15:13 UTC
Hello Choroba, thanks for the quick reaction. When i run your code i get this message: Use of uninitialized value $_ in pattern match (m//) at dh.pl in line 8 Sorry, i'm overlooking something....	[reply]
Re^3: using regular expressions showing just the hits. by choroba (Chancellor) on Apr 05, 2013 at 15:18 UTC
The code shown should replace the `if` part in the original code. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: using regular expressions showing just the hits. by fritsimeel (Initiate) on Apr 05, 2013 at 15:33 UTC
Many thanks, that works! Chuck Norris voids warranties	[reply]


No such thing as a small change
	PerlMonks