小弟扛不住，这个shell太有挑战性，请高手帮忙看看

byrand1984

Channel:3D试验
Date:20170726
0000-0140|劲爆体育
0140-0320|全天节目结束
0320-0500|全天节目结束
0500-0640|全天节目结束
0640-0820|全天节目结束
0820-1000|全天节目结束
1000-1030|全天节目结束
1030-1041|糖果总动员(19)
1041-1130|城市之光Ⅲ(下)
1130-1200|3D乐园
1200-2400|万家灯火
Channel:北京卫视
Date:20170726
0000-0012|我的前半生剧宣
0012-0016|广宣时段
0016-0118|光阴
0118-0121|广宣时段
0121-0221|我的前半生剧宣
0221-0224|广宣时段
0224-0310|幸福请你等等我(11)
0310-0356|幸福请你等等我(12)
0356-0442|幸福请你等等我(13)
0442-0542|养生堂
0542-0601|法治进行时
0601-0620|法治进行时
0620-0657|养生堂精编版
0657-0700|广宣时段
0700-0840|北京您早
0840-0900|北京您早
0900-0905|广宣时段
0905-0930|精品栏目荟萃
0930-1015|甄环传(6)
1015-1020|广宣时段
1020-2400|甄环传(7)
Channel:北京卫视HD
Date:20170726
0000-0012|我的前半生剧宣
0012-0016|广宣时段
0016-0118|光阴
0118-0121|广宣时段
0121-0221|我的前半生剧宣
0221-0224|广宣时段
0224-0310|幸福请你等等我(11)
0310-0356|幸福请你等等我(12)
0356-0442|幸福请你等等我(13)
0442-0542|养生堂
0542-2400|法治进行时
Channel:卡酷卡通
Date:20170726
0000-0005|猫和老鼠之飞向火星
0005-0027|西游记(2
0027-0049|西游记(29)
0049-0119|西游记(30)
0119-0141|西游记(31)
0141-0203|西游记(32)
0203-0230|百变马丁(41)
0230-0252|百变马丁(42)
0252-0314|百变马丁(43)
0314-0341|百变马丁(44)
0341-0403|猪猪侠之五灵守卫者(19)
0403-0425|猪猪侠之五灵守卫者(20)
0425-0439|大耳朵图图Ⅳ(7)
0439-0454|大耳朵图图Ⅳ(
0454-0505|大耳朵图图Ⅳ(9)
0505-0516|大耳朵图图Ⅳ(10)
0516-2400|大耳朵图图Ⅳ(11)
Channel:CCTV-1
Date:20170726
0000-0118|挑战不可能(62)
0118-0124|生活提示
0124-0156|晚间新闻
0156-0241|动物世界
0241-2400|精彩1刻:湛江人龙舞

....
....


小弟有一个文本文件，内容大致如上，现在想将该文本文件中每一个带卫视的channel ，该channel包含的节目单内容抽取，重定向到新文件，比如抽取北京卫视的channel,该文件被重命名为北京卫视.txt，该文件的内容包含如下，时间段从000开始，   2400结束
Channel:北京卫视
Date:20170726
0000-0012|我的前半生剧宣
0012-0016|广宣时段
0016-0118|光阴
0118-0121|广宣时段
0121-0221|我的前半生剧宣
0221-0224|广宣时段
0224-0310|幸福请你等等我(11)
0310-0356|幸福请你等等我(12)
0356-0442|幸福请你等等我(13)
0442-0542|养生堂
0542-2400|法治进行时


不抽取北京卫视HD、只抽取带卫视的

reyleon

你那标红的结果的明明是 北京卫视HD 的? 又说不抽取北京卫视HD、只抽取带卫视的, 那么, 你到底闹哪样?..

关阴月飞

awk -vRS='Channel:' '$1~/卫视$/{print RT$0 >$1".txt"}'  urfile

reyleon

猜一下:

1. awk -F: '$2~/卫视$/{f=$2;p=1}p{print > f".txt"}/2400/{p=0}' textfile

复制代码

jason680

回复 1# byrand1984

Do you like it

$ awk -F: -vk="北京卫视" '/Channel/{f=$2==k?1:0}f{print > k".txt"}' FILE

$ cat 北京卫视.txt
Channel:北京卫视
Date:20170726
0000-0012|我的前半生剧宣
0012-0016|广宣时段
0016-0118|光阴
...
1020-2400|甄环传(7)

byrand1984

回复 2# reyleon

因为这个文本文件有很多频道，比如北京卫视、北京卫视HD、3D试验、女性时尚、游戏风云、黑龙江卫视 等等。。而目前只想抽取频道名称以卫视结束的，
北京卫视HD是不需要的，即使它包含了卫视两个字，3D试验、女性时尚、游戏风云这些频道也是不需要的
换句话说只要带HD的都不需要，即使有包含卫视两个字

byrand1984

小弟刚上传了一个文本文件的内容，烦请楼上的众高手再帮忙小弟分析下。

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use Encode qw(encode);
   
6. 
   
7. local $/ = "\nChannel:";
   
8. while(<>){
   
9.         chomp;
   
10.         my ($k, $v) = split(/\n/, $_, 2);
    
11.         next unless($k =~ /卫视\z/);
    
12.         open(my $FHw, '>', sprintf("%s.txt", encode('gb2312', $k)));
    
13.         print $FHw encode('gb2312', join("\n", "Channel:$k", $v, ''));
    
14.         close($FHw);
    
15. }

复制代码

perl abc.pl urFile.txt

龙牙地主天

awk 'BEGIN{RS="Channel:" ; FS="\n" ; printf "Channel:"}$1~/卫视$/{print $0}' urfile