Skip to content

Latest commit

 

History

History
266 lines (217 loc) · 8.39 KB

msg.md

File metadata and controls

266 lines (217 loc) · 8.39 KB
Raw

2021.05.14 [-b master] add special character ^ $

  • solution :
    • change recover_special_code & change_special_code()

2021.05.05 [-b master] ITERATEWithoutNewLine is working well

  • old problem : we can not proess ITERATEWithoutNewLIne when we have IFEQUAL in iterate.
  • solution :
    • keep the same style with ITERATE.
    • but , we put $tagWithoutNewLineStart and $tagWithoutNewLineEnd
    • at the end of CChanage , we remove caridge return. we can show the result in one line.

2020.12.27 [-b master] bug fix using isDefinedHash : if we access multi-dimension hash , this hash was made when it access.

  • solve #60
  • isDefinedHash does not define the room for this hash.
our %macro = {};
if(isDefinedHash("macro{test}{0}") eq ""){
  print "it is not accessed\n but $macro{test} was defined\n";
}
foreach my $key (keys %macro){
  print "$key\n";    # print nothing
}

2020.12.26 [-b 201226/macro] MACRO as word unit (__INMACRO<>) & change INLINEMACRO to __INLINEMACRO

INLINEMACRO -> __INLINEMACRO

- define

stcI_MACRO_START : MACRO_1ARG(TT,TV)
    TT is mine.
    TV is yours.
stcI_MACRO_END

- usage (example)

__INLINEMACRO MACRO_1ARG(ANY1, ANY2)

__INMACRO

- word unit MACRO
- define

stcI_MACRO_START : MACRO_1ARG(TT,TV)

- usage (example)

* add __INMACRO< MACRO_WORD_EX(stcI_empty,PP2) >your function * add __INMACRO< MACRO_WORD_EX(,) >your function

2020.12.25 [-b 201226/macro] add macro

MACRO

  • define MACRO
stcI_MACRO_START : MACRO_1ARG(TT,TV)
====
    TT is mine.
    TV is yours.
---
stcI_MACRO_END
  • use MACRO
__INLINEMACRO MACRO_1ARG(stcI_empty ,)        // Correct
__INLINEMACRO MACRO_1ARG(ANY1, ANY2)
  • make macro

reference/check-value-of-hash.pl : example how to control the keys of hash. - i can not find the solution , but i know the reason.

2020.12.25 [-b master] csv2excel

/csv2excel

csv2excel - implementation

  • 3 stage
    • ===stage 1 : set_color set_width===
    • ===stage 2 : HEADER VARIABLE font===
    • ===stage 3 : HEADER no_data===
    • add Makefile
  • Usage: csv2excel.py [options] -i inputfile(csv) -o outfile(xlsx) ''' Options: -h, --help show this help message and exit -i INFILENAME, --in=INFILENAME read data from csv FILENAME -o OUTFILENAME, --out=OUTFILENAME write data from excel FILENAME -d, --debug print debug message -v, --verbose '''
  • #set_width(auto),10,10,5,auto,10,auto,10,¶
    • change the width of column
    • auto is maximum size of the same column
    • ex) auto , best , number(size)
  • "#(red)this is a single variable not hash. +<+$VARIABLE{""Date""}+>+",,,,,,,,,,,,,,,,,¶
    • this is comments with color of font

  • (green) this is update time of header each file.,,,,,,,,,,,,,,,,,¶

    • this is comments with color of font
  • #set_color(lightgreen),lightblue,lightgreen,lightblue,,,,lightgreen,lightblue,,,orange,
    • change color of column
  • #set_color(lightgreen),orange,lightgreen,orange,,,,lightgreen,lightblue,,,orange,¶
    • change color of column

2020.11.25 [-b 201125/emailProblem] not process well about email address

Solve #52 guess : perl process @ as array. so i change @ to special string before processing. then i recover it when i show the result

modified:   2_replace.pl
modified:   perllib/MY/CHARLES.pm

2020.07.30 [-b master] v1.0.4 skip the copy when host is unreachable.

  • ping -W 1 -c 1 host
  • check return value ( 0 is successful)

