Kdo si hraje && programuje, nezlobi.



use strict;
use utf8;
my $lowerCaseString;
open (INCZ, "<:utf8", "input.txt") die "Nelze otevrit"; open (OUTCZ, ">:utf8", "output.txt") die "Nelze otevrit";
#binmode(OUTCZ, ":utf8");
while () {
$lowerCaseString = lc($_);
if ($lowerCaseString =~ /\p{Lu}/) { print "$lowerCaseString"; } # zustaly po prevodu velke znaky?
print OUTCZ "$lowerCaseString";
}
close (INCZ);
close (OUTCZ);

@#$%^&*()_
Oukej, priznavam. Uz mi z toho hrabe. :) Zdravim doma. Cely vikend jsem proflakal. Jedine pozitivum byla ochutnavka portskeho vina. (Uz jsem odbornik.. znam bile a cervene ;)