程嶏清单9-1.txt

< linux网络编程工具>>配套源码

sub cut2fmt {
    my(@positions) = @_;
    my $template   = '';
    my $lastpos    = 1;
    foreach $place (@positions) {
        $template .= "A" . ($place - $lastpos) . " ";
        $lastpos   = $place;
    }
    $template .= "A*";
    return $template;
}
$fmt = cut2fmt(8, 14, 20, 26, 30);
print "$fmt\n";