落红逐青裙

沙扬娜拉，MMIE

twcai — Sun, 15 Jan 2012 15:46:23 +0000

年终总结要拖一下，这差不多是每年的惯例。

去年可能是我这两三年来最不用功的一年，却似乎是我收获最多的一年。为此我很感谢我身边的人，既然我都不怎么用功，那我收获的的肯定都是从慷慨的他们那里得到的。

先看一下去年写的计划（MMIE）好了。

1. 给自己买了5本非技术的书，要认认真真读完。

发现非技术的看起来还是很快的，去年一共看了7本，嫌疑人X的献身，1988，三重门，放学后，民主的细节，侦探伽里略，青春，黑客与画家。技术的看的不多，但还算看的仔细。

2. 计划以后每年去一到两个地方旅游，看时间吧，今年暂定春节去厦门看看。

春天去了次厦门，真是愉快的体验，好习惯，要保持！

3. 既然当了QA了，就要做好。从Perl帝手里接过来的事情一定不能干砸了，好好学学automation test。

今年一年都在做QA automation，做了些不同的尝试，也收获了一些经验。其实这个东西还是蛮有意思的，因为
1. 东西是做给ITer们用的，做起来比较自由，可以做的有意思。
2. 光有测试工具还不行，怎么让测试工具配合软件开发的测试流程是个值得一直思考的问题。测试工具既要减轻QA的重复劳动又要能引导测试过程的规范。
3. 一直要思考计算机程序的本质之一：怎样最大限度的减少人的重复劳动。

4. 用动态编程语言（Perl, Python神马的）写一个有意思的东东。

2010年下半年曾经学了一个星期的python，写了一个小东西，可惜因为项目放弃了使用python从此搁下了。今年算有了点决定权，2011下半年又拿起django框架的教程，花了两个星期写了个网页的骨架，不过因为不会前端难看到不好意思拿出来演示。今年吧，抽点时间美化一下。

5. 找一个C/C++开发的产品，读懂代码。

这个算是失败了，读了一点memcached和innodb的代码，但是没有读完。

6. 要抓机会锻炼*nix environment programming，各读一本OO和设计的书。

没完成吧，今年继续。

7. 不要再装逼，至少要学着由内而外的装。

哈哈，这个就留给朋友们评说吧。

8. 经常让自己看看上面这些都做了没。

从更新blog的速度就可以看出这条失败的可以

================ 我是2011和2012的分割线 =================

去年还有一些其他很值得纪录的事情。

去年，就在我生日前一天，那个MMIE里的可爱姑娘终于答应我问了一年多的请求！虽然我们有90％的日子都是分隔两地，但她带给我的快乐一直充满着我的生活。今年我再许一个愿望，希望她能早点来杭州（^_^）

下半年美国客户来公司交流时给我颁发了一个刻着Rock Star的iPod touch。接着Boss又推荐我参加公司优秀员工评选，也终于在公司年会上得到了优秀员工奖。这些让我觉得过去一年自己并没有虚度。

另外，去年在豆瓣上一共纪录了124部电影为看过，一部分是以前看过的旧电影，但今年看的电影还是占了所有电影总数的三分之一。豆瓣fm推出以后，一共听了15601首歌，接触的音乐风格比我之前这20多年加起来都多。于是我打算恬不知耻的追认2011为我的文艺年哈哈。

今年的目标还没什么头绪。一是因为最近略忙没什么时间可以好好想想，二是有些事情真的在我能力以外。比如，今年爸妈都很辛苦，一直为家庭操劳，希望今年爸妈不再需要负担这么多事情，奶奶的病情也能够转好。

先写这么多吧。最近状态不是很对，所以才拖了这么久。

作为一个命令行偏执狂…

twcai — Tue, 01 Nov 2011 16:50:52 +0000

好久没有更新博客了，这次更新的原因是上次贴的Perl脚本查Google字典因为Google关闭字典服务的关系已经不能再用了。

前段时间接触了一个新东西叫XPath，名字听起来挺酷的，于是拿来又折腾了一个脚本出来。这次查的是有道辞典，没有Google的好用，但因为Google字典已经不再提供服务，目前能找到的Google字典服务都是通过Unofficial API实现的，也不知道能用多久，就先这么凑合着用吧。

上图

