搜索并替换

Question

我有一个非常大的SQL转储大约400MB。

它的格式如下：“INSERT INTO user VALUES（'USERID'，'USERNAME'，'PASSWORD'，'0'，'0'，'EMAIL'，'GENDER'，'BIRTHDAY'，'182 ''，'13'，'640'，'已婚'，'直'，''，'是'，'是'，'1146411153'，'1216452123'，'1149440844'，'0'，图片'，'1 '，'0'，'0'，'zip'，'0'，''，'0'，''，''，'0'）“

是否有反正我可以只是得到电子邮件和密码输出，我想导入到另一个表的用户。

任何人都知道我可以做到这一点，只是从该内容中删除电子邮件密码？

预先感谢您

Answer 1

，因为你的问题被标记为 “perl” 的，一个部分解决方案：

perl -ne '@m = split /,/; print $m[5], $m[2], "\n";' <your400MB.sqldump 

Answer 2

较短Perl的oneliner解决方案

perl -F, -anE 'say $F[5], $F[2];' file 

Answer 3

由于Kinopiko说，运行拆分来解析CSV文件不是一个好主意（例如域内的逗号等）。你应该使用一个CSV解析器，这样的：

use strict; 
use Text::CSV_XS; 
my $csv_obj = Text::CSV_XS->new({allow_whitespace=>1, quote_char => "'"}) 
      || die "Error\n"; 
while (<>) { 
    $csv_obj->parse($_); 
    my @fields = $csv_obj->fields(); 
    print "$fields[2],$fields[5]\n" 
} 

注：没有测试，因为我在一个环境现在是具有现代CSV_XS :(