Perl-Array

Ein Perl-Array ist eine Listenvariable, die Skalarwerte speichert. Die Variablen können unterschiedlichen Typs sein.

Array-Variablen beginnen mit @. Um auf Array-Elemente zuzugreifen, verwenden Sie zum Lesen das Format $ + Variablenname + [Indexwert] .

Beispiel

#!/usr/bin/perl @hits = ( 25 , 30 , 40 ) ; @names = ( " google " , " codercto " , " taobao " ) ;​ " $ hits[0] = $hits [0] n " ; print " $ hits[1] = $hits [1] n " ; print " $ hits[2] = $hits [2] n " ; print " $ name[0] = $names [0] n " ; print " $ name[1] = $names [1] n " ; print " $ Namen[2] = $Namen [2] n " ;

Im Programm wird das $-Symbol mit maskiert, sodass es unverändert ausgegeben werden kann.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = taobao

Array erstellen

Array-Variablen beginnen mit dem @ -Symbol und die Elemente werden in Klammern gesetzt. Sie können auch ein Array definieren, das mit qw beginnt.

 @array = (1, 2, 'Hallo');@array = qw/Dies ist ein Array/;

Das zweite Array verwendet den Operator qw// , der eine Liste von Zeichenfolgen mit durch Leerzeichen getrennten Array-Elementen zurückgibt. Natürlich können Sie auch mehrere Zeilen verwenden, um ein Array zu definieren:

 @days = qw/googletaobao...codercto/;

Sie können einem Array auch Werte nach Index zuweisen, wie folgt:

 $array[0] = 'Montag';...$array[6] = 'Sonntag';

Auf Array-Elemente zugreifen

Um auf Array-Elemente zuzugreifen, verwenden Sie zum Lesen das Format $ + Variablenname + [Indexwert] .

Beispiel

@sites = qw/ google taobao codercto / ; print " $sites [0] n " ; drucken " $sites [1] n " ; drucken " $sites [2] n " ; drucken " $sites [-1] n " ; # Negative Zahl, in umgekehrter Richtung gelesen

 googletaobaocoderctocodercto

Der Array-Indexwert beginnt bei 0, d. h. 0 ist das erste Element, 1 ist das zweite Element und so weiter.

Negative Zahlen werden aus der umgekehrten Richtung gelesen, -1 ist das erste Element, -2 ist das zweite Element

Array-Sequenznummer

Perl bietet ein Array-Format, das nacheinander ausgegeben werden kann. Das Format ist Startwert + .. + Endwert . Das Beispiel lautet wie folgt:

Beispiel

#!/usr/bin/perl @ var_1 0 = ( 1 .10 ) ; @ var_2 0 = ( 10 . .20 ) ; @var_abc = ( a .. z ) ; " @var_10 n " # Ausgabe 1 bis 10 drucken " @var_20 n " # Ausgabe 10 bis 20 drucken " @var_abc n " # Ausgabe von a bis z

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

Arraygröße

Die Arraygröße wird durch den skalaren Kontext innerhalb des Arrays bestimmt. :

 @array = (1,2,3);print "Array-Größe: ",scalar @array,"n";

Die Array-Länge gibt die physische Größe des Arrays zurück, nicht die Anzahl der Elemente. Wir können das folgende Beispiel sehen:

Beispiel

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) ; $ array [ 50 ] = 4 ; $ max_index = $ # array ;​ „ Arraygröße: $ size n “ ; " Maximaler Index: $max_index n " ;

 Arraygröße: 51 Maximaler Index: 50

Wie aus der Ausgabe hervorgeht, gibt es nur vier Array-Elemente, aber die Array-Größe beträgt 51.

Array-Elemente hinzufügen und entfernen

Perl bietet einige nützliche Funktionen zum Hinzufügen und Entfernen von Array-Elementen.

Wenn Sie noch keine Programmiererfahrung haben, fragen Sie sich vielleicht, was eine Funktion ist. Tatsächlich ist der Ausdruck , den wir zuvor verwendet haben, eine Ausgabefunktion.

