This may not be the best way But I wud work fine
sub remove_space {
my($s)=@_;
$s=~s/\s+//g;
return $s;
}
while(<FILE>){
s/^(.*?)\s+(.*)$/$1.remove_space($2)/
print;
}
Panel Vincent - A53 wrote:
> I have a problem with a regular expression :
>
> I process a text file with a list of names.
>
> I would like to reformat names like
>
> Francois de la Varenne
> Macha Meril
> Buzz Mac Cormack
>
> (there must be at least two words in the name)
> to something like this :
>
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> In other words : "[EMAIL PROTECTED]".
>
> I tried the following thing and it doesn't work ($name already contains one
> of those names) :
>
> $name=~s/\s*(\w+)\s+(\w+)(\s+(\w+))*\s*/$1.$2$3\@domain.top/
>
>
> Does anyone knows the right regexp to do this (I guess it's the second
> expression with $s which is wrong)
>
> Vincent Panel.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
