perl 知识点与应用

最新推荐文章于 2021-04-22 11:29:24 发布

gaoguide2015

最新推荐文章于 2021-04-22 11:29:24 发布

阅读量442

点赞数

文章标签： perl 脚本

本文链接：https://blog.csdn.net/gaoguide2015/article/details/50421324

版权

1、Perl处理Excel文件：http://blog.csdn.net/caz28/article/details/7943530

2、perl DBI使用详解：http://blog.csdn.net/fan_zhen_hua/article/details/6078337

3、perl http模块总结：http://zk1878.iteye.com/blog/1842123

4、Perl脚本发送带附件的邮件：http://hi.baidu.com/ihackomg/item/9a42fbd2dfbfd976d73aae70

5、10个Perl模块让Win32程序员更轻松：http://hi.baidu.com/hchcbg/item/95db2d5d8e15b8958d12ed60

6、Perl面向对象：http://hi.baidu.com/zhutov/item/ff8c235d62c0449e8c12ede5

7、了解 Perl/Tk 模块，第 1 部分: Perl/Tk 基础知识：https://www.ibm.com/developerworks/cn/aix/library/au-perltkmodule/#icomments

8、Perl注册表操作大全[FW]：http://hi.baidu.com/zhutov/item/bbed9a463497e1e5a5c06694

100、perl知识点补充：

1）PERL 语言中的q,qw,qr,qx,qq……符号用法总结[FW]：http://hi.baidu.com/zhutov/item/f79544d4d4895f3448e1dd18

2）Perl eval函数探讨：http://hi.baidu.com/zhutov/item/ac6dd202299c95f9a01034fc

3）简简单单讲grep[FW]：http://hi.baidu.com/zhutov/item/c61ed9cde14e322646d5c087

perl中grep函数：http://blog.sina.com.cn/s/blog_6072546301016g3f.html

4）简简单单讲sort [FW]：http://hi.baidu.com/zhutov/item/5be281b7fc1b07fb62388eb0

5）简简单单讲map[FW]：http://hi.baidu.com/zhutov/item/5438d4e49bf431c9bbf37d8f

6）[FW]perl的USE和require & perl的INC设置：http://hi.baidu.com/zhutov/item/490aa102aa1b2775bfe97efc

7）仙子原创之perl docs:简简单单讲管道：http://zhangjian995.blog.163.com/blog/static/23116433201071661745225/

Perl 管道学习：http://hi.baidu.com/youzhch/item/c827c9025b1e3a3af2eafc5c

8）Perl进程（Processes）、管道（Pipes）和信号（Signals）之进程：http://www.lorui.com/perl-processes.html

Perl进程（Processes）、管道（Pipes）和信号（Signals）之管道：http://www.lorui.com/perl-pipes.html

100）一些难搞得perl小东西：http://zhangjian995.blog.163.com/blog/static/231164332010712112336247/

200、perl扩展

1）[备份]用UltraEdit打造顺手perl IDE：http://hi.baidu.com/fengxuan/item/46033e0df4a4d51bcd34ea08

2) perl的INC设置：http://blog.sina.com.cn/s/blog_8709e3120101esiq.html

3）使用perldoc快速查阅perl文档：http://hi.baidu.com/drymarsh/item/aee6f402f43ff713cc34eaf5

20）perl怎么样动态注入一段代码来运行 --- eval ：http://bbs.chinaunix.net/thread-4083107-1-3.html

 
        #!/usr/bin/perl -w 
       
        ################################################ 
       
        use  
        strict; 
       
        use  
        Clone qw/clone/; 
       
        use  
        Data::Dumper; 
       
        use  
        Time 
        ::HiRes qw(gettimeofday usleep); 
       
        ################################################ 
       
        #Description：动态执行pl.cfg中perl脚本。 
       
        #InParams：通过@PARAMS传递命令行参数。 
       
        #call command: RunPerl [-inpl pl.cfg] params 
       
        ################################################ 
       
        &RunPerl(); 
       
        ############################################################## 
       
        #子程序RunPerl从文件pl.cfg读取perl代码并执行,通过@PARAMS传递命令行参数 
       
        sub  
        RunPerl() 
       
        { 
       
        my  
        $RunConf  
        =  
        "pl.cfg" 
        ; 
       
        my  
        @PARAMS  
        =  
        @ARGV 
        ; 
       
        my  
        $code  
        =  
        "" 
        ; 
       
        my  
        @arrContents 
        ; 
       
        if 
        ( 
        @ARGV  
        > 0) 
       
        { 
       
        if 
        ( 
        "-inpl"  
        eq  
        $ARGV 
        [0] and  
        @ARGV  
        > 1) 
       
        { 
       
        @PARAMS  
        = ( 
        @ARGV 
        )[2..$ 
        #ARGV]; 
       
        $RunConf  
        =  
        $ARGV 
        [1]; 
       
        } 
       
        elsif 
        ( 
        "-usage"  
        eq  
        $ARGV 
        [0] and  
        @ARGV  
        == 1) 
       
        { 
       
        print  
        "usage: RunPerl [-inpl pl.cfg] params\n" 
        ; 
       
        return  
        0; 
       
        } 
       
        } 
       
        open  
        PF_IN, 
        "<$RunConf"  
        or  
        die  
        "[error].can not find: $RunConf. $!\n" 
        ; 
       
        @arrContents  
        = <PF_IN>; 
       
        close  
        PF_IN; 
       
        for  
        ( 
        @arrContents 
        )  
       
        { 
       
        $code  
        =  
        $code 
        . 
        $_ 
        ; 
       
        } 
       
        eval  
        $code 
        ; 
       
        warn  
        "[error].$@\n"  
        if  
        $@; 
       
        }