Die folgende Tabelle listet häufig verwendete Operationsfunktionen in Arrays auf:

Seriennummer	Typ und Beschreibung
1	drücken Sie @ARRAY, LIST Fügen Sie den Wert der Liste am Ende des Arrays ein
2	Pop @ARRAY Erweitern Sie den letzten Wert des Arrays und geben Sie ihn zurück
3	@ARRAY verschieben Erfasst den ersten Wert des Arrays und gibt ihn zurück. Der Indexwert des Arrays wird ebenfalls um eins dekrementiert.
4	entshift @ARRAY, LIST Platziert die Liste vor dem Array und gibt die Anzahl der Elemente im neuen Array zurück.

Beispiel

#!/usr/bin/perl #Erstellen Sie ein einfaches Array @sites = ( " google " , " codercto " , " taobao " ) ; print " 1. @ sites = @sites n " # Fügen Sie ein Element am Ende des Arrays hinzu push ( @sites , „ baidu “ ) ; print " 2. @ sites = @sites n " # Fügen Sie ein Element am Anfang des Arrays hinzu unshift ( @sites , „ weibo “ ) ; print " 3. @ sites = @sites n " # Elemente am Ende des Arrays löschen pop ( @sites ) ; drucken " 4. @ sites = @sites n " ; Elemente am Anfang des Arrays entfernen Shift ( @sites ) ; drucken " 5. @sites = @sites n " ;

Array ausschneiden

Wir können ein Array ausschneiden und nach dem Ausschneiden das neue Array zurückgeben:

Beispiel

#!/usr/bin/perl @sites = qw/ google taobao codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 , 4 , 5 ] ; „ @sites2 n “ ;

 weibo qq Facebook

Der Array-Index muss einen gültigen Indexwert angeben, der eine positive Zahl gefolgt von einer negativen Zahl sein kann. Jeder Indexwert wird durch ein Komma getrennt.

Wenn es sich um einen kontinuierlichen Index handelt, können Sie .. verwenden, um den angegebenen Bereich anzugeben:

Beispiel

#!/usr/bin/perl @sites = qw / google taobao codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 .5 ] ; „ @sites2 n “ ;

 weibo qq Facebook

Ersetzen Sie Array-Elemente

Die Funktion splice() wird zum Ersetzen von Array-Elementen in Perl verwendet. Das Syntaxformat ist wie folgt:

 splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

Parameterbeschreibung:

@ARRAY: Zu ersetzendes Array.

OFFSET: Ausgangsposition.

LÄNGE: Die Anzahl der zu ersetzenden Elemente.

LIST: Liste der Ersatzelemente.

Das folgende Beispiel ersetzt 5 Elemente in einem Array beginnend mit dem 6. Element:

Beispiel

#!/usr/bin/perl @nums = ( 1 . .20 ) ; drucken " Vor dem Ersetzen - @nums n " ; splice ( @nums , 5 , 5 , 21. .25 ) ; print „ Nach dem Ersetzen – @nums n “ ;

 Vor dem Austausch - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Nach dem Austausch - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Konvertieren Sie einen String in ein Array

Um in Perl einen String in ein Array umzuwandeln, verwenden Sie die Funktion split(). Die Syntax lautet wie folgt:

 split [ MUSTER [ , EXPR [ , LIMIT ] ] ]

Parameterbeschreibung:

MUSTER: Trennzeichen, Standard ist Leerzeichen.

EXPR: Geben Sie die Anzahl der Zeichenfolgen an.

LIMIT: Wenn dieser Parameter angegeben ist, wird die Anzahl der Elemente im Array zurückgegeben.

Beispiel

#!/usr/bin/perl #define-Zeichenfolge $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google , taobao,codercto,weibo " ; @test = split ( ' ' , $ var_test ) ; @string = split ( ' - ' , $ var_string ) ;​​​​​​​​​​" $test [3] n " ; # Ausgabe o drucken " $string [2] n " ; # Ausgabe com drucken " $names [3] n " ; # Ausgabe weibo

 ocomweibo

