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-->

Hallo kabazza,

magst du deinen Code in Code-Tags legen? Das schaut ja grausam
aus und lässt sich nicht besonders gut lesen.

Wäre nett von dir... :)

Viele Grüße,
opi\n\n

<!--EDIT|opi|1174315583-->

Wie schauen deine Eingabe-Daten in etwa aus und was willst du genau erreichen? Ich werde aus deiner Beschreibung momentan nicht wirklich schlau..

[quote=kabazza,19.03.2007, 15:36]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?[/quote]
möchtest du den Text vielleicht abschneiden?

push @texte, substr($text, 0, 30);

die eingabe siehtin etwa so aus:
ID 10KD_VIGUN STANDARD; PRT; 75 AA.
AC P18646;
DE 10 kDa protein precursor (Clone PSAS10).
OS Vigna unguiculata (Cowpea).
RL Plant Mol. Biol. 15:59-64(1990).
CC -!- FUNCTION: This protein is required for germination.
CC -!- SIMILARITY: Belongs to the plant defensin family.
DR EMBL; X16877; CAA34760.1; -.
DR PIR; S11156; S11156.
DR HSSP; P81929; 1JKZ.
DR InterPro; IPR008176; Gamma-thionin.
DR InterPro; IPR003614; Knot1.
DR Pfam; PF00304; Gamma-thionin; 1.
DR ProDom; PD002594; G_Purothionin; 1.
DR SMART; SM00505; Knot1; 1.
DR PROSITE; PS00940; GAMMA_THIONIN; 1.

steht viel zeug drin was ich nicht brauch. die zeilen müssen unterschiedlich lang sein. da z.b. bei ID nur das erste wort, bei CC aber mehr gebraucht wird.

Schau Dir mal von BioPerl den SwissProt-Parser an. Da musst Du Dich nicht selbst um die Sachen kümmern. Dann kannst Du auch leichter auf die Inhalte direkt zugreifen.

mit der installation bin ich als anfänger schon fast überfordert. kennt jemand einen einfacheren weg über geschriebenen code?

Ok, dann sag' mal, welcher Teil Dich von den Kommentaren (CC) interessiert!

alles was nach "-!-" und beide zeilen.