| commit | 729acd5636519d5da434ccba5258c751c8f839ab | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Tue Mar 05 11:52:45 2024 -0500 |
| committer | swissChili <swisschili@fastmail.com> | Tue Mar 05 11:52:45 2024 -0500 |
| tree | 4d3661bb3b1cbc6aa629424b8b1dfb967358963c |
Initial commit
diff --git a/dehtml b/dehtml new file mode 100755 index 0000000..6c4d870 --- /dev/null +++ b/dehtml
@@ -0,0 +1,12 @@ +#!/usr/bin/perl + +{ + local $/=undef; + open FILE, $ARGV[0] or die "Could not open file"; + $data = <FILE>; + close FILE; +} + +$data =~ s/<.*?>//sg; +$data =~ s/&.*?;//sg; +print $data;