Parent Directory | Revision Log
skripta za dodavanje zamjena
1 | dpavlin | 1.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 |