perl 有很多的命令  其中有  -e   是判断文件和目录是否存在 代码如下: #!/usr/bin/perl $fileExist = -e "/var/log/messages"; if ( $fileExist ) { print "Yes" } else { print "No" } 还有以下命令:(请自行测试) 以下为文件测试清单:文件测试测试操作符提供的信息-r文件或目录可读-w文件或目录可写-x文件或目录执行-o文件或目录归用户

main #!/usr/bin/perl my ($path) = @ARGV; sub scan_file{ my @files = glob(@_[0]); foreach (@files){ if(-d $_){ my $path = "$_/*"; scan_file($path); }elsif(-f $_){ print "文件 $_\n"; } } } scan_file($path); 执行脚本 λ perl main "./*"

Perl中文件读取操作 http://blog.csdn.net/yangxuan12580/article/details/51506216

之前使用perl 脚本写了一个读取文件的小工具,但是由于当时使用的Tie 的方式,在处理大文件时,效率并不十分理想,所以在网上搜索了perl 如何操作文件指针的文章,自己也学习一下,本博客就是学习过程中留下的记录. perl 打开文件的方式命令如下,"<"的含义为将test.txt文件的内容重定向到FILE 文件指针中 open FILE, "<", "/opt/test/test.txt"; perl 在操作文件指针时,可以用see

使用Perl合并文件 有时需要将整个目录下的小文件合并到一个文件中,以便查阅检索 特性 整个目录完全遍历,自动存入单个文件 顺序遍历文件 待合并的目录 合并后的文件内容 syscfg/test1 syscfg/test2 uart/uart7/uart7_dma1 uart/uart7/uart7_dma2 wwdg/prescaler Perl代码 #!/usr/bin/perl use warnings; ###########################################

使用Perl分割文件 特性 使用换行作为分界 忽略注释行# 分割存入新指定的文件中 待分割的文件test.lst wwdg/prescaler syscfg/test1 syscfg/test2 uart/uart7/uart7_dma1 uart/uart7/uart7_dma2 分割后的文件结构 Perl代码genlst.pl #!/usr/bin/perl use warnings; ########################################### #cut up f

使用Perl合并文件 有时需要将整个目录下的小文件合并到一个文件中,以便查阅检索 特性 整个目录完全遍历,自动存入单个文件顺序遍历文件 待合并的目录 合并后的文件内容 syscfg/test1 syscfg/test2 uart/uart7/uart7_dma1 uart/uart7/uart7_dma2 wwdg/prescaler Perl代码   #!/usr/bin/perl use warnings; ##########################################

最近在写一个perl函数,把test case 放到配置文件里,读出来然后使用system运行. 我的本意是: 配置文件conf ping -c $count $ip #在主程序中定义$ip和$count 从配置文件中拿出这句ping -c $count $ip 将其在system中执行,其中事先定义好$count=10 $ip="192.168.1.1"; #!/usr/bin/perl -w use strict; my $ip="192.168.1.1"; ;

把test.txt文件中的字符aaa替换成bbb perl -pi -e "s/aaa/bbb/gi" test.txt 把test.txt文件中的字符aaa替换成bbb,并生成一个test.txt.bak的备份文件 perl -pi.bak -e "s/aaa/bbb/gi" test.txt 把当前目录下所有的.txt文件中的字符aaa替换成bbb,并生成相应的.bak的备份文件 find ./ -name "*.txt" | xargs p

Perl中读写文件的方法非常简单,可以使用open或sysopen函数来打开文件,linux下运行perl脚本只需 ./XX.pl 或 perl XX.pl. 读文件 open(文件句柄, "<文件名");或者 open(文件句柄, "文件名"); 如:open (IN, "./test.txt"); while (<IN>) { chomp; #去掉换行符(/n); print $_; #perl将每一行赋给“$_”这样一个内

ansible 的常用模块中没有判定当文件存在或者不存在时,执行某个执行 使用下面方法能简单判定某个文件是否存在 --- - name: judge a file or dir is exits shell: ls /home/sfy ignore_errors: True register: result - shell: echo "file exit" when: result|succeeded - shell: echo "file not exit" w

perl有句格言:There is more than one way to do it.意思就是任何问题用perl都有好几种解决方法.以前处理文件路径的时候都是自己写正则表达式,而用perl的模块来解决则更加迅速.准确. 1). File::Basename 有3个方法:fileparse.basename.dirname. 用法:        ($name,$path,$suffix) = fileparse($fullname,@suffixlist);         $basenam

perl oneline 快速删除文件的前两列代码如下 6 perl -lane 'print join("\t",@F[2..$#F])' test.txt 输出效果

打开url发现有三个链接,点进去都是.pl文件,且只有files可以上传文件. .pl文件都是用perl编写的网页文件 这里上传了又将文件的内容全部打印出来,那么猜想后台应该用了param()函数. param()函数会返回一个列表的文件但是只有第一个文件会被放入到下面的接收变量中.如果我们传入一个ARGV的文件,那么Perl会将传入的参数作为文件名读出来.对正常的上传文件进行修改,可以达到读取任意文件的目的: 这里附上网上大佬们猜测的后台代码: use strict; use warnings

1)文件读取的3中方法   按行读,存入标量 while (<FILE>) { print; } 按行读,存入数组 @array = <FILE>; 读入整个文件 ,存入标量 $string = do { local $/; <FILE>; };   2)读文件实例 open (EP,"/etc/passwd");while (<EP>) {chomp;print "I saw $_ in the password file!\

<pre name="code" class="html">[root@wx03 ~]# cat -n aaa 1 3`13 2 edqae 3 daa 4 313 5 1313 6 1 7 AAAhash1 8 e31 9 dad 10 fad 11 AAAA 12 32131 13 AAA 14 qe 15 dad 16 AAA 17 fdaaf 18 fafa 19 AAAhash2 [root@wx03 ~]# cat q1.pl my @arr

#http://perlmaven.com/open-and-read-from-files #mode operand create truncate#read < #write > yes yes #append >> yes Case 1: Throw an exception if you cannot open the file: use strict; use warnings; my $filename = 'data.txt'; open(my $fh, '<

引子 跟踪perl和python脚本对文件的访问,实际过程中,perl和python解析器在解析完脚本后,直接关闭了 脚本文件,在进程中查询不到是访问文件的脚本文件名称. shell.perl和python脚本执行过程 bash脚本执行过程 脚本内容: #!/usr/bin/env bash echo `date`" hello world!" >> /root/log.txt 使用strace跟踪脚本执行过程,为了节省篇幅,只保留一些关键执行过程: # strace -q

读取标准输入<STDIN> <STDIN>表示从标准输入中读取内容,如果没有,则等待输入.<STDIN>读取到的结果中,如果没有意外,都会自带换行符. 例如,test.plx文件内容: #!/usr/bin/perl # $line=<STDIN>; if($line eq "\n"){ print "blank line\n"; } else { print "not blank: $line"

perl...呵呵呵 按照惯例,.pm 应该保存 Perl Module,也就是 Perl 模块.例如 Socket.pm.pl 应该保存 Perl Library,也就是 Perl 库文件.例如 perldb.pl.plx 应该保存 Perl 脚本. 可是实际上大家都习惯用 .pl 来保存 Perl 脚本. 另外,use 语句会自动搜索后缀为 .pm 的文件,因此如果你想要写一个模块,那么最好还是以 .pm 做后缀好了. .pm文件通常用use module;来加载.pl文件通常用requir