这次脚本代码还是主要分两部分，一部分是通过LWP::UserAgent抓网页内容，一部分是用HTML::TreeBuilder::XPath分析网页内容提取需要的数据。

XPath其实是一门用来在XML文档中查找信息的语言，比较简单的说就是他能用一个路径表达式定位到一个XML文档里面的某个（或某几个）标签。因为XHTML借鉴了XML的结构，所以我们也可以用XPath来定位XHTML网页中的某个特定标签（XPath几乎总是能定位到一个正常网页中的特定标签的）。

在原来使用的网页解析模块HTML::TokenParser中，所有网页标签都按出现顺序排列，并且标签之间都是并列的关系。但是没有一个Browser DEV tool会用这种结构给开发者展示网页源代码，即便我们写代码时也不会这样写。所以这样并列的结构其实对开发者来说是不直观的，也使得编码复杂了很多。

而在XPath的世界里，网页的结构是树型的，每个标签都是这棵树上的结点或叶子，开发者会发现很容易就能找出一个路径通往我们想要的那个标签。不过如果你有Firebug和FireFinder这两个网页开发辅助插件，你会发现用起XPath来更加得心应手。

直接对比下面一个脚本和上一个脚本中网页分析部分的代码，你就能直观的感受到上面提到这两种方法的差别。XPath的详细介绍和语法，请猛击W3school

#!/usr/bin/perl
use strict;
use warnings;
use IO::Scalar;
use LWP::UserAgent;
use HTML::TreeBuilder::XPath;
use URI::Escape;
use Data::Dumper;
use encoding "utf-8";
my $keyword = $ARGV[0];
die "You must pass a Chinese/English word as parameter" if ( ! $keyword );
my $url = 'http://dict.youdao.com/search?q=KEYW0RD&ue=utf8';
$keyword = uri_escape( $keyword );
$url =~ s/KEYW0RD/$keyword/;
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $page = $ua->get( $url );
die "Cannot connect to youdao dictionary" unless ( $page->is_success );
my $buffer;
my $screen = IO::Scalar->new( \$buffer );
my $tree = HTML::TreeBuilder::XPath->new_from_content( $page->decoded_content );
get_translation( $tree, $screen );
print $buffer;
END {
$tree->delete();
}
sub get_translation {
my ( $tree, $screen ) = @_;
my $indent = 2;
if ( ! $tree->exists('//div[@class=\'trans-wrapper\'][not(@id)]') ) {
$screen->print( "Cannot find the translation on the page\n" );
return 1;
}
else {
# Get the spell and phonetic of the word
$screen->print( $tree->findvalue('//div[@class=\'trans-wrapper\'][not(@id)]/h2'), "\n" );
$screen->print( "\n" );
}
if ( $tree->exists('//div[@id=\'eTransform\']') ) {
# Get the basic translation of the word
$screen->print( $tree->findvalue('//div[@id=\'eTransform\']/h3/span/a[@rel=\'#etcTrans\']/span'), "\n" );
my @translation_list = $tree->findvalues( '//div[@id=\'eTransform\']/div/div[@id=\'etcTrans\']/ul/' . 'li' );
if ($#translation_list == -1 ) {
# If didn't get any translation, it may be a chinese word
@translation_list = $tree->findvalues( '//div[@id=\'eTransform\']/div/div[@id=\'etcTrans\']/ul/' . 'p' );
}
foreach (@translation_list) {
$screen->print( ' ' x $indent, trim( $_ ), "\n" );
}
$screen->print( "\n" );
}
if ( $tree->exists('//div[@id=\'examples\']') ) {
# Get the examples of the word
my @examples_id = qw(bilingual originalSound authority);
my @examples_name = split( /\s+/, trim( $tree->findvalue('//div[@id=\'examples\']/h3') ) );
foreach my $index ( 0 .. 2 ) {
my $xpath = '//div[@id=\'examples\']/div/div[@id=\'' . $examples_id[$index] . '\']';
next if ( ! $tree->exists( $xpath ) );
$screen->print( shift @examples_name, "\n" );
my @examples_list = $tree->findvalues( "$xpath/ul/li/" . "p[not(\@class)]" );
my $is_a_translation = 0;
foreach (@examples_list) {
$screen->print( ' ' x $indent, $is_a_translation ? "~ $_" : $_, "\n" );
$is_a_translation ^= 1 if ( $index < 2 );
}
$screen->print( "\n" );
}
}
}
sub trim {
my $string = shift;
$string =~ s/^\s*(.*?)\s*$/$1/;
return $string;
}

比赛的意义

twcai — Mon, 30 May 2011 15:14:05 +0000

今天是2011 World Finals ACM/ICPC的比赛日，晚上10点开始看比赛的直播，看着每个学校的队伍的排名交错的攀升，看到HDU-Knuth的两题AC，两题WA，突然脑海闪回过自己的大二暑假，背上出了点汗，手臂上起了鸡皮疙瘩。

杭电进World Finals已经不是第一次，但是今年退役后看比赛跟去年在役看比赛是两种心情。在役时似乎更多的是不甘心和一些小嫉妒，因为我显然WF无望。之前自然也知道想进World Finals很难很难，但还是难免偶尔会狂妄的暗暗把这当作自己的目标。现在的我，对自己宽容了，内心平静了，但有时候也怀疑自己是不是失去了激情和进取心。

记得以前北大的CICI姐姐写过一篇日志，大致是说她在World Finals看到一个非洲的大学的队伍，只AC两题，却在赛后激动的跟领队拥抱欢呼。虽然她一个人也可以做出两题，但是她却没有那些人的快乐。

想到这里，我释然了，ACM/ICPC竞赛可以给我的，我都已经得到了。

SVN导入外部项目到本项目版本库

twcai — Sat, 28 May 2011 03:53:51 +0000

原文链接

为什么需要导入外部项目到本项目版本库

在项目开发的过程中我们很可能会遇到这种情况：我们手头开发的项目可能要用到其他项目的内容。

最容易想到的办法是从其他项目的版本库里取出那部分内容，拷贝并添加到本项目的版本库中。但如果我们要令其他项目那过来的那部分内容保持最新，就是一个非常繁琐的工作了。

有没有高效的办法

如果本项目的版本库自动取得被引用的外部项目的更新，例如每次”svn update”或者”svn checkout”都可以去外部项目的版本库取得最新的内容，那实在是非常方便。我们可以通过Subversion的外部定义功能来实现这个目的。外部定义是一组本地文件路径和URL的映射，使svn可以取得外部版本库的文件到本地路径。

主要要用到以下几个svn指令

svn propset  svn:externals PROJECT_NAME
svn propedit svn:externals PROJECT_NAME
svn propget  svn:externals PROJECT_NAME

前两个指令都可以用来设置对应PROJECT_NAME的svn:externals属性，一般推荐用第二个。svn:externals的属性列表指定项目中模块的相对路径，版本信息和对应的URL。

例如：

third-party/foo         svn://example.com/repos/foo
third-party/bar -r 1234 svn://example.com/repos/bar

Subversion 1.5及以上的版本也支持以下的格式：

        http://example.com/foo third-party/foo
-r 1234 http://example.com/bar third-party/bar

第三个指令则可以查询项目的外部定义的属性列表。

Perl脚本查Google字典

twcai — Wed, 16 Mar 2011 17:37:18 +0000

这个Perl脚本其实并不能算我的原创，是师傅Perl帝拿出来分享的。本来拿的是iciba的翻译，我另外改了一个上Google字典拿翻译的版本。

要修改的原因：
1. Google字典的英中字典，有双语解释；
2. Google字典的例句和相关短语这些资源要丰富的多，可以帮助理解单词使用的语境，写英文材料时非常有用；
3. 我习惯用Google字典，我一个G粉。

先上截图

为什么要用一个脚本查单词？对于命令行控来说，离开当前工作终端，开个网页查单词是很痛苦的事情，他们甚至根本不想让手离开主键盘区！有这样的一个脚本，然后扔进/user/bin/，就不用大费周章的移动手臂了。

这个脚本用LWP::UserAgent抓取网页，HTML::TokeParser解析网页，获取单词的翻译。

脚本实现了一个抓取和解析google字典的类，整体的逻辑在en2chs函数中：
1. 生成网址
2. 用LWP取得结果网页
3. 解析网页

_parse_html找到翻译信息所在的代码块——一个id叫“pr-root”的标签，然后主要的体力活就全都扔给_get_close_mean啦。

要通过html标签来定位自己想要的内容，还真是个蛮累人的事情。但是Chrome的Deveploper Tools让事情简单了很多，实在是让人心神舒畅啊。

来看代码吧

下载: gdict.pl

#!/usr/bin/perl
use strict;
use warnings;
my $robot = Translater->new;
print $robot->en2chs( $ARGV[0] );
#
# Class Translator
#
package Translater;
use strict;
use warnings;
use LWP::UserAgent;
use HTML::TokeParser;
use URI::Escape;
use Carp qw(confess);
use IO::Scalar;
sub new {
my $class = shift;
my $self = bless {}, $class;
$self->_init;
return $self;
}
sub _init {
my $self = shift;
$self->{browser} = LWP::UserAgent->new;
$self->{browser}->timeout(60);
$self->{browser}->env_proxy;
$self->{_url} = "http://www.google.com.hk/dictionary?q=KEYW0RD&hl=zh-CN&langpair=en|zh-CN&spell=1&oi=spell";
}
sub en2chs {
my ( $self, $word ) = @_;
my $buffer;
$word = uri_escape($word);
$self->{_url} =~ s/KEYW0RD/$word/;
my $response = $self->{browser}->get( $self->{_url} );
confess "Cannot connect to Google Dictionary " . $self->{browser}->status_line
unless ( $response->is_success );
my $content = $response->content;
$self->{_io} = IO::Scalar->new( \$buffer );
$self->_parse_html( \$content );
return $buffer;
}
sub _parse_html {
my ( $self, $ctxt_ref ) = @_;
my $stream = HTML::TokeParser->new($ctxt_ref);
while ( my $token = $stream->get_token ) {
if ( $token->[0] eq 'S'
and $token->[1] eq 'ul'
and exists $token->[2]{id}
and $token->[2]{id} eq 'pr-root' )
{
$self->_get_close_mean( $stream, $token );
$self->{_io}->print("\n\n");
}
}
}
sub _get_close_mean {
my ( $self, $stream, $token ) = @_;
my $mean_counter = 1;
while ($token) {
if ( $token->[0] eq 'S'
and exists $token->[2]{class}
and $token->[2]{class} eq 'dct-tt' )
{ # find dictionary entry
$self->{_io}->print( $stream->get_trimmed_text('/span'), " " );
}
elsif ( $token->[0] eq 'S'
and $token->[1] eq 'div'
and exists $token->[2]{class}
and $token->[2]{class} eq 'dct-em' )
{
$self->{_io}->print("\n\n $mean_counter. ");
$mean_counter++;
}
elsif ( $token->[0] eq 'S'
and exists $token->[2]{title}
and $token->[2]{title} eq 'Part-of-Speech' )
{ # find Part-of-Speech
$self->{_io}->print( "\n\n", $stream->get_trimmed_text('/span') );
$mean_counter = 1;
}
elsif ( $token->[0] eq 'S'
and $token->[1] eq 'div'
and exists $token->[2]{class}
and $token->[2]{class} eq 'dct-ee' )
{ # find example
$self->{_io}->print("\n ~ ");
}
elsif ( $token->[0] eq 'S'
and $token->[1] eq 'span'
and exists $token->[2]{class}
and $token->[2]{class} eq "dct-tp" )
{ # find spell
my $spell = $stream->get_trimmed_text('/span');
if ( $spell =~ /([\/\[].+[\/\]])/ ) {
$self->{_io}->print( " ", $1 );
}
}
elsif ( $token->[0] eq 'S'
and $token->[1] eq 'div'
and exists $token->[2]{class}
and $token->[2]{class} eq 'dct-er' )
{ # escape "See also" tag
while ("true") {
$token = $stream->get_token;
if ( $token->[0] eq 'E'
and $token->[1] eq 'div' )
{
last;
}
}
}
$token = $stream->get_token;
if ( $token->[0] eq 'S'
and $token->[1] eq 'h3' )
{
last;
}
}
}

只是不甘心让二月一片空白

twcai — Mon, 28 Feb 2011 15:59:43 +0000

Not Going Anywhere

twcai — Thu, 27 Jan 2011 16:58:21 +0000

晚上8点，紫金港后门的腐败街80%的店都已经打烊了，小摊更是一个都不见了。

