perl
PHP_Undifind
<script>alert(hello world!!!);</script>
展开
-
数组 – 如何在Perl中不使用循环来过滤数组?
在这里,我试图仅过滤没有子字符串世界的元素,并将结果存储回同一个数组。在Perl中这样做的正确方法是什么?$ cat test.pluse strict;use warnings;my @arr = ('hello 1', 'hello 2', 'hello 3', 'world1', 'hello 4', 'world2');print "@arr\n";@arr =~ v/...原创 2020-01-09 14:49:23 · 275 阅读 · 0 评论 -
Perl爬虫的简单实现
由于工作中有个项目需要爬取第三方网站的内容,所以在Linux下使用Perl写了个简单的爬虫。相关工具1. HttpWatch/浏览器开发人员工具一般情况下这个工具是用不到的,但是如果你发现要爬取的内容在页面的HTML源码里找不到,如有的页面是通过AJAX异步请求数据的,这时候就需要HttpWatch之类的工具来找到实际的HTTP请求的URL了,当然现在很多浏览器都有开发人员工具(如Ch...原创 2020-01-09 14:44:22 · 389 阅读 · 0 评论 -
Perl的die和warn函数
die和warndie可以在出现错误的时候停止程序,并给出消息。默认会输出出错的程序名称和出错行号 warn函数和die函数类似,但和die的区别是不会终止程序 die和warn的参数末尾如果给了\n,将不会输出出错的程序名称和出错的程序行号 use autodie;可以自动探测操作系统层面上的错误并停止程序例如,下面打开文件的操作:if ( ! open LOG "<" ...原创 2020-01-09 14:39:57 · 269 阅读 · 0 评论 -
从零学Perl——文件的操作
在Perl中可以用open或者sysopen函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作。下面以open函数为例:1:读:open(文件句柄,"<文件名")/open(文件句柄,"文件名"),前提文件必须已经存在,否则会返回0,出错信息在$!中。2:写:open(文件句柄,">文件名"),文件如果不存在,那么创建之,如果存在,内容被清...原创 2018-05-21 16:57:35 · 172 阅读 · 0 评论