孤独的猫

摘要： #!/usr/bin/perl # use threads; sub say_hello { printf("Hello thread! @_.\n"); sleep(10); printf("Bye\n"); } 阅读全文

摘要： 注意在perl5.8中，必须用threads->create来生成线程，和许多介绍旧版perl的书籍中的有区别 use Thread qw/async yield/; my $done=0; sub frob { my $arg=shift; my $tid=Thread->self->tid; print "thread $tid:frob $arg\n"; yield; unless ($done) { yield; $done++; frob($arg+10); } } 阅读全文

摘要： 打开、关闭文件 open (filevar, filename) filevar为文件句柄，或者说是程序中用来代表某文件的代号 filename为文件名，其路径可为相对路径，亦可为绝对路径 open(FILE1,"file1"); open(FILE1, "/u/jqpublic/file1"); 阅读全文

摘要： foreach my $person(qw /fred wilma betty barney dino perbbles /) { eval { open FILE, "$person" or die "Can't open file '$person': $!'"; 阅读全文

摘要： 多线程编程需要引用threading包 阅读全文