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…)