Parent Directory | Revision Log
new filters
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 | my $nr2 = $nr1; | ||
10 | $nr2 =~ s/\-//g; | ||
11 | push @out,$nr2; # save version without hyphens | ||
12 | } | ||
13 | return @out; | ||
14 | } | ||
15 | |||
16 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |