Analyse du fichier délimité par des tabulations avec des guillemets doubles en Perl

Question

J'ai un ensemble de données délimité par des tabulations avec les chaînes d'agents utilisateur entre guillemets. J'ai besoin d'analyser chacune de ces colonnes et basé sur la réponse de mon other post j'ai utilisé le module Text :: CSV.

94410634 0 GET "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; AskTB5.5)" 1 

Le code est un code simple.

#!/usr/bin/perl 

use strict; 
use warnings; 
use Text::CSV; 

my $csv = Text::CSV->new(sep_char => "\t"); 

    while (<>) { 
     if ($csv->parse($_)) { 
      my @columns = $csv->fields(); 
      print "@columns\n"; 
     } else { 
      my $err = $csv->error_input; 
      print "Failed to parse line: $err"; 
     } 
    } 

mais je reçois l'erreur Failed to parse line: quand je l'essayer sur cet ensemble de données. Qu'est-ce que je fais mal? J'ai besoin d'extraire la 4ème colonne contenant les chaînes d'agent utilisateur pour un traitement ultérieur.

Answer 1

1. Vos arguments du constructeur doivent être dans un hashref, pas un hachage:

   mon csv $ = Text :: CSV> new ({sep_char => "\ t"}); Etes-vous sûr que l'ensemble de données est exactement ce que vous pensez qu'il est? Peut-être qu'il y a une double citation manquant quelque part ou il n'y avait pas d'onglets?

   Pour vérifier le contenu du fichier, êtes-vous sous Unix/Linux ou Windows? Sous Unix, veuillez exécuter ceci: cat -vet my_log_file_name | head -3 et vérifiez si la sortie comporte des espaces ou des séquences "^ I" où vous attendez des onglets. cat -vet imprime tous les caractères spéciaux comme des séquences spéciales imprimables (TAB =>^I, saut de ligne =>$, etc ...)

Le test suivant fonctionne parfaitement sur mon ActivePerl:

#!/usr/bin/perl 
use strict; 
use warnings; 
use Text::CSV; 

my $s = qq[94410634\t0\tGET\t"Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; AskTB5.5)"\t1\n];; 
my $csv = Text::CSV->new({sep_char => "\t"}); 

if ($csv->parse($s)) { 
    my @columns = $csv->fields(); 
    print "c=$columns[3]\n"; 
} else { 
    my $err = $csv->error_input; 
    print "Failed to parse line: $err"; 
} 

sortie:

C:\> perl d:\scripts\test4.pl 
c=Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; ...