perl Language Primer

来源：互联网发布：细菌觅食算法流程图编辑：程序博客网时间：2024/06/14 00:39

<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，执行并检查语法

0 0