sub strip ($) {
    $_ = shift if @_;
    s/(^\s*|\s*$)//g;
    s/\s\s/ /g;
    return $_;
}


my $journal1 = map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t");
(my $journal2) = map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t");
my $journal3 = strip(map { s/[\s.-]*$//g; $_ } $marc->subfield(773, "t
+"));
(my $journal4) = strip(map { s/[\s.-]*$//g; $_ } $marc->subfield(773, 
+"t"));

print "1 = $journal1\n";
print "2 = $journal2\n";
print "3 = $journal3\n";
print "4 = $journal4\n";




1 = 1
2 = Tieteessä tapahtuu
3 = 1
4 = 1
[download]