通过空格分裂并加入点会产生多个点perl

Question

我有一个字符串，我想在whitespace中拆分。然后加入点。拆分工作正常，但是加入时，我会得到其他点。我知道日志文件具有选项卡，但我正在按空格分配，因此不确定问题。在这里，它确实可以很好地拆分，因为您可以看到它在 lineswithSpacesandTabs

的

my $line = 'lines with spaces   and     tabs';
@array = split /s/, $line;
print @array;

，但现在我加入了它们，它不起作用

$joinedstring = join '.', @array;
print $joinedstring;

打印 lines.with.spaces ...和..... Tabs

请帮助。

Answer 1

几乎在那里。您正在按空间/s/分开，而不是所有空格。尝试拆分/s+/

my $line = 'lines with spaces   and     tabs';
@array = split /s+/, $line;

edit Whitespace的拆分默认行为为split " "，而不是split /s+/

my $line = 'lines with spaces   and     tabs';
@array = split " ", $line;