Programming perl
可以建立某章从1到n全部练习文件，并填入部分头。#!/usr/bin/perl
use 5.010;
{
say '输入格式：章数 题目号';
chomp (@arv = <STDIN>);
$i = 1;
while($arv){
$file = "ex$arv-$arv";
$arv--;
`touch $file`;
@head = "#!/usr/bin/perl\nuse 5.010;\n";
open FILE,">$file" || die "Can't open it!:$!";
printf FILE "@head";
close FILE;
say "$i done.";
$i++;
}
`chmod 777 *`;
}
页:
[1]