#!/usr/bin/perl -w # DES algorithm - reference to http://orlingrabbe.com/des.htm sub itera…
my %hash; while(<>) { chomp(); if( /("(.+?)")/ ) { $hash{$1} = ""; } } foreach (sort…
#!c:/perl/bin use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; $tab…
#!/usr/bin/perl -w use Win32::OLE; $filename = 'wordFile.doc'; $doc = Win32::OLE->GetOb…
#!/bin/perl use AnyDBM_File; dbmopen(%states, "statedb", 0666) || die; TRY: { print "state…
#!/usr/bin/perl -w use Win32; $username = Win32::LoginName(); print "User name: $username\…
use LWP::Simple; use HTML::LinkExtor; $html = get("http://www.oschina.net"); $link_extor =…
<style> .text-fill-color2{ font-size:20px; width:950px; margin:0 auto; background:-w…
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xh…
$width: 40px; $border: 2px; body { -webkit-user-select: none; user-select: none; cursor: c…
/* 将dcss容器里的所有元素设为默认值 */ .dcss html,.dcss address,.dcss blockquote,.dcss body,.dcss dd,.dc…
Thank you for your sharing. I am worried that I lack creative ideas. It is your article that makes me full of hope. Thank you. But, I have a question, can you help me?
Thanks for sharing. I read many of your blog posts, cool, your blog is very good.
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me.
Thanks for sharing. I read many of your blog posts, cool, your blog is very good.
Excellent blog here Also your website loads up very fast What web host are you using Can I get your affiliate link to your host I wish my web site loaded up as quickly as yours lol