Chinaunix首页 | 论坛 | 博客
  • 博客访问: 138648
  • 博文数量: 46
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 300
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(46)

文章存档

2018年(18)

2017年(11)

2015年(14)

2014年(3)

我的朋友

发布时间:2015-03-28 15:30:01

open (READ,"<","/misc");open (WRITE,"+<","/misc"); while (my $text = <READ>) {  if ($text =~ m/yyww/)  {   $text =~ s/yyww/aabb/;    ###将所有原件中的yyww内容替换为aabb  }  print WRITE $text;   &n.........【阅读全文】

阅读(1257) | 评论(0) | 转发(0)

发布时间:2015-03-26 23:56:42

#! perl -wuse Archive::Zip qw( :ERROR_CODES :CONSTANTS );my $zip = Archive::Zip->new();  ###创建压缩文件,如果有参数则按读取该文件的内容1.压缩ZIP$zip->addTree("F:/kx_code","123");  unless ( $zip->writeToFileNamed('kx_code.zip') == AZ_OK ) {   die 'write error';}  ##成.........【阅读全文】

阅读(3742) | 评论(0) | 转发(0)

发布时间:2015-03-26 20:39:41

1.先安装dmake    ppm install dmake2.安装MinGw    ppm install MinGw3.安装网络上下载的模块    1.进入解压的目录        cd F:\Tk-DateEntry-1.40\Tk-DateEntry-1.40   2.安装模块开始        perl Makef.........【阅读全文】

阅读(1384) | 评论(0) | 转发(0)

发布时间:2015-03-22 22:26:09

......【阅读全文】

阅读(677) | 评论(0) | 转发(0)

发布时间:2015-03-22 22:25:28

......【阅读全文】

阅读(755) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册