在Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：1.使用Net::FTP的new方法来创建一个新的FTP对象。2.使用login方法登录到FTP服务器。3.使用cwd方法来切换目录。4.使用get方法来获取文件。5.使用put方法来上传文件。6.使用quit方法退出。1#!/usr/bin/perl-w2#使用模块Net::FTP3useNet::FTP;4#创建新的F
转载
精选
2013-10-12 10:22:23
659阅读
自从实现FTP上传功能之后就一直未停止过对脚本的改进，但改来改去shell脚本还是有些地方做不过于是把脚本换成perl脚本了，该脚本为避免工作中服务器调整的原因造成忘记更脚本变量，所以就直接去抓取另一个备份数据的脚本里的变量然后分割为FTP服务器上的用户名跟所需要上传至FTP的目录，开始是实现不了判断FTP服务器上是否存在目录问题，目前已解决，先上传抓取切换目
原创
2010-02-24 16:29:12
3477阅读
今天用perl写了一个ftp下载上传的工具，执行一切正常，但在下载（get）时，对于下载当前没有的文档，会在下载处停留很久，然后报错Can't use an undefined value as a symbol reference at /usr/lib/perl5/5.8.8/Net/FTP/d
原创
2014-06-09 15:24:44
1120阅读
网上搜了一下，发现了这个文档，其他基本就不用再看了
原创
2013-01-16 11:32:39
1220阅读
#!/usr/bin/perl
use Net::FTP;
( $day, $mon, $year) = (localtime)[3..5];
$mon=$mon+1;
$year=$year+1900;
$host_ip=`ifconfig eth0 |grep "inet addr" |cut -d: -f2 |cut -d" " -f
原创
2012-12-14 17:50:15
1478阅读
先讲一下项目背景，及系统需求。客户想每小时获取一下公司为其准备的生产数据，但数据是分布在不同的系统及不同的文件夹下。考虑到安全因素，也不可能把所有的服务器都暴露给客户。怎么办呢？可以考虑把分布在不同服务器的数据定时集中收集起来，放在一个共享给客户的文件夹下，供客户来读取。上图是实现FTP文件下载的架构，注意Unix客户端一般默认就有ftp服务，所以你只需打开服务就好。而windows客户端一般需要
原创
2013-05-21 10:01:41
2586阅读
点赞
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
999阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1178阅读
2评论
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
566阅读
$_ 俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如for(1..10){
print ;
}这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910$!当且仅当某个函数调用失败
转载
2023-06-08 17:02:54
76阅读
perl 常用法
常用正则表达式
匹配中文字符的正则表达式： [\u4e00-\u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了
匹配双字节字符(包括汉字在内)：[^\x00-\xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）
匹配空
问题：具体的操作步骤，是windows环境下的，要求说明具体点，具体的操作步骤和运行命令?解答：首先确定你已经装好了PERL。Windows的话，应该是用Active PERL吧。其次，看你想怎么运行。如果你是用记事本或者UltraEdit 32这样的编辑器写的程序，应该需要在命令行运行。在Win XP下，从开始菜单选择运行，输入cmd，回车，进入命令行界面。然后更改目录到你要运行的程序所在的文件
转载
2023-07-03 16:02:20
124阅读
过滤重复字符[plain] view plaincopy
1. perl -e '$_=<STDIN>; @in = split; if (@in < 100){ @out = grep {! $hash{$_}++ } @in; print join "\n", @out;}'
统计全文单词数 （同awk '{for (i=1;i<=NF;i++){a[$i]++
Another good feature of Perl is RE, PerlRE.
In Perl, RE usually means patten, a match (or unmatch) of some characters template.
The patten can divide any characters into two parts: match and unmatch
原创
2012-11-15 21:03:45
901阅读
$- 当前页可打印的行数,属于Perl格式系统的一部分
$! 根据上下文内容返回错误号或者错误串
$” 列表分隔符
$# 打印数字时默认的数字输出格式
$$ Perl解释器的进程ID
$% 当前输出通道的当前页号
$& 与上个格式匹配的字符串
$( 当前进程的组ID
$) 当前进程的有效组ID
$* 设置1表示处
从开始的BSP使用C语言，到后期人工智能使用Python，以及常用的shell工具，到现在使用了点perl，稍微总结一下，这几种语言的特点。如果，以后有一种自己不太用的到的，到某一次突然需要使用的时候，捡起来快一些。其实所有的程序需要完成的功能模块都比较相似：比如： 程序解析(用’;'分号还是语句的缩进关系)； 数据类型(整型、浮点型、字符/字符串及class等，数据声明使用及作用范围)； 文件处
如果对于一个绝大部分内容是静态的网站，只有极少数的地方需要动态显示，碰巧你又了解一点perl知识，那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本，在编译nginx时候需要如下参数：./configure --with-http_perl_module如果make时候出现如下类似错误： Can’t locate ExtUtils/Embed.pm in @INC
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
146阅读
2评论
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格：
s/\s+ //g;
2,将开头的空白替换成空字符串
s /^\s+//;
3,讲结尾的空白替换成空字符串
s /\s+$//
4,去除开头和结尾的空白符
s/^\s+|\s+$//g
原创
2013-02-20 16:00:07
589阅读
