Como posso dividir um arquivo em vários arquivos com base no padrão usando perl? [fechadas]

Question

Como posso dividir um arquivo em vários arquivos com base no padrão usando perl?

Ex: entrada para ser um arquivo .txt, nome do arquivo de saída armazenado em outro arquivo .txt

    

Answer 1

Aqui, para abrir um novo arquivo em cada ocorrência do padrão /8/ :

$ seq 30 | perl -pe 'BEGIN{open STDOUT, ">", "file" . ++$n}
                     open STDOUT, ">", "file" . ++$n if /8/'
$ ls
file1  file2  file3  file4
$ paste *
1       8       18      28
2       9       19      29
3       10      20      30
4       11      21
5       12      22
6       13      23
7       14      24
        15      25
        16      26
        17      27