![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Perl
Ydoing
这个作者很懒,什么都没留下…
展开
-
perl 递归地遍历目录下的文件
#!/usr/bin/perl -wuse strict;use File::Spec;local $\ ="\n";#当前模块的每行输出加入换行符 my %options;#目录路径$options{single_case} = '/home/jiangyu/src/pl/Example'; my @cases; if (-d $options{singl原创 2015-03-01 14:14:37 · 5551 阅读 · 1 评论 -
perl 打开和关闭文件
1 #!/usr/bin/perl -w 2 use strict; 3 4 #print "please input a string\n"; 5 #my $line = ; 6 #print $line; 7 8 #wirte a file 9 open(FH, ">aa.txt") or die $!;10 11 print FH "hello\n";#向文件写入内容原创 2015-03-01 14:15:54 · 2331 阅读 · 0 评论