#!/usr/bin/perl use strict; use warnings; # annotation-example{,s} example{,s} howto sample{,s} sample-application{,s} tutorial{,s} foreach my $tag (@ARGV) { $tag =~ s/-/ /g; my $taguc = ""; foreach my $t (split(" +", $tag)) { $taguc .= ucfirst($t) . " "; } $taguc =~ s/ +$//; my $tagname = $tag; $tagname =~ s/ +/-/g; $tag =~ s/s$//; open (F, ">ejb-$tagname.mdtext") or die "Can't write to file $!"; print F <ejb3-$tagname.mdtext") or die "Can't write to file $!"; print F <ejb-3-$tagname.mdtext") or die "Can't write to file $!"; print F <ejb-31-$tagname.mdtext") or die "Can't write to file $!"; print F <