printing array elements inside AWK

04-20-2010

Registered User

45, 0

Join Date: Apr 2010

Last Activity: 24 January 2011, 5:22 PM EST

Posts: 45

Thanks Given: 2

Thanked 0 Times in 0 Posts

printing array elements inside AWK

i just want to dump my array and see if it contains the values i am expecting. It should print as follows,
ignore[0]=345fht
ignore[1]=rthfg56
.
.
.
ignore[n]=49568g

Here is the code. Is this even possible to do? please help

Code:

 
termReport.pl < $4 | dos2ux |  head -2000 | awk '
    BEGIN { foundTermEvent=0;
            endMarker="'"${endMarker}"'"; }
    {
      if ( (substr($0, 1, length(endMarker)) == endMarker) ||
           (substr($0, 1, 39) == "'${SBINDIR}'/termReport.pl: ") )
      {
        if (foundTermEvent == 1)
        {
          print "";
          foundTermEvent=0;
        }
      }
      if (foundTermEvent == 1)
      {
            z=0
            while ( z <= leanth_of_ignore )
            {
                if ( ignore[z] == $2 )
               {
               foundTermEvent = 0;
               { print ignore[z] }
               z=31
               }
               else
               {
               print;
               { print ignore[z] }
               z++
               }
            }
      }
      if (substr($0, 1, 18) == "Termination Event:")
      {
        foundTermEvent=1;
      }
    }'

usustarr

View Public Profile for usustarr

Find all posts by usustarr

MARC::Charset(3pm) User Contributed Perl Documentation MARC::Charset(3pm) NAME
MARC::Charset - convert MARC-8 encoded strings to UTF-8 SYNOPSIS
# import the marc8_to_utf8 function use MARC::Charset 'marc8_to_utf8'; # prepare STDOUT for utf8 binmode(STDOUT, 'utf8'); # print out some marc8 as utf8 print marc8_to_utf8($marc8_string); DESCRIPTION
MARC::Charset allows you to turn MARC-8 encoded strings into UTF-8 strings. MARC-8 is a single byte character encoding that predates unicode, and allows you to put non-Roman scripts in MARC bibliographic records. http://www.loc.gov/marc/specifications/spechome.html EXPORTS
ignore_errors() Tells MARC::Charset whether or not to ignore all encoding errors, and returns the current setting. This is helpful if you have records that contain both MARC8 and UNICODE characters. my $ignore = MARC::Charset->ignore_errors(); MARC::Charset->ignore_errors(1); # ignore errors MARC::Charset->ignore_errors(0); # DO NOT ignore errors assume_unicode() Tells MARC::Charset whether or not to assume UNICODE when an error is encountered in ignore_errors mode and returns the current setting. This is helepfuli if you have records that contain both MARC8 and UNICODE characters. my $setting = MARC::Charset->assume_unicode(); MARC::Charset->assume_unicode(1); # assume characters are unicode (utf-8) MARC::Charset->assume_unicode(0); # DO NOT assume characters are unicode assume_encoding() Tells MARC::Charset whether or not to assume a specific encoding when an error is encountered in ignore_errors mode and returns the current setting. This is helpful if you have records that contain both MARC8 and other characters. my $setting = MARC::Charset->assume_encoding(); MARC::Charset->assume_encoding('cp850'); # assume characters are cp850 MARC::Charset->assume_encoding(''); # DO NOT assume any encoding marc8_to_utf8() Converts a MARC-8 encoded string to UTF-8. my $utf8 = marc8_to_utf8($marc8); If you'd like to ignore errors pass in a true value as the 2nd parameter or call MARC::Charset->ignore_errors() with a true value: my $utf8 = marc8_to_utf8($marc8, 'ignore-errors'); or MARC::Charset->ignore_errors(1); my $utf8 = marc8_to_utf8($marc8); utf8_to_marc8() Will attempt to translate utf8 into marc8. my $marc8 = utf8_to_marc8($utf8); If you'd like to ignore errors, or characters that can't be converted to marc8 then pass in a true value as the second parameter: my $marc8 = utf8_to_marc8($utf8, 'ignore-errors'); or MARC::Charset->ignore_errors(1); my $utf8 = marc8_to_utf8($marc8); DEFAULT CHARACTER SETS
If you need to alter the default character sets you can set the $MARC::Charset::DEFAULT_G0 and $MARC::Charset::DEFAULT_G1 variables to the appropriate character set code: use MARC::Charset::Constants qw(:all); $MARC::Charset::DEFAULT_G0 = BASIC_ARABIC; $MARC::Charset::DEFAULT_G1 = EXTENDED_ARABIC; SEE ALSO
o MARC::Charset::Constant o MARC::Charset::Table o MARC::Charset::Code o MARC::Charset::Compiler o MARC::Record o MARC::XML AUTHOR
Ed Summers (ehs@pobox.com) perl v5.12.4 2011-08-05 MARC::Charset(3pm)

Shell Programming and Scripting

printing array elements inside AWK

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Printing array elements in reverse

Discussion started by: H squared

2. Shell Programming and Scripting

Awk: Append new elements to an array

Discussion started by: lsantome

3. UNIX for Dummies Questions & Answers

printing array elements

Discussion started by: jrymer

4. Shell Programming and Scripting

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

Discussion started by: shell_boy23

5. Shell Programming and Scripting

Calling array inside awk

Discussion started by: drbiloukos

6. Shell Programming and Scripting

Match elements in an AWK multi-dimensional array

Discussion started by: cold_Que

7. Shell Programming and Scripting

AWK help: how to compare array elements against a variable

Discussion started by: usustarr

8. Shell Programming and Scripting

awk - array elements as condition

Discussion started by: shellwell

9. Shell Programming and Scripting

using array inside awk

Discussion started by: subin_bala

10. Shell Programming and Scripting

Accessing single elements of a awk array in END

Discussion started by: timj123

LEARN ABOUT DEBIAN

marc::charset