#!/usr/bin/perl -w # Copyright © 2013 by Red Hat, Inc. # # This file is part of Cygwin. # # This software is a copyrighted work licensed under the terms of the # Cygwin license. Please consult the file "CYGWIN_LICENSE" for # details. use strict; if (@ARGV) { my $infile = $ARGV[0]; my $outfile = $infile; $outfile =~ s/\.html$/.body/; if ($infile ne $outfile) { open my $input, '<', $infile or die "Failed to open $infile: $!\n"; my $html = do { local $/; <$input> }; # slurp! my ($body) = $html =~ m|]*>(.*)|is; if ($body) { open my $output, '>', $outfile or die "Failed to write $outfile: $!\n"; print $output $body; } else { print STDERR "Could not find element in $infile!\n\n"; exit 3; } } else { print STDERR "Input file name must end in .html!\n\n"; exit 2; } } else { print STDERR < Transforms input.html to input.body by extracting whatever is between and in input.html. USAGE exit 1; }