Help for this page

Select Code to Download


  1. or download this
        if ($_ =~ $identifier{$pins1.}) {
    
  2. or download this
        $vline =~ s/^\S+//; #trim leading space
    
  3. or download this
    my (undef,$scenario, $pins1, $threshold1, $newthreshold1, $diff, $stat
    +us) = split /\s+/, $wline;
    
  4. or download this
    #! /tools/perl/5.8.8/linux/bin/perl
    
    ...
    
    close $input;
    close $output;