ABillS

Дати стажерам та перевырити
потмі внести в модуль filters

#***************************************************
=head2 short_name() - get short name function

Arguments:

$name

Returns:

Shortened name

Example:

short_name('Hayden Miguel Barnes') - Hayden M.B.

=cut #***************************************************
sub short_name {
my $name = shift;
if (!$name) {
return '';
}
my @names = split(' ', $name);
if ($#names >= 2) {
return $names⁰ . ' ' . substr($names¹, 0, 1) . '.' . substr($names², 0, 1) . '.';
}
elsif ($#names 1) {
return $names[0] . ' ' . substr($names[1], 0, 1) . '.';
}
elsif ($#names 0) {
return $name;
}
}

Артем, внеси пожалуйста эту функцию в модуль filters Perl на wiki.