Parent Directory | Revision Log
add filter="name" for fields (to correct strane input data or make variations for indexing)
1 | #!/usr/bin/perl -w |
2 | |
3 | # example filter to convert ISBN and ISSN to hyphen and non-hyphen version |
4 | |
5 | sub filter { |
6 | 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.1 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |