你好！我是Perl初学者，现在想问怎么用\t将我的文件输出来？

Question

我分析了一堆序列（含注释）想让他们按表格形式对齐输出！谢谢

Answer 1

#双引号中加\t
$s1='GLWSKIKEVGKEA';
$s2='AKAAAKAAGKAALGAVSEAV';
print "$s1\t$s2";

追问

我的意思是将一个文件的内容怎样用表格输出来，比如表格的内容是有很多商店，商店里卖很多种商品，但每个商店每种商品的量不同。我怎样以表格的形式输出。
原始文件是a商店 面包 100 b商店 面包 200 c商店 面包 150
希望输出的结果是：
a商店 面包 100
b商店 面包 200
c商店 面包 150

追答$line='a商店   面包    100  b商店 面包  200  c商店 面包  150';
@array=split(/\s+/,$line);
foreach (@array){$count++;
if ($count % 3==0) {print "$_\t"."\n"; } 
else { print "$_\t"; }}

本回答被提问者采纳