#!/usr/bin/perl #040297nh #Hawk-Strip v.9 #Don't even think of blaming me for anything this does! #Made to strip "@domain-name" out of HTML files for use in an automail (or #Hawk-Mailer) program. #creates a text file that looks like this # # postmaster@bob.com&& # postmaster@robert.com&& # harold@bobby.com&& # .........etc. # #@SOURCE is list of files to go through. # #output file is list.txt # # @SOURCE = ('Alabama.html', 'Alaska.html', 'Rhode_Island.html', 'Saskatchewan.html', 'South_Carolina.html', 'South_Dakota.html', 'Tennessee.html', 'Texas.html', 'Utah.html', 'Vermont.html', 'Virginia.html', 'Washington.html', 'Jamaica.html', 'Kansas.html', 'Kentucky.html', 'Labrador.html', 'Louisiana.html', 'Maine.html', 'Manitoba.html', 'Maryland.html', 'Massachusetts.html'); &process; &return; ############# sub process { foreach $source (@SOURCE) { open(LINES, $source); @LINES = ; open(OUT, '>>list.txt'); foreach $line (@LINES) { @att = ($line =~ /(\@.+?)\b/g); push @attrib, @att; } foreach $attrib (@attrib) { $lastbit = substr($attrib, -3, 3); $firstbit = substr($attrib, 0, length($attrib)-3); $result = $firstbit."\.".$lastbit; print OUT "postmaster$result\&\&\n"; } } } ############# sub return { print " Content-type: text/html\n\n"; print "\n"; print " Done... you got a File in cgi-local/list.txt
\n"; print "

By using this program, you agree that this is at your own risk and you WILL NOT and CAN NOT hold me responsible for anything!
Nitehawk '97\n\n"; print "\n"; }