今天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
posted @ 2010-07-16 13:17 javawebsoa Views(234) Comments(0) Diggs(0) Edit