Parent Directory | Revision Log
local changes
1 | #!/usr/bin/perl -w |
2 | |
3 | sub cpi_250 { |
4 | my @out; |
5 | foreach my $v1 (@_) { |
6 | $v1 =~ s/a/ne postoje podaci/gi or |
7 | $v1 =~ s/b/nepotpuni podaci na prigodnim uzorcima/gi or |
8 | $v1 =~ s/c/postoje zadovoljavajuæi podaci samo iz strane literature/gi or |
9 | $v1 =~ s/d/postoje zadovoljavajuæi podaci za Hrvatsku/gi or |
10 | $v1 =~ s/e/postoje zadovoljavajæi podaci i za Hrvatsku i za inozemstvo/gi; |
11 | push @out,$v1; # save modified version |
12 | } |
13 | return @out; |
14 | } |
15 | |
16 | 1; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |