Help for this page

Select Code to Download


  1. or download this
    foreach my $line (<MAKFILE>) {
  2. or download this
            if ($line =~ m/SOURCE=\.\\(.*)$/i) {
  3. or download this
        $fileLst = join " ", @fileLst;
  4. or download this
    sub domkfile {
    my ($fname, @flist)=shift;
...
    push @flist, /SOURCE=\.\\(.*)$/i while <$fh>;
    "@flist";
}
  5. or download this
    sub domkfile {
    my $fname=shift;
    open my $fh, '<', $fname or die "Can't open `$fname': $!\n";
    join ' ' => map /SOURCE=\.\\(.*)$/i, <$fh>;
}