Help for this page

Select Code to Download

Select or download this

    use Text::CSV;
    my $csv = Text::CSV->new();
...
    __DATA__
    foo,bar,baz
   foo,"bar baz","foo ""the bar"" baz"

Select or download this

    while(<DATA>) {
        my @columns;
...
    foo bar baz
    foo "bar \\ baz" "foo \"the bar\" baz"
    fü bär bäz