/[kvake]/add.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /add.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Fri Apr 14 06:30:31 2000 UTC (23 years, 11 months ago) by dpavlin
Branch: MAIN
File MIME type: text/plain
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