Sahanya

Wie man Dateien einliest und erstellt habe ich ja schon hier behandelt und wie man sie auf verschiedene Eigenschaften testet hier. Jetzt geht es darum, wie man Dateien und Ordner erstellt, löscht, kopiert oder umbenennt und wie man dabei in Verzeichnissen navigiert.

(weiterlesen…)

Möchte man das Ausgabeformat einer Eingabe (im Folgenden die Datei themen.txt) beeinflussen hilft einem format weiter.

(weiterlesen…)

Dateien können auf die unterschiedlichsten Sachen hin getestet werden. Dazu zählt insbesondere das Ãœberprüfen, ob es diese Datei schon gibt (-e), um ein Ãœberschreiben zu verhindern. Außerdem kann man auch testen, ob eine Datei überhaupt lesbar (-r) bzw. ausführbar (-x) ist und wann sie das letzte mal geändert (-M) wurde.

Eine Ausführliche Liste findet man hier. Und hier ein praktisches Beispiel:

(weiterlesen…)

Eine Ergänzung zu Kontrollstrukturen bzw. Schleifen, sind die Befehle last, redo und next .

(weiterlesen…)

Um nur unter bestimmten Bedingungen Teile eines Perlskriptes zu aktivieren, verwendet man die folgenden Ausdrücke: if ... else, if ... elsif ...else, unless, while, until, for, foreach. Hier einige Beispiele:

(weiterlesen…)

Subroutinen rufen Anweisungen auf, die an einer anderen Stelle im Programm definiert werden. Dies geschieht meistens entweder am Ende oder am Anfang.

Subroutinen geben dabei immer ihren letzten Wert aus. Hier einige Beispiele für den Umgang mit Subroutinen:

(weiterlesen…)

Um eine Zeichenkette in einer Variablen aufzuteilen und sie in eine Liste bzw. ein Array einzufügen wird die Funktion split verwendet. Im folgenden wird aus $a immer @worte qw = ("Sahanya" "lernt" "PHP").

$a = "Sahanya-lernt-PHP";
@worte = split (/-/,$a); entfernt Bindestriche

$a = "Sahanya lernt PHP";
#@worte = split (/\s+/,$a); entfernt Leerzeichen

Arbeitet man mit der Standardvariable $_ und möchte dort Leerzeichen entfernen, geht das so:

$_ = "Sahanya lernt PHP";
@worte = split;

Umgekehrt kann man mit join auch Werte aus Listen bzw. Arrays durch Trennzeichen in eine Skalarvariable schreiben:

@worte = qw (
Sahanya
lernt
PHP
);
$a = join (" ",@worte);

Also ist jetzt $a = "Sahanya lernt PHP"

Andere Perl-Themen

Das Ersetzen von einzelnen Zeichen oder auch Mustern habe ich ja schon vereinzelt angesprochen, hier jetzt einige Ergänzungen:

$_= "Sahanya lernt PHP";
s/a/o/;
print $_;#Sohanya lernt PHP (ersetzt wird nur das erste a)

$_= "Sahanya lernt PHP";
s/a/o/g;
print $_;#Sohonyo lernt PHP (es werden alle as ersetzt)

$_= "Sahanya lernt PHP";
s/h/y/g;
print $_;#Sayanya lernt PHP (es werden alle hs ersetzt)

$_= "Sahanya lernt PHP";
s/h/y/gi;
print $_;#Sayanya lernt PyP (es werden alle hs ersetzt, egal ob groß oder klein)

$_= "Sahanya lernt PHP";
s/(\w+)/-$1-/g;
print $_;#-Sahanya- -lernt- -PHP-

(weiterlesen…)

Perl legt bestimmte Muster in Standard-Variablen ab, die sich allerdings immer wieder neu überschreiben.

Eingaben, die keiner speziellen Variablen zugeordnet werden, werden zu $_.

Möchte man nur Teile einer Variable ausgeben, kann das so aussehen:

