Parent Directory | Revision Log
add filter="name" for fields (to correct strane input data or make variations for indexing)
1 | dpavlin | 20 | #!/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 |