从输入文件中分割线条

Question

如果你有像

这样的输入

5 28
108 2 3

你怎么打印出来

A = {5, 28}
B = {108, 2, 3}

我不明白如何使用不同的线路输入在正确的位置正确分割它。 我知道我应该在代码中有这样的东西。

@A = split (" ", $line1)
@B = split (" ", $line2)

Answer 1

使用正则表达式：

 @A = split (/ /, $line1)

Answer 2

或许这样吗？

use strict;
use warnings;

my $letter = 'A';

while ( <DATA> ) {
  printf "%s = {%s}\n", $letter++, join ', ', split;
}

__DATA__
5 28
108 2 3

<强>输出

A = {5, 28}
B = {108, 2, 3}