$text nach x Zeichen abschneiden

[Torwächter]

Hallo zusammen,

wie schaff ich es dies durchzuführen :

$text = "diesertextistvielzulang";
$text /cut/ nach 6 Zeichen
Ausgabe: "dieser"

(ich habs mit substr nicht hinbekommen)

Greetings
Torwächter

[xNeTworKx]

Hi,

$text = "diesertextistvielzulang";

$text = 'diesertextistvielzulang';  #genügt hier

$text /cut/ nach 6 Zeichen
Ausgabe: "dieser"

(ich habs mit substr nicht hinbekommen)

Wieso nicht ?

my $teilstring = substr($text, 0, 6);

[Torwächter]

Danke dir, jetzt gehts (warum auch immer).

Neue Frage, wie kann ich nach 20 Zeichen ein <br> einfügen lassen ?

Greetings
Torwächter

[jens m. noedler]

Danke dir, jetzt gehts (warum auch immer).

Neue Frage, wie kann ich nach 20 Zeichen ein <br> einfügen lassen ?

$test =~ s/(.{20})/$1<br>/;

wäre eine möglichkeit.

$test =~ s/(.{20})/$1<br>/g;

wenn du nach jedem 20. zeichen ein <br> haben willst.

details: perldoc perlre

[Bio]

Sup!

$text="123456";
$text =~ /(^......)/;
$text=$1;

waere vielleicht eine Moeglichkeit.

Oder besser $text=substr $text,1,6;

Und sicher gibt es mindestens 20 weitere Möglichkeiten.

Siehe auch perldoc perfunc

Gruesse,

Bio