Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 32 lines (26 sloc) 0.799 kB
#!/usr/bin/perl
use strict;
my %acentuacao = ( 'á' => q[\'a],
'à' => q[\'a],
'ã' => q[\~a],
'â' => q[\^a],
'é' => q[\'e],
'ê' => q[\^e],
'í' => q[\'{\i}],
'Í' => q[\'I],
'ó' => q[\'o],
'õ' => q[\~o],
'ô' => q[\^o],
'ú' => q[\'u],
'ç' => q[\c{c}],
'Ç' => q[\c{C}]
);
if ( -e $ARGV[0] ) {
open my $file, $ARGV[0]
or die "Erro ao abrir o arquivo, $!";
my $entire_file = do {local $/; <$file>};
while ( my ( $k, $v ) = each %acentuacao ) {
$entire_file =~ s/$k/$v/g;
}
print $entire_file;
}
Jump to Line
Something went wrong with that request. Please try again.