champwang

[Perl]对*.zip文件操作的记录(1)今天要对*.zip文件进行简单的操作，如解压缩，提取某只文件等。来这里记录下，以免忘记。首先，加个帽子：#!perluse strict;use warnings;#報告更詳細的問題描述，等同 perl - Mdiagnostics ./my-program.pluse diagnostics;#Provide an interface to 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$/

[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

根据当前时间来创建文件夹执行以下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) =

在windows 系统上 写了个perl脚本来给 android 手机做压力测试。但是放到linux 系统上work 起来不是很友好。该脚本放到 ubuntu 1204 64bit 系统上执行时会报如下错误：$ ./adb_script.plbash: ./adb_script.pl: /usr/bin/perl^M: bad interpreter: No s