使用perl在特定位置删除列

Question

我是Perl的新手，我正在尝试删除在特定位置定义的列。我的档案是这样的：

https://i.stack.imgur.com/18l5a.png

知道这些列的数字如下：

1-3 , 5-7 , 9-12 , 14-16 , 18-21 , 23-25 , 27-29 , 31-37 , 39-68 , 70-72 , 74

我想删除从以下位置开始的列：

1-3 , 14-16 , 23-25 , 27-29 , 31-37 , 39-68 , 70-72 , 74

这样我就可以得到这个，只有列: 5-7和9-12，但是将它们的位置改为: 1-5和7-10。

例如，我希望在特定位置添加新列(12-21)，并获得以下结果文件：

https://i.stack.imgur.com/eQ0Yp.png。

提前谢谢你！

Answer 1

一种方法是使用unpack。试试这个perl p.pl < in.txt，其中p.pl是：

while (<>) {
    my @cols = unpack "A3xA3xA4xA*", $_;
    CORE::say join ' ', $cols[2] . '  ', $cols[1], "      same";
}

更新

根据评论中的讨论，以下解决方案解决了这个问题：

while (<>) {
    my @cols = unpack "A3xA3xA4xA*", $_;
    printf "%-5s %-5s %-4s\n", $cols[1], $cols[2], "same";
}