52 |
package DBD::CSV::Statement; |
package DBD::CSV::Statement; |
53 |
|
|
54 |
sub _get_rules_autoscan { |
sub _get_rules_autoscan { |
55 |
|
#print "_get_rules_autoscan", "\n"; |
56 |
return [ |
return [ |
57 |
{ eol => "\r\n", sep_char => ",", quote_char => "\"", escape_char => "" }, |
{ eol => "\r\n", sep_char => ",", quote_char => "\"", escape_char => "" }, |
58 |
{ eol => "\r\n", sep_char => ";", quote_char => "\"", escape_char => "" }, |
{ eol => "\r\n", sep_char => ";", quote_char => "\"", escape_char => "" }, |
|
{ eol => "\n", sep_char => ";", quote_char => "\"", escape_char => "", always_quote => 1 }, |
|
59 |
{ eol => "\n", sep_char => ":", quote_char => "", escape_char => "" }, # /etc/passwd |
{ eol => "\n", sep_char => ":", quote_char => "", escape_char => "" }, # /etc/passwd |
60 |
{ eol => "\n", sep_char => ",", quote_char => "\"", escape_char => "" }, |
{ eol => "\n", sep_char => ",", quote_char => "\"", escape_char => "" }, |
61 |
{ eol => "\n", sep_char => "|", quote_char => "\"", escape_char => "" }, |
{ eol => "\n", sep_char => "|", quote_char => "\"", escape_char => "" }, |
62 |
|
{ eol => "\n", sep_char => ";", quote_char => "\"", escape_char => "\\", always_quote => 1 }, |
63 |
]; |
]; |
64 |
} |
} |
65 |
|
|