Return to chgkfiles.pm CVS log

Up to [Local Repository] / db / prgsrc

Adding Roma 7's files

    1: package chgkfiles;
    2: use DBI;
    3: use Exporter;
    4: use vars qw(@ISA @EXPORT);
    5: @ISA=qw(Exporter);
    6: 
    7: @EXPORT = qw(&input_files &output_files &mywrite &auto_message 
    8:             &myprint &config_error &getstring);
    9: 
   10: 
   11: BEGIN {do "chgk.cnf"};
   12: 
   13: my %prt;
   14: 
   15: sub auto_message
   16: {
   17:   my $time=localtime;
   18:   my $f=$_[0];
   19: 
   20:   print $f "# This file is automatically generated at $time by $_[1]\n";
   21: }
   22: 
   23: sub mywrite
   24: {
   25:   (my $file, %prt)=@_;
   26:   write $file;
   27: }
   28: 
   29: sub myprint
   30: {
   31:   (my $file, @prt)=@_;
   32:   print $file @prt;
   33: }
   34: 
   35: sub setcount
   36: {
   37:   $c=shift
   38: }
   39: 
   40: sub setword
   41: {
   42:   $word=shift
   43: }
   44: 
   45: 
   46: sub getstring #берёт первую
   47: {
   48: 
   49:    if ($#_>=1) { $a=$_[1]; $pattern=qr/$_[0]/}
   50:    else {$a=$_[0]; $pattern=qr/\s+/};
   51:    do
   52:    {   
   53:      $b=<$a>;
   54:      $b =~ s/^\s+//g;
   55:      $b =~ s/\s+$//g;
   56:      $b =~ s/\#.*$//g;
   57:    }
   58:    until (($b ne '')||eof($a));
   59: 
   60: 
   61:   $b ? split(/$pattern/, $b):undef;
   62: }
   63: 
   64: sub config_error()
   65: {
   66:   "Can not open $_[0] file ${$_[0]}. Check your config.pl";
   67: }
   68: 
   69: 
   70: 
   71: sub input_files
   72: {
   73:     foreach $file (@_) 
   74:     {
   75:           my $f=lc $file;
   76:           open($file, "<$$f") or die "Can not open $file file $$f. Check your chgk.cnf\n";
   77:     }
   78: }
   79: 
   80: sub output_files
   81: {
   82:     foreach $file (@_) 
   83:     {
   84:           my $f=lc $file;
   85:           open($file, ">$$f") or die "Can not open $file file $$f. Check your chgk.cnf\n";
   86:     }
   87: }
   88: 
   89: format WORDLIST =
   90: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   91: $prt{c}, $prt{word}
   92: .
   93: 
   94: 	
   95: format DWORDLIST =
   96: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   97: $prt{c}, $prt{word}
   98: .
   99: 
  100: format VWORDLIST =
  101: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  102: $prt{c}, $prt{word}
  103: .
  104: 
  105: 
  106: format EWORDLIST =
  107: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  108: $prt{c}, $prt{word}
  109: .
  110: 
  111: format KWORDLIST =
  112: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  113: $prt{c}, $prt{word}
  114: .
  115: 
  116: 
  117: 
  118: format TABLE =
  119: @<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  120: $prt{word}, $prt{nf}, $prt{flag}
  121: .
  122: 
  123: format NEWTABLE =
  124: @<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  125: $prt{word}, $prt{nf}
  126: .
  127: 
  128: 
  129: 
  130: format NF =
  131: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  132: $prt{c}, $prt{word}, $prt{flag}
  133: .
  134: 
  135: format NEWNF =
  136: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  137: $prt{c}, $prt{word}
  138: .
  139: 
  140: 
  141: format ERRORS =
  142: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  143: $prt{c}, $prt{word}
  144: .
  145: 
  146: format NEWERRORS =
  147: @####### @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  148: $prt{c}, $prt{word}
  149: .
  150: 
  151: format VERSIONS =
  152: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  153: $prt{c}, $prt{word}, $prt{k}
  154: .
  155: 
  156: format EQUALS =
  157: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  158: $prt{first}, $prt{second}
  159: .
  160: 
  161: format IN2OUT =
  162: @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  163: $prt{in}, $prt{out}
  164: .
  165: 
  166: format CTABLE =
  167: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  168: $prt{word}, $prt{number}
  169: .
  170: 
  171: format CNF =
  172: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  173: $prt{kvo}
  174: .
  175: 
  176: format ALIKE  =
  177: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  178: $prt{first}, $prt{second}
  179: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
  180: $prt{first}, $prt{second}
  181: .
  182: 
  183: 
  184: 1;
  185: 
  186: __END__