Olá rapazes / Gals,

Lamento que esta é provavelmente muito simples, mas estou aprendendo lentamente perl ea necessidade de converter alguns antigos Korn shell scripts.

Preciso ser capaz de procurar um arquivo linha por linha, mas somente uma corda em determinada localização nessa linha, por exemplo personagem 20-30. Então o meu arquivo pode procurar algo parecido com isto:

apple orange apple
         apple potato apple
         tomato flower orange

Se você quiser dividir uma linha em campos como você disse que fazer em bash, e depois olhar para cima perlestá dividido () construído em subrotinas ... Por outro lado, se o que você realmente deseja é testar a partir de caracteres positionX para positionY, em seguida, utilize perl's unpack () function. Depois de dividir o seu domínio por delimitador ou posição, então você pode testá-lo usando expressões regulares para ver se é a string que você quer ...

Eu não vou fazer todo o trabalho para você

theeven

basta abrir o arquivo>
armazenar cada linha de arquivo em um array>
cada linhas divididas em áreas>
imprimir>


$ file \u003d '. / file.txt ";
open (INFO, $ arquivo);
@ linhas \u003d <INFO>;
close (INFO);

foreach $ line (@ linhas)
(
@ campo \u003d split (/ /, $ linha);
print "$ campo [1] \ n";
)


theeven

Obrigado rapazes, dividir parece muito fácil, mas também a investigação descompactar. Eu poderia usá-lo também no futuro, muito flexível. Obrigado novamente por sua ajuda.

Olhar também para o comando substr, e determinar o que melhor atende às suas necessidades entre desempacotar e substr.

Seu primeiro passo é estar seguro que você precisa - pesquisar dentro de certos colunas, ou pesquisar pelo campo.