i have ammended the code as follows but am still getting to fullstops at the end i.e. R.J..
sub shorten_initial()
{
@names = (split /\,/, $_[0]);
$init = "";
foreach $name (@names){
$init = $init . substr($name,0,1) . ".";}
$init=~s/\.\./\./g;
return $init;
}
Any ideas
Sorry about some of my replies being in someone elses name i am using a shared computer with cookies enables at work.
Helen
sub shorten_initial()
{
@names = (split /\,/, $_[0]);
$init = "";
foreach $name (@names){
$init = $init . substr($name,0,1) . ".";}
$init=~s/\.\./\./g;
return $init;
}
Any ideas
Sorry about some of my replies being in someone elses name i am using a shared computer with cookies enables at work.
Helen