3

CSV ファイルを取り込んでいます:

"ID","LASTNAME","FIRSTNAME","PERM_ADDR1","PERM_ADDR2","PERM_CITY","PERM_ST","PERM_ZIP","DOB","LIB_TYPE","BARCODE","EMAIL","LOCAL_ADDR1","LOCAL_ADDR2","LOCAL_CITY","LOCAL_ST","LOCAL_ZIP","CAMPUS_ADDR1","CAMPUS_ADDR2","CAMPUS_CITY","CAMPUS_ST","CAMPUS_ZIP","DEPARTMENT","MAJOR"
"123","Lastname","Firstname","123 Home St","","Home City","HS","12345-6789","0101","S","1234567890","last.first@domain.local","123 Local St","","Local City","LS","98765-4321","123 Campus St","","Campus City","CS","54321-6789","IT",""

を使用してText::CSV、これをハッシュに解析しようとしています:

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

chomp(my $line = <READ>);
$csv->column_names(split(/,/, $line));

until (eof(READ)) {
    $line = $csv->getline_hr(*READ);
    my %linein = %$line;
    my %patron;

    $patron{'patronid'} = $linein{'ID'};
    $patron{'last'} = $linein{'LASTNAME'};
    $patron{'first'} = $linein{'FIRSTNAME'};

    print p(%linein)."\n";
    print p(%patron)."\n";
}

このコードを使用すると、最後に ( を使用してData::Printer) print ステートメントを実行すると、次のように返されます。

{
    "BARCODE"        1234567890,
    "CAMPUS_ADDR1"   "123 Campus St",
    "CAMPUS_ADDR2"   "",
    "CAMPUS_CITY"    "Campus City",
    "CAMPUS_ST"      "CS",
    "CAMPUS_ZIP"     "54321-6789",
    "DEPARTMENT"     "IT",
    "DOB"            0101,
    "EMAIL"          "last.first@domain.local",
    "FIRSTNAME"      "Firstname",
    "ID"             123,
    "LASTNAME"       "Lastname",
    "LIB_TYPE"       "S",
    "LOCAL_ADDR1"    "123 Local St",
    "LOCAL_ADDR2"    "",
    "LOCAL_CITY"     "Local City",
    "LOCAL_ST"       "LS",
    "LOCAL_ZIP"      "98765-4321",
    "MAJOR"          "",
    "PERM_ADDR1"     "123 Home St",
    "PERM_ADDR2"     "",
    "PERM_CITY"      "Home City",
    "PERM_ST"        "HS",
    "PERM_ZIP"       "12345-6789"
}
{
    first      undef,
    last       undef,
    patronid   undef
}

私が理解していないのは%patron、 からの値が入力されていない理由です%linein。Text::CSVスクリプトの他の場所で他のファイルを解析していて、それらは問題なく動作するため、これが何らかの形で の使用に関連しているのかどうか疑問に思っています。ただし、これらのファイルは CSV ではなく固定幅なので、手動で解析しています。

4

1 に答える 1

6

試す

 $csv->column_names(map {/"(.*)"/ and $1} split(/,/, $line))

それ以外の

 $csv->column_names(split(/,/, $line));

CSV キーはリテラル文字列として定義されていました

 '"LASTNAME"' ,  '"FIRSTNAME"'

ただの代わりに

 'LASTNAME' ,  'FIRSTNAME'

Data::Printer何が起こっているかを示すのにそれほど悪い仕事をしていませんでしp(%linein)た.p(%patron)

于 2013-01-30T20:08:58.537 に答える