HighPerl Version 2.5

generated: Sun Jun 23 18:39:41 2002

1	#!/usr/bin/perl -w
2	
3	open(FIND, "find . -name '*html' -print |");
4	
5	while(<FIND>){
6	$dateiname = $_;
7	chop($dateiname);
8	
9	# Datei einlesen:
10	
11	open(INPUT, "<$dateiname");
12	
13	@datei_inhalt =();
14	while(<INPUT>){
15	push(@datei_inhalt, $_);
16	} # while INPUT
17	
18	close(INPUT);
19	
20	# Inhalt bearbeiten:
21	
22	map {$_ =~ s/Autor:\s*$//g} @datei_inhalt;
23	
24	# Datei wieder wegeschreiben:
25	
26	open(OUTPUT, ">$dateiname");
27	foreach $element (@datei_inhalt){
28	print OUTPUT "$element";
29	} # foreach ...
30	
31	print "Datei $dateiname wurde verarbeitet! \n";
32	}
33