Select Code to Download

$ perl -c pm_11105228.pl
Unrecognized escape \v passed through at pm_11105228.pl line 47.
...
Scalar value @vol_temp[0] better written as $vol_temp[0] at pm_1110522
+8.pl line 41.
Scalar value @vol_temp[0] better written as $vol_temp[0] at pm_1110522
+8.pl line 42.
pm_11105228.pl syntax OK

my $file_name2 = "$in_macro/lib_pg/$in_macro\_$process_two$volt_1\v$te
+mp\_pg.lib";

my $file_name2 = "$in_macro/lib_pg/$in_macro/_$process_two$volt_1/v$te
+mp/_pg.lib";

        my $file_name1 = "lib_pg/$in_macro";
        my $file_name2 = "lib_pg/$in_macro";

my @data = <LIBFILE>;
for (my $j=0; $j<=$#lib_file-1; $j++) {
    my $libline = $lib_file[$j];
    ... do stuff with $libline ...
}

while (my $libline = <$LIBFILE>) {
    ... do stuff with $libline ...
}

if ($pvt_name =~m/^([a-z].*)([0-9]p.*)/) {
    my $process = $1;
...

    my $vol_temp = $2;
    my @vol_temp = split ('v',$vol_temp);

    my $process_two = $1;
    $process_two =~ s/^(..).*/$1/;  # destroys the old value of $2!

if ($pvt_name =~m/^([a-z].*)([0-9]p.*)/) {
    # We capture all the data we want
...
    # now we can just do the work without worrying about using another
+ regular expression
    my $process_two = substr($process, 0, 2); #got ff from ffgp
    my @vol_temp = split ('v',$vol_temp);

use strict;
use warnings;
...

    # After gathering and processing the data, return it!
}

$ perl pm_11105228.pl ffg0p82v100c mnk_alpha
alpha[1]: put cornerData(ffg0p82v100c) {VDD 0.825,VDDQN 1.17,VDDM 1.17
+,TEMP 100}
...
FILE lib_volt: VDDM  1.1
FILE lib_volt: VSS  0
alpha[4]: