shell如何实现这种高难度的合成
shell如何实现这种高难度的合成
文件如下：
[2005/02/18 13:44:23 B0099S05] SELECT a,
|| b,
|| from dual;
[2005/02/18 13:44:23 B0099S05] UPDATE MATERIAL T
|| SET T.CDELDATE = '20050216'
[2005/02/18 13:44:23 B0099S05] DELETE * from MATERIAL;
aaaaaaaaaaa
bbbbbbbbbb
PL/SQL over!。
要求:
1:将文件中所有含有B0099S05的行,的下一行含有||的去掉||合成一行,生成另一个
文件; 即新文件应该如下:
[2005/02/18 13:44:23 B0099S05] SELECT a, b, from dual;
[2005/02/18 13:44:23 B0099S05] UPDATE MATERIAL T SET T.CDELDATE = '20050216'
[2005/02/18 13:44:23 B0099S05] DELETE * from MATERIAL;
请教大虾阿:
谢谢!
问题点数：100、回复次数：5Top
1 楼warabi（厥）回复于 2005-02-18 16:36:57 得分 20
试试看，这个perl版的中不？
-------------------------
#!/usr/bin/perl
$src = $ARGV[0];
$dest = $ARGV[1];
open IN,$src;
open OUT,">$dest";
while(<IN>) {
s/(\r)?\n$//;
s/^\|\|//;
s/^\[/\n/; # Linux version
print OUT $_;
}
close OUT;
close IN;
-------------------------
思路：
1.去回车 2. 去 "||" 3. 加回车
用法：
另存为 conv.pl
$ perl conv.pl yourOrgFile yourOutputFile
最近比较闲,呵呵 ...Top
2 楼warabi（厥）回复于 2005-02-18 16:39:04 得分 2
相同的做法，
用shell 的sed也应该能做出来。
可，那个俺不会。Top
3 楼wti（wti）回复于 2005-02-18 20:39:12 得分 2
有sed2perl or awk2perl,不知道有没有perl2awk 或是 perl2sedTop
4 楼sourceid（）回复于 2005-02-19 10:57:31 得分 2
写了个shell脚本.
#!/bin/sh
# runsql.sh
sed '/^[^\[\||]/d' rec.txt >out1.txt
while read LINE
do
case $LINE in
\[*) echo -n "$LINE" >>out2.txt
;;
\|*) echo -n "$LINE" >>out2.txt
;;
esac
done < out1.txt
sed 's/\[/\n\[/g' out2.txt | sed 's/\||//g' | sed -e '/^$/d' >out.txt
rm -f out1.txt out2.txt
Top
5 楼gettext（冰雪之崖）回复于 2005-02-19 10:59:05 得分 74
# cat file | sed -e :a -e '$!N;s/\n||/ /;ta' -e 'P;D'Top
