in reply to HTML::Clean Review
You might consider an inplace edit instead:
Now you get backups with ".bak" automatically. Good if something messes up.#!/usr/bin/perl $^I = ".bak"; $/ = undef; while (<>) { print STDOUT "$ARGV is being cleaned!\n"; my $h = HTML::Clean->new($_, 9); $h->compat; $h->strip; print ${$h->data}; }
-- Randal L. Schwartz, Perl hacker
|
---|
In Section
Module Reviews