#!/usr/local/bin/perl -w #Add special markup to document #- Add keyword "Example:" before examples for non-CSS UAs # $id$ # Ian Jacobs (ij@w3.org) use DB_File; use lib 'bin'; use utils; use English; $PROG = substr($0, rindex($0, "/") + 1); $USAGE = "Usage: $PROG input [output]\n"; if ($#ARGV >= 0) {$input = $ARGV[0]; shift;} else {die $USAGE;} if ($#ARGV >= 0) {$output = $ARGV[0]; shift;} else {$output = '-';} if ($#ARGV >= 0) {die $USAGE;} #Copy file in memory $buf = readfile($input); $attrs = "\\s+class\\s*=\\s*\"?example\"?"; $buf =~ s//$&

Example(s):<\/P>/sgio; $attrs = "\\s+class\\s*=\\s*\"?illegal-example\"?"; $buf =~ s//$&

Illegal example(s):<\/P>/sgio; open(OUTPUT, "> $output") || die "Cannot open for output: $output\n"; print OUTPUT $buf; close(OUTPUT);