Parent Directory | Revision Log
skripta za dodavanje zamjena
1 | #!/usr/local/bin/perl |
2 | |
3 | # Kreira replacement stringkove za kvake.pl |
4 | # |
5 | # kori¹tenje: ./add.pl rijec1 rijec2 rijec3 [...] >> kvake.pl |
6 | |
7 | open(KVAKE,">> zamjene.pl") || die "ne mogu otvoriti zamjene.pl"; |
8 | |
9 | foreach $word (@ARGV) { |
10 | print KVAKE "s/".replace($word)."/$word/g;\n"; |
11 | } |
12 | |
13 | close(KVAKE); |
14 | |
15 | sub replace { |
16 | |
17 | my $foo=$_[0]; |
18 | |
19 | $foo=~s/ch/è/g; $foo=~s/CH/È/g; |
20 | $foo=~s/cc/æ/g; $foo=~s/CC/Æ/g; |
21 | $foo=~s/zh/¾/g; $foo=~s/ZH/®/g; |
22 | $foo=~s/sh/¹/g; $foo=~s/SH/©/g; |
23 | $foo=~s/dh/ð/g; $foo=~s/DH/Ð/g; |
24 | |
25 | return $foo; |
26 | |
27 | } |
ViewVC Help | |
Powered by ViewVC 1.1.26 |