小编Jig*_*dya的帖子

我正在尝试在perl中解析文件。我想在正则表达式匹配后打印所有行

例如，文件是

num_of_dogs,10,#start_reading
num_of_cat,15
num_birds,20
num_of_butterfly,80
.....

我要比赛后的所有台词 #start_reading

我已经尝试过了，但是只打印下一行

while (my $line = <$csv_file>) {
    next unless $line =~ /(.*),#end_of_tc/;
    if ($line =~ /(.*)/){
    print $file = $1;
    }
}

输出看起来像这样

num_of_cats,15
num_of_birds,20
......

提前致谢

我有一个大数组，我想按字母顺序对数组的所有元素进行排序。

在前面的子程序中，数组的元素被推送到 tc_reg 数组。

我有一个名为@tc_lane 的数组。当我打印数组的元素时，它看起来像这样

tx0_abc
rx0_fgw
ref_ghv
..

现在我想像这样对这个数组进行排序，

ref_ghv
rx0_fgw
tx_abc
..