Reading parameter file 1

[Filipvdr]

Hello, i'm new at this so this could be a stupid question.

So i need to read parameters out of a file

paramater.txt looks like this:
user = OWBREPOS
paswoord = OWBREPOS
host = Filip
service = FILIP2
project = MY_PROJECT
moduleA = BI_module

it should be
$user with value OWBREPOS
$host with value Filip

thanks in advance

 

[feherke]

Hi

Personally I would use an array :

[b]set[/b] fil [teal][[/teal][b]open[/b] [green][i]"paramater.txt"[/i][/green] r[teal]][/teal]

[b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$fil[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
  [b]set[/b] part [teal][[/teal][b]split[/b] [teal][[/teal][b]gets[/b] [navy]$fil[/navy][teal]][/teal] [green][i]"="[/i][/green][teal]][/teal]
  [b]set[/b] conf[teal]([[/teal][b]string[/b] trimright [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]0[/purple][teal]]])[/teal] [teal][[/teal][b]string[/b] trimleft [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]1[/purple][teal]]][/teal]
[teal]}[/teal]

[b]close[/b] [navy]$fil[/navy]

[b]puts[/b] [green][i]"user : $conf(user)"[/i][/green]
[b]puts[/b] [green][i]"host : $conf(host)"[/i][/green]

user : OWBREPOS
host : Filip

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

works great, thanks.
next step is to make the parameter file as following:

# General Parameters
user = OWBREPOS
host = filip

# Other Parameters

==> so i need something to say: skip the white lines and the lines with a #
==>i could use your function trimleft i think? any hints are welcome, i will try this first myself

 

[feherke]

Hi

You could just use the previous code and ignore the garbage accumulated in $conf.

[b]set[/b] fil [teal][[/teal][b]open[/b] [green][i]"paramater.txt"[/i][/green] r[teal]][/teal]

[b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$fil[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
  [highlight][b]set[/b] line[/highlight] [teal][[/teal][b]gets[/b] [navy]$fil[/navy][teal]][/teal]
  [highlight][b]if[/b] [teal]{[/teal][navy]$line[/navy][teal]==[/teal][green][i]""[/i][/green] [teal]||[/teal] [teal][[/teal][b]string[/b] range [navy]$line[/navy] [purple]0[/purple] [purple]0[/purple][teal]]==[/teal][green][i]"#"[/i][/green][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal][/highlight]
  [b]set[/b] part [teal][[/teal][b]split[/b] [highlight][navy]$line[/navy][/highlight] [green][i]"="[/i][/green][teal]][/teal]
  [b]set[/b] conf[teal]([[/teal][b]string[/b] trimright [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]0[/purple][teal]]])[/teal] [teal][[/teal][b]string[/b] trimleft [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]1[/purple][teal]]][/teal]
[teal]}[/teal]

[b]close[/b] [navy]$fil[/navy]

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

nice, thanks

my goal is to create a parameter file with differenct sections
the global variables i always need to connect

then i have mapping variables, or table variables
and in tcl script A i need global + mapping
but in script B i need global + table

any suggestions how i should handle this?

 

[feherke]

Hi

and in tcl script A i need global + mapping
but in script B i need global + table

You mean, to not load the entire configuration, just the given sections ?

So how are the sections delimited ? Only those comments ? Personally I prefer the ini notation with brackets ( [] ), like [section name].

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

indeed, load the given sections

parameter file looks like this atm:

################################################################################
# Oracle Warehouse Builder Parameter File #
# TEST #
# OMBPlus #
# OMBPlus #
################################################################################

################################################################################
# GLOBALE VARIABELs #
################################################################################

user = OWBREPOS
password = OWBREPOS
host = Filip
service = FILIP2
project = MY_PROJECT
port = 1522
moduleA = DWH_MODULE

################################################################################
# MAPPING VARIABELs #
################################################################################

module = name

 

[feherke]

Hi

I do not really like that, as there is no clear difference between section names and comments. Anyway.

[b]proc[/b] loadconf [teal]{[/teal]name section[teal]}[/teal] [teal]\[/teal]
[teal]{[/teal]
  [b]global[/b] conf

  array unset conf

  [b]set[/b] needed [purple]0[/purple]

  [b]set[/b] fil [teal][[/teal][b]open[/b] [navy]$name[/navy] r[teal]][/teal]

  [b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$fil[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
    [b]set[/b] line [teal][[/teal][b]gets[/b] [navy]$fil[/navy][teal]][/teal]
    [b]if[/b] [teal]{[/teal][navy]$line[/navy][teal]==[/teal][green][i]""[/i][/green] [teal]||[/teal] [teal][[/teal][b]string[/b] range [navy]$line[/navy] [purple]0[/purple] [purple]1[/purple][teal]]==[/teal][green][i]"##"[/i][/green][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] range [navy]$line[/navy] [purple]0[/purple] [purple]0[/purple][teal]]==[/teal][green][i]"#"[/i][/green][teal]}[/teal] [teal]{[/teal]
      [b]set[/b] needed [purple]0[/purple]
      [b]foreach[/b] one [navy]$section[/navy] [teal]{[/teal]
        [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] first [navy]$one[/navy] [navy]$line[/navy][teal]]!=-[/teal][purple]1[/purple][teal]}[/teal] [teal]{[/teal] [b]set[/b] needed [purple]1[/purple] [teal]}[/teal]
      [teal]}[/teal]
      [b]continue[/b]
    [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][navy]$needed[/navy][teal]==[/teal][purple]0[/purple][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]set[/b] part [teal][[/teal][b]split[/b] [navy]$line[/navy] [green][i]"="[/i][/green][teal]][/teal]
    [b]set[/b] conf[teal]([[/teal][b]string[/b] trimright [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]0[/purple][teal]]])[/teal] [teal][[/teal][b]string[/b] trimleft [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]1[/purple][teal]]][/teal]
  [teal]}[/teal]

  [b]close[/b] [navy]$fil[/navy]
