Perl substr() -> String abschneiden

Beitrag von **Outman** » 14.07.2009, 21:20

Huhu,

ich möchte in Perl ein String abschneiden und diesen ein "..." anhängen. Das habe ich über eine Subroutine gemacht. Hier der Code:

Code: Alles auswählen

sub limitch
&#123;
	if&#40;length&#40;$_&#91;0&#93;&#41; >= $_&#91;1&#93;&#41;&#123;
		 $limited = "";
         $limited .= substr&#40;$_&#91;0&#93;,0,$_&#91;1&#93;&#41;;
         $limited .= "...";
         return $limited;
	&#125; else &#123;
		 return $_&#91;0&#93;;
	&#125;
&#125;

Gibt es eine saubere Lösung, als wie über eine Subroutine dies zu machen?

Grüße Nico

von **Anzeige von ABAKUS** »

SEO Consulting bei ABAKUS Internet Marketing
Erfahrung seit 2002

persönliche Betreuung
individuelle Beratung
kompetente Umsetzung

Jetzt anfragen: 0511 / 300325-0.

Beitrag von **profo** » 14.07.2009, 21:44

Du gewinnst mit dem Code vielleicht keinen Schönheitspreis, aber er funktioniert doch mehr oder weniger. Eine eingebaute Funktion gibt''s nicht, und eine Bibliothek würde ich mir für so etwas gar nicht suchen.

Zur Inspiration vielleicht, hier nochmal Deine Routine etwas umgeschrieben:

Code: Alles auswählen

sub limitch2&#40;$$&#41; &#123;
    my &#40;$s, $len&#41; = @_;
    if &#40; length&#40;$s&#41; >= $len &#41; &#123;
        substr&#40; $s, $len &#41; = "...";
    &#125;
    $s;
&#125;

Beitrag von **Outman** » 14.07.2009, 22:07

Okay, danke für die Info. Bin in letzter Zeit immer mehr daran mich mit Perl zu beschäftigen und hatte dazu noch keine direkte Funktion gefunden. Daher auch meine Frage und die frikel Lösung

Beitrag von **profo** » 15.07.2009, 13:43

Frickeln ist doch ok. Und Perl ist mächtiger, sauberer, schneller und sicherer als php. Jedenfalls nach meiner bescheidenen Meinung