Sponsored Content
Top Forums Shell Programming and Scripting Refering to compound variables with a variable name Post 302740027 by gary_w on Wednesday 5th of December 2012 10:41:28 AM
Old 12-05-2012
I believe you are trying to do something like this. Note you need Korn shell 93::
Code:
$ cat x
#!/usr/dt/bin/dtksh

## Define Compound variables.
cmp_var1=( code=10 desc="hello" )
cmp_var2=( code=20 desc="world" )

## Create array of compound variables.
set -A cmp_varnames cmp_var1 cmp_var2

## Print the descriptions.
for cmp in ${cmp_varnames[*]}
do
  # Use a name reference instead of eval.
  typeset -n mydesc="$cmp.desc"
  print $mydesc
done

exit 0
$ ./x
hello
world
$

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

compound expression in unix

I am using the code below to write a command to launch a script only if the number of users on the system is less than 10. The code below isn't working. Any suggestions? HELP.. if && ; then frizzle ; fi (3 Replies)
Discussion started by: spalmer
3 Replies

2. Shell Programming and Scripting

Trying to use 'compound variable' in a script

Hi there - am newish to shell scripting and would appreciate some advice on this... Am trying to use what I have seen called 'compound variables' in other langs but with no success in my shell script. This is the kind of thing I'm trying to do: base_val=123 stop=3 x=1 while do ... (3 Replies)
Discussion started by: neemic
3 Replies

3. Shell Programming and Scripting

Trying to use 'compound variable' in a script

Erase the space in assigment operator. array_var=`expr $base_val + $x` (1 Reply)
Discussion started by: irina
1 Replies

4. UNIX for Advanced & Expert Users

Compound indirect variable references

Using bash, I'm trying to read a .properties file (name=value pairs), assigning an indirect variable reference for each line in the file. The trick is that a property's value string may contain the name of a property that occurred earlier in the file, and I want the name of the 1st property to... (5 Replies)
Discussion started by: tkrussel
5 Replies

5. Shell Programming and Scripting

Compound command with 'find' utility?

I'm trying to write a script using the 'find' command and it's -exec option to run a compound command against the files found. Example: find . -name "*.conf" -exec cat {} | grep "#" > /tmp/comments.list \; Of course the above doesn't work. So I experimented for a bit to see if there was... (6 Replies)
Discussion started by: deckard
6 Replies

6. Shell Programming and Scripting

awk compound statements

