| 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 |
|
|