Problem with a code. Post: 302978418

Login or Register to Ask a Question and Join Our Community

Sponsored Content

Top Forums Shell Programming and Scripting Problem with a code. Post 302978418 by RudiC on Saturday 30th of July 2016 05:25:15 AM

Old

07-30-2016

Registered User

Your spec is far from clear; this is based on what I read from it (print the "state" line immediately AFTER "Name" line only, then print "Retention" lines up to next "Name" line. Not sure if you want "inactive" states only?):

Code:

awk '
        {sub (/^ */, _)
        }
/Name/  {printf "%s%s", TRS, $0
         TRS = RS
         NM = 1
         next
        }
NM      {printf "\t%s", $0
         NM = 0
         next   
        }
/Ret/   {printf "\t%s", $0
        }
END     {printf RS
        }
' file
Name: MEANS_SLP_DAILY	State: inactive	Retention Level: 3 (1 month)	Retention Level: 3 (1 month)	Retention Level: 3 (1 month)
Name: MEANS_SLP_WEEKLY	State: inactive	Retention Level: 3 (1 month)	Retention Level: 3 (1 month)	Retention Level: 3 (1 month)
Name: SLP_Irv_Arlington_Test	State: active	Retention Level: 1 (2 weeks)	Retention Level: 1 (2 weeks)	Retention Level: 1 (2 weeks)

RudiC

View Public Profile for RudiC

Find all posts by RudiC

8 More Discussions You Might Find Interesting

1. Programming

problem with this code

This code is not working properly because it dont open the requested file. I am not able to find out what the error is?? can anyone fix the error for me?? #include <sys/types.h> #include <sys/wait.h> #include <stdlib.h> #include <stdio.h> #include <string.h> #include <unistd.h> #include...

2. Shell Programming and Scripting

Ftp code problem

Hello I am trying to write a script that sends files via ftp from one server to another, i am using AIX 5.1. and bash shell to write my code. I get an error when trying to run the following lines of code ftp -n aptsbou01 <<! user $username $password binary ...

3. Windows & DOS: Issues & Discussions

Problem compiling C++ Code in Cygwin

Hello everyone. I just recently installed Cygwin and I am running it under Windows 7. My problem is that I cannot seem to compile any C++ code with g++. I've tried to compile C Code using gcc and that works just fine. But Whenever I try to compile some C++ code, g++ throws a whole bunch of...

4. Programming

Code problem

Hey just wondering if someone can tell me the right line of code to use. Basically my product codes for an ecommerce site all begin with three letters and an '/' sign e.g ABC/1234 would map to the brand ABC in my excell file(product upload mapping) This was done as the csv generating from...

5. Shell Programming and Scripting

Perl code Out of memory problem

Hi I am working with a 3.0 GB file and running the following script to process it. After running for 15 minutes, the script stops saying Out of memory or Killed. Can the experts suggest where my code can be improved to save memory? Thanks in advance. #! usr/bin/perl use warnings; open...

6. Shell Programming and Scripting

Escape code problem again

Now theres another problem. I would like to output not just a colored block, but how would I output not a solid block character, but a shaded block instead? Please help. I'm writing a library for these codes and this would really help.

7. Shell Programming and Scripting

Unknown (probably) simple problem with my code

I'm relatively new to both UNIX and Linux and slightly less new at programming. But I can't figure out why this won't run properly. It's meant to calculate the GCD of two numbers (simple enough, you'd think). And I designed it myself and it looks good to me and my instructor won't respond. If...

8. Shell Programming and Scripting

Problem with a code.

Guys i have one file and i want the o/p from that file like below This is my sample file and i want three things from it. Name: State just below the Name: dont want the state under the Retention Level: And retention Level Name: MEANS_SLP_DAILY State:...

LEARN ABOUT SUSE

log::log4perl::level

Level(3)						User Contributed Perl Documentation						  Level(3)

NAME

       Log::Log4perl::Level - Predefined log levels

SYNOPSIS

	 use Log::Log4perl::Level;
	 print $ERROR, "
";

	 # -- or --

	 use Log::Log4perl qw(:levels);
	 print $ERROR, "
";

DESCRIPTION

       "Log::Log4perl::Level" simply exports a predefined set of Log4perl log levels into the caller's name space. It is used internally by
       "Log::Log4perl". The following scalars are defined:

	   $OFF
	   $FATAL
	   $ERROR
	   $WARN
	   $INFO
	   $DEBUG
	   $TRACE
	   $ALL

       "Log::Log4perl" also exports these constants into the caller's namespace if you pull it in providing the ":levels" tag:

	   use Log::Log4perl qw(:levels);

       This is the preferred way, there's usually no need to call "Log::Log4perl::Level" explicitely.

       The numerical values assigned to these constants are purely virtual, only used by Log::Log4perl internally and can change at any time, so
       please don't make any assumptions.

       If the caller wants to import these constants into a different namespace, it can be provided with the "use" command:

	   use Log::Log4perl::Level qw(MyNameSpace);

       After this $MyNameSpace::ERROR, $MyNameSpace::INFO etc.	will be defined accordingly.

   Numeric levels and Strings
       Level variables like $DEBUG or $WARN have numeric values that are internal to Log4perl. Transform them to strings that can be used in a
       Log4perl configuration file, use the c<to_level()> function provided by Log::Log4perl::Level:

	   use Log::Log4perl qw(:easy);
	   use Log::Log4perl::Level;

	       # prints "DEBUG"
	   print Log::Log4perl::Level::to_level( $DEBUG ), "
";

       To perform the reverse transformation, which takes a string like "DEBUG" and converts it into a constant like $DEBUG, use the to_priority()
       function:

	   use Log::Log4perl qw(:easy);
	   use Log::Log4perl::Level;

	   my $numval = Log::Log4perl::Level::to_priority( "DEBUG" );

       after which $numval could be used where a numerical value is required:

	   Log::Log4perl->easy_init( $numval );

COPYRIGHT AND LICENSE

       Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.

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

perl v5.12.1							    2010-02-07								  Level(3)