viewvc.cgi/kvake/add.pl

#!/usr/local/bin/perl

# Kreira replacement stringkove za kvake.pl
#
# kori¹tenje: ./add.pl rijec1 rijec2 rijec3 [...] >> kvake.pl

open(KVAKE,">> zamjene.pl") || die "ne mogu otvoriti zamjene.pl";

foreach $word (@ARGV) {
        print KVAKE "s/".replace($word)."/$word/g;\n";
}

close(KVAKE);

sub replace {

        my $foo=$_[0];

        $foo=~s/ch/è/g; $foo=~s/CH/È/g;
        $foo=~s/cc/æ/g; $foo=~s/CC/Æ/g;
        $foo=~s/zh/¾/g; $foo=~s/ZH/®/g;
        $foo=~s/sh/¹/g; $foo=~s/SH/©/g;
        $foo=~s/dh/ð/g; $foo=~s/DH/Ð/g;

        return $foo;

}
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	}