![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Perl
champwang
阅读是一件快乐的事情。
展开
-
[Perl]对*.zip文件操作的记录<一>
[Perl]对*.zip文件操作的记录(1)今天要对*.zip文件进行简单的操作,如解压缩,提取某只文件等。来这里记录下,以免忘记。首先,加个帽子:#!perluse strict;use warnings;#報告更詳細的問題描述,等同 perl - Mdiagnostics ./my-program.pluse diagnostics;#Provide an interface to ZIP原创 2015-07-08 21:11:10 · 1222 阅读 · 0 评论 -
[Perl]找出目录下面以*.zip结尾的文件
[perl]找出目录下面以*.zip结尾的文件直接上code.#!perluse strict;use warnings;use File::Find;my $local_file = "D:\\temp\\log";sub wanted { if ( -f $File::Find::name ) { if ( $File::Find::name =~ /\.zip$/原创 2015-07-06 21:33:15 · 1590 阅读 · 1 评论 -
[Perl]对 EXCEL 文件进行简单操作
[Perl]对 EXCEL 文件进行简单操作不說廢話,直接上code:#!/usr/bin/perl -wuse strict;use Win32::OLE qw(in with);use Win32::OLE::Const 'Microsoft Excel';$Win32::OLE::Warn = 3;# die on errors...# get already active Excel原创 2015-07-08 23:07:51 · 1307 阅读 · 0 评论 -
[Perl]根据当前时间来创建文件夹
根据当前时间来创建文件夹执行以下code 后,会在脚本所在目录下创建一个文件夹,格式如:user_xxxxxxxx_xxxxxx_hello#!/usr/bin/perluse strict;sub mkdir_by_date{ #print local time my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =原创 2015-07-06 01:26:54 · 1702 阅读 · 0 评论 -
[Linux][ubuntu][Perl]bad interpreter: No such file or directory
在windows 系统上 写了个perl脚本来给 android 手机做压力测试。但是放到linux 系统上work 起来不是很友好。该脚本放到 ubuntu 1204 64bit 系统上执行时会报如下错误:$ ./adb_script.plbash: ./adb_script.pl: /usr/bin/perl^M: bad interpreter: No s原创 2015-09-10 11:06:59 · 811 阅读 · 0 评论