Parent Directory | Revision Log | Patch
trunk/filter/isn_swish.pm revision 26 by dpavlin, Sun Feb 23 07:02:55 2003 UTC | branches/ffzg/filter/isn_swish.pm revision 289 by dpavlin, Sun Mar 14 20:08:29 2004 UTC | |
---|---|---|
# | Line 6 sub isn_swish { | Line 6 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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |