Ydoing的专栏

#!/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

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";#向文件写入内容