平常在腐败街正中间摆摊的那个烤猪蹄的老板，曾经以赚点钱回家过年为理由，把他的烤猪蹄们身价提高30%，虽然遭受了众人的抵制仍然可以很屌的吐槽：爱买不买。现在看来，他真顺利揣着钱，穿着纸尿裤回家过年去了。

晚上在Google Reader上看到这么一条调查成果“每天晚上8点到10点在做什么决定你是否能够成功”，看完我继续刷Google Reader，校内，豆瓣，各种刷刷到11点，开始检查我为今年写的计划。介于前几天开始读Memcached 1.4.5的源代码，算是又开始了2011计划里的又一项条目。

不过春节厦门旅游的事情也基本上潮吹告吹了，因为特么的从温岭到厦门的火车票，当天中午就卖光光了！真特么坑爹啊！！

唉，不说不开心的事情啦，不如顺便分享一下这个用来管理自己计划的工具—Springpad。

官方对这个工具的介绍是“一个免费帮助你记忆，分类管理你的各种东东的应用”。猛击这里，你就能看到一个技术宅为他的2011定的计划。你要是觉得他根本没有去做这些事嘛，太没理想，又或者太装逼，都可以在这里吐槽他！

最初发现这个东东是在Teddy君的日志Make it a better chrome。我看到截图中有个图标长着一根挺萌的黑色小箭头，于是去Chrome Web Store里找到她体验了一把，还真挺好用。

这里就不放链接了，请自行Google。如果你正在用Chrome，把他拖到你Chrome的App列表里面吧，灰常得心应手的说。嗯哼~

MMIE

twcai — Wed, 05 Jan 2011 16:34:19 +0000

前两年跨年时，我留了两小坨东西在自己的博客上。
2009刚开始的时候，我是个憧憬美好淫生人生决心投身奋斗的学习青年。
2010的元旦，我居然能听着Jay的歌，在茅坑里内牛。
所以说写博客是个好事情，看看自己的过去，会有各种欢乐。

回想一下过去的十二个月，前一半时间基本是被毕设和找工作折腾。
最后一个学期，我粗略的翻阅了Beginning Linux Programming和Windows核心编程，记了半本A4大小的笔记本，也算是学了一点点win下和linux下的程序开发，于是给OJ留下一个半成品的对战评判系统。
然后花了点心思搞定丢失的一个学分，忐忑的毕业了。
照理说，大学的最后一个学期不会只有这两样事情，然而当时或不安或淡然，或失望或期待，现在想来都已经模糊了。最清晰的印象原来是一直在重复的事情:每天背着笔记本来往于寝室实验室，翻着大部头的书坐在屏幕前写着代码。

下半年，我终于从毕业的压力中解脱出来。每天上上班，平时玩一玩，也不知道自己忙了些什么，就老觉得时间怎么都不够，所以这本该在跨年时出现的日志，才这么姗姗来迟。
尽管这样，我还是发现自己喜欢上了一个姑娘（虽然不那么及时）。这姑娘笑起来的时候老可爱了，又当知心姐姐又能讲冷笑话，卖萌撒娇捂脸什么的样样精通，甚至于，还有点geek的基因。要是能追上这姑娘，我得高兴成啥样？!

好啦，来制定一下今年的目标吧：

1. 给自己买了5本非技术的书，要认认真真读完。
2. 计划以后每年去一到两个地方旅游，看时间吧，今年暂定春节去厦门看看。
3. 既然当了QA了，就要做好。从Perl帝手里接过来的事情一定不能干砸了，好好学学automation test。
4. 用动态编程语言（Perl, Python神马的）写一个有意思的东东。
5. 找一个C/C++开发的产品，读懂代码。
6. 要抓机会锻炼*nix environment programming，各读一本OO和设计的书。
7. 不要再装逼，至少要学着由内而外的装。
8. 经常让自己看看上面这些都做了没。

于是，这篇总结就这样了。你要知道，回忆神马的，总是很辛苦的。

想不出标题了

twcai — Sun, 24 Oct 2010 15:44:00 +0000

住处突然断网，接着想起我这个已经长草的博客，于是回忆了下最近记忆比较深刻的事情，来这里Mark下。

造勒个梦

蘑菇实在是个爱折腾的孩子。我估计真要找一个愿意从紫金港跑到钱江新城的万象城去看iMax的人应该不多，何况他还无视了西湖时代广场的iMax因为那屏幕”整整”比万象城的窄了1米。