how can i use two or multiple statements in the if part of an awk code for example i want to check two flag if they are true i will write some print operations and increase the counter. here is the c version of the code that i want to write: counter=0; if (flag1==1 && flag2==0) {... (7 Replies)
Discussion started by: gfhgfnhhn
7 Replies

7. Shell Programming and Scripting

compound variable in korn shell

in a text " Korn Shell Unix programming Manual 3° Edition" i have found this sintax to declare a compoud variable: variable=( fild1 (0 Replies)
Discussion started by: ZINGARO
0 Replies

8. Shell Programming and Scripting

compound variable in korn shell

in a text " Korn Shell Unix programming Manual 3° Edition" i have found this sintax to declare a compoud variable: variable=( fild1 fild1 ) but this sintax in ksh and sh (HP-UNIX) not work... why?? exist another solution for this type of variable ??? (5 Replies)
Discussion started by: ZINGARO
5 Replies

9. Shell Programming and Scripting

compound Bash if then statement question

I am writing a Bash script that will either clone a database or setup a standby database. So Parameter 2 will be the operation type. If the value is not clone or standby I want to throw an error message. I suppose I can also do a case block. So far i have been unable to get the syntax working... (1 Reply)
Discussion started by: gandolf989
1 Replies

10. Programming

tcl compound condition

Can anyone explain for me why this does not work in tcl: if !{( $a > "" || $b > "" )} { ....... where a and b are string vars. and this works instead: if {!( $a > "" || $b > "" )} { ........ Thanks. (6 Replies)
Discussion started by: gio001
6 Replies
Pango::FontDescription(3)				User Contributed Perl Documentation				 Pango::FontDescription(3)

NAME
Pango::FontDescription HIERARCHY
Glib::Boxed +----Pango::FontDescription METHODS
fontdescription = Pango::FontDescription->new double = Pango->PANGO_PIXELS ($d) o $d (double) $desc->set_absolute_size ($size) o $size (double) Since: pango 1.8 boolean = $desc->better_match ($old_match, $new_match) o $old_match (Pango::FontDescription or undef) o $new_match (Pango::FontDescription) boolean = $desc1->equal ($desc2) o $desc2 (Pango::FontDescription) string = $desc->get_family $desc->set_family ($family) o $family (string) $desc->set_family_static ($family) o $family (string) fontdescription = Pango::FontDescription->from_string ($str) o $str (string) gravity = $desc->get_gravity Since: pango 1.16 $desc->set_gravity ($gravity) o $gravity (Pango::Gravity) Since: pango 1.16 integer = $desc->hash $desc->merge ($desc_to_merge, $replace_existing) o $desc_to_merge (Pango::FontDescription) o $replace_existing (boolean) $desc->merge_static ($desc_to_merge, $replace_existing) o $desc_to_merge (Pango::FontDescription) o $replace_existing (boolean) double = Pango->pixels ($d) o $d (double) double = Pango->scale double = Pango->scale_large double = Pango->scale_medium double = Pango->scale_small double = Pango->scale_x_large double = Pango->scale_x_small double = Pango->scale_xx_large double = Pango->scale_xx_small fontmask = $desc->get_set_fields integer = $desc->get_size boolean = $desc->get_size_is_absolute Since: pango 1.8 $desc->set_size ($size) o $size (integer) stretch = $desc->get_stretch $desc->set_stretch ($stretch) o $stretch (Pango::Stretch) style = $desc->get_style $desc->set_style ($style) o $style (Pango::Style) string = $desc->to_filename string = $desc->to_string $desc->unset_fields ($to_unset) o $to_unset (Pango::FontMask) variant = $desc->get_variant $desc->set_variant ($variant) o $variant (Pango::Variant) weight = $desc->get_weight $desc->set_weight ($weight) o $weight (Pango::Weight) ENUMS AND FLAGS
flags Pango::FontMask o 'family' / 'PANGO_FONT_MASK_FAMILY' o 'style' / 'PANGO_FONT_MASK_STYLE' o 'variant' / 'PANGO_FONT_MASK_VARIANT' o 'weight' / 'PANGO_FONT_MASK_WEIGHT' o 'stretch' / 'PANGO_FONT_MASK_STRETCH' o 'size' / 'PANGO_FONT_MASK_SIZE' o 'gravity' / 'PANGO_FONT_MASK_GRAVITY' enum Pango::Gravity o 'south' / 'PANGO_GRAVITY_SOUTH' o 'east' / 'PANGO_GRAVITY_EAST' o 'north' / 'PANGO_GRAVITY_NORTH' o 'west' / 'PANGO_GRAVITY_WEST' o 'auto' / 'PANGO_GRAVITY_AUTO' enum Pango::Stretch o 'ultra-condensed' / 'PANGO_STRETCH_ULTRA_CONDENSED' o 'extra-condensed' / 'PANGO_STRETCH_EXTRA_CONDENSED' o 'condensed' / 'PANGO_STRETCH_CONDENSED' o 'semi-condensed' / 'PANGO_STRETCH_SEMI_CONDENSED' o 'normal' / 'PANGO_STRETCH_NORMAL' o 'semi-expanded' / 'PANGO_STRETCH_SEMI_EXPANDED' o 'expanded' / 'PANGO_STRETCH_EXPANDED' o 'extra-expanded' / 'PANGO_STRETCH_EXTRA_EXPANDED' o 'ultra-expanded' / 'PANGO_STRETCH_ULTRA_EXPANDED' enum Pango::Style o 'normal' / 'PANGO_STYLE_NORMAL' o 'oblique' / 'PANGO_STYLE_OBLIQUE' o 'italic' / 'PANGO_STYLE_ITALIC' enum Pango::Variant o 'normal' / 'PANGO_VARIANT_NORMAL' o 'small-caps' / 'PANGO_VARIANT_SMALL_CAPS' enum Pango::Weight o 'thin' / 'PANGO_WEIGHT_THIN' o 'ultralight' / 'PANGO_WEIGHT_ULTRALIGHT' o 'light' / 'PANGO_WEIGHT_LIGHT' o 'book' / 'PANGO_WEIGHT_BOOK' o 'normal' / 'PANGO_WEIGHT_NORMAL' o 'medium' / 'PANGO_WEIGHT_MEDIUM' o 'semibold' / 'PANGO_WEIGHT_SEMIBOLD' o 'bold' / 'PANGO_WEIGHT_BOLD' o 'ultrabold' / 'PANGO_WEIGHT_ULTRABOLD' o 'heavy' / 'PANGO_WEIGHT_HEAVY' o 'ultraheavy' / 'PANGO_WEIGHT_ULTRAHEAVY' SEE ALSO
Pango, Glib::Boxed COPYRIGHT
Copyright (C) 2003-2009 by the gtk2-perl team. This software is licensed under the LGPL. See Pango for a full notice. perl v5.12.1 2010-07-05 Pango::FontDescription(3)
All times are GMT -4. The time now is 11:36 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy