Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Fri Apr 14 06:30:31 2000 UTC | revision 1.2 by dpavlin, Thu Apr 27 10:24:11 2000 UTC | |
---|---|---|
# | Line 6 | Line 6 |
6 | ||
7 | open(KVAKE,">> zamjene.pl") || die "ne mogu otvoriti zamjene.pl"; | open(KVAKE,">> zamjene.pl") || die "ne mogu otvoriti zamjene.pl"; |
8 | ||
9 | foreach $word (@ARGV) { | my @words = @ARGV; |
10 | while (<>) { | |
11 | chomp; | |
12 | push @words,"$_"; | |
13 | } | |
14 | ||
15 | print "Dodajem ",$#words+1," riječi...\n"; | |
16 | foreach $word (@words) { | |
17 | print KVAKE "s/".replace($word)."/$word/g;\n"; | print KVAKE "s/".replace($word)."/$word/g;\n"; |
18 | } | } |
19 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |