Parent Directory
|
Revision Log
local changes
1 | dpavlin | 612 | #!/usr/bin/perl -w |
2 | |||
3 | sub cpi_220 { | ||
4 | my @out; | ||
5 | foreach my $v1 (@_) { | ||
6 | $v1 =~ s/a/profesionalno opremljen instrument/gi or | ||
7 | $v1 =~ s/b/djelomièno opremljen instrument \(zahtjeva dodatnu opremu\)/gi or | ||
8 | $v1 =~ s/c/instrument samo za internu uporabu \(npr\. istra¾ivanje\)/gi or | ||
9 | $v1 =~ s/d/instrument koji se u ovom stupnju opremljenosti ne mo¾e se koristiti/gi; | ||
10 | push @out,$v1; # save modified version | ||
11 | } | ||
12 | return @out; | ||
13 | } | ||
14 | |||
15 | 1; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |