- 博客(8)
- 资源 (19)
- 收藏
- 关注
原创 转:perl字符串处理函数
字串的操作<br />這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作子字串<br />比如:$str="mynameis"; "myn" 就是 "mynameis" 的子字串。<br />Perl 提供 substr 這函式,可以幫我們截取子字串。語法:<br /><br />傳回子字串 = substr 字串, 開始位置, [截取長度]<br /><br />註:開始位置由 0 計數起,若開始位置之值為負整數,則由字串結尾開始計算截取位置,<br />比如:-1 表示最後一個字元開始截
2010-06-29 11:13:00 2698 1
原创 解决perl 调用system返回值问题
<br />测试脚本如下:<br /> <br />my $run_app_path = "c://exit_value.pl";<br />my $ret_val = system( $run_app_path );<br />print "system value is : $ret_val/n";<br />$ret_val = $ret_val >> 8;<br />print "return value is : $ret_val/n";<br />exit 0;<br /> <br /> <br
2010-06-23 08:03:00 5548
原创 Perl 检测 MD5 安全可靠用法
<br />sub checkMD5()<br /> {<br /> my ( $md5val,$scan_file) = @_;<br /> if ( $md5val !~ /[0-9a-f]{32}/i) { die "invalid md5 value./n"; }<br /> if( ! -e $scan_file ) { print "No updateX file exist. /n"; return -1 ;}<br /> <br /> print "/n<<<<<
2010-06-22 17:03:00 1010
原创 常用脚本 – perl监控windows
<br /> #!/usr/bin/perluse IO::Socket;use IO::File;use MIME::Base64; ############################### Constant define (configure)############################### mail configuse constant MAIL_ADDR =>('to'=>'webmaster@example.com','from'=>'webmaste
2010-06-12 19:18:00 1523
原创 常用脚本 – perl登陆
此脚本的主要功能为:<br />1、利用perl的LWP模块登陆指定的网站。<br />2、返回登录是否成功的状态。use strict;use warnings;use LWP::UserAgent;use HTTP::Cookies;$_=@ARGV;if($_!=2){print"请输入正确的参数n";print"login.pl 用户名 密码";}else{my$user=$ARGV[0];my$pwd=$ARGV[1];&login($user,$pwd);} sub login{my(
2010-06-12 19:16:00 1227
原创 转载 : 关于perl中的反引号(``),system和exec
<br />关于perl中的反引号(``),system和exec2010-02-25 10:58<br /> <br />在perl中反勾号(``),system和exec都用来执行命令,这篇文章将给我们介绍它们各自的使用方法,联系,以及区别。 一、使用方法 1. 反勾号(``) 首先,我们有命令输入操作符,也叫反勾号操作符,因为它看起来象这样: $info = `finger $user`; 一个用反勾号(技术上叫重音号)引起的字串首先进行变量替换,就象一个双引号引起的字串一样。得到的结果然后被系统当作
2010-06-07 16:39:00 844
原创 perl 修改文件内容
<br />use strict;<br />use warnings;<br /> my $file_name ="E://fred03.dat";<br /> open FILE , $file_name or die "[Error] to open file$!" ;<br /> my $date = localtime();<br /> $^I =" .bak ";<br /> <br /> while(<FILE>){<br /> s/^Author:.*/Author: Randal L.
2010-06-07 09:50:00 2458 1
原创 perl 命令行接受参数 ARGV数组用法
<br />my $pmum=0;<br />my $argc = scalar( @ARGV );<br />if ( $argc < 2) {print "/n/te.g. upload_rec_v2.pl -server taibei/n"; exit 100; }<br />my $srvName="";<br />foreach (@ARGV)<br />{<br /> print "the $pmum is : $_/n";<br /> if ($_ =~ /^/-server$/i) {<
2010-06-07 09:10:00 7564
Apriori算法_数据挖掘技术的研究
2012-02-14
罗斯文数据库 基于Access的示例数据库
2011-06-03
perl 创建子进程,解析XML文件
2010-04-13
在perl 中create MD5
2010-04-09
PHP 中英文手册全收集
2010-02-01
发送文本数据至远端的HTTP server
2010-01-21
用VC实现 精简的小计算器
2009-12-15
MFC 实现文件夹的浏览
2009-11-09
MFC ADO Database programming(30多页的ppt )
2009-11-03
DHTML之:DIV+CSS 轻松入门入门 每一章节均配带实例讲解
2009-10-16
JavaScript入门实例之设计注册页面
2009-10-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人