All pastes #340092 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-02-04 15:15 UTC
rendered paste body
#!/usr/bin/perl

      use File::Copy;

      open TREEFILE, $args[0];

      TREE: while (<TREEFILE>) {

                next TREE if /^#/;
                next TREE if /^ *$/;

                @srcfiles = split(/:/);
                chomp @srcfiles;