今天Sery(http://sery.blog.51cto.com/)在qq上说要送我一本他刚写的书《互联网运营智慧》,因为里面引用了我写的一段程序。#!/usr/bin/perl -wuse strict;use LWP::Simple;use URI::Escape;use Digest::MD5;my ($mobile, $content) = @ARGV;my $log_control = 1;my $key = 'xxxxxx';my $souce_content = substr($mobile, 0, 8) . substr($mobile, -10, 10) . Read More