linux-l: Was fuer Perl-Experten?

[Florian Cramer]

Am Wed, 02.May.2001 um 20:33:56 +0200 schrieb Holger Paulsen:
> Mir ist da ein gewisser fauxpas gelungen: ich habe ca. 1000
> Dateien konvertiert und sie landeten dort, wo sie nicht
> hingehörten.
> 
> Um diese Dateien korrekt einzusortieren müßte ich sie erst
> aufbereiten. Das bedeutet:

#/usr/bin/perl

while (<STDIN>) {
	if ($skip_count==1) {$skip_count++}
	if (/^</ || $skip_count > 0) {$dont_print=1}
	s/<A HREF=\"[^"]*\">//g;
	if (/^<\/UL>/) {$skip_count=1}
	if (/^<PRE>/ && $skipt_count>0) {$skip_count=0}
	unless($dont_print==1) {print $_}
	$dont_print=0;
	}

-- 
http://userpage.fu-berlin.de/~cantsin/
http://www.complit.fu-berlin.de/institut/lehrpersonal/cramer.html
GnuPG/PGP public key ID 3D0DACA2