 |
|
| node: | Re[4]: 20.01.2008-2:11:40 |
| template: | 4 |
| parent: | Re[3]: 20.01.2008-2:11:40 |
| owner: | forcer |
| viewed by: | |
| created: | 16.02.2008 - 03:15:38 |
| updated: | 16.02.2008 - 03:37:26 |
|
cwbe coordinatez: 101 63540 2076399 1655002 3622770 3622911 3699546 3700094 3706776 ABSOLUT KYBERIA |
| permissions | |
| you: | r, |
| system: | public |
| net: | yes |
total descendants::
total children::1
1 ❤️
s/xXXX/xXXX/g;
cize si vytvoris hash
napr..
cize si vytvoris hash
napr..
use strict;
use warnings;
my $value;
open(FILE, "diakritika.txt");
my $file = <FILE>;
my %change = (
'č' => 'c',
'š' => 's',
'ž' => 'z',
'ť' => 't',
);
foreach my $key(keys(%change)) {
$value = $change{$key};
$file =~ s/$key/$value/g;
}
close(FILE);
print $file;