<span style="font-size:18px;">#!/usr/bin/perl
print "what's your name? ";
chomp($name= <STDIN>);
print "welcome, $name,are you ready learn Perl now? ";
chomp($response = <STDIN>);
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;
print "$name,you ran this script on $now.\n";</span>
解释
01行是标示解释器是perl执行
02用print打印到屏幕输出,perl用print "显示内容";即可
03chomp去掉最后一个字符,即去掉换行符
$name= <STDIN>是设置一个变量$name,来自标准输入<STDIN>,
需要注意的是perl中的变量是$开头
注意perl的变量无需申明即可使用,非常灵活
运行如下
04和05同理
06是一个if语句判断,格式为
if (条件1成立){
执行语句1
}
else {
执行语句2
}
$response eq "yes" or $response eq "y"的意思是变量$response的值为yes,或是y
12是设定一个变量now,来自perl的内建函数localtime
13是显示
二,perl中的注释
注释由#开头,无法使用C中的/* */或者C++中的//
三,执行脚本(习惯把perl程序结尾写为pl,便于和其他区分)
#perl filename.pl 执行filename.pl
#perl -c filename.pl 检查语法
#perl -w filename.pl 运行脚本,并对错误的语法进行提示
或者是加执行权限
#chmod +x filename.pl 加执行权限
#./filename.pl 执行脚本
四,命令行使用perl
-e参数命令行执行perl语句
#perl -e 'print "hello\n";'
hello 输出hello
-n参数,逐一按行显示
#perl -ne 'print;' /etc/passwd
root:x:0:0:root:/root:/bin/bash bin:x:1:1:bin:/bin:/sbin/nologin daemon:x:2:2:daemon:/sbin:/sbin/nologin
-c,如前所述,检查语法
-w,执行并检查语法