Shift in Perl

Der Shift-Befehl in Perl gibt als Ergebnis den ersten Eintrag eines Arrays zurück und entfernt diesen aus dem Array.

Beispiel:

@a=("hans","franz");
$erster=shift(@a);
print $erster;
print "\n";
print "@a";

Ausgabe: hans
franz

Verwechselt werden kann shift() mit dem Befehl pop(), der im Vergleich zu shift nicht den ersten, sondern den Letzten Eintrag des Arrays zurückgibt.

shift in Subroutinen
Es gibt noch eine andere Anwendung von shift: Das Auslesen von Übergabeparametern an Subroutinen.

Beispiel:

@a=("a","b","c");
&test(@a);

sub test{
my $a=shift;
my $b=shift;
my $c=shift;

print "$a $b $c";
}

Ausgabe: a b c

Das shift in der Routine test liest also nacheinander die einzelnen Werte aus dem übergebenen @a (das sich dann in @_ befindet) aus und weist sie den Variablen zu.

shift in Subroutinen liest also nacheinander Parameter aus @_ aus.

Kommentare zum Beitrag "Shift in Perl"

Kommentar von SPIce

Kleiner Tippfehler im Array, hinter hans fehlt das Hochkomma:

@a=("hans","franz","gans");

Kommentar von kdinh

sehr hilfreich! Vielen Dank

Thema: Perl Arrays

Der Beitrag "Shift in Perl" wurde 42418 mal gelesen.

Es wurde 17 x über diesen Beitrag abgestimmt.
Die durchschnittliche Beurteilung liegt bei
2.5 (1 = sehr gut - 6 = grottenschlecht).

	Kommentar schreiben		Druckansicht		Seitenanfang
	Beurteilen

Zufällige Beiträge im /blog/perl

stat - Eigenschaften von Dateien ermitteln

foreach in Perl

Sonderzeichen konvertieren für Tag-Cloud

Neue Suchfunktion - die 2.

Wie schreib ich`s in Perl - Oder: Guter und schlechter Programmierstil

push in Perl

substr() in Perl

mkdir() - Ein Verzeichnis erstellen in Perl

Prüfen, ob ein bestimmter Wert in einem Array vorhanden ist

0.0314738750457764 sec. to build

...Blogsoftware in pure Perl - Powered by a lot of Coffee...

Letzte Einträge

SSD-Festplatte - Wassn das???
Die Transliteration - Nur ein Zeichen in einem Skalar ersetzen
Select - Case in Perl
Windows 7 XP Mode – Wo finde ich den XP-Modus unter Windows 7?
Mac-Adresse beim Apple Macintosh herausfinden
SGN-Funktion für Perl
truncate - Dateigröße verändern in Perl
Eigene IP herausfinden mit Perl
Epoche live in Datum umwandeln
Firefox 3 - Exe-Files downloaden

Letzte Kommentare

Von: einuser
Kommentar:
Ein paar Bilder zeigen wäre gut :-)
Zum Beitrag

Von: Holger
Kommentar:
Vielen Dank für den Hinweis, der auch tadellos bei mir funktionierte. Allerdings habe ich noch eine Möglichkeit gefunden, dir mir selbst recht angenehm ist, da ich so die MAC-Adresse über die Systemsteuerung finden kann (http://wintipps.com/windows-7-mac-adresse/).

Zum Beitrag

Von: Raphael
Kommentar:
Warum nicht gleich:

Zum Beitrag

Von: Chris
Kommentar:
Hallo,
warum funktioniert das Script nur bis 2028, welchen Grund hat das?
Zum Beitrag

Von: Almanca Ceviri
Kommentar:
Vielen Dank für den punktgenauen Hinweis. Unter Win 7 habe ich sehr lange suchen müssen...
Zum Beitrag

Archiv

Gesamtverzeichnis

Februar 2010

Dezember 2009

Oktober 2009

Januar 2009

Dezember 2008

November 2008

September 2008

August 2008

Juli 2008

Juni 2008

Mai 2008

April 2008

Januar 2008

Dezember 2007

November 2007

Oktober 2007

September 2007

August 2007

Juni 2007

Mai 2007

April 2007

März 2007

Februar 2007

Januar 2007

Dezember 2006

Bookmark it

RSS-Feed

RSS-Feed

Info's

Heute ist der
10.12.2013

Es ist
12:22:15 Uhr

Ihre IP:
54.205.90.81

Blog-Einträge: 186

Die letzten 24 Stunden im Überblick

Gelesene Beiträge

Gelesene Beiträge insgesamt:
3988888

Blogroll

Webseiten vergleichen

Kalender mit Feiertagen - 2028

Links finden und testen

Menschliche Datumsangaben

IP zu Domain herausfinden

Time live in Datum umwandeln

Perl für Windows

Kalender Dezember 2013

Mo Di Mi Do Fr Sa So

1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31

Über mich

Impressum