免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12
最近访问板块 发新帖
楼主: newoz
打印 上一主题 下一主题

[文本处理] 在每个txt文件的第一行后添加其文件名 [复制链接]

论坛徽章:
1
白羊座
日期:2013-12-29 17:58:28
11 [报告]
发表于 2014-01-20 10:34 |只看该作者
回复 9# Shell_HAT

看样子是dn833 走火入魔了。 :wink:
   

论坛徽章:
5
未羊
日期:2014-08-04 16:15:21天秤座
日期:2014-08-13 13:52:372015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:56:112015亚冠之浦和红钻
日期:2015-06-29 15:30:48
12 [报告]
发表于 2014-01-20 10:41 |只看该作者
回复 9# Shell_HAT


    看错了

论坛徽章:
0
13 [报告]
发表于 2014-01-20 11:27 |只看该作者
LZ, 将1改为2,并将/n回车去掉,即可。

#!/bin/bash
for file in *.txt
do
   sed -i "2 i ${file%.*}" $file
done

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
14 [报告]
发表于 2014-01-20 11:35 |只看该作者
回复 1# newoz

$ grep -n "" *.txt
a.txt:1:a1
a.txt:2:a2
a.txt:3:a3
b.txt:1:b1
b.txt:2:b2
b.txt:3:b3

$ perl -i -lape '{($F=$ARGV)=~s/\.txt//;$_.="\n$F" if ($ARGV ne $f); $f=$ARGV;$F=~s/\.txt$//}' *.txt

$ grep -n "" *.txt
a.txt:1:a1
a.txt:2:a
a.txt:3:a2
a.txt:4:a3
b.txt:1:b1
b.txt:2:b
b.txt:3:b2
b.txt:4:b3

$ perl -i -lape '{($F=$ARGV)=~s/\.txt//;$_="$F\n$_" if ($ARGV ne $f); $f=$ARGV;$F=~s/\.txt$//}' *.txt

$ grep -n "" *.txt
a.txt:1:a
a.txt:2:a1
a.txt:3:a
a.txt:4:a2
a.txt:5:a3
b.txt:1:b
b.txt:2:b1
b.txt:3:b
b.txt:4:b2
b.txt:5:b3


   

论坛徽章:
0
15 [报告]
发表于 2014-01-20 13:20 |只看该作者
回复 1# newoz

LZ的代码没问题,去掉\n就可以,本来就是一行一行的操作输出的。另外,确定是gawk了?

xyz
abc
就是
sed -i "1i${file%.*}\n"

abc
xyz
就是
sed -i "1a${file%.*}\n"

空文件不行

论坛徽章:
60
20周年集字徽章-20	
日期:2020-10-28 14:04:3015-16赛季CBA联赛之北京
日期:2016-07-06 15:42:0715-16赛季CBA联赛之同曦
日期:2016-06-12 10:38:0915-16赛季CBA联赛之佛山
日期:2016-05-27 11:54:56黄金圣斗士
日期:2015-12-02 11:44:35白银圣斗士
日期:2015-11-25 14:32:43白银圣斗士
日期:2015-11-23 12:53:352015亚冠之布里斯班狮吼
日期:2015-10-21 16:55:482015亚冠之首尔
日期:2015-09-01 16:46:052015亚冠之德黑兰石油
日期:2015-08-31 11:39:192015亚冠之萨济拖拉机
日期:2015-08-28 21:06:5315-16赛季CBA联赛之广东
日期:2016-07-12 14:58:53
16 [报告]
发表于 2014-01-20 18:59 |只看该作者
niubility的Perl
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP