http://www.perlmonks.org?node_id=253834

My signature had a line in <pre> that was very long and messing up the PM layout for some. Good excuse to use WWW::Mechanize again :)

#!/usr/bin/perl -wl use strict; use Carp; use WWW::Mechanize; use HTML::TreeBuilder; { my $i; sub x { shift() ? print ++$i : croak } } my $sig = q[ Juerd # { site => '<a href="http://juerd.nl/" target="_blank"><font color="# +800000">juerd.nl</font></a>', plp_site => '<a href="http://plp.juerd. +nl/" target="_blank"><font color="#800000">plp.juerd.nl</font></a>', +do_not_use => '<a href="mailto:spamcollector_perlmonks@juerd.nl" targ +et="_blank"><font color="#800000">spamtrap</font></a>' } ]; x my $agent = WWW::Mechanize->new; x $agent->get('http://perlmonks.org/index.pl?node=login'); x $agent->submit_form( form_number => 2, fields => { user => 'Juerd', passwd => '', # Guess =) }, button => 'sexisgood', ); x $agent->get('http://perlmonks.org/index.pl?node_id=6364&user=Juerd') +; my $tree = HTML::TreeBuilder->new_from_content($agent->content); for ($tree->look_down(id => 'writeups')->look_down(_tag => 'a')) { x my $href = $_->attr('href'); x my ($node_id) = $href =~ /node_id=(\d+)/; next if $node_id < 253475; # 253475 was the first node with the n +ew sig x $agent->get($href); x $agent->form_number(2); my $post = eval { $agent->current_form->value('note_doctext'); } or next; $post =~ s[<pre>(.*?)</pre>][$sig]s; x $agent->submit_form( form_number => 2, fields => { note_doctext => $post }, button => 'sexisgood', ); }

There were less than 50 nodes to be fixed, so I didn't have to fetch other pages. And this script only works for notes :)

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }