Re: [PERL] lave string præcis 20 tegn??

[Kim Schulz <sslug@sslug>]

Ole Tange skriver:
> 
> On Sat, 7 Aug 1999, Kim Schulz wrote:
> 
> > 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.
> 
> $question="sikke et langt spørgsmål du kan stille.";
> $question=~s/^(.{10}).*/$1 .../;
> 
> /Ole

Hejsa 
Jeg prøvede dette i min kode (følger), men den kommer men en 500
internal server error!

# Show questions available
foreach $question (@questions) {
@foo = split(/\|/,$question);
$qtext = $foo[1];
$qnum = $foo[0];
$qtext = ~s/^(.{10}).*/$1 .../;  #Her er det sat ind!!
print "<option>$qnum\. $qtext\n";
}


Hvad kan være galt?


--
    MVH
      Kim Schulz