Re: [PERL] Længde/Streng

[René Seindal <sslug@sslug>]

On Mon, Aug 12, 2002 at 12:04:01AM +0200, Henning Hansen wrote:
> Hej
> 
> Jeg har brug for at opdele en streng som kan være af forskellig
> størrelse ca. 100-500 karaktere 
> 
> Den skal deles op til bidder der max må være 121 karaktere lange,
> f.eks. denne streng som er 150 karaktere lang. 
> 
> $streng = "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
> 
> Denne skal deles op i:
> 
> $streng01
> $streng02
> 
> 
> Hvis strengen f.eks. er 380 lang skal den deles op i 4 dele:
> 
> $streng01
> $streng02
> $streng03
> $streng04
> 
> Er der nogen der kan hjælpe mig med at løse dette

$streng = "1234567890" x 100;	      # 1000 tegn
@a = ($streng =~ /.{1,121}/g);	      # split i array
print length, "\n" for (@a);	      # print længden af hvert element

Her får du resultatet i et array.  Det er langt simplere end at bruge et
antal variable med faste navne.

-- 
René Seindal (sslug@sslug)              http://www.seindal.dk/rene/