Sign in
apache
/
joshua
/
refs/tags/v3.1
/
.
/
scripts
/
lowercase.perl
blob: c30e029b96e223accc0008e2e4f60e67d18df3fe [
file
] [
log
] [
blame
]
#!/usr/bin/perl -w
use
strict
;
binmode
(
STDIN
,
":utf8"
);
binmode
(
STDOUT
,
":utf8"
);
while
(<
STDIN
>)
{
print
lc
(
$_
);
}