摘要：
#!/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': $!'"; 阅读全文
摘要：
@ARGV=qw# larry moe curly#;
while ()
{
chomp;
print "It was $_ that I saw in some stooge_like file!\n";
}
#从larry,moe和curly三个文件中读取行信息 阅读全文
摘要：
参考:
正则表达式
是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。
可以通过在一对分隔符之间放入表达式模式的各种组件来构造一个正则表达式，即/expression/ 阅读全文
摘要：
几个主要非英文语系字符范围
2E80～33FFh：中日韩符号区。收容康熙字典部首、中日韩辅助部首、注音符号、日本假名、韩文音符，中日韩的符号、标点、带圈或带括符文数字、月份，以及日本的假名组合、单位、年号、月份、日期、时间等。
3400～4DFFh：中日韩认同表意文字扩充A区，总计收容6,582个中日韩汉字。
4E00～9FFFh：中日韩认同表意文字区，总计收容20,902个中日韩汉字。
A000～A4FFh：彝族文字区，收容中国南方彝族文字和字根。
AC00～D7FFh：韩文拼音组合字区，收容以韩文音符拼成的文字。
F900～FAFFh：中日韩兼容表意文字区，总计收容302个中日韩汉字。
FB00～FFFDh：文字表现形式区，收容组合拉丁文字、希伯来文、阿拉伯文、中日韩直式标点、小符号、半角符号、全角 阅读全文
摘要：
class A():
_a = 1
def Afun(self):
print 'A'
def Common(self):
print 'A-common'
class A1():
def Common(self):
print 'A1-common' 阅读全文
摘要：
3 图形文件的处理 阅读全文
摘要：
Perl原来主要用于编写一些Unix系统上的管理和监控程序，由于Perl与Unix系统紧密相连，故后来很多人都喜欢采用Perl来编写CGI程序。现在相当一部分企业都会采用NT平台，但大部分仍然采用Perl进行应用开发。因为它具有良好的通用性和强大的字处理能力，即使以后改用Unix系统（可能由于接入用户数增多，访问量加大），程序修改量也不大（VBScript则无法移植，VBScriptWindowsonly)。 阅读全文
摘要：
class book:
_author=''
_name=''
_page=0
price=0
_press=''
def _check(self,item):
if item=='':
return 0
else:
return 1 阅读全文
摘要：
问题：运行PythonWin，敲入入门经典第一程序"print 'Hello World'"，点击运行...
发生错误，需要调试？？？
误信息如下：
Pythonwin.exe-应用程序错误
"0x01049a92"指令引用的"0x00000000"内存。该内存不能为"written"…… 阅读全文
摘要：
设有文件grade.txt,
$pg grade.txt
M.Tansley 05/99 48311 Green 8 40 44
J.Lulu 06/99 48317 green 9 24 26
P.Bunny 02/99 48 Yellow 12 35 28
J.Troll 07/99 4842 Brown-3 12 26 26
L.Tansley 05/99 4712 Brown-2 12 30 28
显示其内容，并输入到delete_me_and_die中
awk '{print $0}' grade.txt | tee delete_me_and_die，$0表示打印所有域
打印1,4域 阅读全文
摘要：
有data.f文件
48 Dec 3BC1997 LPSX 68.00 LVX2A 138
483 Sept 5AP1996 USP 65.00 LVX2C 189
47 Oct 3ZL1998 LPSX 43.00 KVM9D 512
219 dec 2CC1999 CAD 23.00 PLV2C 68
484 nov 7PL1996 CAD 49.00 PLV2C 234
483 may 5PA1998 USP 37.00 KVM9D 644
216 sept 3ZL1998 USP 86.00 KVM9E 234
现统计含有"48"字符的行数
$grep -c "48" data.f
显示包含"48"字符串的文本
阅读全文
摘要：
#!/usr/bin/perl -w
my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /;
my $result=&which_element_is("dino",@names); 阅读全文
摘要：
#!/usr/bin/perl -wsub max{ my($max_so_far) = shift @_; #my后面用来声明私有变量，因为perl中默认都为公有变量,shift取列表的头元素，并删除头元素 foreach (@_) { if ($_ > $max_so_far) { $max_so_far = $_; } } $max_so_far;}$maximum=&max(3,5,10,4,6);print "The max is $maximum\n"; 阅读全文
摘要：
#!/usr/bin/perl -w
sub sum_of_fred_and_barney {
print "Hey,you called the sum_of_fred_and_barney subroutine!\n";
$fred+$barney;
} 阅读全文
摘要：
#!/usr/bin/perl -w
@rocks=qw; #qw后定义数组(列表)，可用{},,/ /,或其他一对符号表示
# qw定义@rocks= ("bedrock","slate","lava")
foreach $rock(@rocks){
$rock="\t$rock";
$rock.="\n";
} 阅读全文
摘要：
#!/usr/bin/perl -w
$madonna=;
if (defined($madonna)) {
print "The input was $madonna";
} else {
print "No input available!\n";
} 阅读全文
摘要：
#/usr/bin/perl -w
$count=0;
while ($count10){
$count+=2;
print "count is now $count\n";
} 阅读全文
摘要：
#!/usr/bin/python
fun=lambda x:x*x-x
print fun(3) 阅读全文
摘要：
#!/usr/bin/python
def Cube(x=None,y=None,z=None): 阅读全文
摘要：
创建和读出文件p2.py和p3.py
#!/usr/bin/python
import os
ls=os.linesep
fname = raw_input('Enter filename: ') 阅读全文
摘要：
默认时候python已经安装，只需在默认路径下编写脚本，如p1.py
#!/usr/bin/python
import string
s=string.capitalize('use modules ') 阅读全文
摘要：
这是本人的/etc/fstab文件，其中设置的启动时自动挂载的windows分区,可用df命令查看挂载信息
开始还需要新建对应的文件夹，如 sudo mkdir /media/WINDOWS,sudo mkdir /media/PROGRAM等 阅读全文
摘要：
Perl 到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是 Perl 语言发展史上的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精巧的 Perl 模块，极大地扩展了 Perl 语言的功能。CPAN（Comprehensive Perl Archive Network）是 Perl 模块最大的集散地，包含了现今公布的几乎所有的 perl 模块。 阅读全文