摘要：
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... 阅读全文
摘要：
#!/usr/bin/perl -wuse strict;use File::Spec;local $\ ="\n";#当前模块的每行输出加入换行符 my %options;#目录路径$options{single_case} = '/home/jiangyu/src/pl/Example';... 阅读全文