15.1 JOIN |
A primeira delas chama-se JOIN e serve para, tendo um array com vários elementos, montarmos uma variável em que estes elementos são "juntados" com um dado caractere entre eles (normalmente se usa dois-pontos). Assim, por exemplo:
@areg = ("aa","bb","cc"); $reg = join(":",@areg);Em $reg teremos aa:bb:cc
Se você rever a aula 5 vai ver que um registro de arquivo em PERL é assim, por exemplo:
0001:José Silva:Rua C,36:01307-001:São Paulo:SPonde temos os campos:Código do cliente, Nome, Endereço, CEP, Cidade e UF.
Você tem que se lembrar que isso não é SQL. Como dissemos naquela aula os campos em arquivos PERL não têm nome nem tipo. Terão de ser trabalhados pela sua posição na linha/registro do arquivo.
Repare que com o JOIN podemos, tendo
um array com os valores de campos entrados numa página da Internet
(vamos ver isso na prática no próximo capítulo), montar
um registro de arquivo.
15.2 SPLIT |
$reg2 = "mn:op:qr"; @areg2 = split(/:/,$reg2);Teremos em @areg2 os elementos (mn,op,qr).
Na aula 10 a gente viu como trabalhar com arrays. Você deve estar lembrado que podemos captar um elemento do array indexando assim:
$campotal = $areg2[1];Na variável campotal teríamos o valor op (lembrando que a indexação começa com ZERO e que você tem que usar o símbolo $ no nome do array).
É assim que poderemos ler uma linha/registro de um arquivo e montar os diversos campos, com os quais poderemos operar num programa.
Era mais ou menos assim que trabalhávamos na década de 60.Ô saudade!
É o que vamos ver mais em detalhes na próxima aula, a mais importante do curso!