2 |
|
|
3 |
# example filter to convert ISBN and ISSN to hyphen and non-hyphen version |
# example filter to convert ISBN and ISSN to hyphen and non-hyphen version |
4 |
|
|
5 |
sub filter { |
sub isn_swish { |
6 |
my @out; |
my @out; |
7 |
foreach my $nr1 (@_) { |
foreach my $nr1 (@_) { |
8 |
push @out,$nr1; # save original |
push @out,$nr1; # save original |
9 |
my $nr2 = $nr1; |
$nr1 =~ s/\-//g; |
10 |
$nr2 =~ s/\-//g; |
push @out,$nr1; # save version without hyphens |
|
push @out,$nr2; # save version without hyphens |
|
11 |
} |
} |
12 |
return @out; |
return @out; |
13 |
} |
} |