This shows you the differences between two versions of the page.
kurs:search_and_replace.pl [2014/09/10 21:22] |
kurs:search_and_replace.pl [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | use strict; | ||
+ | use warnings; | ||
+ | my $search = $ARGV[0]; | ||
+ | |||
+ | my @strassen = ( | ||
+ | 'Blagasse 12', | ||
+ | 'Blag. 11', | ||
+ | 'Buh Gasse 1', | ||
+ | 'Bug G. 2', | ||
+ | ); | ||
+ | |||
+ | foreach (@strassen) { | ||
+ | $_ =~ s/(g)\./$1asse/ig; | ||
+ | printf "%s\n", $_; | ||
+ | } | ||
+ | |||
+ | # printf "%s\n", $search; | ||
+ | </code> |