Perl 有条件地用列名替换单元格值
我有一个165 x 165的秩矩阵，这样每一行的值都在1-165之间。我想解析每一行并删除所有>=5的值，按递增顺序对每一行进行排序，然后用原始矩阵中的列名称替换值1-5Perl 有条件地用列名替换单元格值,perl,sed,awk,Perl,Sed,Awk,我有一个165 x 165的秩矩阵，这样每一行的值都在1-165之间。我想解析每一行并删除所有>=5的值，按递增顺序对每一行进行排序，然后用原始矩阵中的列名称替换值1-5 例如，对于k行，值1、2、3、4、5将在前两次转换后产生，并将被p、d、m、n、a替换。我假设您的数组由数组组成 Awk、Sed或Perl都没有多维数组。但是，可以使用数组的数组在Perl中模拟它们 $a[0]->[0] = xx; $a[0]->[1] = yy; [...] $a[0]->[164] =
例如，对于k行，值1、2、3、4、5将在前两次转换后产生，并将被p、d、m、n、a替换。我假设您的数组由数组组成 Awk、Sed或Perl都没有多维数组。但是，可以使用数组的数组在Perl中模拟它们
$a[0]->[0] = xx;
$a[0]->[1] = yy;
[...]
$a[0]->[164] = zz;
$a[1]->[0] = qq;
$a[1]->[1] = rr;
[...]
$a[164]->[164] = vv;
$x$y$array[$x]->[$y]for my $x (1..164) { #First row is column names
for my $y (0..164) {
if ($array[$x]->[$y] <= 5) {
$array[$x]->[$y] = $array[0]->[$y];
}
}
}
$array[0]$array[$x]->[$y]$array[0]->[$y]for my $x (1..164) { #First row is column names
for my $y (0..164) {
if ($array[$x]->[$y] <= 5) {
$array[$x]->[$y] = $array[0]->[$y];
}
}
}
对于我的$x（1..164）{#第一行是列名
我的$y（0..164）{
如果（$array[$x]->[$y][$y]=$array[0]->[$y]；
}
}
}
我希望我不是在为你做功课。这个GNU-sed解决方案可能会工作，但它需要放大，因为我只使用10x10矩阵进行测试：
# { echo {a..j};for x in {1..10};do seq 1 10 | shuf |sed 'N;N;N;N;N;N;N;N;N;s/\n/ /g';done; }> test_data
# cat test_data
a b c d e f g h i j
4 5 9 3 6 2 10 8 7 1
3 7 4 2 1 6 10 5 8 9
10 9 3 1 2 7 8 5 6 4
5 10 4 9 7 8 1 3 6 2
8 6 5 9 1 4 3 2 7 10
2 8 9 3 5 6 10 1 4 7
3 9 8 2 1 4 10 6 7 5
3 7 2 1 8 6 10 4 5 9
1 10 8 3 6 5 4 2 7 9
7 2 3 5 6 1 10 4 8 9
# cat test_data |
sed -rn '1{h;d};s/[0-9]{2,}|[6-9]/0/g;G;s/\n|$/ &/g;s/$/&1 2 3 4 5 /;:a;s/^(\S*) (.*\n)(\S* )(.*)/\2\4\1\3/;ta;s/\n//;s/0[^ ]? //g;:b;s/([1-5])(.*)\1(.)/\3\2/;tb;p'
j f d a b
e d a c h
d e c j h
g j h c a
e h g f c
h a d i e
e d a f j
d c a h i
a h d g f
f b c h d
sed我可能误解了有关列或行排序的问题，如果是这样的话，这是一个最小的解决方案-用原始值替换
1 2 3 4 5=5>5