【文件属性】：
文件名称：创建脚本-基于实时计算时延扩展的lmmse信道估计算法
文件大小：23.73MB
文件格式：PDF
更新时间：2024-07-30 13:08:28
Perl
3.1 创建脚本
下面是一个简单的 Perl 脚本：
示例 3.1
(The Script)
#!/usr/bin/perl
print "What is your name? ";
chomp($name = ); # Program waits for user input from keyboard
print "Welcome, $name, are you ready to learn Perl now? ";
chomp($response = );
$response=lc($response); # response is converted to lowercase
if($response eq "yes" or $response eq "y"){
print "Great! Let's get started learning Perl by example.\n";
}
else{
print "O.K. Try again later.\n";
}
$now = localtime; # Use a Perl function to get the date and time
print "$name, you ran this script on $now.\n";
(Output)
What is your name? Ellie
Welcome, Ellie, are you ready to learn Perl now? yes
Great! Let's get started learning Perl by example.
Ellie, you ran this script on Wed Apr 4 21:53:21 2007.
示例 3.1 提供了一个 Perl 脚本示例。在不远的将来，读者也能写出与之相似的脚本。Perl 脚本
由一系列 Perl 语句和声明（declaration）组成。其中所有语句均以分号（;）结尾。（由于声明只在
子例程和报表格式中才会用到，因此本书将在后面相关章节里予以介绍。）用户可以在脚本任意位
置创建变量。如果变量没有初始化的话，系统将根据上下文语境自动把它赋值为 0 或 null。请读者
留意，上述脚本中的变量名均以 $ 开头。用户可以把数字、文本字符串或函数输出值赋给变量。不
同类型的变量通过其开头不同的特殊标志（funny symbol）予以区分，具体情况请参考第 4 章内容。
对每一条语句，Perl 将从头至尾仅执行一遍。
