m**i
发帖数: 89 | 1
这里提供几个小程序：
1. 分卷
#!/usr/bin/perl
$pre="vol-";
$num=1;
$file=$pre.$num;
open (OUT, ">$file");
while (<>) {
print OUT $_;
if (/^目录[ ]*/) {
close (OUT);
$num ++;
$num++ if ($num==125);
$file=$pre.$num;
open (OUT, ">$file");
}
}
close (OUT);
2. 获得总目录
#!/usr/bin/perl
open (ff, ">>t1");
$m=0;
while (<>) {
if (/^19[0-9][0-9].*[0-9][0-9]*期.*第[0-9][0-9]*[0-9]*期.*目录/) {
$m = 1; |
|
