- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- my %hData = ();
- while (<DATA>){
- last if (/\A\s*\z/);
- my @aT = split;
- $hData{"@aT[0, 1]"} = [@aT[-2, -1]];
- }
- while (<DATA>){
- my @aT = split;
- my ($fn, $content) = (sprintf("%s_%s.file", @aT[0, 1]), $aT[-1] . '_dat');
- if (exists ($hData{"@aT[0, 1]"})){
- ($fn, $content) = @{$hData{"@aT[0, 1]"}};
- }
- open (my $FHw, '>', $fn);
- print $FHw $content, "\n";
- close ($FHw);
- }
- __DATA__
- 10 ABC SPECIALFILENAME.sh SPECIAL_CONTENT
- 10 ABC YYYYMMDD
- 10 AAA 20170101
- 20 BBB 20170303
复制代码 |
|