摘要：
重要此部分、 方法，或任务包含告诉您如何修改注册表的步骤。但是，如果注册表修改不当可能会出现严重的问题。因此，请务必认真执行这些步骤。已添加的保护备份注册表之前对其进行修改。然后，您可以在出现问题时还原注册表。有关如何备份和还原注册表的详细信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：322756 (http://support.microsoft.com/kb/322756/ ) 如何备份和还原在 Windows 注册表当您使用系统监视器工具部分计数器可能已丢失或不包含计数器数据。基本组性能计数器库可能会损坏，并且可能需要重新生成。此外，您可能需要重新生成的任. 阅读全文
摘要：
设有文件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";
} 阅读全文