[teal]}[/teal]

loadconf [green][i]"paramater.txt"[/i][/green] [teal]{}[/teal]

[b]puts[/b] [teal][[/teal]array names conf[teal]][/teal]

loadconf [green][i]"paramater.txt"[/i][/green] [teal]{[/teal][green][i]"GLOBALE VARIABELs"[/i][/green][teal]}[/teal]

[b]puts[/b] [teal][[/teal]array names conf[teal]][/teal]

loadconf [green][i]"paramater.txt"[/i][/green] [teal]{[/teal][green][i]"MAPPING VARIABELs"[/i][/green][teal]}[/teal]

[b]puts[/b] [teal][[/teal]array names conf[teal]][/teal]

loadconf [green][i]"paramater.txt"[/i][/green] [teal]{[/teal][green][i]"GLOBALE VARIABELs"[/i][/green] [green][i]"MAPPING VARIABELs"[/i][/green][teal]}[/teal]

[b]puts[/b] [teal][[/teal]array names conf[teal]][/teal]

port service host moduleA project password user
module
port service module host moduleA project password user

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

yes, you're right. this way you can't make comments
what is a better way?

I was thinking about:
################################################################################
# GLOBAL VARIABELs #
################################################################################

[START_GLOBAL]

user = OWBREPOS
password = OWBREPOS
host = Filip
service = FILIP2
project = MY_PROJECT
port = 1522

[END_GLOBAL]

if you have better suggestion, name it

 

[feherke]

Hi

Well, unless you want multilevel data structure, like this :

[START_GLOBAL]

[START_GLOBAL_HUMAN_INFO]
user = OWBREPOS
password = OWBREPOS
[END_GLOBAL_HUMAN_INFO]

[START_GLOBAL_MACHINE_INFO]
host = Filip
service = FILIP2
port = 1522
[END_GLOBAL_MACHINE_INFO]

project = MY_PROJECT

[END_GLOBAL]

I see no need to mark the end of the section. It simply ends where the next one starts.

So I would modify the file like this :

################################################################################
#                 GLOBALE VARIABELs                   #            
################################################################################

[highlight][GLOBALE VARIABEL][/highlight]
user = OWBREPOS
password = OWBREPOS
host = Filip
service = FILIP2
project = MY_PROJECT
port = 1522
moduleA = DWH_MODULE

################################################################################
#                 MAPPING VARIABELs                   #            
################################################################################

[highlight][MAPPING VARIABEL][/highlight]
module = name

And the script like this :

[b]proc[/b] loadconf [teal]{[/teal]name section[teal]}[/teal] [teal]\[/teal]
[teal]{[/teal]
  [b]global[/b] conf

  array unset conf

  [b]set[/b] needed [purple]0[/purple]

  [b]set[/b] fil [teal][[/teal][b]open[/b] [navy]$name[/navy] r[teal]][/teal]

  [b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$fil[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
    [b]set[/b] line [teal][[/teal][b]gets[/b] [navy]$fil[/navy][teal]][/teal]
    [b]if[/b] [teal]{[/teal][navy]$line[/navy][teal]==[/teal][green][i]""[/i][/green] [teal]||[/teal] [teal][[/teal][b]string[/b] range [navy]$line[/navy] [purple]0[/purple] [purple]0[/purple][teal]]==[/teal][green][i]"#"[/i][/green][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] match [teal]{[/teal][teal]\[?*\]*[/teal][teal]}[/teal] [navy]$line[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
      [b]set[/b] needed [purple]0[/purple]
      [b]foreach[/b] one [navy]$section[/navy] [teal]{[/teal]
        [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] first [navy]$one[/navy] [navy]$line[/navy][teal]]==[/teal][purple]1[/purple][teal]}[/teal] [teal]{[/teal] [b]set[/b] needed [purple]1[/purple] [teal]}[/teal]
      [teal]}[/teal]
      [b]continue[/b]
    [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][navy]$needed[/navy][teal]==[/teal][purple]0[/purple][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]set[/b] part [teal][[/teal][b]split[/b] [navy]$line[/navy] [green][i]"="[/i][/green][teal]][/teal]
    [b]set[/b] conf[teal]([[/teal][b]string[/b] trimright [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]0[/purple][teal]]])[/teal] [teal][[/teal][b]string[/b] trimleft [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]1[/purple][teal]]][/teal]
  [teal]}[/teal]

  [b]close[/b] [navy]$fil[/navy]
