#!/usr/bin/perl # Frank Gruellich # filters fvwm2rc.keys2nd to HTML use warnings; use strict; my $file = shift || die "Keine Datei angegeben."; open(my $fh, "<$file") or die "Kann Datei nicht oeffnen."; my @lines = <$fh>; my $output = ''; print < Fvwm2 Key Help

General Keys

Escape: Cancel
?: Show this help screen
EOF for my $line (@lines) { if( $line =~ /^#### (.*)$/ ) { $output = "

$1

\n"; } elsif( $line =~ /^### (.*)$/ ) { $output = "

$1

\n"; } elsif( $line =~ /^(\S+)\s+(\S+)\s+\S+\s+(\S+)\s+.*##\s+(.*)$/ ) { if ( $3 eq "N" ) { $output = "$2: $4
\n"; } else { $output = "$3-$2: $4
\n"; } } print $output; $output=''; } print " \n\n";