blob: 9fca0818863e62a87f64e89d65dfbfb56480d6d5 (
plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
\documentclass[12pt,twocolumn]{article}
\usepackage{german}
\usepackage{tocart}
\begin{document}
\title{Perls interaktive M"oglichkeiten}
\maketitle
\shorttoc
In dieser Zeitschrift sollen Sie erfahren, wie Sie mit Perl, ohne ein Programm
zu schreiben, zahllose praktische Probleme l"osen k"onnen.
Sie stellt L"osungen f"ur kleinere Probleme vor, f"ur die man kein Programm
schreiben mu"s, da Perl auch mit einer einzigen Zeile direkt von der Shell aus aufgerufen werden kann,
und die man immer wieder brauchen wird -- und die im Vergleich zu gr"o"seren
Programmen sogar ungeahnt m"achtig sind.
\article{Suchen und Ersetzen}{Such- und Ersetzungsvorg"ange in mehreren
Dateien ohne Editoraufruf}{Ingo Kl"ockl}
Eine der elementaren Aufgaben bei der Textbearbeitung und Programmierung ist
das Suchen und Ersetzen von Zeichenfolgen. Das Teilproblem des Suchens kann
dabei entweder innerhalb eines Editors gel"ost werden oder durch einen mehr
oder minder m"achtigen Suchbefehl des Betriebssystems, etwa \verb+search+
oder \verb+grep+. Nutzer von PCs unter Windows haben auch hierbei wieder das
Nachsehen in Form des durchaus minder m"achtigen \verb+find+ und m"ochten vielleicht
als erste mehr M"oglichkeiten zur Verf"ugung gestellt bekommen.
Sehen wir, was Perl nun zu diesem Thema, zun"achst des Suchens, zu bieten hat.
Betrachten Sie die folgenden Zeilen
\begin{verbatim}
perl -ne "print if /bla/" datei
perl -ne "print $ARGV." ".$_
if /bla/" datei
\end{verbatim}
Beide Zeilen suchen in der Datei \verb+datei+ nach dem Begriff \verb+bla+,
wobei die Dateien grunds"atzlich zeilenstrukturiert sind.
\begin{verbatim}
perl -i.bak -pe "s/a/b/g;" datei
\end{verbatim}
\newpage
\article{Die Kommandozeilenoptionen}{Was tun mit den Perl-Schaltern}
{Ingo Kl"ockl}
\newpage \mbox{}\newpage \mbox{} % einige (leere) Seiten erzeugen
\newpage \mbox{} % dto.
\newpage
\article{Zeilen bearbeiten}{Zeilen numerieren, St"ucke extrahieren und vieles mehr}
{M. al'ein Anderer}
\end{document}
|
