基本操作

Perl模块安装

  • 下载地址

https://metacpan.org

  • 模块安装

  1. 在线安装。

    1. # 示例：安装Teradata数据库DBI插件
    2. # Perl DBI Driver for Teradata：http://www.presicient.com/tdatdbd
    3. # 方式1
    4. cpanm DBD::Teradata    
    5. # 方式2
    6. perl -MCPAN -e shell
    7. # 添加CPAN源
    8. o conf urllist push http://mirrors.aliyun.com/CPAN/
    9. # 删除CPAN源
    10. o conf urllist unshift http://www.perl.com/CPAN/
    11. o conf urllist pop http://www.perl.com/CPAN/
    12. # 安装模块
    13. install DBD::Teradata
    14. install DBI

  2. 离线安装。

    1. tar -xvf xxxx.tar.gz
    2. cd xxxx
    3. perl Makefile.PL
    4. make
    5. make test
    6. make install

    Perl模块使用

    perl包后缀名一般为“.pm”。perl包里面可以使用所有的perl数据结构，和自定义函数。一般perl包的文件名和包名一致，当然也可以不一致，但那样会不容易维护，“.pm”文件的末尾用“1; ”结束。
    示例：

  3. 编辑pm模块（将模块创建于$AUTO_HOME/bin目录下）。 ```perl

    !/usr/bin/perl

    package Conf; require Exporter; @ISA=qw(Exporter); @EXPORT=qw(ret); #在此数组中表明允许使用者使用哪些变量及函数； my @arr=( {

    1.      'name'=>'Tom',
    2.      'age'=>'3',

    }, );

sub ret(){ return \@arr;
}

1;

  2. 2. 调用pm模块。
  3. ```perl
  4. #!/usr/bin/perl
  6. my $AUTO_HOME=$ENV{"AUTO_HOME"};
  7. unshift(@INC,"$AUTO_HOME/bin");
  9. use Data::Dumper;
  10. require Conf;
  11. my $a=Conf::ret();
  12. print $a->[0]->{'name'};

函数

UUID

  1. 安装相关模块。

    1. perl -MCPAN -e shell
    2. install Data::UUID

  2. 示例。 ```perl

    !/usr/bin/perl -w

use Data::UUID;

my $ug = new Data::UUID; my $uuid1 = $ug->to_hexstring($ug->create()); print $uuid1 ```

数据库操作

DBI

参考

w3cschool：Perl教程
https://www.w3cschool.cn/perl
运维之路：修改CPAN mirror的默认源
http://www.361way.com/change-cpan-default-mirror/5094.html
CPAN：CPAN Mirror Network
http://www.cpan.org/SITES.html