perl 删除过期文件
#!/usr/bin/perl`find /bak/ >list.txt`;open LIST,"/root/list.txt";while (<LIST>){chomp;open TEST,"$_";if ( -d TEST ){close TEST;}else{close TE
awk,perl,python的命令行参数处理
Python,Perl,Bash命令行参数 Part I日常经常性的和Perl,Python,Bash打交道,但是又经常性的搞混他们之间,在命令行上的特殊性和index的区别,Python真的是人性化到家了,但是命令行上就很原始,但是很有分类感。还是会喜欢Perl一点(至少还可以动脑子,不至于生锈)...
CentOS 7 下sendEmail发邮件失败,提示invalid SSL_version specified at /usr/share/perl5/vendor_perl/IO/Socket/SSL.pm line 415.
系统环境CentOS Linux release 7.2.1511 (Core)sendEmail发送邮件是出现以下报错:******************************************************************* Using the default of ...
Perl模块的安装方法
1. 下载离线安装包 *.tar.gz的形式解包后,#perl Makefile.PL#make#make install2. 在联网的情况下,通过CPAN安装# perl -MCPAN -e shellcpan> install PAR::Packer
perl 读取cookie
use LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping;use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::Us...
使用DBI(perl)实现文本文件的导入导出mysql
DBI 是perl脚本连接数据库的一个模块。perl脚本相对shell更灵活,功能更强大,跨平台能力强。相对可执行jar包要简单很多。1、下载安装包DBI-1.631.tar.gzperl脚本下载的网站http://www.cpan.org/很多perl的组件都可以在这个网站上下载2、解压tar ...
Linux下安装Perl和Perl的DBI模块
今天在虚拟机测试shell脚本的时候,有些命令使用不了。比如说 mysqlhotcopy ,它提示Perl的版本太低。我用的 RedHat9 的Perl才5.8.0版本。。。(2002年以前的)严重过时。所以重新安装了新版本的 Perl,过程记录如下: 1、在官方网站下载新版本的源码包:http:/...
perl 公交车查询
<pre name="code" class="cpp">decode_json 必须是unicode形式的字符,Dump不支持显示unicode形式的中文 只能 \x{xxxx}use URI::Escape;use Encode;use JSON qw/encode_json dec...
Perl的IO操作(2):更多文件句柄模式
open函数除了> >> <这三种最基本的文件句柄模式,还支持更丰富的操作模式,例如管道。其实bash shell支持的重定向模式,perl都支持,即使是2>&1这种高级重定向模式,perl也有对应的模式。打开管道文件句柄perl程序内部也支持管道,以便和操作系...
Perl语言编程>>学习笔记2
1. Perl中变量的常用表示 ${var} 相当于 $var $Dog::days 在Dog包里面的变量$days $#days @days 的最后一个索引 $days->[] $days 引用的数组的的第3个元素 $days[][] 多维数组 $days{}{'Feb'} 多维哈...
perl学习笔记---标量
1.perl 输出时,使用 逗号,连接多个字符串如:print “The answer is ”,6*7, “.\n”2.当一个字符串由双引号括起来时,如果变量前没有反斜线,则变量会被其值内插$mean = “brontosaurus steak”;$barney = “fred ate a $me...
Perl列表相关函数
内置的列表函数有:grep, join, map, qw//, reverse, sort, unpackjoin:将多个元素使用给定字符串联起来joingrep:从列表中筛选符合条件的元素执行对应的代码块grepmap:对列表中的元素执行给定操作,后文详细示例mapreverse:反转列表、标量字...
Perl 中 `cmd` 和system"cmd"的区别
在perl中,调用系统命令有两种形势,`cmd` 和system"cmd",他们主要的区别是`cmd`会获取返回结果,而system"cmd"会直接将结果输出到屏幕上,针对这个区别有以下两种用法:1,当需要获取运行结果的时候,如获取当前目录,就应该写成 chomp($pwd = `pwd`);如果写...
perl 切换 dnspod 域名记录
提供域名,dnspod 账户密码(毕竟dns密码比较重要 不能谁 cat一下都可以看到 需要base64加密),原IP,切换目标IP,#!/bin/perluse warnings;use MIME::Base64;use LWP;use Encode;use JSON;use Data::Dump...
详解linux下批量替换文件内容的三种方法(perl,sed,shell)
在建设本网站的时候,发现新建了很多的网页,突然发现,每个文件都需要进行修改一样的内容,一个一个打开很是麻烦,所以,总结了一下如何快速修改一个目录下多个文件进行内容替换。第三种方法用的不多方法一 使用perl ,命令如下:find -name '要查找的文件名' | xargs perl -pi -e...
Perl socket编程
In this article, let us discuss how to write Perl socket programming using the inbuilt socket modules in Perl.Perl socket modules provides an object i...
perl 为什么要用引用来做对象呢?
perl 为什么要用引用来做对象呢?因为一个重要的原因是 my 引用 脱离作用域,外部仍旧生效
perl encode_utf8 和decode_utf8
encode_utf8等于 $octets = encode_utf8($string); 这个字符串 在$string 在Perl的内部格式,返回结果是作为一个顺序的字节。因为所有的可能的字符串在Perl是松散,不严格的 UTF-8表示decode_utf8 解码utf-8
perl中常见的语法规则和函数
数值比较操作符 字符串相等 == eq不等 != ne小于 < lt大于 ...
Perl中命令行参数以及打开管道文件
打开管道文件Linux提供了管道机制,可以方便应用程序之间的数据传递。在Perl中,扣开和使用管道可采用如下形式的open函数:open(Filehandle,”丨 CMD”);其中,CMD为数据接收方应用程序。比如,可以用管道的方式,向邮件程序发送信息,然后邮件程序会把收到的信息作为邮件发送出去,...