Help for this page

Select Code to Download


  1. or download this
    @xreflines=<XREF>;
#remove the blank lines from the araary
@xreflines = grep /\S/, @xreflines;
  2. or download this
        $x=grep /$xrefvalue/, @xreflines;
  3. or download this
    my %xreflines = map { /(\d+)/, 1 } <XREF>;

...
        print XFILE "$line \n";
    }