每隔1000行插入一行:commit; 用单行命令怎么写? 单个文件有几百M.

blackantt

用  perl -pne 'if($. % 1001 == 0) {print "commit\n"}'   1.sql  


出错
Can't find string terminator "'" anywhere before EOF at -e line 1.

   正确的该怎么写?

lululau

1. 
   
2. perl -lpe 'print "xxx" if $. !=1 && ($. - 1) % 1000 == 0'
   

复制代码

珞水的大叔

perl -i -p -e 'if($. % 1000 == 0) {$_ = "$_commit\n"}'   1.sql

试试

ziyunfei

perl -pe 'BEGIN{$a=11}{if($.==$a){print ":commit;\n";$a+=10}}' file

1
2
3
4
5
6
7
8
9
10
:commit;
11
12
13
14
15
16
17
18
19
20
:commit;
21
22
23
24
25
26
27
28
29
30
:commit;
31
32
33

blackantt

perl -pe 'BEGIN{$a=4}{if($.==$a){print ":commit;\n";$a+=10}}' 1.txt
Can't find string terminator "'" anywhere before EOF at -e line 1.


E:\0011>perl -lpe 'print "xxx" if $. !=1 && ($. - 1) % 3 == 0' 1.txt
% was unexpected at this time.


E:\>perl -i -p -e 'if($. % 10000 == 0) {$_ = "$_commit\n"}'  z_w_cell_daily_kpi.sql
Can't find string terminator "'" anywhere before EOF at -e line 1.


E:\>perl -v

This is perl, v5.10.0 built for MSWin32-x64-multi-thread

Copyright 1987-2007, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

   难道是我的版本有问题?但运行我的其它pl程序不出错!

我的环境，win7 x64,perl是oracle11g x64自带的,它的版本信息见上

jason680

perl -pe 'BEGIN{$a=4}{if($.==$a){print ":commit;\n";$a+=10}}' 1.txt
Can't find string terminator "' ...
blackantt 发表于 2011-03-01 14:15

windows 版,最外面不可用单引号('),要用双引号(")
C:\>perl -v

This is perl, v5.10.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)


C:\>perl -e 'print "xxx";'
Can't find string terminator "'" anywhere before EOF at -e line 1.

C:\>perl -e "print 'xxx';"
xxx

C:\>perl -e "$a='xxx'; print \"$a\";"
xxx

没事不要用one line command

blackantt

windows 版,最外面不可用单引号('),要用双引号("
C:\>perl -v

This is perl, v5.10.1 built for ...
jason680 发表于 2011-03-01 14:48

    you are right

perl -lpe "print 'xxx' if $. !=1 && ($. - 1) % 3 == 0"  1.txt
ok

perl -pe "BEGIN{$a=11}{if($.==$a){print \":commit;\n\";$a+=10}}" 1.txt
ok

E:\0011>perl -i -p -e "if($. % 3 == 0) {$_ = \"$_commit,\n\"}"   1.txt
Can't do inplace edit without backup.

thank all