Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Perl/CGI » utf-8

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
21.05.2006, 23:53 Uhr
Pler
Einer von Vielen
(Operator)


Hallo.

Das gleiche wie hier habe ich jetzt auch in Perl probiert.
Das gleiche Problem.
Hab gefunden, dass es in Perl das Modul Unicode::String gibt. Kann allerdings auch nicht sehen wie mir das weiterhelfen soll.

Zur Vollständigkeit noch mal den Quellcode:


Perl:

#! /usr/bin/perl

use strict;
use warnings;

my $string;
my $laenge;

print "Bitte Zeichekette eingeben:\n";
$string = <>;
chomp $string;

print "Folgende Zeichenkette wurde eingegeben:\n";
print $string . "\n";
print "Sie hat " . length ( $string ) . " Zeichen!\n";

print "Und hier sind die letzten fuenf Zeichen der Kette:\n";
print substr( $string , -5 );
print "\n";



Bash:
$ ./versuch.pl
Bitte Zeichekette eingeben:
Hallo Wält!
Folgende Zeichenkette wurde eingegeben:
Hallo Wält!
Sie hat 12 Zeichen!
Und hier sind die letzten fuenf Zeichen der Kette:
ält!

 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Perl/CGI ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: