Procurando diretório atual e 1 subdiretório para arquivos com extensão .txt

Question

Usando o comando 'ls -R' em perl, qual é o parâmetro para localizar arquivos com uma extensão .txt no subdiretório atual e 1? Também eu como eu contaria o número de arquivos e se o número é um ou mais um bloco de código que abre os arquivos um após o outro como em um loop?

    

Answer 1

ls -R é um comando shell. Em Perl, você pode usar outros meios, por exemplo globbing:

for my $file (glob '*.txt */*.txt') {
    if (-f $file) {                          # only take files
        open my $FH, '<', $file or die "$!";
    } 
}