|
发表于 2004-3-25 14:15:19
|
显示全部楼层
由于文件第一个字段都是相同的,而且你要求新文件与原文件内容相同,所以循环一次就够了。
给个Perl脚本参考一下。
- #!/usr/bin/perl -w
- open OBJFILE, "file.txt"
- or die "Error!!!($!).";
- while(<OBJFILE>){
- foreach (split){
- if(/\b(\d+)\b/){
- $newname=$1;
- last;
- }
- }
- }
- close OBJFILE;
- `cp file.txt "$newname.txt"`;
复制代码 |
|