Einführung in Perl Kommandozeileneingabe etc - IMS

¢ £ ¡ 

IMS Heike Zinsmeister 

Einführung in Perl 

Kommandozeileneingabe etc. 

¤ 

¤ 

¤ 

¤ 

¤ 

¤ 

Kommandozeileneingabe 

index-Funktion 

rindex-Funktion 

substr-Operator 

grep-Operator 

map-Operator 

Perl, 19.12.03 Kommandozeileneingabe 1 

¢ £ ¡ 

¤ 

¤ 

¤ 

¤ 


Kommandozeileneingabe – Bsp (1) 

Zeilen umdrehen 

% perl -e ’print reverse ;’ dateiname.txt 

Zeilen mit Zeilennummer ausgeben 

% perl -e ’$i=1;while(){print "$i: $_";$i++}’ dateiname.txt 

führenden Whitespace-Zeichen entfernen 

% perl -e ’while(){s/^\s+//g;print;}’ dateiname.txt 

Datei in Großbuchstaben ausgeben 

% perl -e ’while(){print uc $_;}’ dateiname.txt 

(Beispiele von Bernd Schamberger http://www.perlboard.de/perlguide/Kap20.html) 


¢ £ ¡ 

¤ 

¤ 

¤ 

¤ 

¤ 

¤ 


Kommandozeileneingabe 

Ausführung von Perl-Kommandos direkt von der Kommandozeile, 

ohne Programmdatei 

siehe perlrun-Manpage 

perl -e ’Anweisungen’ # -e executable 

bei langen ‘Einzeilern’ ggf. Zeilenumbrauch mit ‘ 

Windows: perl -e "Anweisungen" (ggf. Stringmarkierung 

‘"’ schützen 

Beispiel: 

%perl -e ’print "Dies ist ein Einzeiler\n";’ 

Dies ist ein Einzeiler 

# Unter Windows: 

C:\> perl -e "print \"Dies ist ein Einzeiler unter Windows\n\";" 


¢ £ ¡ 


Kommandozeileneingabe – Optionen 

-e ausführbar 

-w gibt Warnungen aus 

-n erzeugt while-Schleife um Programm 

-p wie -n mit zusätzlicher print $ Funktion in Schleifenblock 

-l entfernt 

¥ n vorübergehend 

-i bearbeitet Dateien, die durch eingelesen werden, 

wenn Extension gegeben, erzeugt es Backup-Datei 


¦ 

§ 

¥ ’

¢ £ ¡ 


Kommandozeileneingabe – Bsp (2) 

% perl -p -e ’$_ = uc $_;’ test.txt 

Vergleiche 

while () { 

$_ = uc $_; 

print; 

} 


¢ £ ¡ 

¤ 

¤ 

¤ 

¤ 


index-Funktion (1) 

findet erstes Match von Substring 

gibt nullbasierten Integer-Wert zurück für Position des 1. 

Buchstabens des Substrings 

wenn kein Match gefunden wird: -1 

Syntax: 

$wo = index($grosser string, $substring); 


¢ £ ¡ 


Noch ein Beispiel 

%$ perl -p -i.bak -w -e ’s/Randall/Randal/g’ fred*.dat 

Vergleiche 

# /usr/bin/perl -w 

@ARGV = glob "fred*.dat"; 

while () { 

s/Randall/Randal/g; 

print; 

} 


¢ £ ¡ 


index-Funktion - Beispiel 

$wo = index ("Abrakadabra", "abra"); 

print "$wo\n"; 

:> # A b r a k a d a b r a 

:> # 0 1 2 3 4 5 6 - - - - 

$wo = index ("abrakadabra", "arba"); # Tippfehler bei ’arba’ 

print "$wo\n"; 

:>-1 

Perl, 19.12.03 Kommandozeileneingabe 8

¢ £ ¡ 

¤ 

¤ 

¤ 

¤ 


index-Funktion (2) 

optionaler 3. Parameter: Suchbeginn 

Syntax: 

$wo = index($grosser string, $substring, Suchbeginn); 

Default für Suchbeginn = 0 

meist in Schleife eingebaut 


¢ £ ¡ 

¤ 

¤ 


rindex-Funktion 

findet das letzte Vorkommnis eines Suchstrings 

Syntax: 

$wo = rindex($grosser string, $substring, Suchbeginn); 


¢ £ ¡ 


$wo =0; 

$n = 0; 

index-Funktion (2) - Bsp 

while ($wo !~ -1){ 

$wo = index ("abrakadabra", "ab", $wo+$n); 

print "$wo\n" ; 

$n=1; 

} 

:>0 # a b r a k a d a b r a 

- - 

:>7 # a b r a k a d a b r a 

- - 

:>-1 # nicht (mehr) gefunden 


¢ £ ¡ 


rindex-Funktion Beispiel 

$wo = length "abrakadabra"; 

$n = 0; 

while ($wo !~ -1){ 

$wo = rindex ("abrakadabra", "ab", $wo-$n); 

print "$wo\n" ; 

$n=1; 

} 

:>7 # a b r a k a d a b r a 

-- 

:>0 # a b r a k a d a b r a 

- - 

:>-1 # nicht (mehr) gefunden 


¢ £ ¡ 

¤ 

¤ 


substr-Operator (1) 

ermittelt Teil (= Substring) eines größeren Strings 

zwei Argumente (+ zwei optionale Argumente) 

– String 

– Startposition 

positive Zahl 

gezählt 

negative Zahl 

gezählt 

– Länge (optional) 

– Ersetzung 

¡ 

Zeichenposition vom Anfang des Strings 

¡ 

Zeichenposition vom Ende des Strings 


¢ £ ¡ 

¤ 



Verknüpfung von substr und index 

$langer_string = "Fred J. Feuerstein"; 

$teil = substr ($langer_string, index ($langer_string, "s")); 

# ergibt "stein" 


¢ £ ¡ 


substr-Operator (1) – Bsp 

$teil = substr ("Fred J. Feuerstein", 8, 5); # ergibt "Feuer" 

$teil = substr ("Fred J. Feuerstein", 13, 1000); # ergibt "stein" 

$teil = substr ("Fred J. Feuerstein", 13); # ergibt "stein" 

$teil = substr ("Fred J. Feuerstein", -3); # ergibt "ein" 

$teil = substr ("Fred J. Feuerstein", -3, 2); # ergibt "ei" 


¢ £ ¡ 

¤ 

¤ 



ausgewählter Teil kann verändert werden 

muss dazu in Variable stehen 

$string = "Fred J. Feuerstein"; 

substr ($string, 0, 7) = "Wilma"; # ersetzt 

# Fred J. 

# 0123456 

# durch 

# Wilma 

print "$string\n"; # ergibt: 

# :>Wilma Feuerstein 

Oder: 

$geloeschter_string = substr ($string, 0, 7,"Wilma"); # Fred J. 

print "$string\n"; # Wilma Feuerstein 


¢ £ ¡ 

¤ 



mittels Bindungsoperator = Operation auf Teilstring beschränken 

$string = "Fred J. Feuerstein"; 

substr ($string, -10) =~ s/e/E/g; 

print "$string\n"; # ergibt 

# :>Fred J. FEuErstEin 


¢ £ ¡ 


my @ungerade_zahlen; 

foreach (1..1000) { 

if ($_ % 2) { 

push (@ungerade_zahlen, $_) 

} 

} 

¤ 

dasselbe mit grep: 

grep-Operator (2) 

my @ungerade_zahlen = grep { $_ % 2} (1..1000); 


¢ £ ¡ 

¤ 

¤ 

¤ 

¤ 

¤ 

¤ 



filtert Elemente aus einer Liste 

Syntax: Operator – Block mit $ – Liste 

für jedes Listenelement wird Block 1x ausgewertet 

vgl. Unix-Hilfsprogramm grep 

Beispiel: Einlesen von ungeraden Zahlen in Array 

konventionell: 


¢ £ ¡ 

¤ 

¤ 

¤ 



zeilenweises Einlesen aus Datei 

hier: groß- und kleinschreibungsunabhängige Suche nach dem 

Wort Perl 

liest Zeilen mit Match in Array zeilen suche ein (Mit 

Newlinezeichen) 

open (FILE, "test.txt") or die "$!"; 

my @zeilen_suche = grep { /\bperl\b/i } ; 

¤ 

wenn Filter einfacher Ausdruck, weitere Vereinfachung 

my @zeilen_suche = grep /\bperl\b/i, ; 


¢ £ ¡ 

¤ 

¤ 

¤ 


map-Operator (1) 

wandelt Elemente aus einer Liste um 

analoge Syntax zu grep: Operator – Block mit $ – Liste 

Beispiel: Lösche Muster 

¥ index{p}{Chomsky} 

¥ index{l}{German} 

¥ index 

¥ {[pl] 

¥ } 

¥ {[ 

¥ }]* 

¥ } 


¢ £ ¡ 

¤ 

¤ 

¤ 


grep versus map (1) 

grep gibt Wert von $ zurück, wenn Block wahr ist 

map ersetzt $ mit letztem Ausdruck aus Block 

Beispiele 

@ungerade_zahlen = grep {"Tautologie"} (1..5); 

foreach $x (@ungerade_zahlen){ 

print "$x\n"; 

} 

:>1 

:>2 

:>3 

:>4 

:>5 


¢ £ ¡ 


open (FILE, "test.txt") or die "$!"; 

map-Operator (2) 

map { printf "%s\n", &delete_multi_index($_) } ; 

sub delete_multi_index { 

chomp( my $v = $_[0]); 

} 

¤ 

$v =~ s/\\index\{[pl]\}\{[^\}]*\}//g; 

return $v ; 

alternativ (und kürzer): 

Einschub: Zeileneingabe 

:> perl -l -p -e ’s/\\index\{[pl]\}\{[^\}]*}//g’ test.txt 

:> 


¢ £ ¡ 


grep versus map (2) 

@ungerade_zahlen = map {"Tautologie"} (1..5); 

foreach $x (@ungerade_zahlen){ 

print "$x\n"; 

} 

:>Tautologie 

:>Tautologie 

:>Tautologie 

:>Tautologie 

:>Tautologie

Einführung in Perl Kommandozeileneingabe etc - IMS

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

Template löschen?

Als Template speichern?