Perl tem duas funções para ajudar você a aproveitar caracteres em uma string. A função " ucfirst " capitaliza apenas o primeiro caractere de uma string enquanto a função " uc " capitaliza cada personagem. Esta função é útil quando você quer comparar duas ou mais cadeias sem se preocupar caso. Transformar uma string em caso de título é muito mais difícil , como Perl não tem uma função de cadeia prontamente disponível para fazê-lo. No entanto, você pode usar o operador "s" para encontrar os primeiros caracteres de cada palavra em uma string e , em seguida, capitalizá-los . Instruções
1
Abra o arquivo do programa Perl. Coloque o cursor onde você quer capitalizar uma string. Digite o seguinte código:
$ string =;
$ string = ucfirst ( $ string );
print $ string;
< " o conteúdo do meu string. " p> isso cria uma variável de cadeia de caracteres que consiste em letras minúsculas inteiramente . Em seguida, ele chama a função ucfirst para capitalizar o primeiro caractere na string. O resultado da instrução de impressão é " o conteúdo da minha string. "
2
Digite o seguinte código: " . Conteúdo da minha string"
$ string =;
$ string = uc ( $ string );
print $ string;
Isso redefine a variável de cadeia . Em seguida , a seqüência chama a função uc para capitalizar cada caractere na seqüência . O resultado da instrução de impressão é " o conteúdo do meu STRING ".
3
Digite o seguinte código: " . Conteúdo da minha string"
$ string =;
$ string = ~ s /( [ \\ w '] +) /\\ u \\ L $ 1 /g ;
print $ string;
pouco complicado de código usa o " s ///" operador , o qual substitui as ocorrências fornecidos pela primeira expressão com o segundo . Neste caso, ele é executado através da cadeia para encontrar o primeiro caractere de cada palavra. Normalmente , o personagem após o apóstrofo seria considerado uma palavra nova , mas a primeira expressão diz o operador de ignorar apóstrofos. Uma vez que encontra esses caracteres especificados , capitaliza -los. O resultado da instrução de impressão é " o conteúdo do meu cadeia. "
4
Salve o arquivo de programa Perl e executá-lo em sua versão do Perl.