perl实例详解第四版笔记1基本内容概述

概述1.管道：在perl中使用管道时，管道用于把系统命令的输出作为perl的输入，或者将perl的输出作为系统命令的输入。管道又称为过滤器（filter）。用户必须通过open系统调用来使用管道。该系统调用接受两个参数：一个是用户自定义的句柄，另一个是 *** 作系统命令，并需要在 *** 作系统命令的前面或者后面加上一个“|”符号。如果“|”符号出现在系统命令之前，那么表示该命令将把perl的输出内容作为命令的输入

1.管道：在perl中使用管道时，管道用于把系统命令的输出作为perl的输入，或者将perl的输出作为系统命令的输入。管道又称为过滤器（filter）。用户必须通过open系统调用来使用管道。该系统调用接受两个参数：一个是用户自定义的句柄，另一个是 *** 作系统命令，并需要在 *** 作系统命令的前面或者后面加上一个“|”符号。如果“|”符号出现在系统命令之前，那么表示该命令将把perl的输出内容作为命令的输入内容，否则表示perl将会读取系统命令的输出作为自身的输入内容。

[root@dou shili]# cat 1.pl
#!/usr/bin/perl -w
use strict;
open(my $fh,"ls |") or dIE "cannt perform command ls:$!";
while(<$fh>) {print;};
close $fh;
print "-" x 5 . "\n";
open(my $f,"| sort") or dIE "cant get perl command's output:$!";
print $f "dogs\ncats\nbirds\n";
close $f;
[root@dou shili]# ls
1.pl  file  reanDW.pl
[root@dou shili]# perl 1.pl
1.pl
file
reanDW.pl
-----
birds
cats
dogs
 

2.一些正则表达式元字符：

^:匹配行首

$:匹配行尾

a.c: 匹配一个a，后面任意一个字符，然后后面是一个c字符

[abc]:匹配a或者b或者c

[^abc]:不匹配abc的其他任何字符

[0-9]:匹配0-9之间的任意一个数字

ab*c:匹配a然后加上任意多个b然后后面是c的情况

ab+c:匹配a后面跟大于等于1个b最后是一个c的情况

ab?c:匹配a后面跟0个或者1个b最后是一个c的情况

(ab)+c:匹配大于等于一个ab后面跟一个c的情况

(ab)(c):匹配ab并将其赋值与变量$1,同时捕获c并赋予变量$2.

3.特殊的文件句柄ARGV

perl通过@ARGV数组保存了命令行提供的参数内容。如果用到了ARGV文件句柄，则这些命令行参数将被视为文件；否则视为命令行字符串。

[root@dou shili]# cat 1
444
hello
[root@dou shili]# cat file
1
Hello World
[root@dou shili]# cat 3.pl
#!/usr/bin/perl -w
use strict;

print "@ARGV\n";
while(<ARGV>) {
        print;
}
[root@dou shili]# perl 3.pl 1 file
1 file
444
hello
1
Hello World
 

4.引用reference

perl的引用本质上是一个标量型变量，负责保存另一个变量的地址。在创建引用时，需要使用反斜杠符号。

[root@dou shili]# cat 4.pl
#!/usr/bin/perl -w
use strict;

#create variables
my $age = 18;
my @array = qw(hello world come on);
my %home = ( owner => "me",
                benben => "dell",
                shuihu => "mingpai",
);

#create references
my $pointer1 = \$age;
my $pointer2 = \@array;
my $pointer3 = \%home;
my $pointer4 = [ qw(black white red yellow) ];
my $pointer5 = { country => "china",province => "shandong",};

#dereference
print "$$pointer1\n";
print "@$pointer2\n";
print "%$pointer3\n";
print "$pointer3->{benben}\n";
print "$pointer4->[2]\n";
print "$pointer5->{country}\n";
[root@dou shili]# perl 4.pl
18
hello world come on
%HASH(0x1a54d720)
dell
red
china
 

5.对象：perl中的对象是一种特殊类型的变量。在perl中，一个类代表着含有一组变量（属性）与函数（方法）的一个包。perl没有提供专门的关键字class。其中，属性就是能够描述这个对象的变量；而方法则是一种特殊的函数，允许用户创建并 *** 作给定的对象。在创建对象时，用户需使用bless函数。

[root@dou shili]# cat 5.pl
#!/usr/bin/perl -w
use strict;
# create a class
package pet;

sub new { #constructor
        my $class = shift;
        my $pet = {
                name => "dog",
                owner => "me",
                type => "guochan",
        };
        bless($pet,$class);
        # return a pointer to the object
        sub set_pet { # accessor methods
                my $self = shift;
                my ($name,$owner,$type) = @_;
                $self->{'name'} = $name;
                $self->{'owner'} = $owner;
                $self->{'type'} = $type;
        }
        sub get_pet {
                my $self = shift;
                while(my ($key,$value) = each(%$self)) {
                        print "$key: $value\n";
                }
        }
}

# instantiation a class my $cat = pet->new(); #create an object with a constructor method $cat->set_pet("dahuanggou","tom","miguochan"); #access the object with an instance $cat->get_pet; [root@dou shili]# perl 5.pl owner: tom name: dahuanggou type: miguochan  

总结

以上是内存溢出为你收集整理的perl实例详解第四版笔记1基本内容概述全部内容，希望文章能够帮你解决perl实例详解第四版笔记1基本内容概述所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。