/[cvs]/nfo/perl/libs/DBD/AutoCSV.pm
ViewVC logotype

Diff of /nfo/perl/libs/DBD/AutoCSV.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Sun Nov 17 07:13:43 2002 UTC revision 1.2 by joko, Fri Nov 29 04:50:21 2002 UTC
# Line 52  $DBD::AutoCSV::st::imp_data_size = 0; Line 52  $DBD::AutoCSV::st::imp_data_size = 0;
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed