String nach Groesse splitten

[KingJBF]

Hallo zusammen,

kann mir jemand von euch sagen wie ich in Perl einen String nach Groesse aufsplitten kann? Ich moechte das ein String $foobar, wenn er groesser als 140 bytes ist, aufgesplittet wird und der rest der uebrig bleibt in eine neue Variable geschrieben wird. Also wenn der string 180 bytes gross ist, soll er die ersten 140 bytes in $VariableEins schreiben und die restlichen 40 byte dann in $VariableZwei.

Hoffe ihr koennt mir helfen. Danke im Vorraus,

[peschmae]

perl?

naja, einfach n genug langes array und dann ne while(stringzulang) - schleife...

MfG Peschmä

P.S. wenn der String Unicode ist musst du das natürlich auch beachten (bytes=zeichen/2)

[arthur]

du kannst auch substring und length benutzen:


$deinstring = "1234567890abcedf";
$part1 = substr($deinstring,0,140);
$part2 = substr($deinstring,140,length($deinstring)-140);

gruss
Arthur