叮咚

==================================================

AREF Structure.....: CELL_A

Insert Point.......: 0,0

Number of Columns..: 10

Column Pitch.......: 30

Number of Rows.....: 20

Row Pitch..........: 55

==================================================

#!/usr/bin/perl -w  # csh檔頭

use strict;

my $txtfile="./circle_A.ctxt";

open(FH, $txtfile)||die "Can't open $txtfile for reading!\n";

print "CTXT File $txtfile\n";

my @arr;

while(my $line=<FH>){

  if ($line=~/^AREF/){  # =~ 含括;

    $_=$line;s/\(|\,|\)/ /g;$line=$_;  #預設變數 $_

    @arr=split(/\s+/, $line);

  }

}

#for (my $i=0; $i <=$#arr; $i++){

#}

print '='x50,"\n";

print "AREF Structure.....: $arr[1]\n";

print "Insert Point.......: $arr[2],$arr[3]\n";

print "Number of Columns..: $arr[4]\n";

print "Column Pitch.......: $arr[5]\n";

print "Number of Rows.....: $arr[7]\n";

print "Row Pitch..........: $arr[9]\n";

print '='x50,"\n";

close(FH);

#!/usr/bin/perl -w

use strict;

##Generate ctxt file -----------------------------------------------------

my $stru_top='TOP';

my $stru_cellA='CELL_A';

my $in_point='0,0';

my $laye='1';

print "Please enter the divided sides: ";

chomp(my $num=<>);

print "Please enter the radius: ";

chomp(my $r=<>);

print "Please enter the number of column: ";

chomp(my $col=<>);

print "Please enter the pitch of column: ";

chomp(my $col_pitch=<>);

print "Please enter the number of row: ";

chomp(my $row=<>);

print "Please enter the pitch of row: ";

chomp(my $row_pitch=<>);

my $txtfile="./circle_A.ctxt";

open(F_CA, ">$txtfile") or die "Can't write to $txtfile: error $!\n";

print F_CA 'TEXTLIB 9.0.0',"\n";

print F_CA 'BEGLIB',"\n";

print F_CA '!',"\n";

print F_CA "STRUCT $stru_top\n";

print F_CA "AREF $stru_cellA \($in_point\) $col\($col_pitch,0\) $row\(0,$row_pitch\)\n";

print F_CA 'ENDSTRUCT',"\n";

print F_CA '!',"\n";

print F_CA "STRUCT $stru_cellA\n";

print F_CA "LAYER $laye\n";

print F_CA "B ";

  for(my $i=1;$i<=$num;$i++){

    my $arc=(3.1415/180)*(360/$num)*$i;

    my $x=sprintf("%.3f", $r*cos($arc));  #X方向座標

    my $y=sprintf("%.3f", $r*sin($arc));  #Y方向座標

    print F_CA "$x,$y ";

  }

print F_CA " ENDB\n";

print F_CA 'ENDSTRUCT',"\n";

print F_CA '!',"\n";

print F_CA 'ENDLIB',"\n";

close(F_CA);

print "output $txtfile\n";

##Generate ctxt file <END>--------------------------------------------------

##Generate csh file -----------------------------------------------------------

my $cshfile="./circle_A.csh";

my $clibfile="./circle_A.clib";

open (F_CSH, ">$cshfile") or die "Cannot write to $cshfile: $!\n";

print F_CSH '#!/bin/csh/ -f',"\n";

print F_CSH "textlib << TL_!\n";

print F_CSH "$txtfile\n";

print F_CSH "$clibfile\n";

print F_CSH 'TL_!',"\n";

close(F_CSH);

print "generate $cshfile\n";

##Generate csh file <END>---------------------------------------------------

`csh $cshfile`;   #鍵盤左方的 `

print "convert to $clibfile\n";

##Open cinc file by cats-------------------------------------------------------

my $cincfile="./circle_A.cinc";

open (F_CINC, "> $cincfile") or die "Cannot write to $cincfile: $!\n";

print F_CINC "Allocate_rects 1000000\n";

print F_CINC "Allocate_traps 1000000\n";

print F_CINC "Allocate_space 300000000\n";

print F_CINC "Format FLAT\n";

print F_CINC "Compact REDO\n";

print F_CINC "Join NO\n";

print F_CINC "Rule EXTEND\n";

print F_CINC "Border OUTSIDE\n";

print F_CINC "Resolution 0.01\n";

print F_CINC "Input $clibfile\n";

print F_CINC "Structure $stru_top\n";

print F_CINC "Layers $laye\n";

print F_CINC "ext\n";

print F_CINC "\nset view primary enable\n";

print F_CINC "set solid_fill primary on\n";

print F_CINC "set color primary file\n";

print F_CINC "set draw_mode primary input\n";

print F_CINC "set view_bound primary off\n";

print F_CINC "draw\n";

close(F_CINC);

print "include $cincfile\n";

system('xterm','-geometry','110x25','-e','cats',$cincfile);

##Open cinc file by cats <END>----------------------------------------------

Please enter a value of width(1-100): 44

Please enter a value of height(1-30): 5

********************************************

********************************************

********************************************

********************************************

********************************************

my $v1=1;

my $v2=1;

my $val_w;

my $val_h;

while ($v1==1){

  print "Please enter a value of width(1-100): ";

  chomp($val_w=<>);

  $v1=0;

  if($val_w<=0 or $val_w>100 or $val_w != int($val_w)){

    $v1=1;

  }

}

while ($v2==1){

  print "Please enter a value of height(1-30): ";

  chomp($val_h=<>);

  $v2=0;

  if($val_h<=0 or $val_h>30 or $val_h != int($val_h)){

    $v2=1;

  }

}

print "\n";

for (my $i=1;$i<=$val_h;$i++){

  print '*'x $val_w,"\n";

}

print "\n";

% arrstr.pl   today     is    a     nice    day   !

執行結果

string= todayisaniceday!