perl - 通道更改分隔符

esw*_*ues 1 perl one-liner

我有一个班轮:

az account list  -o table |perl -lane 'print $F[0] if /GS/i'
Run Code Online (Sandbox Code Playgroud)

我想将默认分隔符从“\t”更改为“-”

有任何提示如何执行此操作吗?

只是想强调一下,我正在寻找的是 oneliner ;)

tri*_*eee 7

在任何空白处进行普通-a分割,而不仅仅是制表符。该-F选项允许您指定不同的分隔符。

az account list  -o table |
perl -laF- -ne 'print $F[0] if /GS/i'
Run Code Online (Sandbox Code Playgroud)