2020.07.26 [-b master] v1.0.4 I think this is final update to support sub functions for each module (ex. TIDL)

$ cat m1.pl 
use strict;
sub x { warn "aard"; }
1;

$ cat m2.pl 
use strict;
require "m1.pl";
x();

$ perl m2.pl 
aard at m1.pl line 2.
  • we do not chnange anymore to support special function for TIDL
    • if TIDL has yours.pl , you add --yours=yours.pl after 2_replace.pl
  • add option : --yours perlscript=2_replace.pl Help : --inputstci=[stcI or stc file] default input stc or stcI file name : --outputdb=[output file] default output DB file name : --cga_rdl_version_input=[version file name] default input version file name : if null , we ignore the version between excel version input file and [VARIABLE]Excel_Version in excel file () --debug debug mode : ITERATE IFEQUAL IFNOTEQUAL --debugdetail --debug + ITERATE detail debug mode : ITERATE IFEQUAL IFNOTEQUAL ITERATE detail --original run NO performance mode --nolog print log into /dev/null --yours=[module file name] default is null (not use it) --help

2020.07.14 [-b master] v1.0.4 solve #45 : -o StrictHostKeyChecking=no passes the qeustion yes/no when we connect the host at first.

  • 1_csv.pl 1_excel.pl
    • solve #45 : -o StrictHostKeyChecking=no passes the qeustion yes/no when we connect the host at first.
  • 2_replace.pl
    • add getFunctionName("abc(a,b,c)") => abc
    • add getInitArg("a(a,b,c)" ) => 0,0,0

2020.07.14 [-b master] v1.0.4 solve #45 : backup inputfile (csv or excel) to warehouse

solve #45 : backup inputfile (csv or excel) to warehouse

change options

perl 1_csv.pl --help
Help :
        --input=[input excel file]
                  default input file name : ./1_example.csv
        --excel_version_input=[excel version input file]
                  default excel version of input file name :
                  if null , we ignore the version between excel version input file and [VARIABLE]Excel_Version  in excel file (./1_example.csv)
        --output=[output file with global variables]
                  default output file name : ./default.GV
        --csv_out=[csv output file]
                  default csv output file name : ./1_example.csv
        --python
                  run command with python scripti to backup
        --destinfo=[input file name with info]
                  default : input_file_name
        --id=[host id ]
                  default : tidl
        --passwd=[passwd of id]
                  default : tidl1234
        --host=[host name]
                  default : abc.com
        --location=[warehouse location]
                  default : ~/warehouse/
        --help
  • perl 1_csv.pl --input=./time/Code_Generator.csv --csv_out=./time/o.csv --host=lotto645.abc.com
sshpass -p 'tidl1234' scp ./time/Code_Generator.csv [email protected]:~/warehouse/2020-07-14-13-15-38-cheoljoo.lee-Time-v2.9.5-Code_Generator.csv START
sshpass -p 'tidl1234' scp ./time/Code_Generator.csv [email protected]:~/warehouse/2020-07-14-13-15-38-cheoljoo.lee-Time-v2.9.5-Code_Generator.csv END

2020.07.14 [-b master] v1.0.4 solve #43 : Automatic fill out the empty cell with proper value

solve #43 : we wanna have the same result bwtween Origiand and After table.

Original : we should fill out completely

[HEADER]A [HEADER]B value
receiver1 A One
receiver1 B Two

After : Automatics fill out the form

[HEADER]A [HEADER]B value
receiver1 A One
B Two

add in($a,$b) sub-function : is $b in $a?

200424--------------

  • add in sub-function
  • IFEQUAL("+<+in($modulename,tidl)+>+","")

200401-------------- you can run with csv file instead of xlsx file. First of all , you convert the file into csv file when you have error of perl package for excel. if you use MAC OSX , your csv file will have as one line with ^M. so you can replace ^M with \r\n

support sldd & %+<+$API+>+ and restore $g_y policy (plus)

v1.0.4

  • support sldd
  • support ITERATE %+<+$API+>+ syntax
    • add $iterate_var_name = replace_var_with_value($iterate_var_name);
  • restore $g_y policy (plus)
    • replace_var_with_value does not break becasue break contents to improve speed is impossible to keep the order when we count with plus().