1#!/usr/bin/perl -w 2use strict;3 4#print "please input a string\n";5#my $line = <STDIN>;6#print $line;7 8#wirte a file 9open(FH, ">aa.txt") or die $!;
1011print FH "hello\n";#向文件写入内容12print FH "OK\n";
1314close(FH);
1516#open a file17open(FH, "aa.txt") or die $!;
18my@f = <FH>;#将文件内容读出19print@f;
2021close(FH); 原文:http://www.cnblogs.com/csu_xajy/p/4229270.html
安装 Excel 模块的 PPM 命令ppm> install OLE::Storage_Lite
ppm> install Spreadsheet::ParseExcel
ppm> install Spreadsheet::WriteExcel Windows 示例:解析 #!/usr/bin/perl -w
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const ‘Microsoft Excel‘;
$Win32::OLE::Warn = 3; # die on errors...
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObje...
文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。文件测试操作符-e 测试文件是否存在;die "Oops!A file called ‘$filename‘ already exists.\n" if -e $filename;-M 测试文件是否保持持续的更新,比如测试某个程序的日志文件是否保持每一周或两周更新。此处测试的是文件句柄。warn "Config file is looking pretty old!\n" if -M CONFIG>28;-s 测试文件的大小,以字节计算文件大小。 例子:下面测试的是文...
在对大量文件进行读写时,最好将文件存为gz文件,可以节约读写硬盘的时间,硬盘也不会那么卡。在写gz文件时,最好使用PerlIO::gzip模块。这个模块不用调用gzip命令,减少了程序占用的线程数量,可以有效的降低load。下面是一个例子。#! /usr/bin/env perluse strict;
use warnings;
use List::Util;
use FileHandle;
use PerlIO::gzip;my%fh;my@a=(1..100);
for(my$i=1;$i<=100;$i++){open$fh{$i}, ">:gzip", "x.$i.gz";#open ($fh...
##更新文件内容 #$^I 与 print的关系 $^I=".bak"; 在为文件做bak备份后 while(<>){ . . . print; } 原本文件被改为.bak后缀 同时创建与原本文件名相同的空文件 print出的东西会被输入新的空文件内 #例如 while(1){ $^I=".bak"; print"请输入文件名\n"; $f=<STDIN>; chomp $f; push(@ARGV,$f); while(<>){ ...
题目来源:csaw-ctf-2016-quals题目描述:嗯。。我刚建好了一个网站进入场景后有3个链接,点进去都是.pl文件,.pl文件都是用perl编写的网页文件。尝试后发现,Files链接可以上传文件并把文件内容打印出来。猜想后台应该用了param()函数。param()函数会返回一个列表的文件但是只有第一个文件会被放入到下面的接收变量中。如果我们传入一个ARGV的文件,那么Perl会将传入的参数作为文件名读出来。对正常的上传文件进行修改,可以达到读...
Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。
1. 打开文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings; my $filename = ‘test.txt‘; # 或者用绝对路径,如: c:/perl/Learn/test.txt if(open(MYFILE,$filename)) # MYFILE是一个标志
{ printf "Can open this file:%s!", $filename; close(MYFILE);
}
else{ print "Can‘t open this file!";
}
2. 读取文件
#! c:/perl/bin/perl...
1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件): 复制代码 代码如下:open(FILE,"filename")||die"can not open the file: $!";@filelist=<FILE>;
foreach $eachline (@filelist) { chomp $eachline;}close FILE;@filelist=<FILE>;当文件很大时,可能会出现"out of memory"错误。2. 一次从文件中读取一行,一行行地读取和处理(读取大文件时比较方便): 复制代码 代码如下:open(FILE,"filename")||die"can no...
1.文件测试操作符 针对文件和目录的测试操作符: -r/-w/-x/-o: 文件或目录, 对有效的(负责运行这个程序的)用户或组来说是可读/写/执行/拥有 的; 这些测试位会查看文件的权限位, 以此判断哪些操作是允许的, 如果系统使用访问控制列表(ACL), 那么测试就按列表进行判断, 但是只是测试结果只是操作系统的看法, 但是受实际情况限制, 运行的事未必可行, 如空文件运行运行, 但是并没有什么意义. -R/-W/-X/-O: 文件或目录...
copy#!/usr/bin/perl -w ######################################################################### # File Name: change.pl # Author: xuehuikuaile######################################################################### #$^I变量非空,这个字符就会成为备份文件的扩展名 #修改原文件的同时 会生成备份文件 $^I = ".bak"; while(<>){ s/testxxx/testaaa/gm; print; } 运行方法: ./change.pl *....
(求帮忙)php,perl等脚本软件分割一个文件为多个TXT文件的问题。php,perl等脚本软件分割一个文件为多个TXT文件的问题。文件内容如下:IP,MOIndex,className,fdn,latitude,longitude,matchVersion,name,neID,neType,neVersion,realLatitude,realLongitude,vendorName,10.133.10.21,18,BSC6000NE,.3221229568.3221233664.3221291023,281.0,524.0,iManagerM2000_BSC6000_MATCH_CHS_V200R008C12SPC025,BJ-HW-BSC03,18,BSC6000,BSC6000V9...
经常会遇到下载的文件或电子书,名字中间都包含了一些网址信息,实际使用中由于名字太长不方便,下面的脚本使用正则表达式来对目录下的所有文件重命名:
例如:
修改前:[脚本之家]Mac OS X for Unix Geeks[www.gxlcms.com].mobi
修改后:Mac OS X for Unix Geeks.mobi
python代码如下:代码如下:
import os
import re
def rename_dir(dir,regex,f):if not os.path.isdir(dir) or not os.path.exists(dir) : print("The input is no...
********************需要根据自己的实际环境修改哦****************************
********************
1. 收集awr报告样本 awrreport.sql
--该脚本请用具有 dba 权限的用户执行,普通用户没有权限访问数据库的基表
conn &usr/ &pass @ &oracle_sid
set linesize 1200 ;set pagesize 0;set long 99999;set heading off;--set termout off;set echo off;set feedback off;set timing off;set serveroutput on;
exec dbms_output....
这段时间要忙迁移公司的业务到AWS,上,先简单的写一些,具体的有时间再补充了.... 首先需要下载S3的相关的perl的pm: http://developer.amazonwebservices.com/connect/entry.jspa?externalID=133categoryID=47 #!/usr/bin/perl # Simply connects to my S3这段时间要忙迁移公司的业务到AWS,上,先简单的写一些,具体的有时间再补充了....首先需要下载S3的相关的perl的pm:http://developer.amazonwebservices.com/connect/entry...
1 #!/usr/bin/perl -w2 ##Copyright (C) 2020 by WangZhe3 4 use autodie;5 open my $log_fh,<,xxx.log;6 $match = 0;7 while(<$log_fh>){8 chomp;9 while(/fail/g){
10 $match ++;}
11 }
12 if($match == 0){
13 print("No match");}
14 else{
15 print("Matched $match times in total\n");}
16
xxx.log文件内容:
打印结果:
更改xxx.log文件内容:
打印结果:
若不存在xxx.log文件,...