perl write_英语句子语法解析软件

分享 perl 语言学习资源

Perl 教程|极客教程 (geek-docs.com)

Perl [zh] (runebook.dev)

Perl 运算符 | 菜鸟教程 (runoob.com)

Perl Documentation - Perldoc Browser

Search the CPAN - metacpan.org

当然还有一些经典书籍，不再列举。

1、数字

1.1、数字表示

perl内部会把所有的数字当做浮点数进行处理。如果一个数字太长，可以使用下划线将数据分开，便于阅读。

与其他语言类似，支持整数的其他进制表示，十六进制0x，八进制0，二进制0b。

同样支持幂指数表示。

example：

$a = 1.23_456;#十进制 print "$a\n"; $b = 0xFF_FF;#十六进制 print "$b\n"; $c = 0377;#八进制 print "$c\n"; $d = 0b1101;#二进制 print "$d\n"; $e = 1.3e-3;#指数表示 print "$e\n";

result：

1.23456 65535 255 13 0.0013

1.2、数字操作符

基本的加减乘除运算，+ - * /

取模（求余）运算 % ，对于小数的求余，会将操作数的小数部分直接去掉（即，向下取整）然后再做求余运算，如 10.99 % 3 = 1。可以将操作数变为负数，如 -10.01 % -7 = -3；-10.01 % 7 = 4

指数运算符，如23 = 8。负数的非整数次方运算会产生复数，复数的运算需要Math::Complex 模块。

use Math::Complex; # $cc = cplx(3,4); $cc = 3+4*i; print $cc2 . "\n";

Perl - Math::Complex [zh] (runebook.dev)

这个网址有很多中文的perl语法手册。

2、字符串

2.1、单引号字符串

单引号里面的转义字符，只支持单引号和反斜线。其他字符均表示自身。

示例：

$s1 = 'asdf\'\\\n qwe \twefff'; print $s1 ;

result：

asdf'\\n qwe \twefff

2.2、双引号字符串

双引号字符串支持所有的转义字符。

example：

$s2 = "asdf\'\\\nashs\thjlidce12#\""; print $s2;

result：

asdf'\ ashs hjlidce12#"

perl中文教程：Perl 教程|极客教程 (geek-docs.com)

2.3、字符串操作符

. 可以将字符串前后连接。

x 可以将字符串复制粘贴，x后面的次数如果是小数，将小数向下取整后复制粘贴。

字符串和数字之间，perl 解释器会根据语境自动转换。

example：

print "HELLO WORLD " . "HELLO PERL" . "\n";# 字符串连接 print "hello perl \n" x 3; print 3 x 10 . "\n"; print 1 x 3.99 . "\n"; print "A" . 3*8 . "\n";

result：

HELLO WORLD HELLO PERL hello perl hello perl hello perl  111 A24

3、perl 内置警告

有几种使能警告的方式：

1、在终端运行时： perl -w perl_program.pl

2、 perl代码的第一行：#! /usr/bin/perl/ -w

3、perl代码的前面打开使能：use warnings;

如果不理解警告信息，可以使用诊断：use diagnostics;

4、标量变量

标量变量只能存放一个标量值。命名方式和其他语言不一样的是，变量名称由$符号后接标识符组成。标识符由数字、字母、下滑线组成，不可以由数字开头。

变量赋值几种方式：

1、单纯使用 = 赋值。

2、使用 += 、*=、 /=、 .=、等。

字符串标量变量的内插(仅双引号有效)：

$str1 = "";

$str2 = "You input $str1";#将str1插入str2

print $str2;

$str3 = "You input \$str1";#转义字符使得str2不会插入str3

4、if

基本与C语言一致，example：

需要注意的是 perl 的 elseif 写作 elsif。

$str22 = "vhwroivqpo"; if($str22 eq "abc") { print "OK" . "\n"; } else { print "NOT OK" ."\n"; }

5、用户输入

输入操作符 <STDIN> 示例：

print "input something you want please." . "\n"; $line = <STDIN>; chomp $line; print "your input is $line" . "\n";

chomp 操作用于去掉行尾的换行符。

6、while

perl 程序出现死循环，使用Ctrl + C强制结束。

while的句法和C语言中差不多。

Perl 循环 | 菜鸟教程 (runoob.com)

