如何把一个大文件分割成小文件

wmxli123

请教：

我这里有一个大的文件
以GETTRAFILE:FILE=MT.开始
以END JOB结束
中间的内容放在一个小文件中，
比如 以GETTRAFILE:FILE=MT.USMM.TH2,IV=10-0-11-0开始;

。。。。。。。。。
以END JOB 6892 结束，中间的内容放在文件USMM中
以GETTRAFILE:FILE=MT.USVM.TH2,IV=10-0-11-0开始
。。。。。
以END JOB 6892 结束 中间的内容放在文件USVM中

用PERL怎么实现呢？

wmxli123

怎么没有人回复啊，我等着呢

devel

怎么没有人回复啊，我等着呢

麻辣

$text= readfile_n($path/123.txt)

($text1)=(split/GETTRAFILE:FILE=MT.USMM.TH2\,IV=10-0-11-0/,$text)

($text2)=(split/END JOB 6892/,$text1)

.....................照此办理
$text2可能就是你想要的

gunguymadman007

用sed可能会更简单，楼主可以试一试
sed -n '/GETTRAFILE:FILE=MT.USMM.TH2\,IV=10-0-11-0/,/END JOB 6892/'p yourfile >; USVM

gunguymadman007

原帖由 "麻辣" 发表：
$text= readfile_n($path/123.txt)

($text1)=(split/GETTRAFILE:FILE=MT.USMM.TH2\,IV=10-0-11-0/,$text)

($text2)=(split/END JOB 6892/,$text1)

.....................照此办理
$text2可能就是你想要的

楼上的我用了一下  
报错 Undefined subroutine &main::readfile_n called at pl line 11, <FH>; line 5.   没有定义 怎么回事

麻辣

($text1)=(split/GETTRAFILE:FILE=MT\.USMM\.TH2\,IV=10-0-11-0/,$text)
我的正则不严谨
你修改下，多试试

麻辣

sub readfile_n {
open FILE"$_[0]";
my @file=<FILE>;;
close FILE;
my $text;
foreach (@file){
$text="$text$_";
}
return $text;
}