plot dc_current

#!/usr/bin/perl

$FILE_NAME = $ARGV[0];
open(h2,">dc.txt");
$i=0; $j=1;

open(SearchFile, "$FILE_NAME");

while(<SearchFile>){
               chop $_;
                             if ($i=="0") {
                                       @x=split(",",$_);
                                       print "first";
                                                  }

                              if($i!="0") {
                                        @y=split(",",$_);
                                         for($j=0; $j<29; $j++) {
                                                       print h2 "@x[$j] @y[$j] \n";
                                                                               }
                                         close (h2);
                                         rename("dc.txt","dc_current_$i");
                                         open(h2,">dc.txt");
                                                   }
$i++;
}
close (h2);

##############  gnuplot ####################
#!/usr/bin/gnuplot
plot [0.4:0.6] "orig25" using 1:2 with linespoints title "TSMC", "aps" using 1:2 with linespoints title "wo APS", "conservative" using 1:2 with linespoints title "conservative"

pause mouse "click any mouse button on selected data point"