[teal]}[/teal]

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

proc loadconf {name section} \
{
global conf
array unset conf
set needed 0
set fil [open $name r]
while {![eof $fil]} {
set line [gets $fil]
if {$line=="" || [string range $line 0 0]=="#"} { continue }
if {[string match {\[?*\]*} $line]} {
set needed 0
foreach one $section {
if {[string first $one $line]==1} { set needed 1 }
}
continue
}
if {$needed==0} { continue }
set part [split $line "="]
set conf([string trimright [lindex $part 0]]) [string trimleft [lindex $part 1]]
}
close $fil
}
loadconf "C:/parameter.txt" {}
puts [array names conf]
# loadconf "paramater.txt" {"STARTGLOBAL"}
# puts [array names conf]
# loadconf "paramater.txt" {"STARTMODULES"}
# puts [array names conf]
# loadconf "paramater.txt" {"STARTGLOBAL" "STARTMODULES"}
# puts [array names conf]

this is my code now..
but it gives an error: "conf isn't an array

 

[feherke]

Hi

but it gives an error: "conf isn't an array"

Hmm... In which line ? It works for me.

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

array unset conf

 

[feherke]

Hi

And what happens if you [tt]set[/tt] it immediately before ?

[b]proc[/b] loadconf [teal]{[/teal]name section[teal]}[/teal] [teal]\[/teal]
[teal]{[/teal]
  [b]global[/b] conf
  [highlight]array [b]set[/b] conf [teal]{}[/teal][/highlight]
  array unset conf
  [b]set[/b] needed [purple]0[/purple]
  [b]set[/b] fil [teal][[/teal][b]open[/b] [navy]$name[/navy] r[teal]][/teal]
  [b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$fil[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
    [b]set[/b] line [teal][[/teal][b]gets[/b] [navy]$fil[/navy][teal]][/teal]
    [b]if[/b] [teal]{[/teal][navy]$line[/navy][teal]==[/teal][green][i]""[/i][/green] [teal]||[/teal] [teal][[/teal][b]string[/b] range [navy]$line[/navy] [purple]0[/purple] [purple]0[/purple][teal]]==[/teal][green][i]"#"[/i][/green][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] match [teal]{[/teal][teal]\[?*\]*[/teal][teal]}[/teal] [navy]$line[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
      [b]set[/b] needed [purple]0[/purple]
      [b]foreach[/b] one [navy]$section[/navy] [teal]{[/teal]
        [b]if[/b] [teal]{[/teal][teal][[/teal][b]string[/b] first [navy]$one[/navy] [navy]$line[/navy][teal]]==[/teal][purple]1[/purple][teal]}[/teal] [teal]{[/teal] [b]set[/b] needed [purple]1[/purple] [teal]}[/teal]
      [teal]}[/teal]
      [b]continue[/b]
    [teal]}[/teal]
    [b]if[/b] [teal]{[/teal][navy]$needed[/navy][teal]==[/teal][purple]0[/purple][teal]}[/teal] [teal]{[/teal] [b]continue[/b] [teal]}[/teal]
    [b]set[/b] part [teal][[/teal][b]split[/b] [navy]$line[/navy] [green][i]"="[/i][/green][teal]][/teal]
    [b]set[/b] conf[teal]([[/teal][b]string[/b] trimright [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]0[/purple][teal]]])[/teal] [teal][[/teal][b]string[/b] trimleft [teal][[/teal][b]lindex[/b] [navy]$part[/navy] [purple]1[/purple][teal]]][/teal]
  [teal]}[/teal]
  [b]close[/b] [navy]$fil[/navy]
[teal]}[/teal]

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

same errormessage at same line

 

[feherke]

Hi

same errormessage at same line

By "same line" you mean
[ul]
[li]the same line by number ( now containing [tt]array set conf {}[/tt] )[/li]
[li]the same line by content ( just moved one line down after insertion )[/li]
[/ul]
By the way, are you using that $conf somewhere else in your script ?

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

the same line by content

proc loadconf {name section} \
{
global conf
array set conf {}
puts "Test"
array unset conf
puts "Test2"...

it only displays Test

I use $conf when i declare my variables
set user $conf(user)
set host $conf(host)
set pass $conf(password)
set service $conf(service)
set project $conf(project)
set moduleA $conf(mod)
set port $conf(port)

thanks!!!

 

[feherke]

Hi

Very strange. What Tcl version you have ?

Feherke.

http://free.rootshell.be/~feherke/

 

[Filipvdr]

i have no idea, i make my tcl files in notepad++ and i run them via OMBPlus (i have to make some scripts for oracle warehouse builder)

 

[feherke]

Hi

Ok, got you.

Will you need to call loadconf multiple times in the same script, with different parameters ? If not, you can simply remove the [tt]array unset[/tt] line. It is there just to clear $conf in case it was used previously with other parameters.


Feherke.

http://free.rootshell.be/~feherke/