Skip to main content
2 de 5
adicionou 5 caracteres ao conteúdo

Como converter um txt para csv em perl?

Olá, Rapazeada.

Eu sou novo na linguagem perl. Estou precisando converter um arquivo txt para csv.

Segue o codigo que consegui fazer até agora.

#!/usr/bin/perl

my $filename = "interfaces.txt";

open(fh, $filename) or die "não abriu";
@fh = <fh>;
close fh;

print "Interfaces;Status;Protocol;Description\n";

foreach my $linha (@fh){
        if($linha =~ /[gi]+\d\W\d+|[te]+\d\W\d+/gi){
                my @te = $linha;

                foreach my $linha2 (@te){
                        $linha2 =~ s/\s\ //g;
                        print "$linha2";
                }
        }
}

Esse é o conteudo do txt:

Interface                      Status         Protocol Description
Gi1/1                          up             up       descrição...
Gi1/2                          up             down     descrição...
Gi1/3                          up             up       descrição...
Gi1/48                         admin down     down     descrição...
Te1/49                         up             up       descrição...
Te1/50                         up             up       descrição...

Assim ele deveria ficar:

Interface;Status;Protocol;Description
Gi1/1;up;up;descrição...
Gi1/2;up;down;descrição...
Gi1/3;up;up;descrição...
Gi1/48;admin down;down;descrição...
Te1/49;up;up;descrição...
Te1/50;up;up;descrição...

E isso é oq eu consegui até agora:

Interface;Status;Protocol;Description
Gi1/1up up descrição...
Gi1/2up down descrição...
Gi1/3up up descrição...
Gi1/48 admin down down descrição...
Te1/49 up up descrição...
Te1/50 up up descrição...

Quem puder ajudar, ficarei agradecido.