小编tim*_*tim的帖子

我有两个包含整数的数组.例如:

@arr1 = ( 2, 5, 6)
@arr2 = ( 1, 4, 7)

如何找到这两个数组之间的最小值？

我想打印这样的声明

print "$string -> $string1 ( join (",", @array) )\n";

但是我发现我无法打印join函数的结果，但是join像普通单词一样打印。例如我的$ string = a，$ string1 = b和@array = cde给我如下结果

a -> b (join (",",@array) )

我想要的实际结果是这样的。

a -> b (c,d,e)

任何解决方案我都能得到我想要的结果吗？

我想加入第一个到第16个单词和第17个到第31个等,在一个数组中,空格到一行,但不知道为什么代码不起作用.希望在这里得到帮助.谢谢

my @file = <FILE>;
for ( $i=0; $i<=$#file; $i+=16 ){
    my $string = join ( " ", @file[$i..$i+15] );
    print FILE1 "$string\n";
}

以下是我档案的一部分.

1
2
3
...

我要打印的是

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
17 18 19 20 21....