lave string præcis 20 tegn??

[Kim Schulz <sslug@sslug>]

Hejsa
Jeg sidder lige og laver et lille perlscript (cgi), men jeg kan ikke
lige huske hvordan man deler en string så den er præcis 10 tegn.
Jeg har nogle lange spørgsmål, der puttes ind i en html selectbox. Denne
box bliver dog for stor hvis ikke jeg korter teksten lidt ned.
Jeg har følgende kode, hvor jeg gerne vil have gjort så at man får de
første 20 tegn af $question og så tilføjer "..." efter det, inden det
spyttes ud i selectboxen.

print "<select name=\"question\" style="width: 100px">\n";

# Show questions available
foreach $question (@questions) {
@foo = split(/\|/,$question);
$qtext = $foo[1];
$qnum = $foo[0];

print "<option>$qnum\. $qtext\n";
}

print "</select><br>\n";



Hvordan gør jeg dette lettest????


MVH
Kim Schulz
http://Linux.wiktor.dk