#!\usr\bin\perl -w
$_ = "Sahanya versucht PHP zu lernen";
/v.{3}ucht/;
print "$`\n"; Ausgabe: Sahanya (der Ausdruck vor dem gesuchten Wort)
print "$&\n"; Ausgabe: versucht (das gesuchte Wort)
print "$'\n"; Ausgabe: PHP zu lernen (der Ausdruck hinter dem gesuchten Wort)

Andere Perl-Themen

Verschiedene Muster können auf unterschiedliche Weise verwendet werden, z.B. um Ersetzungen vorzunehmen oder aber auch um diese in einer bestehenen Skalarvariable zu finden bzw. zu sehen, ob das Muster paßt ( =~ m/muster/) — m: match bzw. passen

(weiterlesen…)

Ergänzung zum Beitrag Hash.

(weiterlesen…)

Nachdem Arrays hier vorgestellt wurden, jetzt einige praktische Beispiele:

(weiterlesen…)

Der Befehl chop entfernt das letzt Zeichen einer Skalarvariabel:

$a = "Sahanya";
chop ($a); # Sahany (letzter Buchstabe fehlt)
chop ($a); #Sahan (“)

Während der Befehl chomp sich nur auf den Newline-Befehl \n bezieht.

Eine Eingabeaufforderung mit <STDIN> wird in der Regel mit chomp beendet, um sicherzustellen, dass das Newline-Zeichen entfernt wird:

$eingabe = <STDIN>;
chomp $eingabe;

Das ganze geht aber auch kürzer:

chomp ($eingabe = <STDIN>);

Manchmal sollte bzw. muss man allerdings nach einer Eingabeaufforderung auch auf den chomp-Befehl verzichten, z. B. wenn man möchte, dass ein Wert in getrennten Zeilen untereinander ausgegeben wird.

(weiterlesen…)

Vergleichsoperatoren für Zahlen und Zeichenketten sollte man tunlichst nicht verwechseln, denn 5 ist kleiner als 20 >, aber 5 lt 20 ist nicht wahr, denn 2 kommt vor 5.

Andere Perl-Themen

Ein Punkt hängt Zeichenketten aneinander, ein x gibt die Zeichenkette x-mal aus:

print "sahanya"."perun"; #sahanyaperun
print "sahanya"." "."perun"; #sahanya perun
print "sahanya" x 3; #sahanyasahanyasahanya
print 5 x 3; # 555

Setzt man Skalarvariablen bei der Aneinanderhängung von Zeichenketten ein, sieht das ganze so aus:

$a = "sahanya";
$b = "perun";
$a = "$a"."$b";
print $a; #sahanyaperun

Kürzer geht die Aneinanderhängung von Zeichenketten auch so — anstatt der dritten Zeile im obigen Beispiel:

$a .= $b;

Andere Perl-Themen

Um mit Zahlen zu rechnen kann man eigentlich seiner Intuition folgen Damit das auch immer funktioniert, hier die Operatoren:

(weiterlesen…)

Gibt man in Perl Text innerhalb von doppelten Anführungszeichen ein, kann man zusätzliche Befehle durch die Abtrennung von einem Backslash anfügen:

Das einfachste Beispiel ist wohl "Hallo Welt\n"

Weitere Befehle sind …

(weiterlesen…)

Um eine vorher erstellte Datei einzulesen gibt man folgenden Code ein:

#!/usr/local/bin/perl -w

open (DATEILESEN,"test.txt") || die "geht nicht"; #öffnet dieses Datei oder Fehlermeldung
while (defined ($i = <DATEILESEN>)) { #gibt solange etwas aus bis kein Text mehr da ist
print $i }
close (DATEILESEN); #schließt die Datei wieder

Möchte man, dass der Text der test.txt in eine ander Datei (hier test1.txt) kopiert wird, geht das so:

#!/usr/bin/perl -w

