Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Fri Apr 14 06:30:31 2000 UTC | revision 1.3 by dpavlin, Thu Jun 15 10:04:23 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 | undef @ARGV; | |
11 | while (<>) { | |
12 | chomp; | |
13 | push @words,"$_"; | |
14 | } | |
15 | ||
16 | print "Dodajem ",$#words+1," riječi...\n"; | |
17 | foreach $word (@words) { | |
18 | print KVAKE "s/".replace($word)."/$word/g;\n"; | print KVAKE "s/".replace($word)."/$word/g;\n"; |
19 | } | } |
20 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |