Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help how to make awk array
Top Forums Shell Programming and Scripting Help how to make awk array Post 302930355 by dony71 on Friday 2nd of January 2015 02:53:21 PM
Old 01-02-2015
Help how to make awk array
Hi expert,
I'm newbie in awk programming and now I have difficulty how to make awk array in ash shell. I have code below.
As you know ash shell doesn't support array and I cannot install bash
in my embedded environment.
So in order this code to work in ash shell then all array needs to be converted
Problem now while creating array in ash shell :

Code:
   scene[$SCNCNT]=$(echo $line | awk '{ print $2 }')

and calling array in ash shell :

Code:
   echo "MSG~heyu $(echo ${scene[${phone#*~}]})" | tee -a $LOG
   $HEYU $(echo ${scene[${phone#*~}]})

Can somebody help me on this?

Code:
#!/bin/sh

HEYU=/usr/bin/heyu	      # Path to Heyu
SED=/usr/bin/sed
SORTAZ=0                      # If 0, will sort by house code.

get_scenes() {
   SCENES=$($HEYU show usersyns | grep "usersyn")
   if [ "$SORTAZ" -eq "1" ]
    then 
       SCENES=$(echo "$SCENES" | sort)
   fi
   IFS=$(echo -en "\n\b")
   for line in $SCENES
    do
       let SCNCNT=$SCNCNT+1
       scene[$SCNCNT]=$(echo $line | awk '{ print $2 }')
       echo -n "S: " >> $LOG
       echo $line | awk '{ print "SCENE~" $2 "~'$SCNCNT'" }' | sed 's/_/ /g' | \
       sed 's/.*/\L&/; s/[a-z]*/\u&/g' | tee -a $LOG
   done
   IFS=$ORIGIFS
}

set_scene() {
   echo -n "S: " >> $LOG
   echo "MSG~heyu $(echo ${scene[${phone#*~}]})" | tee -a $LOG
   $HEYU $(echo ${scene[${phone#*~}]})
   sleep 1
   get_updates "$DEVICES"
} 

get_scenes
set_scene

Last edited by Scrutinizer; 01-02-2015 at 04:06 PM.. Reason: additional code tags
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

to make 2 lines into 1 line using awk

suppose i have a file AAAHHHHAHH AJJJJAAAAAA AJJJJJAAJJAK AJJAJJAJKKK the output suhd be AAAHHHHAHHAJJJJAAAAAAAJJJJJAAJJAKAJJAJJAJKKK (2 Replies)
Discussion started by: cdfd123
2 Replies

2. Shell Programming and Scripting

awk help to make my work faster

hii everyone , i have a file in which i have line numbers.. file name is file1.txt aa bb cc "12" qw xx yy zz "23" we bb qw we "123249" jh here 12,23,123249. is the line number now according to this line numbers we have to print lines from other file named... (11 Replies)
Discussion started by: kumar_amit
11 Replies

3. Shell Programming and Scripting

Is there anyway to make awk "talks" to DB, say any awk-ODBC tools

Hi all, Is there anyway to make awk talk to DB ? So my awk script reads the data from some text file and eventually those data need to be stored in database. So is there anyway to do it in awk all tohether, say any awk-ODBC tool to make it work? (I really hate to write a cpp/java program... (4 Replies)
Discussion started by: qiulang
4 Replies

4. Shell Programming and Scripting

AWK help. how to compare a variable with a data array in AWK?

Hi all, i have a data array as follows. array=ertfgj2345 array=456ttygkd . . . array=errdjt3235 so number or elements in the array can varies depending on how big the data input is. now i have a variable, and it is $1 (there are $2, $3 and so on, i am only interested in $1). ... (9 Replies)
Discussion started by: usustarr
9 Replies

5. Shell Programming and Scripting

HELP with AWK one-liner. Need to employ an If condition inside AWK to check for array variable ?

Hello experts, I'm stuck with this script for three days now. Here's what i need. I need to split a large delimited (,) file into 2 files based on the value present in the last field. Samp: Something.csv bca,adc,asdf,123,12C bca,adc,asdf,123,13C def,adc,asdf,123,12A I need this split... (6 Replies)
Discussion started by: shell_boy23
6 Replies

6. Shell Programming and Scripting

Make array from file

I need to create an array from the first line of a file like: a;b;c d;e;f g;h;i In this instance, the array should be (a,b,c). How do I do that? (1 Reply)
Discussion started by: locoroco
1 Replies

7. Shell Programming and Scripting

Reading columns from a text file and to make an array for each column

Hi, I am not so familiar with bash scripting and would appreciate your help here. I have a text file 'input.txt' like this: 2 3 4 5 6 7 8 9 10 I want to store each column in an array like this a ={2 5 8}, b={3 6 9}, c={4 7 10} so that i can access any element, e.g b=6 for the later use. (1 Reply)
Discussion started by: Asif Siddique
1 Replies

8. Shell Programming and Scripting

awk changes to make it faster

I have script like below, who is picking number from one file and and searching in another file, and printing output. Bu is is very slow to be run on huge file.can we modify it with awk #! /bin/ksh while read line1 do echo "$line1" a=`echo $line1` if then echo "$num" cat file1|nawk... (6 Replies)
Discussion started by: mirwasim
6 Replies

9. Shell Programming and Scripting

How to Assign an shell array to awk array?

Hello All, Can you please help me with the below. #!/bin/bash ARR="No Differences In Stage Between HASH_TOTALS & HASH_TOTALS_COMP For UNINUM:0722075 PROVIDER:5 EXTRACT_DT:30-SEP-12 VER_NUM:1" ARR="No Differences In Stage Between HASH_TOTALS & HASH_TOTALS_COMP For UNINUM:0722075 PROVIDER:5... (14 Replies)
Discussion started by: Ariean
14 Replies

10. Shell Programming and Scripting

awk - make new line

Hi, I would like to make a new line example like below: "When you post an item you can just delete the files." every 3 words of the above sentence I would like to make a new line like below: " When you post an item you can just delete the files " and after the last line "the... (6 Replies)
Discussion started by: khchong
6 Replies

LEARN ABOUT DEBIAN

graphics::primitive::component

Graphics::Primitive::Component(3pm)			User Contributed Perl Documentation		       Graphics::Primitive::Component(3pm)

NAME

       Graphics::Primitive::Component - Base graphical unit

DESCRIPTION

       A Component is an entity with a graphical representation.

SYNOPSIS

	 my $c = Graphics::Primitive::Component->new({
	   origin => Geometry::Primitive::Point->new({
	       x => $x, y => $y
	   }),
	   width => 500, height => 350
	 });

LIFECYCLE

       prepare
	   Most components do the majority of their setup in the prepare.  The goal of prepare is to establish it's minimum height and width so
	   that it can be properly positioned by a layout manager.

	     $driver->prepare($comp);

       layout
	   This is not a method of Component, but a phase introduced by the use of Layout::Manager.  If the component is a container then each of
	   it's child components (even the containers) will be positioned according to the minimum height and width determined during prepare.
	   Different layout manager implementations have different rules, so consult the documentation for each for details.  After this phase has
	   completed the origin, height and width should be set for all components.

	     $lm->do_layout($comp);

       finalize
	   This final phase provides and opportunity for the component to do any final changes to it's internals before being passed to a driver
	   for drawing.  An example might be a component that draws a fleuron at it's extremities.  Since the final height and width isn't known
	   until this phase, it was impossible for it to position these internal components until now.	It may even defer creation of this
	   components until now.

	   It is not ok to defer all action to the finalize phase.  If you do not establish a minimum hieght and width during prepare then the
	   layout manager may not provide you with enough space to draw.

	       $driver->finalize($comp);

       draw
	   Handled by Graphics::Primitive::Driver.

	      $driver->draw($comp);

METHODS

   Constructor
       new Creates a new Component.

   Instance Methods
       background_color
	   Set this component's background color.

       border
	   Set this component's border, which should be an instance of Border.

       callback
	   Optional callback that is fired at the beginning of the "finalize" phase.  This allows you to add some sort of custom code that can
	   modify the component just before it is rendered.  The only argument is the component itself.

	   Note that changing the position or the dimensions of the component will not re-layout the scene.  You may have weird results of you
	   manipulate the component's dimensions here.

       class
	   Set/Get this component's class, which is an abitrary string.  Graphics::Primitive has no internal use for this attribute but provides
	   it for outside use.

       color
	   Set this component's foreground color.

       fire_callback
	   Method to execute this component's "callback".

       get_tree
	   Get a tree for this component.  Since components are -- by definiton -- leaf nodes, this tree will only have the one member at it's
	   root.

       has_callback
	   Predicate that tells if this component has a "callback".

       height
	   Set this component's height.

       inside_bounding_box
	   Returns a Rectangle that defines the edges of the 'inside' box for this component.  This box is relative to the origin of the
	   component.

       inside_height
	   Get the height available in this container after taking away space for padding, margin and borders.

       inside_width
	   Get the width available in this container after taking away space for padding, margin and borders.

       margins
	   Set this component's margins, which should be an instance of Insets.  Margins are the space outside the component's bounding box, as in
	   CSS.  The margins should be outside the border.

       maximum_height
	   Set/Get this component's maximum height.  Used to inform a layout manager.

       maximum_width
	   Set/Get this component's maximum width.  Used to inform a layout manager.

       minimum_height
	   Set/Get this component's minimum height.  Used to inform a layout manager.

       minimum_inside_height
	   Get the minimum height available in this container after taking away space for padding, margin and borders.

       minimum_inside_width
	   Get the minimum width available in this container after taking away space for padding, margin and borders.

       minimum_width
	   Set/Get this component's minimum width.  Used to inform a layout manager.

       name
	   Set this component's name.  This is not required, but may inform consumers of a component.  Pay attention to that library's
	   documentation.

       origin
	   Set/Get the origin point for this component.

       outside_height
	   Get the height consumed by padding, margin and borders.

       outside_width
	   Get the width consumed by padding, margin and borders.

       finalize
	   Method provided to give component one last opportunity to put it's contents into the provided space.  Called after prepare.

       padding
	   Set this component's padding, which should be an instance of Insets.  Padding is the space inside the component's bounding box, as in
	   CSS.  This padding should be between the border and the component's content.

       page
	   If true then this component represents stand-alone page.  This informs the driver that this component (and any children) are to be
	   renderered on a single surface.  This only really makes sense in formats that have pages such as PDF of PostScript.

       prepare
	   Method to prepare this component for drawing.  This is an empty sub and is meant to be overridden by a specific implementation.

       preferred_height
	   Set/Get this component's preferred height.  Used to inform a layout manager.

       preferred_width
	   Set/Get this component's preferred width.  Used to inform a layout manager.

       to_string
	   Get a string representation of this component in the form of:

	     $name $x,$y ($widthx$height)

       visible
	   Set/Get this component's visible flag.

       width
	   Set/Get this component's width.

AUTHOR

       Cory Watson, "<gphat@cpan.org>"

BUGS

       Please report any bugs or feature requests to "bug-geometry-primitive at rt.cpan.org", or through the web interface at
       http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Geometry-Primitive <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Geometry-Primitive>.  I
       will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT &; LICENSE
       Copyright 2008-2009 by Cory G Watson.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.12.3							    2011-06-02				       Graphics::Primitive::Component(3pm)
All times are GMT -4. The time now is 02:06 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy