Name="Operationen mit Dateien in Perl"
Stich="Dateien Perl \$_ split chomp sort grep | open close"
Zeit="Son Jul  1 10:10:31 MEST 2001"
Kurz="Dieser Artikel zeigt, welche Möglichkeiten Perl für die
Verarbeitung von Dateien bietet."
Lang="
<dl>
  <dt>Von der Standard-Eingabe lesen.</dt>
  <dd>
`exCodes Gebrauch von \$_`
while(&lt;STDIN&gt;) {               # Eine Zeile von STDIN wird in \$_
                               # eingelesen.
  print;                       # Ohne Parameter zeigt print den Inhalt der
                               # Variable \$_ an.
}
`exCodee`
  <dt>Von den Standard-Eingabe lesen, diesmal mit Verwendung von
  &quot;echten&quot; Variablen.</dt>
  <dd>
`exCodes open, chomp und print`
open(A, &quot;/dev/tty&quot;) || die &quot;Can' t connect to /dev/tty!;
                               # Der Dateihandler A wird erstellt. Kann
			       # /dev/tty nicht ge&ouml;ffnet werden, beendet
			       # sich das Programm.
while(\$a = chomp(&lt;A&gt;)) {       # Der Variable \$a (nicht &lt;A&gt;!) wird,
                               # mit Anwendung von chomp (\\n am Zeilenende
			       # entfernen), die n&auml;chste Zeile von
			       # &lt;A&gt; zugewiesen.
  print &quot;\$a\\n&quot;                 # Ausgabe.
}
`exCodee`
  </dd>
  <dt>Das Ganze mit Pipes</dt>
  <dd>Im Nachfolgendem Beispiel wird gleich die Ausgabe an grep und sort
  weitergeleitet, die unerw&uuml;nschte Zeilen ausfiltern und sortieren:
`exCodes \|`
open(A, &quot;|grep -v Unerw&uuml;nscht|sort -nf&quot;) ||
                              die &quot;Can' t connect!&quot;
print A &quot;Z\\n&quot;
print A &quot;A\\n&quot;
print A &quot;5\\n&quot;
print A &quot;0.5\\n&quot;
print A &quot;Unerw&uuml;nscht\\n&quot;
print A &quot;52\\n&quot;
close(A);

# Ausgabe:
# A
# Z
# .5
# 5
# 52
`exCodee`
  </dd>
  <dt>split</dt>
  <dd>
`exCodes split`
open(A, &quot;&lt;abc.def&quot;) || die;
\$a = &lt;A&gt;;
@b = split(',', \$a);           # In das Array @b werden die mit Komma
                               # getrennten Daten eingelesen.
print &quot;\@b\\n&quot;
`exCodee`
  </dd>
</dl>
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0015.txt txt/0021.txt txt/0022.txt txt/0036.txt txt/0039.txt
txt/0023.txt txt/0049.txt txt/0051.txt txt/0052.txt txt/0053.txt txt/0085.txt
txt/0089.txt"