Question

怎样用perl把一个文件里同一类数据输出到同一列，不同类的数据中间用\t隔开

例如下面这个数据：
>123hello
>26544
#59679
#123hello
oo123
00158669
意思就是说将以>开头的输出到同一列，而#开头的又输出到另一列，以此类推。

Answer 1

my @t =([],[],[]);
while (<DATA>) {
	chomp;
	if (/^>/)    {push @{$t[0]}, $_;}
	elsif (/^#/) {push @{$t[1]}, $_;}
	else         {push @{$t[2]}, $_;}
}
my @m = sort(map{$#{$_}} @t);
for my $i(0..$m[$#m]) {
	foreach my $e(@t) {
		if ($i <= $#{$e}) {print "$e->[$i]\t";}
		else {print "\t";}
	}
	print "\n";
}
__DATA__
>123hello
>26544
#59679
#123hello 
oo123
00158669

追问

可是为什么每次运行时会出现下面的警告呀
Unrecognized character \xC2; marked by <-- HERE after my<-- HERE near column 3 at @ line 2.

Answer 2

use strict;
my %result;
while ( chomp (my $line = <DATA>) ) {
    $line =~ /^(.)(.+)$/;
    $result{$1} = [] unless exists $result{$1};
    push @{$result{$1}}, $2;
}

foreach my $symbol ( keys %result ) {
    print "$symbol$_\t" foreach @{$result{$symbol}};
    print $/;
}

__DATA__
>123hello
>26544
#59679
#123hello
oo123
00158669

结果:

#59679    #123hello    
oo123    
>123hello    >26544

追问

额，我说的是同一类的数据排在同一列而不是同一行呀