Parse input -AWK Post: 302634839

Sponsored Content

Top Forums Shell Programming and Scripting Parse input -AWK Post 302634839 by agama on Friday 4th of May 2012 12:03:25 AM

05-04-2012

Registered User

Oops. Small change:

Code:

awk '
    BEGIN {
        defined = 0;
        effective = 1;
    }

    function p()
    {
        if( data != "" )
        {
            gsub( ",$", "", data );
            printf( "%s%s:%s,%s\n", mode == defined ? "Defined: " : "Effective:", ctype, ztype, data );
            ztype = ""
            data = "";
        }
    }

    /^Defined configuration:/       { ctype=""; mode = defined; next; }
    /^Effective configuration:/     { ctype=""; mode = effective; next; }
    /^cfg:/ && !ctype {  ctype = $2; next; }

    /^zone:/ {
        p( );           # print what we have and reset, capturing the type
        snarf = 1;
        ztype = $2;
        next;
    }

    /^alias:/ {             # print, reset and stop picking up data
        p( );
        snarf = 0;
        next;
    }

    snarf {             # collect data if enabled
        gsub( "^[ \t]+", "" );      # ditch lead whitespace
        gsub( ";", "", $0 );        # drop ;
        gsub( " ", ",", $0 );       # convert add commas
        data = data $0 ",";             # add to the pile
        next;
    }

    END {               # last one if not printed
        p( );
    }
'

This User Gave Thanks to agama For This Post:

agama

View Public Profile for agama

Find all posts by agama

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

AWK unable to parse

awk -v new=" " ' substr($0, 17, 3) == "ABC" && substr($0, 52, 8) == "00000000" { tr=substr($0, 20, 10); ap=substr($0, 30, 2); ver=substr($0, 32, 2); irver=substr($0, 34, 2); ...

2. Shell Programming and Scripting

Shell script to parse/split input string and display the tokens

Hi, How do I parse/split lines (strings) read from a file and display the individual tokens in a shell script? Given that the length of individual lines is not constant and number of tokens in each line is also not constant. The input file could be as below: ...

3. Shell Programming and Scripting

parse long input parameters

anybody know a nice way to parse long input parameters such as --path /dir1/dir2/ (see below). Now I have more than 10 input parameters and it's confusing having parameters like -q something, I would prefer longer ones case $OPTKEY in --path) M_PATH=$OPTARG ;; -s) ...

4. Shell Programming and Scripting

Parse file using awk and work in awk output

hi guys, i want to parse a file using public function, the file contain raw data in the below format i want to get the output like this to load it to Oracle DB MARWA1,BSS:26,1,3,0,0,0,0,0.00,22,22,22.00 MARWA2,BSS:26,1,3,0,0,0,0,0.00,22,22,22.00 this the file raw format: Number of...

5. Shell Programming and Scripting

Parse a file with awk?

Hi guys (and gals). I need some help. I'm running an IVR purely on Asterisk where I capture the DTMFs. After pulsing each DTMF I have Asterisk write to a file with whatever was dialed (mostly used for record-keeping) and at the end of the survey I write all variables in a single line to a...

6. Shell Programming and Scripting

Bash Script for parse input like option and value

I would create a bash script than parse like this: test.sh -p (protocol) -i (address) -d (directory) I need retrive the value after -p for example... understand??? I hope... thanks

7. Shell Programming and Scripting

Parse find input into array

I need help parsing the output of find into an array. I need to search 3 directories and find all files older than 31 days old. This is what I have so far. TIME=" -maxdepth 1 -mtime +31" DIR1="/dir1/" DIR2="/dir2/" DIR3="/dir3/" FIND_DIR1=$(find ${DIR1}${TIME}) FIND_DIR3=$(find...

8. Shell Programming and Scripting

Parse a file using awk

Hi Experts, I am trying to parse the following file; FILEA a|b|c|c|c|c a|b|d|d|d|d e|f|a|a|a|a e|f|b|b|b|boutput expected: a<TAB>b <TAB><TAB>c<TAB>c<TAB>c<TAB>c<TAB> <TAB><TAB>d<TAB>d<TAB>d<TAB>d<TAB> e<TAB>f <TAB><TAB>a<TAB>a<TAB>a<TAB>a<TAB> <TAB><TAB>b<TAB>b<TAB>b<TAB>b<TAB>*...

9. Shell Programming and Scripting

Parse input of two files to be the same in awk

I have two files that I am going to use diff to find the differences but need to parse them before I do that. I have include the format of each file1 and file2 with the desired output of each (the first 5 fields in each file). The first file has a "chr" before the # that needs to be removed. I...

10. Shell Programming and Scripting

User input and run awk using the input

I am trying to allow a user to enter in text and then store that text in a variable $gene to run in an awk command in which those values are used to run some calculations. I am getting syntax errors however, when I try. Thank you :). The awk runs great if it is a pre-defined file that is used,...

LEARN ABOUT REDHAT

net::dns::question

Net::DNS::Question(3)					User Contributed Perl Documentation				     Net::DNS::Question(3)

NAME

       Net::DNS::Question - DNS question class

SYNOPSIS

       "use Net::DNS::Question"

DESCRIPTION

       A "Net::DNS::Question" object represents a record in the question section of a DNS packet.

METHODS

       new

	   $question = Net::DNS::Question->new("example.com", "MX", "IN");

       Creates a question object from the domain, type, and class passed as arguments.

       qname, zname

	   print "qname = ", $question->qname, "
";
	   print "zname = ", $question->zname, "
";

       Returns the domain name.  In dynamic update packets, this field is known as "zname" and refers to the zone name.

       qtype, ztype

	   print "qtype = ", $question->qtype, "
";
	   print "ztype = ", $question->ztype, "
";

       Returns the record type.  In dymamic update packets, this field is known as "ztype" and refers to the zone type (must be SOA).

       qclass, zclass

	   print "qclass = ", $question->qclass, "
";
	   print "zclass = ", $question->zclass, "
";

       Returns the record class.  In dynamic update packets, this field is known as "zclass" and refers to the zone's class.

       print

	   $question->print;

       Prints the question record on the standard output.

       string

	   print $qr->string, "
";

       Returns a string representation of the question record.

       data

	   $qdata = $question->data($packet, $offset);

       Returns the question record in binary format suitable for inclusion in a DNS packet.

       Arguments are a "Net::DNS::Packet" object and the offset within that packet's data where the "Net::DNS::Question" record is to be stored.
       This information is necessary for using compressed domain names.

COPYRIGHT

       Copyright (c) 1997-2002 Michael Fuhr.  All rights reserved.  This program is free software; you can redistribute it and/or modify it under
       the same terms as Perl itself.

SEE ALSO

       perl(1), Net::DNS, Net::DNS::Resolver, Net::DNS::Packet, Net::DNS::Update, Net::DNS::Header, Net::DNS::RR, RFC 1035 Section 4.1.2

perl v5.8.0							    2002-10-12						     Net::DNS::Question(3)