NAME
Lingua::PT::Capitalizer - Simple text capitalize.
VERSION
version 0.001
SYNOPSIS
Procedural Interface
my
$text
=
q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS)
;
say
capitalize(
$text
);
# Output:
# Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis
$text
=
q(comprehensive perl archive network (CPAN)
);
say
capitalize(
$text
, 1);
# Output:
# Comprehensive Perl Archive Network (CPAN)
OO Interface
use
Lingua::PT::Capitalizer ();
my
$capitalizer
= Lingua::PT::Capitalizer->new();
my
$text
=
q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS)
;
say
$capitalizer
->capitalize(
$text
);
# Output:
# Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis
$text
=
q(comprehensive perl archive network (CPAN)
);
say
$capitalizer
->capitalize(
$text
, 1);
# Output:
# Comprehensive Perl Archive Network (CPAN)
DESCRIPTION
This module format strings in title-case mode using common typographic rules for proper names in Portuguese Language.
SUBROUTINES/METHODS
capitalize
Receive one or two arguments and return a capitalized string. If the second argument is 1
, the upper case words won't be affected.
lc_always
A data structure with some articles and prepositions that normaly stay in lower case.
EXAMPLES
Using files as input
If text.txt is a file with names/titles to capitalize, the easiest way to capitalize all is:
perl -MLingua::PT::Capitalizer -wpE
'$_=capitalize'
text.txt
Getting lc_always hash
# Procedural Interface
my
%lc_always
= %{Lingua::PT::Capitalizer::lc_always}
# OO Interface
my
%lc_always
=
$capitalizer
->{lc_always}
AUTHOR
Ronaldo Ferreira de Lima aka jimmy <jimmy at gmail>.
SEE ALSO
Text::Capitalize.