免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 4470 | 回复: 16

perl如何合并文本 [复制链接]

论坛徽章:
0
发表于 2014-04-23 10:54 |显示全部楼层
假设一个文件目录下有很多个txt文件,
但是并不知道文件名.也就是说这些文件名是很杂乱的.
比如:1.txt  2.txt ab.txt dwer.txt等.
对于1.txt里面如果某一行有perl,
则把这行输入到 newfile.txt,如果某一行没有perl,则不输入
对于2.txt里面如果某一行有perl,
则把这行输入到 newfile.txt,如果某一行没有perl,则不输入
.....................
把所有的该目录下面的txt文件都这么搞一下.

请问用perl如何能办到呢?

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-04-23 12:40 |显示全部楼层
这么搞一下
  1. my $dir = '/your/dir';
  2. @ARGV = glob "$dir/*.txt";

  3. open OUT, '>', 'newfile.txt' or die $!;

  4. while (<>) {
  5.     print OUT $_ if /perl/;
  6. }
复制代码
回复 1# xiaomm250


   

论坛徽章:
0
发表于 2014-04-23 13:30 |显示全部楼层
pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250


没有任何运行结果

论坛徽章:
0
发表于 2014-04-23 13:40 |显示全部楼层
pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250


while(<>)
这个<>里面为什么啥都没有呢?


我发现你的是正确的,只是我的文本里面没有包含perl的行

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
发表于 2014-04-23 14:00 |显示全部楼层
grep 'perl' *.txt > newfile.txt

论坛徽章:
0
发表于 2014-04-23 14:06 |显示全部楼层
  1. open(OUT, '>', 'newfile.txt') or die $!;
  2. @files=glob('*.txt');
  3. foreach $file (@files)
  4. {
  5.     open(FH,"<$file") or die $!; @filedata=<FH>; close(FH);
  6.     foreach $line (@filedata)
  7.     {
  8.         print OUT $line;
  9.     }
  10. }
  11. close(OUT);
复制代码
这是我的代码,比较傻的那种代码

论坛徽章:
0
发表于 2014-04-23 14:08 |显示全部楼层
pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250


代码太简写了,
我翻了小骆驼才明白,
原来<>从@ARGV里面读取数据

论坛徽章:
2
巨蟹座
日期:2014-05-21 16:42:40巳蛇
日期:2014-05-22 08:44:29
发表于 2014-04-23 14:25 |显示全部楼层
学习了,豁然开朗。。。:wink:

论坛徽章:
0
发表于 2014-04-23 14:29 |显示全部楼层
skyyy90 发表于 2014-04-23 14:25
学习了,豁然开朗。。。


怎么豁然开朗了呀?能说说吗?

论坛徽章:
130
技术图书徽章
日期: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
发表于 2014-04-23 15:28 |显示全部楼层
回复 1# xiaomm250

1. using grep
  grep "perl" *.txt > newfile

2. using perl
  ### file: grep.pl ####
  #!/usr/bin/perl
  use strict;
  use warnings;

  my $sKey = shift;
  while(<>){
    print  if(m/$sKey/);
  }
   
  ### command ###
  $ ./grep.pl "perl" *.txt > newfile
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,8.5折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时8.5折扣期:2019年9月30日前


----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP