I'm certain most slashdot readers can wipped up there own (and there is probably a better way), but here is a quick script which will HTML encode all the email addresses in a file.
#!/usr/local/bin/perl -pi.bak
while( m/(\@|\&\#0?64;)([\w-\.]+)(\.|\&\#0?46;)(com|org|n et|gov)/ ){
my $x = encode($2);
my $y = encode($4);
s/(\@|\&\#0?64;)([\w-\.]+)(\.|\&\#0?46;)(com|org|n et|gov)/\&\#064;$x\&\#046;$y/; }
sub encode {
my $str = shift;
my @str = split(//, $str );
foreach my $c (@str){
$c = sprintf( "\&\#%03d\;", ord($c));
}
Anyone know how you would use multiple handsets with this? Do you have to rewire your house phone lines with this as the central device? Sounds like a bit of a pain.
Slashdot Mirror
I'm certain most slashdot readers can wipped up there own (and there is probably a better way), but here is a quick script which will HTML encode all the email addresses in a file.
n et|gov)/ ){n et|gov)/\&\#064;$x\&\#046;$y /;
//, $str );
#!/usr/local/bin/perl -pi.bak
while( m/(\@|\&\#0?64;)([\w-\.]+)(\.|\&\#0?46;)(com|org|
my $x = encode($2);
my $y = encode($4);
s/(\@|\&\#0?64;)([\w-\.]+)(\.|\&\#0?46;)(com|org|
}
sub encode {
my $str = shift;
my @str = split(
foreach my $c (@str){
$c = sprintf( "\&\#%03d\;", ord($c));
}
return join('', @str);
}
Anyone know how you would use multiple handsets with this? Do you have to rewire your house phone lines with this as the central device? Sounds like a bit of a pain.
Oops. I missed the digit. Nevermind.
Missed a digit in the math:
8 hours/day * 60 min/hour * 20 days/month = 9,600 min/month
1 page view every 2 minutes => 4,800 pages/month
At a penny a page that's $480 per month!