那晚看的电影是Inception，整个观影的动作分解就是俩脑袋不停在45度和70度之间调整仰角，因为我们当时只能买到第三排的位置了。

但是我要说，看iMax版Inception完全对的起我们这么折腾，因为iMax也可以算是某种程度上的造梦机器了！

傻逼了吧

举国同庆前的那阵子，我好像特别冲动。具体表现在过了个Sample就信心满满的Submit，还以为自己能拿到个Yes呢。结果呢，第一次拿了个Runtime Error，接着被Wrong Answer。接下来有人说是TLE，有人说是PE，一坨坨Error搞得我头都昏了。

于是我想，其实也许这个算法从刚开始就YY错了呢？还是回头继续学习各种奇技淫巧吧。

有些孩子很好心，会问问我你这最近YY得咋样了？我只好说：没，还差得远呢。于是，我又不小心让自己陷入绝望里面了。

敢再给力些么

国庆长假连续腐败6天。谢谢！

一斤欲望多少钱

这就是昨天的事，杭州下午还下着小雨，我只能说这天气太特么清新了。

然后下雨又貌似导致机器故障，主办方可能是想缓和大家的情绪放了点音乐。有个哥们说敢情我们是买票听CD来了，于是就有了一群人跟着音乐比中指的搞笑场面。不过也有几个人大概理解不了这种幽默感，以为大家都跟他一样义愤填膺了，直接进化成骂街，对这种人只好BS+无语。

即便如此，李志上场以后现场的气氛还是很给力的。弹唱，嘶吼，撒钱，一大票歌迷跟着他的节奏蹦达。后来我发现我左脚略往前的草坪上就有个水坑，估计是某位重量级的歌迷给蹦出来的。

后面甜蜜的孩子，曹方都显得略怂了些。介于全身的衣服都已经可耻的湿了，我们就无视曹方的安可曲，早退了。

昨晚回来把风骚的沾着几瞥泥浆的裤子扔进了洗衣机，今早晒裤子发现音乐节门票上的那个防伪标志无辜的从裤子上飘下来了。

狗日的，于是音乐节划上句号。

Ending

这三个月来，有一件事情一直贯穿在其中，我为此各种烦恼但又快乐着。

好吧，C’est La Vie.

Perl中建立一个实例方法的线程

twcai — Thu, 19 Aug 2010 17:42:17 +0000

标题有点复杂吧？其实就是新建一个线程，来运行某个对象实例中的特定函数。

一般在Perl中新建一个线程的方法很简单：

use threads;
my $th = threads->create( function_ref, parameters );

但是启动一个实例中的函数就不太一样了，因为不能用 \&$object->method 来取得该函数的引用。

因为自己写脚本的时候有用到，于是花了一个下午探索实验。然后发现一个确实可以work的办法：在一个匿名函数中调用该方法。

不过这个做法实在是丑陋，Perl这样灵活的语言，一定可以有更好的办法来解决这种问题。

实验加翻阅Intermediate perl一个下午还是无果，突然Perl帝出现，看了一眼代码后瞬间给出一个非常正规的解决方法。

具体请直接看示例代码：

下载: cat.pm

package Cat;
use strict;
use warnings;
sub new {
my $class = shift;
my $self = {
hello => 'Miao',
@_
};
return bless $self, $class;
}
sub sayhi {
my $self = shift;
my $times = shift || 3;
foreach ( 1 .. $times ) {
print "$self->{hello}\n";
sleep 1;
}
}
1;

下载: sayhi.pl

#!/usr/bin/perl
use strict;
use warnings;
use threads;
use FindBin qw($Bin);
use lib "$Bin";
use Cat;
my $cat = Cat->new( hello => 'meow' );
# solution 1: works but ugly
print "\n+++++++ solution 1 +++++++\n";
my $th1 = threads->create( sub { $cat->sayhi(4); } );
foreach ( 1 .. 4 ) {
print "This is main function.\n";
sleep 1;
}
$th1->join;
# solution 2: more professional
print "\n+++++++ solution 2 +++++++\n";
my $th2 = threads->create( \&Cat::sayhi, $cat, 4 );
foreach ( 1 .. 4 ) {
print "This is main function.\n";
sleep 1;
}
$th2->join;
print "\nDemo ends.\n";