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

[Ole Tange <sslug@sslug>]

On Sat, 7 Aug 1999, Kim Schulz wrote:

> Ole Tange skriver:
> > 
> > $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!!

Næh, det er det ikke.

> print "<option>$qnum\. $qtext\n";
> }
> 
> Hvad kan være galt?

Prøv at skrive nøjagtigt, hvad jeg skrev. Og test det da for hulen på en
maskine, hvor du har adgang til logfiler (f.eks. din egen).


/Ole