Perl chop() und chomp()

Beide Funktionen sind ziemlich ähnlich. Beide entfernen ein Zeichen vom Ende der angegebenen Zeichenfolge.

Perl hacken ()

Die Perl-Funktion chop() entfernt das letzte Zeichen aus einer Zeichenfolge, unabhängig davon, um welches Zeichen es sich handelt. Es gibt das zerhackte Zeichen aus der Zeichenfolge zurück.

Syntax:

1. hacken ();  

Perl-Beispiel chop()

1. # hacken () BEISPIELE    
2. $a  =  “AEIOU” ;    
3. hacken ( $a );    
4. print  “$a\n” ; #es wird   AEIO     zurückgeben .
5. $a  =  “AEIOU” ;    
6. $b  =  hacken ( $a );    
7. print  “$b\n” ; #es wird   U          zurückgeben .

Ausgabe:

AEIO
U

Schauen Sie sich die Ausgabe an, zuerst wird die Variable $a nach dem Hacken ausgegeben. Dann wird die Variable $b ausgegeben, die das zerhackte Zeichen aus der Zeichenfolge zurückgibt.

Perl Chomp()

Die Funktion chomp() entfernt alle Zeilenumbrüche am Ende der Zeichenfolge. Es gibt die Anzahl der aus der Zeichenfolge entfernten Zeichen zurück.

Syntax:

1. chomp();  

Perl-chomp()-Beispiel

1. #chomp() BEISPIELE    
2. $a  =  “AEIOU” ;    
3. chomp( $a );    
4. print  “$a\n” ; #es wird   AEIOU    zurückgeben .
5. $a  =  “AEIOU” ;    
6. $b  = chomp( $a );    
7.  print  “$b\n” ; #es wird  0 zurückgeben  , Zahl .  
8.  $a  =  “AEIOU\n” ;    
9. chomp( $a );    
10. print  “$a\n” ; #es gibt   AEIOU  zurück und entfernt das Zeilenumbruchzeichen  .    
11. $a  =  “AEIOU\n” ;    
12. $b  = chomp( $a );    
13. print  “$b\n” ; #es gibt  1 zurück  , Anzahl der entfernten Zeichen.  

Ausgabe:

AEIOU
0
AEIOU
1

Schauen Sie sich die Ausgabe an, zunächst enthält die Variable $a kein neues Einzelzeichen. Dann wird es in die Variable $b übergeben und ausgegeben. Es gibt 0 zurück, da kein Zeichen entfernt wird.

Jetzt enthält die Variable $a ein Zeilenumbruchzeichen. Wenn es in $b übergeben wird, gibt es 1 zurück, da es ein Zeilenumbruchzeichen entfernt.