Parent Directory | Revision Log
branch for tehnika at r263
1 | dpavlin | 20 | #!/usr/bin/perl -w |
2 | |||
3 | # example filter to convert ISBN and ISSN to hyphen and non-hyphen version | ||
4 | |||
5 | dpavlin | 26 | sub isn_swish { |
6 | dpavlin | 20 | my @out; |
7 | foreach my $nr1 (@_) { | ||
8 | push @out,$nr1; # save original | ||
9 | dpavlin | 42 | $nr1 =~ s/\-//g; |
10 | push @out,$nr1; # save version without hyphens | ||
11 | dpavlin | 20 | } |
12 | return @out; | ||
13 | } | ||
14 | |||
15 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.3 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |