Re: [LUG] Perl quickie

[Simon Waters <Simon@xxxxxxxxxxxxxxxxxxxx>]

Steve Marvell wrote:
> Don't forget that will affect the body. Try this:

I hadn't but I was prepared to take my chances ;)

> #!/usr/bin/perl
>
> use News::Article;
>
> @rename = qw(X-Trace X-Complaints NNTP-Posting-Date);
>
> my $art = News::Article->new(\*DATA) || die "in pain: $!";;
>
> $art->rename_header($_,"X-$_",'add') for @rename;
>
> $art->write(STDOUT);

Ta muchly. I'd just about worked out how to do the text
manipulations (Perl comes back ever so quick when you try), but
this looks far better.

> PS You do know there is a perl group, don't you!

I only needed one way of doing it ;)

--
The Mailing List for the Devon & Cornwall LUG
Mail majordomo@xxxxxxxxxxxx with "unsubscribe list" in the
message body to unsubscribe.