[ Date Index ][
Thread Index ]
[ <= Previous by date /
thread ]
[ Next by date /
thread => ]
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.