Hier sind "größer" bzw. "kleiner" im Sinne einer
Ordnung gemäß einer Zeichentabelle (ASCII, Unicode) zu verstehen
und nicht etwa als Längenvergleich.
  
  
   - 
substr()
      Mit Hilfe von substr()lassen sich Teilstrings aus
      Zeichenketten extrahieren. Die Argumente sind der zu untersuchende
      String, die Startposition (beginnend bei 0) sowie die Länge
      des gewünschten Teilstrings. Läßt man das letzte
      Argument weg, so erstreckt sich der Teilstrings bis zum Ende
      der vorgegebenen Zeichenkette.
 | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $t = 'Kalender';
 print substr($t,1,4)."\n";
 print substr($t,5)."\n";
 
 |  |  
 
     
- 
lc()unduc()
      Diese Funktionen ersetzen alle Buchstaben in einem String durch die
      zugehörigen Klein- (lc, lower case) bzw.
      Großbuchstaben (uc, upper case).
 | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $t = 'Perl';
 print lc($t)."\n";
 print uc($t)."\n";
 
 |  |  
 
     
- 
lcfirst()unducfirst()
      Im Gegensatz zu lcverwandeltlcfirstnur
      den ersten Buchstaben in einen Kleinbuchstaben (sofern er nicht bereits
      klein geschrieben ist). Analog setztucfirstnur den
      ersten Buchstaben in Großschrift.
 | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $t = 'PERL';
 print lcfirst($t)."\n";
 $t = 'perl';
 print ucfirst($t)."\n";
 
 |  |  
 
     
- 
chop()
      Hiermit wird das letzte Zeichen vom übergebenen String
      entfernt und als Funktionswert zurückgegeben.
           | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $t = 'Perl';
 chop($t);
 print $t;
 
 |  |  
 
      Oft wird chop()dazu verwendet, den Zeilenvorschub
      am Ende einer Zeile abzuschneiden; hierfür eignet sich jedochchomp()besser.
 
- 
chomp()
      Standardmäßig entfernt chomp()einen
      Zeilenvorschub ("\n") vom Ende eines Strings, sofern
      ein solcher
      vorhanden ist, und gibt die Anzahl der abgeschnittenen Zeichen
      zurück.chomp()sollte insbesondere dann
      gegenüberchop()bevorzugt werden, wenn nicht ganz
      sicher ist, ob die Zeichenkette am Ende einen Zeilenvorschub besitzt
      oder nicht.
 
      Genaugenommen entfernt chomp()am Ende eines Strings
      die Zeichenkette, die in der Variablen "$/" steht
      (Standardwert: "\n"). Ist "$/" leer,
      so werden alle Zeilenvorschübe abgeschnitten.
 | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $string = "Hallo\n";
 chomp($string);            # Abschneiden von \n
 
 $string = "Hallo";
 chomp($string);            # keine Änderung von $string
 
 $/ = 'lo';
 $string = "Hallo";
 chomp($string);            # $string ist nun "Hal"
 
 $/ = '';
 $string = "Hallo\n\n\n";
 chomp($string);            # Entfernen aller \n
 
 |  |  
 
     
- 
length()
      Hiermit wird die Länge einer Zeichenkette ermittelt
      (einschließlich aller Sonderzeichen).
           | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $zeile = "Anzahl\tPreis\n";
 print length($zeile)."\n";
 
 |  |  
 
     
- 
join()
      Das erste Argument ist hierbei eine Zeichenkette, die zwischen
      die nachfolgenden Strings beim Aneinanderhängen gesetzt wird.
           | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $zeile = join('-','a','b','c','d');
 print $zeile."\n";
 
 |  |  
 
- 
split()
      Hiermit kann eine Zeichenkette an bestimmten Stellen aufgetrennt
      werden. Die jeweilige Trennstelle gibt ein Suchmuster im ersten
      Argument an (siehe Reguläre
      Ausdrücke).
           | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $zeile = "a-b-c-d";
 my @a = split(/-/,$zeile);     # Anzahl der Elemente
 
 print "@a\n";
 
 |  |  
 
      Um die Anzahl der
      Teilstrings zu begrenzen, kann als drittes Argument noch
      eine Zahl angegeben werden, die die maximale Anzahl der
      gebildeten Stücke darstellt.
           | 
| #!/usr/local/bin/perl -w
 use strict;
 
 my $zeile = "a-b-c-d";
 my @a = split(/-/,$zeile,2);
 
 print "@a\n";
 
 |  |  
 
      In diesem Beispiel enthält @aam Ende nur die
      beiden Elemente "a" und "b-c-d".
 
- 
chr()
      Mit chr()kann man Zeichen über ihre Position
      im verwendeten Zeichensatz darstellen. Im folgenden Beispiel
      wird der Anfang des Alphabets im ASCII-Zeichensatz ausgegeben:
 | 
| #!/usr/local/bin/perl -w
 print chr(65).chr(66).chr(67)."\n";
 
 |  |  
 
- 
ord()
      Die Umkehrung der obigen Funktion chr()istord(): Sie gibt die Position des ersten übergebenen
      Zeichens in der Zeichensatztabelle aus. Das nächste Beispiel
      zeigt die ASCII-Codes der ersten Buchstaben des Alphabets:
 | 
| #!/usr/local/bin/perl -w
 print ord('A').' '.ord('B').' '.ord('C')."\n";
 
 |  |