hi,

aus dem folgenden code:
sub vertical{
my @headers = qw(ID DE CC DR);
my $format = "%-30s %-30s %-30s %-30s";
print "\n";
print sprintf($format, @headers);
for my $sresult(@result){
my @texte;
for my $head(@headers){
my ($line) = grep {$_ =~ /^$head/}@$sresult;
$line = " " unless $line;

my $text = (split /\s+/, $line, 2)[1];
$text ||= " ";
push @texte, $text;
}
print sprintf($format, @texte);
}
}
bekomm ich z.b. diese ausgabe:
ID DE CC DR
11S3_HELAN STANDARD; PRT; 493 AA. 11S globulin seed storage protein G3 precursor (Helianthinin G3) -!- FUNCTION: This is a seed storage protein. EMBL; M28832; AAA33374.1;

mit anderen worten: da die einträge aus zeilen eingelesen werden, aber als spalten ausgegeben sind die nicht gleich lang. ich brauch aber auch nicht immer die ganze zeile, sondern meist nur die ersten paar wörter. wie kann das verbessert werden, damit es übersichtlicher und lesbarer wird?\n\n

<!--EDIT|kabazza|1174315075-->