$count = 0; while ($count < 10) { $count += 2; print "count is now $count\n"; #打印出2 4 6 8 10 }

7、undef

变量在定义后，如果没有被赋值，其默认值为 undef 。

对于数字变量，undef 等价于 0。如果是字符串变量，undef则表现为空字符串。

8、defined

由于undef 有默认行为，在程序执行过程中不报错，但是容易产生不易于理解的方面，可以使用defined函数分辨变量是否为undef，若是未定义则返回false，否则返回 true 。

example：

$ee ; if(not defined($ee)) { print "it is a empty string" . "\n"; } $ee = "123"; if(defined($ee)) { print "it is a non-empty string :" .$ee . "\n"; }

result：

it is a empty string it is a non-empty string :123

9、数组/列表

Perl 数组一个是存储标量值的列表变量，变量可以是不同类型。

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下。

索引序号由0开始，-1表示列表的最后一个元素，$#列表变量名 同样表示最后一个列表元素的索引值。数组内元素的修改则可以通过索引直接赋值的形式进行。

@list1 = (1,2,3,4,5,6,7,8); print $list1[1] . "\n"; print $list1[$#list1] . "\n";# 索引最后一个 print $list1[-1] . "\n";# 索引最后一个 $list1[0] = "1"; $list1[1] = "2"; $list1[2] = "1"; $list1[3] = "2"; $list1[4] = "1"; $list1[5] = "2"; $list1[6] = "1"; $list1[7] = "2"; print $list1[1] . "\n"; print $list1[$#list1] . "\n";# 索引最后一个 print $list1[-1] . "\n";# 索引最后一个

9.1 数组创建

数组变量以 @ 符号开始，元素放在括号内，也可以以 qw 开始定义数组。Perl 允许使用任何标点符号作为分界符，最好不要用 #。

Perl 提供了可以按序列输出的数组形式，格式为 起始值 + .. + 结束值。

@p1 = qw !12 13 45 56 123 11 2223 2345!; @p2 = qw <12 13 45 56 123 11 2223 2345>; @p3 = qw *12 13 45 56 123 11 2223 2345*; @p4 = qw ?12 13 45 56 123 11 2223 2345?; @n1 = 0..10; @a1 = a..d; @p5 = @p2; #将p2列表拷贝到p5。 ($p2[0],$p2[1]) = ($p2[1],$p2[0]);#变量交换 $size1 = @p1; #数组长度 $max_index = $#p1; #数组的最大索引号 @p6 = (@p1,@n1,@a1);#列表的元素也可以为列表 print $size1 . "\t" . $max_index . "\n"; print @p2;print "\n"; print @p6;print "\n"; print @n1;print "\n"; print @a1;print "\n";

result：

8 7  abcd 0 abcd

9.2 pop 、push

pop 操作将数组的最后一个元素取出并返回。

push，它可以将一个元素（或者一列元素）加在数组的末尾。

push 的第一个参数或者pop 的唯一参数必须是数组变量。

@t1 = 'a'..'z';print @t1;print "\n"; $a1 = pop @t1;print $a1;print "\n"; push @t1,'k';print @t1;print "\n"; push @t1,@t1;print @t1;print "\n";

result：

abcdefghijklmnopqrstuvwxyz z abcdefghijklmnopqrstuvwxyk abcdefghijklmnopqrstuvwxykabcdefghijklmnopqrstuvwxyk

9.3 shift 、unshift

unshift 和 shift 对一个数组的开头进行操作（数组的左端有最小下标的元素）。

unshift类似于push；shift类似于pop。

@t1 = 'a'..'z';print @t1;print "\n"; $a1 = shift @t1;print $a1;print "\n"; unshift @t1,'kkkk';print @t1;print "\n"; unshift @t1,@t1;print @t1;print "\n";

result：

abcdefghijklmnopqrstuvwxyz a kkkkbcdefghijklmnopqrstuvwxyz kkkkbcdefghijklmnopqrstuvwxyzkkkkbcdefghijklmnopqrstuvwxyz

9.4 取数组子集

@t1 = ('a'..'z')[10..15];print @t1;print "\n"; @t2 = @t1[1..3];print @t2;print "\n";

result：

klmnop lmn

9.5 splice

splice函数用于实现数据元素替换。

示例：

@t1 = ('a'..'z')[10..20];print @t1;print "\n"; splice @t1, 2, 2, qw/& &/; print @t1;print "\n"; splice @t1, 4, 2, qw/* */; print @t1;print "\n";

result：

klmnopqrstu

kl&&opqrstu

kl&&qrstu

9.6 split

示例：

# 定义字符串 $var_test = "runoob"; $var_string = "www-runoob-com"; $var_names = "google,taobao,runoob,weibo"; # 字符串转为数组 @test = split('', $var_test); @string = split('-', $var_string); @names = split(',', $var_names); print "$test[3]\n"; # 输出 o print "$string[2]\n"; # 输出 com print "$names[3]\n"; # 输出 weibo

result：

o

com

weibo

9.7 join

example：

# 定义字符串 $var_string = "www-runoob-com"; $var_names = "google,taobao,runoob,weibo"; # 字符串转为数组 @string = split('-', $var_string); @names = split(',', $var_names); # 数组转为字符串 $string1 = join( '%', @string ); $string2 = join( '*', @names ); print "$string1\n"; print "$string2\n";

result：

www%runoob%com

google*taobao*runoob*weibo

9.8 sort

sort 操作将输入的一串列表（可能是数组）根据内部的字符顺序进行排序。如对于ASCII 字符串，将根据ASCII 序进行排序。和reverse 一样，其参数是不会受到影响的。如果想将某个数组排序，那必须将排序之后的结果存回数组中。

# 定义数组 @sites = qw(google taobao runoob facebook apple blue break cup); print "排序前: @sites\n"; # 对数组进行排序 @sites = sort(@sites); print "排序后: @sites\n";

result：

排序前: google taobao runoob facebook apple blue break cup

排序后: apple blue break cup facebook google runoob taobao

9.9 reverse

reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回。注意reverse 返回逆转的列表，它不会改变其参数的值。如果返回值没有赋值给某个变量，那这个操作是没有什么意义的。

@t1 = ('a'..'z')[10..20];print "@t1\n"; @t2 = reverse @t1;print "@t2\n";

result：

k l m n o p q r s t u

u t s r q p o n m l k

10、foreach

主要用于遍历列表，语法格式：

foreach var (list) { ... } 
示例：
@t1 = ('a'..'z')[10..20];print "@t1\n"; foreach $k (@t1){ print "$k \n"; }
result：

k l m n o p q r s t u

k

l

m

n

o

p

q

r

s

t

u

11、scalar

scalar只是用来告诉perl 解释器这是一个标量。

@rocks = qw(talc quartz jade obsidian); print "How many rocks do you have?\n"; print "I have ", @rocks, "rocks!\n"; #错误，输出rocks 的名字 print "I have ". @rocks. "rocks!\n"; #正确，输出其数字 print "I have ", scalar @rocks, "rocks!\n"; #正确，输出其数字

result：

How many rocks do you have?

I have talcquartzjadeobsidianrocks!

I have 4rocks!

I have 4rocks!

12、多行输入 @lines = <STDIN>;

或者：

chomp (@lines = <STDIN>); #读入所有的行，不包括换行符

Unix 系统中应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z。

13、子程序（函数）

语法格式：

13.1、向子程序传递参数

Perl 子程序可以和其他编程一样接受多个参数，子程序参数使用特殊数组 @_ 标明。

因此子程序第一个参数为 $_[0], 第二个参数为 $_[1], 以此类推。

不论参数是标量型还是数组型的，用户把参数传给子程序时，perl默认按引用的方式调用它们。

# 定义求平均值函数 sub Average{ # 获取所有传入的参数 $n = scalar(@_); $sum = 0; foreach $item (@_){ $sum += $item; } $average = $sum / $n; print '传入的参数为 : ',"@_\n"; # 打印整个数组 print "第一个参数值为 : $_[0]\n"; # 打印第一个参数 print "传入参数的平均值为 : $average\n"; # 打印平均值 } # 调用函数 Average(10, 20, 30);

13.2、子程序返回值

子程序可以向其他编程语言一样使用 return 语句来返回函数值。

如果没有使用 return 语句，则子程序的最后一行语句将作为返回值。

13.3、子程序的私有变量

默认情况下，Perl 中所有的变量都是全局变量，这就是说变量在程序的任何地方都可以调用。

如果我们需要设置私有变量，可以使用 my 操作符来设置。

my 操作符用于创建词法作用域变量，通过 my 创建的变量，存活于声明开始的地方，直到闭合作用域的结尾。

闭合作用域指的可以是一对花括号中的区域，可以是一个文件，也可以是一个 if, while, for, foreach, eval字符串。

13.4、变量临时赋值

我们可以使用 local 为全局变量提供临时的值，在退出作用域后将原来的值还回去。

local 定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中。

example：

# 全局变量 $string = "Hello, World!"; sub PrintRunoob{ # PrintHello 函数私有变量 local $string; $string = "Hello, Runoob!"; # 子程序调用的子程序 PrintMe(); print "PrintRunoob 函数内字符串值：$string\n"; } sub PrintMe{ print "PrintMe 函数内字符串值：$string\n"; } sub PrintHello{ print "PrintHello 函数内字符串值：$string\n"; } # 函数调用 PrintRunoob(); PrintHello(); print "函数外部字符串值：$string\n";

result：

PrintMe 函数内字符串值：Hello, Runoob!
PrintRunoob 函数内字符串值：Hello, Runoob!
PrintHello 函数内字符串值：Hello, World!
函数外部字符串值：Hello, World!

13.5、静态变量

state操作符功能类似于C里面的static修饰符，state关键字将局部变量变得持久。

state也是词法变量，所以只在定义该变量的词法作用域中有效。

注1：state仅能创建闭合作用域为子程序内部的变量。

注2：state是从Perl 5.9.4开始引入的，所以使用前必须加上 use。

注3：state可以声明标量、数组、哈希。但在声明数组和哈希时，不能对其初始化（至少Perl 5.14不支持）。

use feature 'state'; sub PrintCount{ state $count = 0; # 初始化变量 print "counter 值为：$count\n"; $count++; } for (1..5){ PrintCount(); }

result：

counter 值为：0

counter 值为：1

counter 值为：2

counter 值为：3

counter 值为：4

子程序调用过程中，会根据上下文来返回不同类型的值，比如以下 localtime() 子程序，在标量上下文返回字符串，在列表上下文返回列表。

# 标量上下文 my $datestring = localtime( time ); print $datestring; print "\n"; # 列表上下文 # $year 的值是从 1900 年作为起始年开始的计数 ($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time); printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec); print "\n";

result：

Wed Jun 12 15:17:32 2024

2024-6-12 15:17:32

14、运算符合集

14.1、算术运算符

14.2、比较运算符

14.3、逻辑运算符

14.4、赋值运算符

14.5、位运算符

14.6、引号运算符

14.7、其他运算符

14.8、运算符优先级

15、三目运算符 ? :

16、时间日期

Perl中处理时间的函数有如下几种：

1、time() 函数：返回从1970年1月1日起累计的秒数
2、localtime() 函数：获取本地时区时间
3、gmtime() 函数： 获取格林威治时间

Perl 时间日期 | 菜鸟教程 (runoob.com)

17、正则表达式

Perl的正则表达式的三种形式，分别是匹配，替换和转化:

匹配：m//（还可以简写为//，略去m）
替换：s///
转化：tr///

这三种形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

Perl 正则表达式 | 菜鸟教程 (runoob.com)

18、POD

pod本身的功能很强大，但是对于我而言，我喜欢在perl脚本中用=pod、=cut实现多行注释。

=pod ======================================== Author: Abstract: Date: Note: ======================================== =cut

19、DATA、END

可以将其后的代码注释掉。

example：

print "vcqhewviu" . "\n"; # __END__ __DATA__ print "vcqhewviu" . "\n"; print "vcqhewviu" . "\n"; print "vcqhewviu" . "\n";

result：

vcqhewviu

20、哈希

简单来说，哈希是 key/value 对的集合。

Perl中哈希变量以百分号 (%) 标记开始。

访问哈希元素格式：${key}。

以下是一个简单的哈希实例：

%data = ('google', 'google.com', 'runoob', 'runoob.com', 'taobao', 'taobao.com'); print "\$data{'google'} = $data{'google'}\n"; print "\$data{'runoob'} = $data{'runoob'}\n"; print "\$data{'taobao'} = $data{'taobao'}\n";

$data{'google'} = google.com

$data{'runoob'} = runoob.com

$data{'taobao'} = taobao.com

Perl 哈希 | 菜鸟教程 (runoob.com)

到此这篇perl write_英语句子语法解析软件的文章就介绍到这了,更多相关内容请继续浏览下面的相关推荐文章，希望大家都能在编程的领域有一番成就！

上一篇： perl编程总结_python做一个软件的全过程

下一篇： perl语言教程_何为编程

版权声明：
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！

转载请注明出处，原文链接：https://www.xkablog.com/perlbc/1797.html

分享 perl 语言学习资源

1、数字

1.1、数字表示

1.2、数字操作符

2、字符串

2.1、单引号字符串

2.2、双引号字符串

2.3、字符串操作符

3、perl 内置警告

4、标量变量

4、if

5、用户输入

6、while

7、undef

8、defined

9、数组/列表

9.1 数组创建

9.2 pop 、push

9.3 shift 、unshift

9.4 取数组子集

9.5 splice

9.6 split

9.7 join

9.8 sort

9.9 reverse

10、foreach

11、scalar

12、多行输入 @lines = <STDIN>;

13、子程序（函数）

13.1、向子程序传递参数

13.2、子程序返回值

13.3、子程序的私有变量

13.4、变量临时赋值

13.5、静态变量

14、运算符合集

14.1、算术运算符

14.2、比较运算符

14.3、逻辑运算符

14.4、赋值运算符

14.5、位运算符

14.6、引号运算符

14.7、其他运算符

14.8、运算符优先级

15、三目运算符 ? :

16、时间日期

17、正则表达式

18、POD

19、__DATA__、__END__

20、哈希

相关文章：

19、DATA、END