Author Archives: Noble

Unknown

Posted on by
Reply


Unknown(玩命记忆)

06年底上映的新片，五个陌生人在一间封闭的仓库里醒来，发现他们都已失去记忆，完全不记得自己是谁，也不知道如何到了这里。但随着时间的流逝，他们推断出五个人中有的是人质，有的是绑匪，而绑匪头目正赶过来准备杀死人质，于是一场你死我活的猜谜行动就在幽闭空间中展开。
有“天黑请闭眼”的“杀人游戏”的感觉，虽然主要是在仓库里面(低成本制作？)完成的，但主要是给人的心里感觉很激烈。

格物、致知、诚意、正心、修身

Posted on by
Reply

因今天在公司的某件事情而感。

“格物、致知、诚意、正心、修身、齐家、治国、平天下”(引自《大学》)，这段话是这样说的：“古之欲明明德于天下者，先治其国；欲治其国者，先齐其家；欲齐其家者，先修其身；欲修其身者，先正其心；欲正其心者，先诚其意；欲诚其意者，先致其知；致知在格物。” “诚”，朱熹对这句话的注释中做了这样的解释：“心者，身之所主也。诚，实也。意者，心之所发也。实其心之所发，欲其一于善而无自欺也。”这与《大学》中说的是一致的，即“所谓诚其意者，毋自欺也”。
　　在《中庸》中，对“诚”的内涵和意义，又有进一步的解释，认为“诚”是人性的内在本质，是修身、齐家、治国、平天下的根本要求。《中庸》中说：“自诚明，谓之性；自明诚，谓之教。诚则明矣，明则诚矣。”还说：“诚者物之终始，不诚无物。是故君子诚之为贵”朱熹对这句话做了这样的注释：“天下之物，皆实理之所为，故必得是理，然后有是物。所得之理既尽，则是物亦尽而无有矣。故人之心一有不实，则虽有所为亦如无有，而君子必以诚为贵也。”

[wordpress]update to 2.1

Posted on by
Reply

昨天wordpress进行的版本升级，今天将自己、herbert和实施部的wordpress都进行了升级。升级的程序做的不错，很简单。
将原来的改个目录，解开新的2.1版本的tar.gz包，将wp-config.php拷贝过去，将plugins和themes里面的新添加的目录拷贝过去；然后运行wp-admin/upgrade.php，点击升级即可。
目前位置，现有的themes和插件看起来运行都是正常的。

[Perl] LWP模块功能

Posted on by
Reply

一 LWP::Simple 功能

1. 如何在Perl中使用该模块？

use LWP::Simple;

2. 如何获取一个页面内容？

my $content = get(‘http://www.yahoo.com.cn’);

get函数把从www.yahoo.com.cn上获取得页面内容全部赋给$content这个变量，如果获取失败将返回一个undef的值。

3. 如何获取头(Header)？

my (b, d, $e) = header(‘http://www.yahoo.com.cn’);

如果获取成功header函数将返回五个变量，$a-e分别代表内容类型，文档长度，最后更新的时间，过期和服务器名称。

4. 如何输出指定页面内容？

my $code = getprint(‘http://www.yahoo.com.cn’);

getprint将试图打印www.yahoo.com.cn的内容，然后返回一个状态号，比如成功将返回200，文件没有找到将返回404。

5. 如何把获取的内容保存到一个文件中？

my $code = getstore(‘http://www.yahoo.com.cn’, ‘/path/file.html’);

getstore将试图把获取的内容保存到第二个参数指定的文件中，返回一个状态号，状态号的形式如上。

6. 如何同步远程和本地文件？

my $code = mirror(‘http://www.yahoo.com.cn’,’/path/file.html’);

mirror函数将比较远程和本地文件的一致性，然后返回一个状态号，比如文件相同将返回304，如果本地文件同步成功将返回200。

7. 如何测试返回状态的正确性？

is_success($code)
is_error($code)

is_success和is_error这两个函数可以传递一个状态号为参数，程序会判断返回的是否为成功状态。比如is_success(403)将返回假。

二 LWP::UserAgent 功能
1、取得页面头信息

#!/usr/bin/perluse strict;
use warnings;
use LWP::UserAgent;my $ua = LWP::UserAgent->new;
$ua->agent(‘spider name’);
my $res = $ua->head(‘http://www.yahoo.com.cn’);
foreach ($res->header_field_names) { print “$_: “, $res->header($_), “\n”;}

2、获取指定页面

my $ua = LWP::UserAgent->new;
$ua->agent(‘spider name’);
my $response = $ua->get(‘http://www.yahoo.com.cn’);

3、POST方式提交数据

use strict;
  use warnings;
  use LWP 5.64;
  my $browser = LWP::UserAgent->new;  my $word = ‘tarragon’;  my $url = ‘http://www.altavista.com/sites/search/web’;
  my $response = $browser->post( $url,
    [ ‘q’ => $word,  # the Altavista query string
      ‘pg’ => ‘q’, ‘avkw’ => ‘tgz’, ‘kl’ => ‘XX’,
    ]
  );
  die “$url error: “, $response->status_line
   unless $response->is_success;
  die “Weird content type at $url — “, $response->content_type
   unless $response->content_type eq ‘text/html’;

4、通过get方式提交数据

use URI;
  my $url = URI->new( ‘http://us.imdb.com/Tsearch’ );
    # makes an object representing the URL  $url->query_form(  # And here the form data pairs:
    ‘title’    => ‘Blade Runner’,
    ‘restrict’ => ‘Movies and TV’,
  );  my $response = $browser->get($url);

三、HTTPS的支持
需要安装Crypt::SSLeay协议，以便支持加密传输。
命令行PPM下的安装：
ppm> install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
图形化下面的安装：
点击Edit->Preferences, Add Repository，添加http://theoryx5.uwinnipeg.ca/ppms/作为安装源。再选择Crypt-SSLeay即可。
测试代码：

use strict;
use warnings;
use LWP::UserAgent;my $url = ‘https://www.helsinki.fi/’;my $ua = LWP::UserAgent->new;
my $response = $ua->get( $url );$response->is_success or
    die “Failed to GET ‘$url’: “, $response->status_line;
print $response->as_string;

更多的信息可以见官方的文档，点击此处