pliki Parse stałej szerokości

Question

Mam wiele plików tekstowych z polami stałymi-width:

<c>  <c>  <c> 
Dave Thomas 123 Main 
Dan  Anderson 456 Center 
Wilma Rainbow 789 Street 

Reszta plików są w podobnym formacie, gdzie <c> będzie początkiem kolumny, ale mają różne (nieznane) kolumny szerokości. Jaki jest najlepszy sposób na przeanalizowanie tych plików?

Próbowałem za pomocą Text::CSV, ale ponieważ nie ma ogranicznik trudno uzyskać spójny wynik (chyba Używam niewłaściwym Module):

my $csv = Text::CSV->new(); 
$csv->sep_char (' '); 

while (<FILE>){ 
    if ($csv->parse($_)) { 
     my @columns=$csv->fields(); 
     print $columns[1] . "\n"; 
    } 
} 

Answer 1

Jak podaje użytkownik user494939, narzędzie do stosowania w polach o stałej szerokości. Jednak unpack należy przekazać szablon do pracy. Skoro mówisz twoje pola może zmienić szerokość, rozwiązaniem jest zbudowanie tego szablonu z pierwszej linii pliku:

my @template = map {'A'.length}  # convert each to 'A##' 
       <DATA> =~ /(\S+\s*)/g; # split first line into segments 
$template[-1] = 'A*';     # set the last segment to be slurpy 

my $template = "@template"; 
print "template: $template\n"; 

my @data; 
while (<DATA>) { 
    push @data, [unpack $template, $_] 
} 

use Data::Dumper; 

print Dumper \@data; 

__DATA__ 
<c>  <c>  <c> 
Dave Thomas 123 Main 
Dan  Anderson 456 Center 
Wilma Rainbow 789 Street 

która drukuje:

 
template: A8 A10 A* 
$VAR1 = [ 
      [ 
      'Dave', 
      'Thomas', 
      '123 Main' 
      ], 
      [ 
      'Dan', 
      'Anderson', 
      '456 Center' 
      ], 
      [ 
      'Wilma', 
      'Rainbow', 
      '789 Street' 
      ] 
     ]; 

Answer 2

Wystarczy użyć unpack funkcji Perl. Coś takiego:

while (<FILE>) { 
    my ($first,$last,$street) = unpack("A9A25A50",$_); 

    <Do something ....> 
} 

Wewnątrz rozpakować szablon, pozycja „A ###”, które można umieścić szerokość pola dla każdej A. Istnieje wiele innych formatów, które można wykorzystać do mieszania i Dopasuj do, czyli do pól całkowitych, itd ... Jeśli plik ma ustaloną szerokość, podobnie jak pliki mainframe, powinno to być najprostsze.

Answer 3

CPAN na ratunek!

DataExtract::FixedWidth nie tylko analizuje pliki o stałej szerokości, ale (w oparciu o POD) wydaje się być na tyle sprytny, aby samodzielnie odczytać szerokości kolumn z linii nagłówka!