1楼 [报告]

发表于 2017-03-16 13:11 |显示全部楼层

#!/usr/bin/perl
use strict;
use warnings;
my %hMaps = map {$_ => 1} ('7450 ESS', '7750 SR');
print scalar <DATA>;
while (<DATA>){
if (/\A\|-/){
print;
last;
}
my $src = (split (/\s*\|/))[2];
my @aT = $src =~ /[^;]+/g;
my @aOut = sort {$a cmp $b} grep ($hMaps{$_}, @aT);
push (@aOut, sort {$b =~ s/.*\s//r cmp $a =~ s/.*\s//r} grep (!$hMaps{$_}, @aT));
s/$src/join (';', @aOut)/e;
print;
}
__DATA__
|EmpID.|Supported Products---------------------------|Open ARs|In Progress ARs|Pending ARs|
|130310|7950 XRS;7750 SR;7450 ESS | 30| 9| 20|
|409310|7750 SR;7210 SAS;7705 SAR;7450 ESS;7950 XRS | 41| 7| 24|
|313597|7210 SAS;7750 SR;7450 ESS;7950 XRS;7705 SAR | 70| 2| 43|
|612111|7210 SAS;7750 SR;7450 ESS;7950 XRS;7705 SAR | 35| 12| 14|
|856225|7450 ESS;7750 SR;7950 XRS;7210 SAS;7705 SAR | 38| 8| 13|
|838190|7450 ESS;7750 SR;7950 XRS | 23| 7| 5|
|639763|7710 SR;7450 ESS;7210 SAS;7750 SR;7705 SAR | 29| 13| 8|
|167936|7701 CPAA;7210 SAS;7750 SR;7450 ESS;7950 XRS | 25| 11| 10|
|686580|7210 SAS;7750 SR;7450 ESS;7950 XRS;7710 SR | 42| 8| 19|
|473732|7750 SR;9471 WMM;7450 ESS | 19| 4| 13|
|306660|7705 SAR;7210 SAS;7750 SR;7450 ESS;7950 XRS | 42| 11| 19|
|------+---------------------------------------------+--------+---------------+-----------+

复制代码

perl abc.pl

2楼 [报告]

发表于 2017-03-16 13:11 |显示全部楼层

#!/usr/bin/perl
use strict;
use warnings;
my %hMaps = map {$_ => 1} ('7450 ESS', '7750 SR');
print scalar <DATA>;
while (<DATA>){
if (/\A\|-/){
print;
last;
}
my $src = (split (/\s*\|/))[2];
my @aT = $src =~ /[^;]+/g;
my @aOut = sort {$a cmp $b} grep ($hMaps{$_}, @aT);
push (@aOut, sort {$b =~ s/.*\s//r cmp $a =~ s/.*\s//r} grep (!$hMaps{$_}, @aT));
s/$src/join (';', @aOut)/e;
print;
}
__DATA__
|EmpID.|Supported Products---------------------------|Open ARs|In Progress ARs|Pending ARs|
|130310|7950 XRS;7750 SR;7450 ESS | 30| 9| 20|
|409310|7750 SR;7210 SAS;7705 SAR;7450 ESS;7950 XRS | 41| 7| 24|
|313597|7210 SAS;7750 SR;7450 ESS;7950 XRS;7705 SAR | 70| 2| 43|
|612111|7210 SAS;7750 SR;7450 ESS;7950 XRS;7705 SAR | 35| 12| 14|
|856225|7450 ESS;7750 SR;7950 XRS;7210 SAS;7705 SAR | 38| 8| 13|
|838190|7450 ESS;7750 SR;7950 XRS | 23| 7| 5|
|639763|7710 SR;7450 ESS;7210 SAS;7750 SR;7705 SAR | 29| 13| 8|
|167936|7701 CPAA;7210 SAS;7750 SR;7450 ESS;7950 XRS | 25| 11| 10|
|686580|7210 SAS;7750 SR;7450 ESS;7950 XRS;7710 SR | 42| 8| 19|
|473732|7750 SR;9471 WMM;7450 ESS | 19| 4| 13|
|306660|7705 SAR;7210 SAS;7750 SR;7450 ESS;7950 XRS | 42| 11| 19|
|------+---------------------------------------------+--------+---------------+-----------+

复制代码

perl abc.pl

[文本处理] 表中表排序 [复制链接]