Konvertieren Sie ein Array in einen String

In Perl wird die Funktion „join()“ verwendet, um ein Array in einen String umzuwandeln. Die Syntax lautet wie folgt:

 beitreten EXPR, LIST

Parameterbeschreibung:

EXPR: Connector.

LIST: Liste oder Array.

Beispiel

#!/usr/bin/perl #define-Zeichenfolge $var_string = „ www-codercto-com “ ; $var_names = „ google , taobao,codercto,weibo “ ; @string = split ( ' - ' , $var_string ) ; @names = split ( ' , ' , $ var_names ) ; $string1 = beitreten ( ' - ' , @string ) ; $string2 = beitreten ( ' , ' , @names ) ; drucken " $string1 n " ; drucken „ $string2 n “ ;

 www-codercto-comgoogle,taobao,codercto,weibo

Array-Sortierung

Die Array-Sortierung in Perl verwendet die Funktion sort() und die Syntax lautet wie folgt:

 [SUBROUTINE]-LISTE sortieren

Parameterbeschreibung:

UNTERPROGRAMM: Regeln festlegen.

LIST: Liste oder Array.

Beispiel

#!/usr/bin/perl #Array definieren @sites = qw( google taobao codercto facebook ) ; print " Vor dem Sortieren: @sites n " # Sortieren Sie das Array @sites = sort ( @sites ) ; drucken „ Nach dem Sortieren: @sites n “ ;

 Vor dem Sortieren: Google Taobao Codercto Facebook Nach dem Sortieren: Facebook Google Codercto Taobao

Hinweis: Die Array-Sortierung basiert auf numerischen ASCII-Werten. Wenn wir also das Array sortieren, ist es am besten, jedes Element vor dem Sortieren in Kleinbuchstaben umzuwandeln.

Spezielle Variablen: $[

Die spezielle Variable $[ stellt den ersten Indexwert des Arrays dar, der im Allgemeinen 0 ist. Wenn wir $[ auf 1 setzen, ist der erste Indexwert des Arrays 1, der zweite 2 und so weiter. Beispiele sind wie folgt:

Beispiel

#!/usr/bin/perl #Array definieren @sites = qw( google taobao codercto facebook ) ; print " Websites: @sites n " # Setzt den ersten Index des Arrays auf 1 $ [ = 1 ; " @ sites[1]: $sites [1] n " ; print " @ Sites[2]: $sites [2] n " ;

 Website: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

Im Allgemeinen empfehlen wir nicht, die spezielle Variable $[ zu verwenden. In der neuen Version von Perl wurde auf diese Variable verzichtet.

Arrays zusammenführen

Die Elemente des Arrays werden durch Kommas getrennt. Wir können auch Kommas verwenden, um Arrays zusammenzuführen, wie unten gezeigt:

Beispiel

#!/usr/bin/perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) ; drucken " Zahlen = @Zahlen n " ;

 Zahlen = 1 3 4 5 6

Es ist auch möglich, mehrere Arrays innerhalb eines Arrays einzubetten und sie im Hauptarray zusammenzuführen:

Beispiel

#!/usr/bin/perl @odd = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ;​​​​​​​​​" Zahlen = @Zahlen n " ;

 Zahlen = 1 3 5 2 4 6

Wählen Sie ein Element aus der Liste aus

Eine Liste kann als Array verwendet werden, indem der Indexwert angegeben wird, nachdem die Liste das angegebene Element lesen kann, wie unten gezeigt:

Beispiel

#!/usr/bin/perl $var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; drucken " Der Wert von var ist = $var n "

 Der Wert von var ist = 1

Ebenso können wir .. in einem Array verwenden, um Elemente in einem angegebenen Bereich zu lesen:

Beispiel

#!/usr/bin/perl @list = ( 5 , 4 , 3 , 2 , 1 ) [ 1.3 ] ;​​​ " Wert der Liste = @list n " ;

 Wert der Liste = 4 3 2