cpi/filter/cpi_230.pm

#!/usr/bin/perl -w

sub cpi_230 {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/a/nije poznato/gi or
                $v1 =~ s/b/minimalne informacije/gi or
                $v1 =~ s/c/postoje vi¹estruka iskustva o primjeni u inozemstvu/gi or
                $v1 =~ s/d/postoje vi¹estruka iskustva o primjeni u Hrvatskoj/gi or
                $v1 =~ s/e/postoje vi¹estruka iskustva i u Hrvatskoj i u inozemstvu/gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	dpavlin	612	#!/usr/bin/perl -w
2
3			sub cpi_230 {
4			my @out;
5			foreach my $v1 (@_) {
6			$v1 =~ s/a/nije poznato/gi or
7			$v1 =~ s/b/minimalne informacije/gi or
8			$v1 =~ s/c/postoje vi¹estruka iskustva o primjeni u inozemstvu/gi or
9			$v1 =~ s/d/postoje vi¹estruka iskustva o primjeni u Hrvatskoj/gi or
10			$v1 =~ s/e/postoje vi¹estruka iskustva i u Hrvatskoj i u inozemstvu/gi;
11			push @out,$v1; # save modified version
12			}
13			return @out;
14			}
15
16			1;