open (DATEILESEN,"test.txt") || die "einlesen geht nicht";
open (DATEISCHREIBEN, "> test1.txt") || die "schreiben funktioniert nicht";
while (defined ($i = <DATEILESEN>)) {
print DATEISCHREIBEN $i } #schreibt das gefundene in die neue Datei
close (DATEILESEN);
close (DATEISCHREIBEN) || die "Fehler beim Schließen\n";

Möchte man, dass der Text in einer Datei nicht überschrieben wird, sondern drangehängt wird, muss man dem Dateinamen zwei > voranstellen.

Andere Perl-Themen

Ein Hash ist ein Array mit assoziativen Elementen, d. h. diese stehen miteinander in Beziehung. Das einfachste Beispiel wäre eine Liste mit Namen und den dazugehörigen Paßworten.


%hash = qw (
sahanya passwort1
perun passwort2
);


Angesprochen werden einzelne Elemente so:

(weiterlesen…)

Ein Array besteht aus mehreren Variablen und ist wie folgt aufgebaut:

@array = "Sahanya", "Perun" oder einfacher

@array = (Sahanya Perun)

Möchte man auf einzelne Variablen zugreifen, so geht das mit einer sogenannten Indexreferenz:

$array[0] — hier wird auf Sahanya zugegriffen

$array[1] — hier wird auf Perun zugegriffen

Der Array kann auch als Indexreferenz zusammengefaßt werden und wird dann mit $array[$i] angesprochen. Einzelne Elemente wären dann $i = 0 (Sahanya) bzw. $i = 1 (Perun).

Andere Perl-Themen

Möchte man bei der Ãœberprüfung von Skalarvariablen, die über die Eingabe $name = <STDIN> erfolgt sind, z. B. bei der Frage nach einem Namen (hier für das Beispiel Sahanya) mehrere Varianten zulassen, so gibt es folgende Möglichkeiten:

(weiterlesen…)

Möchte man, dass Perl einem eine Fehlermeldung ausgibt, die Hinweise auf Ursachen liefert, muss man die Eingangszeile um “-w” erweitern, so dass sie dann folgendermaßen aussieht:

#!/usr/bin/perl -w

Hilfe zu einzelnen Befehlen erhält man, wenn man folgendes eintippt:

perldoc -f befehl

Andere Perl-Themen

… oder wie bringe ich Perl-Skripte zum Laufen:

Also man braucht 3 Sachen:

1. Perl
2. einen lokalen Webserver, ich nutze Apache
3. einen Editor, ich nutze Proton (es geht aber auch mit einem normalen Texteditor wie notepad o. ä.)

ach ja und Geduld!

(weiterlesen…)

So, eine neue Kategorie geht online

Da ich aus beruflichen Gründen (aber auch aus privatem Interese) Perl lernen möchte, werde ich hier (wie immer in unregelmäßigen Abständen) meine Lernerfolge und -mißerfolge (davon wird es bestimmt einige geben) kundtun. Außerdem werde ich Links posten, die mir bei meiner Lernerei geholfen haben und vielleicht auch schon bald kleine Skripte bzw. Erläuterungen zu Begriffen aus der Perl-Sprache.

Zum Lernen benutz ich zur Zeit das Buch „Einführung in Perl” von Randal L. Schwartz und Tom Christiansen.

Zu allererst: „Perl” steht für Practical Extraction and Report Language oder auch für Pathologically Eclectic Rubbish Lister.

Freuen würde ich mich natürlich über Tipps und Kommentare von Profis bzw. anderen „Perl-Lernern”.

Themen:
Perl Beine machen
Hilfe
„flexible” Skalavariablen
Array
Hash
Einfacher Umgang mit Dateien
Sonderzeichen
Operatoren für Zahlen
Operatoren für Zeichenketten
Vergleichsoperatoren
chop und chomp
Mit Arrays arbeiten
Mit Hashs arbeiten
Muster
Spezielle Variablen
Ersetzen
Split und Join
Subroutinen
Bedingungen und Schleifen/Kontrollstrukturen
Kontrollstrukturen II
Dateien testen
Ausgabeformat
Mit Dateien und Ordnern arbeiten