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.
split
. Também não recomendaria ter os cabeçalhos fixos dentro do seu programa - o tratamento para a linha de cabeçalhos pode ser o mesmo que para todo o arquivo texto, e o seu programa fica genérico. dessa forma ele funcionará apenas para este arquivo específico.