Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- # questo script Perl trasforma qualunque doc di testo in uno speech del Biancone
- # es. bianconizzatore /usr/share/doc/ubuntu-standard/copyright
- while(<>) {
- my @values = split(/\s/, $_);
- if(@values == 0) {
- print "\n";
- next;
- }
- for(my $i = 0; $i < @values - 1; $i++) {
- $values[$i] =~ s/[a-z]/u/g;
- $values[$i] =~ s/[A-Z]/U/g;
- print $values[$i].' ';
- }
- print $values[-1]."\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement