mkfiles

来自「ATM 网 络 协 议 实 现 源 代 码」· 代码 · 共 22 行

#!/usr/bin/perl
open(IN,"README") || die "open README: $!";
while (<IN>) {
    if (/^---\s*(\S+)\s*/) {
	if ($writing) {
	    close OUT || die "close: $!";
	    $writing = 0;
	}
	next if $1 eq "-";
	open(OUT,">$1") || die "create $1: $!";
	$writing = 1;
	next;
    }
    print OUT $_ || die "write: $!" if $writing;
}
close OUT || die "close: $!" if $writing;
for (@do) {
    print "$_\n";
    system($_);
    sleep(1);
}