perl入门

转载 2013年12月04日 11:10:51

Perl 是一种最初开发用于文本操作的编程语言。现在它能应用于广泛的任务,包括系统管理、 web 开发、 网络编程、 GUI 开发和更多的普通用途。

这个语言以实用性为目标(易用、高效、完整)宁愿失去美丽(小巧、优雅、迷你)。它使用方便,且支持面向过程和面向对象编程,内置强大的文本处理支持,并有世界上最令人印象深刻的第三方模块的集中营。

运行Perl程序

在Unix命令行运行Perl程序:

perl progname.pl

另一种方法是,把这个放到你的脚本第一行:

 #!/usr/bin/env perl

然后用/path/to/script.pl运行。当然,首先得让它能执行,你得chmod 755 script.pl(Unix下)。

(这里的第一行假设你有env程序。你也可以直接把你的perl解释器的路径直接放到第一行,比如#!/usr/bin/perl)

安全保障

默认情况下,Perl非常随意。为了使它更强健建议每个程序由下列行开始:

  1.  #!/usr/bin/perl

  2. use strict;

  3. use warnings;

附加的两行从perl中捕获您的代码中的各种常见的问题。它们检查不同的事情,所以你需要两个都加上。一个潜在的问题通过use strict;捕获,一旦它捕获到问题,会马上让你的程序停止运行。当然使用use warnings;时,仅仅出现警告(就好像命令行的-w选项)并不会停止程序。

基本语法概述

一个Perl脚本或程序包含一条或多条语句。这些语句只需直接写在脚本中,而不需要像main()这样的东西作为程序入口。

Perl语句以分别结束:

print "Hello, world";

以星号(#)开始的语句是注释:

# This is a comment(这是一条注释)

空白字符会被Perl忽略:

  1.  print

  2. "Hello, world"

  3. ;

 

……引号里的字符串除外:

  1.  # this would print with alinebreak in the middle

  2. print "Hello

  3. world";

字符串使用双引号或单引号:

  1.  print "Hello,world";

  2. print 'Hello, world';

然而,只有双引号会“插入”变量值和像换行符(\n)这样的特殊字符(转义字符):

  1.  print "Hello,$name\n"; # works fine

  2. print 'Hello, $name\n'; # prints $name\n literally

数字不需要引号:

   print 42;

你可以使用或省略括号来传递函数的参数。它们只是在偶尔要改变或明确优先级的时候必须使用。

  1.  print("Hello,world\n");

  2. print "Hello, world\n";

Perl变量类型

Perl有3种主要的变量类型:标量(scalars)、数组(arrays)和哈希(hashes)。

   * 标量(Scalars)

     一个标量表示只有一个值:

        1.  my $animal ="camel";

        2. my $answer = 42;

     标量的值可以是字符串、整数或浮点数,并且Perl会在需要的时候自动转换。你不需要预先声明你的变量类型,但是你需要在第一次使用它们的时候,使用my来声明它们。(这是use strict;所要求的)

     标量可以用不用的方式使用:

        1.  print $animal;

        2. print "The animal is $animal\n";

        3. print "The square of $answer is ", $answer * $answer,"\n";

 

     有大量的“魔法”标量的名称看上去像标点或线路噪音。这些特殊的变量用于各种目的。现在你只要知道其中一个,这就是“默认变量”$_。它被许多Perl的函数用作默认的参数,并且它被隐式设置到某些循环结构中。

         print;          # prints contentsof $_ by default(默认打印$_的内容)

   * 数组(Arrays)

     数组用于表示一些值的列表:

        1.  my @animals =("camel", "llama", "owl");

        2. my @numbers = (23, 42, 69);

        3. my @mixed = ("camel", 42, 1.23);

     特殊变量$#array将返回数组最后一个元素的索引:

         print $mixed[$#mixed];       #last element, prints 1.23

     你可能想使用$#array + 1来得到这个数组的元素个数。别急,这很容易。在Perl预想找到一个标量值的时候(“在标量上下文”),使用@array会得到数组的元素个数:(译注:“上下文”是Perl很重要的特性之一,请查阅相关文档或在无忧Perl搜索相关内容)

         if (@animals < 5) { ... } #译注:当@animals数组的元素个数少于5个的时候

     当我们从数组获得元素值的时候,需要使用$,因为我们只要获取数组里的一个值;你请求一个标量,然后会获得一个标量。

     从数组里获取多个值:

     (译注:获取多个值,使用@,因为我们要获取数组里的几个值(列表)。)

        1.  @animals[0,1]; # gives("camel", "llama");

        2. @animals[0..2]; # gives ("camel", "llama","owl");

        3. @animals[1..$#animals]; # gives all except the first element

     这叫“数组切片”。

     你可以在列表里干些有意义的事情:

        1.  my @sorted = sort @animals;

        2. my @backwards = reverse @numbers;

     有两个特殊的数组,一个是命令行传到你脚本的参数@ARGV;另一个是传递给子程序的参数@_。

   * 哈希

     哈希用来表示键/值对:

        1.  my %fruit_color =("apple", "red", "banana", "yellow");

 

     你可以使用空白字符和=>操作符来美化上面的代码:

        1.  my %fruit_color = (

        2. apple => "red",

        3. banana => "yellow",

        4. );

     获取哈希元素:

        1. $fruit_color{"apple"}; # gives "red"

     你可以通过keys()和values()来获取键列表和值列表。

        1.  my @fruits = keys%fruit_colors;

        2. my @colors = values %fruit_colors;

     哈希没有特定的内部排序,然而你可以对键进行排序来遍历它。 和特殊的标量、数组一样,哈希也有特殊的。我们现在只要知道哈希%ENV包括所有环境变量。更复杂的数据类型可以使用引用来构造,允许你把列表和哈希放到另一个列表和哈希中。引用是一个标量值,它可以引用任何其它的Perl数据类型。通过把引用存储为数组或哈希的元素值,你可以轻松创建列表/哈希中的列表/哈希。以下示例演示了使用匿名哈希引用实现的两级哈希结构

  1.  my $variables = {

  2. scalar => {

  3. description => "single item",

  4. sigil => '$',

  5. },

  6. array => {

  7. description => "ordered list of items",

  8. sigil => '@',

  9. },

 10. hash => {

 11. description => "key/value pairs",

 12. sigil => '%',

 13. },

 14. };

 15.

 16. print "Scalars begin with a$variables->{'scalar'}->{'sigil'}\n";

变量作用域

上面所有的例子都使用这种语法:

  1.  my $var = "value";

实际上,my不是必须的。你可以省略:(译注:前提是,你没有使用“use strict;”语句)

  1.  $var = "value";

但是,上面的用法将创建一个全局变量,这是一个很差的编程实践。my创建一个词法作用域变量,这个变量只在定义它们的语句块中可见(比如一段包在大括号里的语句)。

  1.  my $x = "foo";

  2. my $some_condition = 1;

   3. if ($some_condition) {

  4. my $y = "bar";

  5. print $x; # prints "foo"

  6. print $y; # prints "bar"

  7. }

  8. print $x; # prints "foo"

  9. print $y; # prints nothing; $y has fallen out of scope

结合使用my和在Perl脚本开头使用use strict,解释器将捕获常见的编程错误。比如,在上面的例子中,最后的print $y将引发一个编译时错误并阻止程序运行。强烈建议使用use strict语句!


条件和循环语句

Perl有许多常用的条件和循环语句。Perl 5.10甚至提供了分支语句(拼作given/when)。

条件可以是任何Perl表达式。比较和布尔条件语句中常用的逻辑运算符,请参阅有关信息的下一节中的运算符的列表。

   * if

        1.  if ( condition ) {

        2. ...

        3. } elsif ( other condition ) {

        4. ...

        5. } else {

        6. ...

        7. }

     还有否定版本的:

        1.  unless ( condition ) {

        2. ...

        3. }

     这个否定版比if (!condition)更易读。

     注意,大括号是必须的,即使代码块中只有一行。不过,这里有一个方法可以让你通过类似英语的语法来实现单行条件语句:

        1.  # the traditional way

        2. if ($zippy) {

        3. print "Yow!";

        4. }

        5.

        6. # the Perlish post-condition way

        7. print "Yow!" if $zippy;

        8. print "We have no bananas" unless $bananas;

   * while

        1.  while ( condition ) {

        2. ...

        3. }

     为了和unless同样的理由,也有一个否定版本:

        1.  until ( condition ) {

        2. ...

        3. }

     你也可以在后置条件里使用while:

     print "LA LA LA\n" while 1;          # loops forever

   * for

     跟C语言一样:

        1.  for ($i = 0; $i <= $max;$i++) {

        2. ...

        3. }

     自然Perl提供了更友好的列表遍历循环foreach以后,C语言风格的for循环在Perl几乎不需要了。

   * foreach

        1.  foreach (@array) {

        2. print "This element is $_\n";

        3. }

        4.

        5. print $list[$_] foreach 0 .. $max;

        6.

        7. # you don't have to use the default $_ either...

        8. foreach my $key (keys %hash) {

        9. print "The value of $key is $hash{$key}\n";

       10. }

内置操作符和函数

Perl 附带了各种各样的内置函数。我们已经看到的几个,包括print,sort和reverse。

Perl常见操作符(运算符)

   * 算术

        1.  + 加法

        2. - 减法

        3. * 乘法

        4. / 除法

   * 数字比较

        1.  == 等于

        2. != 不等于

        3. < 小于

        4. > 大于

        5. <= 小于等于

        6. >= 大于等于

   * 字符串比较

        1.  eq 等于

        2. ne 不等于

        3. lt 小于

        4. gt 大于

        5. le 小于等于

        6. ge 大于等于

     (为什么数字和字符串的比较运算符不同?因为我们没有不同的变量类型,并且Perl需要知道是以数字进行排序(99小于100)还是以字母进行排序(100在99前面))

   * 逻辑

        1.  && and 和

        2. || or 或

        3. ! not 否

   * 混合

        1.  = 赋值

        2. . 字符串连接

        3. x 字符串乘法

        4. .. 范围 (建立一个列表)

     一些操作符可以和=结合,像这样:

        1.  $a += 1; # same as $a = $a + 1

        2. $a -= 1; # same as $a = $a - 1

        3. $a .= "\n"; # same as $a = $a . "\n";

文件和I/O

你可以使用open()函数来打开一个文件,用于输入或输出:

1. open(my $in, "<","input.txt") or die "Can't open input.txt: $!";

2. open(my $out, ">","output.txt") or die "Can't open output.txt: $!";

3. open(my $log, ">>","my.log") or die "Can't open my.log: $!";

你可以使用<>操作符从打开的文件句柄中读数据。在标量上下文中,它从文件句柄中读取一行;在列表上下文中,它读取整个文件,并将每一行作为列表的元素。

  1.  my $line = <$in>;

  2. my @lines = <$in>;

一次性把整个文件读完,叫做“啜食(slurping)”。它能让人满意,但它可能是内存吞噬者。大多数文本文件处理可以通过Perl的循环结构,一行一行地完成。

 

<>操作符经常出现在while循环里

  1.  while (<$in>) { #assigns each line in turn to $_

  2. print "Just read in this line: $_";

  3. }

我们已经看到了如何使用print()在标准输出里打印。但是,print()还能通过第一个可选参数指定一个文件句柄来打印(译注:将内容输出到指定的文件句柄中,即写入到文件句柄相关联的文件中)

  1.  print STDERR "This isyour final warning.\n";

  2. print $out $record;

  3. print $log $logmessage;

当你完成了对文件句柄的操作之后,你应该使用close()来关闭文件句柄。(老实说,如果你忘记关闭了,Perl会帮你处理。)

   close $in or die "$in: $!";

正则表达式

Perl对正则表达式的支持宽广而深入:

   * 简单匹配

        1.  if (/foo/) { ... } # true if$_ contains "foo"

        2. if ($a =~ /foo/) { ... } # true if $a contains "foo"

     //匹配操作符(译注,完整的应该是:m//)默认操作$_,或者使用=~来绑定其它变量进行操作。

   * 简单置换

        1.  s/foo/bar/; # replaces foowith bar in $_

        2. $a =~ s/foo/bar/; # replaces foo with bar in $a

        3. $a =~ s/foo/bar/g; # replaces ALL INSTANCES of foo with bar in $a

   * 更复杂的正则表达式

     你不仅能匹配固定的字符串。其实,你可以匹配任何你能想到的复杂正则表达式。

        1.  . 单个任意字符(默认不包含\n)

        2. \s 一个空白字符 (空格, tab, 换行, ...)

        3. \S 一个非空白字符

        4. \d 一个数字 (0-9)

        5. \D 一个非数字

        6. \w 一个能组成单词的字符 (a-z, A-Z, 0-9, _)

        7. \W 一个不能组成单词的字符

         8. [aeiou] 匹配中括号内的任意一个字符

        9. [^aeiou] 匹配除了中括号内列出的字符之外的任意一个字符

       10. (foo|bar|baz) 匹配foo或bar或baz

       11.

       12. ^ 匹配开头

       13. $ 匹配结尾

     量词可用来指定数量:

        1.  * 零个或任意多个

        2. + 至少一个

        3. ? 零个或一个

        4. {3} 3个

        5. {3,6} 3到6个

        6. {3,} 至少3个

     一些简单的例子:

        1.  /^\d+/ 以一个或多个数字开头

        2. /^$/ 空的,没有任何东西

        3. /(\d\s){3}/ 3个带空白字符的数字

        4. (比如 "3 4 5 ")

        5. /(a.)+/ 匹配最少一次,含有a和任意字符

        6. (比如 "abacadaf")

        7.

        8. # 从STDIN循环读入,并打印出非空白行:

        9. while (<>) {

       10. next if /^$/;

       11. print;

       12. }

   * 圆括号捕捉

     括号的另一个用法是分组。它可以用来捕捉最后使用的正则表达式匹配的结果。这些结果用$1、$2……表示。

 

        1.  # a cheap and nasty way tobreak an email address up into parts

        2.

        3. if ($email =~ /([^@]+)@(.+)/) {

        4. print "Username is $1\n";

        5. print "Hostname is $2\n";

        6. }

子程序

写一个子程序是很容易的:

  1.  sub logger {

  2. my $logmessage = shift;

  3. open my $logfile, ">>", "my.log" or die"Could not open my.log: $!";

  4. print $logfile $logmessage;

  5. }

现在我们可以像使用其它内置函数一样,使用该子程序了:

  1.  logger("We have a loggersubroutine!");

什么是shift?传递给子程序的参数保存在@_数组中。shift函数的默认参数是@_。所以my $logmessage = shift;去掉第一个参数,并将其赋值给$logmessage。

可以通过别的方法操作@_:

  1.  my ($logmessage, $priority) =@_; # common(通用)

  2. my $logmessage = $_[0]; # uncommon, and ugly(不通过,并且很丑陋)

子程序可以返回值:

# sub square {

# my $num = shift;

# my $result = $num * $num;

# return $result;

# }

然后像这样使用它:

  1.  $sq = square(8);

相关文章推荐

Perl快速入门

[作为快速入门类型的文章,用中文是必须的] [建议正式读一本编程书籍前看一下快速入门类的文章] 认识Perl Perl是一种高级、通用、直译式、动态的程序语言。 最初设计者拉里·沃尔(Larry Wa...

perl基础入门

perl简述 1、Perl 一般被称为“实用报表提取语言”(Practical Extraction and Report Language,脚本语言。Perl具有高级语言(如C)的强大能力和灵...

Perl哈希数组入门

Perl的数据结构中最有趣的一个特性是哈希(hash),它使得在数据片段之间建立键—值(key-value)关联成为可能。虽然这些哈希要远远比普通系统中以数字索引的数组用途更广,但是往往也会使初学者不...

Perl语言入门笔记 第八章 用正则表达式进行匹配

#用正则表达式进行匹配 =pod m// = // = m%%,m||,m<>,m{},m(),匹配的时候根据需要写自己的定界符,像qw省略双引号定界符一样 模式匹配修饰符: 跟在定界符后面的,...

perl入门

转载于此 perl是一门免费及开源的脚本语言,由Larry Wall所创造,这门语言以实用,快速开发为主要目标,与当前流行的面向对象,结构化编程有些格格不入。但是这并不妨碍perl被广泛流传和...

Perl语言入门(11 系统之间互操作)

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!! ————————————...

IDEA编写 Per 项目详细步骤 Perl入门级语法

首先在IDEA上安装 Perl插件: 1、文件 -设置- 插件 - 搜索Prel-然后在仓库中搜索perl-下载安装插件 2、插件安装好之后下载Perl SDK 编译工具:https://ww...

Perl语言入门笔记 第六章 哈希(hash)

=pod 哈希 哈希表里只是一堆的键值对而已,而没有任何顺序,键可以是任意字符串,值也是 awk的哈希键值对增多的时候会逐渐变慢,而perl没有这个缺点 访问哈希元素: ...

Perl语言入门(10 文件+目录)

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!! ————————————...

Perl语言入门(04 数组+列表)

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!! ————————————...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)