0

私は Perl を初めて使用し、この言語でコーディングする方法をまだ理解しようとしています。

現在、csv の長い単一文字列を複数の行に分割しようとしています。

データ例

a,b,c<br />x,y,x<br />

これまでのところ、分割して引用符で囲み、後でもう一度CSVファイルに追加することができました：

"a,b,c""x,y,z"

引用符を使用することで、どの CSV セットがまとめられているかを示すだけです。

私が抱えている問題は、CSV ファイルを作成しようとすると、文字列でデータを渡すときにエラーが発生することです。

「未定義の変数に対してメソッド「parse」を呼び出すことはできません。

渡した文字列を印刷すると、それが定義され、データが保持されます。これは、経験不足で間違っている単純なものであることを願っています。

私が使用しているCSVコードは次のとおりです。

use warnings;
use Text::CSV;
use Data::Dumper;
use constant debug => 0;
use Text::CSV;

print "Running CSV editor......\n";

#my $csv = Text::CSV->new({ sep_char => ',' });

my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";

my $fileextension = substr($file, -4);

#If the file is a CSV file then read in the file.
if ($fileextension =~ m/csv/i)
{   
    print "Reading and formating: $ARGV[0] \n";

    open(my $data, '<', $file) or die "Could not open '$file' $!\n";

    my @fields;
    my $testline;
    my $line;

    while ($line = <$data>) 
    {       
        #Clears the white space at the end of the line.
        chomp $line;

        #Splits the line up and removes the <br />.
        $testline = join "\" \" ", split qr{<br\s?/>}, $line;

        #my $newStr = join $/, @lines;
        #print $newStr;
        my $q1 = "\"";
        $testline = join "", $q1,$testline,$q1;
        print "\n printing testline: \n $testline \n";

    } 

    $input_string = $testline;

    print "\n Testing input string line:\n $input_string";

    if ($csv->parse ($input_string)) 
    {
     my @field = $csv->fields;

     foreach my $col (0 .. $#field) {
         my $quo = $csv->is_binary ($col) ? $csv->{quote_char} : "";
         printf "%2d: %s%s%s\n", $col, $quo, $field[$col], $quo;#
        }
    }
    else 
    {
     print STDERR "parse () failed on argument: ",
         $csv->error_input, "\n";
     $csv->error_diag ();
     }
    #print $_,$/ for @lines;

print "\n Finished reading and formating: $ARGV[0] \n";
}else
{   
    print "Error: File is not a CSV file\n"
}
4

1 に答える 1

4

オブジェクトを作成していませんText::CSVが、それを使用しようとしています。

「未定義の変数でメソッド「parse」を呼び出すことはできません

これは、 your$csvが存在しないことを意味するため、 というメソッドがありませんparse。最初に、コードの先頭のすべての行Text::CSVの下にオブジェクトを作成するだけです。use

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

の CPAN ドキュメントを参照してくださいText::CSV。

また、私はあなたがすべきだと言いましたuse strictか？

于 2012-08-07T10:46:08.400 に答える