Hello World #

一、第一个Perl程序 #

创建文件 hello.pl，输入以下代码：

perl

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, World!\n";

1.1 运行方式 #

命令行运行：

bash

perl hello.pl

输出：

text

Hello, World!

作为脚本运行：

bash

chmod +x hello.pl
./hello.pl

1.2 一行代码 #

Perl支持命令行直接执行代码：

bash

perl -e 'print "Hello, World!\n"'

二、代码结构解析 #

2.1 Shebang行 #

perl

#!/usr/bin/perl

指定Perl解释器路径
使脚本可直接执行
Unix/Linux系统必需

查找Perl路径：

bash

which perl

2.2 编译指令 #

perl

use strict;
use warnings;

指令	作用
strict	强制变量声明，捕获常见错误
warnings	启用警告，帮助发现问题

推荐：始终在脚本开头使用这两个指令。

2.3 print函数 #

perl

print "Hello, World!\n";

print 是Perl的输出函数
字符串用双引号包围
\n 表示换行符
语句以分号结尾

三、Perl引号 #

3.1 双引号 #

双引号支持变量插值和转义字符：

perl

my $name = "Perl";
print "Hello, $name!\n";
print "Tab:\tHere\n";

输出：

text

Hello, Perl!
Tab:    Here

3.2 单引号 #

单引号原样输出，不进行转义：

perl

print 'Hello, $name!\n';

输出：

text

Hello, $name!\n

3.3 引号运算符 #

运算符	等价于	特点
q	‘…’	单引号
qq	“…”	双引号
qx	`...`	命令执行

示例：

perl

my $name = "Perl";
print qq{Hello, $name!\n};
print q{Hello, $name!\n};

四、变量入门 #

4.1 标量变量 #

标量变量以 $ 开头：

perl

my $name = "Perl";
my $version = 5.36;
my $is_popular = 1;

print "Language: $name\n";
print "Version: $version\n";

4.2 变量命名规则 #

以字母或下划线开头
后续可以是字母、数字、下划线
区分大小写

perl

my $name;        # 合法
my $Name;        # 合法（不同于$name）
my $_count;      # 合法
my $count2;      # 合法

4.3 my关键字 #

my 声明词法变量：

perl

my $var = 10;

五、say函数 #

Perl 5.10引入了 say 函数，自动添加换行：

perl

use v5.10;

say "Hello, World!";

等价于：

perl

print "Hello, World!\n";

启用say：

perl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

say "Hello, Perl!";
say "Version: ", 5.36;

六、交互式Perl #

6.1 Perl调试器模式 #

bash

perl -de 1

text

Loading DB routines from perl5db.pl version 1.60
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(-e:1):   1
  DB<1> $name = "Perl"
  DB<2> say "Hello, $name"
Hello, Perl
  DB<3> q

6.2 单行代码执行 #

bash

perl -e 'print "Hello\n"'
perl -e 'say "Hello"' -E 'use v5.10'

七、实践练习 #

练习1：输出个人信息 #

perl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my $name = "张三";
my $age = 25;
my $city = "北京";

say "姓名: $name";
say "年龄: $age";
say "城市: $city";

练习2：简单计算 #

perl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my $a = 10;
my $b = 3;

say "$a + $b = ", $a + $b;
say "$a - $b = ", $a - $b;
say "$a * $b = ", $a * $b;
say "$a / $b = ", $a / $b;

练习3：当前时间 #

perl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my $time = localtime();
say "当前时间: $time";

八、总结 #

本章学习了：

编写和运行第一个Perl程序
Perl代码的基本结构
引号的使用
变量声明和命名
print和say函数

下一章将学习Perl的基础语法。