Sponsored Content
Top Forums Shell Programming and Scripting Need a program that read a file line by line and prints out lines 1, 2 & 3 after an empty line... Post 302907357 by CarloM on Friday 27th of June 2014 10:45:47 AM
Old 06-27-2014
If you have GNU awk, try:
Code:
$ awk '{print $1 OFS $2 OFS $3}' RS='\n \n' ORS='\n \n' FS='\n' OFS='\n' file
SRVXPAPI001     ERRO    JUN24 07:28:34 1775
        REASON= 0000, PROCID= #E506 #1065: TPCIPPR, INDEX= 003F
        00637BDC=IOCPBASE.BS01:CHECK_TID+#009C

SRVXPAPI001     ERRO    JUN24 07:28:41 2362
        REASON= 0000, PROCID= #E506 #1065: TPCIPPR, INDEX= 003F
        00637BDC=IOCPBASE.BS01:CHECK_TID+#009C

SRVXPAPI001     ERRO    JUN24 07:38:38 7617
        REASON= 0101, PROCID= #459E #102F: CALLP, DATA= 03BF 0556
        05AFD5A0=CMCALLP.BX03:CM_RESET+#1598

SRVXPAPI001     ERRO    JUN24 07:45:08 2144
        REASON= 00FF, PROCID= #6584 #5008: MTXTASKP, INDEX= 0000
        04BAF5C0=CMARTRUI.BM01:ROUTE_AI+#0260

SRVXPAPI001     ERRO    JUN24 08:12:04 0309
        REASON= 0000, PROCID= #E506 #1065: TPCIPPR, INDEX= 003F
        00637BDC=IOCPBASE.BS01:CHECK_TID+#009C

SRVXPAPI001     ERRO    JUN24 08:12:21 1960
        REASON= 0000, PROCID= #E506 #1065: TPCIPPR, INDEX= 003F
        00637BDC=IOCPBASE.BS01:CHECK_TID+#009C

SRVXPAPI001     ERRO    JUN24 08:22:05 0604
        REASON= 00FF, PROCID= #6584 #5008: MTXTASKP, INDEX= 0000
        04BAF5C0=CMARTRUI.BM01:ROUTE_AI+#0260

This User Gave Thanks to CarloM For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

cat file1 read line-per-line then grep -A 15 lines down in fileb

STEP 1 # Set variable FILE=/tmp/mainfile SEARCHFILE =/tmp/searchfile # THIS IS THE MAIN FILE. cat /tmp/mainfile Interface Ethernet0/0 "outside", is up, line protocol is up Hardware is i82546GB rev03, BW 100 Mbps Full-Duplex(Full-duplex), 100 Mbps(100 Mbps) MAC address... (6 Replies)
Discussion started by: irongeekio
6 Replies

2. Shell Programming and Scripting

bash: read file line by line (lines have '\0') - not full line has read???

I am using the while-loop to read a file. The file has lines with null-terminated strings (words, actually.) What I have by that reading - just a first word up to '\0'! I need to have whole string up to 'new line' - (LF, 10#10, 16#A) What I am doing wrong? #make file 'grb' with... (6 Replies)
Discussion started by: alex_5161
6 Replies

3. Shell Programming and Scripting

howto add line as a first line into a non empty file

Hi Trying to do like this : echo "$variable1\n $(cat file.txt)" but it only adds one time. When I run this cmd again with different variable it only replaces line of variable1. How to add constantly line into first line in file ? (3 Replies)
Discussion started by: presul
3 Replies

4. Shell Programming and Scripting

Fill the empty line by adding line before blank line

FIle A "A" 2 aa 34 3 ac 5 cd "B" 3 hu 67 4 fg 5 gy output shud be A"" 2 aa 34 "A" 3 ac 34 "A" 5 cd 34 "B" 3 hu 67 "B" 4 fg 67 "B" 5 gy 67 (6 Replies)
Discussion started by: cdfd123
6 Replies

5. Shell Programming and Scripting

Shell script to read a text file line by line & process it...

Hi , I am trying to write an shell, which reads a text file (from a location) having a list of numbers of strictly 5 digits only ex: 33144 Now my script will check : 1) that each entry is only 5 digits & numeric only, no alphabets, & its not empty. 2)then it executes a shell script called... (8 Replies)
Discussion started by: new_to_shell
8 Replies

6. Shell Programming and Scripting

How to read a file line by line and store it in a variable to execute a program ?

Hello, I am quite new in shell scripting and I would like to write a little scritp to run a program on some parameters files. all my parameters files are in the same directory, so pick them up with ls *.para >>dirafter that I have a dir file like that: param1.para param2.para etc... I... (2 Replies)
Discussion started by: shadok
2 Replies

7. Shell Programming and Scripting

how to read the contents of two files line by line and compare the line by line?

Hi All, I'm trying to figure out which are the trusted-ips and which are not using a script file.. I have a file named 'ip-list.txt' which contains some ip addresses and another file named 'trusted-ip-list.txt' which also contains some ip addresses. I want to read a line from... (4 Replies)
Discussion started by: mjavalkar
4 Replies

8. Shell Programming and Scripting

How to read file line by line and compare subset of 1st line with 2nd?

Hi all, I have a log file say Test.log that gets updated continuously and it has data in pipe separated format. A sample log file would look like: <date1>|<data1>|<url1>|<result1> <date2>|<data2>|<url2>|<result2> <date3>|<data3>|<url3>|<result3> <date4>|<data4>|<url4>|<result4> What I... (3 Replies)
Discussion started by: pat_pramod
3 Replies

9. Shell Programming and Scripting

Read the file line by line and do something with lines

I have a file file_name_O.txt The file can have different number of other files names or nothing I will check cnt=`wc -l file_name_0.txt` if ;then exit 1 fi Now I have to start checking file names, i.e. read txt file line by line. If amount of ,lines equal 1, I can... (4 Replies)
Discussion started by: digioleg54
4 Replies

10. UNIX for Beginners Questions & Answers

Get an output of lines in pattern 1st line then 10th line then 11th line then 20th line and so on.

Input file: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 (6 Replies)
Discussion started by: Sagar Singh
6 Replies
Log::Report::Dispatcher::LogDispatch(3pm)		User Contributed Perl Documentation		 Log::Report::Dispatcher::LogDispatch(3pm)

NAME
Log::Report::Dispatcher::LogDispatch - send messages to Log::Dispatch back-end INHERITANCE
Log::Report::Dispatcher::LogDispatch is a Log::Report::Dispatcher SYNOPSIS
use Log::Dispatch::File; dispatcher Log::Dispatch::File => 'logger', accept => 'NOTICE-' , filename => 'logfile', to_level => [ 'ALERT-' => 'err' ]; # disable default dispatcher dispatcher close => 'logger'; DESCRIPTION
This dispatchers produces output to and "Log::Dispatch" back-end. (which will NOT be automatically installed for you). The REASON for a message often uses names which are quite similar to the log-levels used by Log::Dispatch. However: they have a different approach. The REASON of Log::Report limits the responsibility of the programmer to indicate the cause of the message: whether it was able to handle a certain situation. The Log::Dispatch levels are there for the user's of the program. However: the programmer does not known anything about the application (in the general case). This is cause of much of the trickery in Perl programs. The default translation table is list below. You can change the mapping using new(to_level). See example in SYNOPSIS. METHODS
Constructors $obj->close See "Constructors" in Log::Report::Dispatcher Log::Report::Dispatcher::LogDispatch->new(TYPE, NAME, OPTIONS) The Log::Dispatch infrastructure has quite a large number of output TYPEs, each extending the Log::Dispatch::Output base-class. You do not create these objects yourself: Log::Report is doing it for you. The Log::Dispatch back-ends are very careful with validating their parameters, so you will need to restrict the options to what is supported for the specific back-end. See their respective manual-pages. The errors produced by the back-ends quite horrible and untranslated, sorry. -Option --Defined in --Default accept Log::Report::Dispatcher depend on mode callbacks [] charset Log::Report::Dispatcher <undef> format_reason Log::Report::Dispatcher 'LOWERCASE' locale Log::Report::Dispatcher <system locale> max_level undef min_level debug mode Log::Report::Dispatcher 'NORMAL' to_level [] accept => REASONS callbacks => CODE|ARRAY-of-CODE See Log::Dispatch::Output. charset => CHARSET format_reason => 'UPPERCASE'|'LOWERCASE'|'UCFIRST'|'IGNORE'|CODE locale => LOCALE max_level => LEVEL Like "min_level". min_level => LEVEL Restrict the messages which are passed through based on the LEVEL, so after the reason got translated into a Log::Dispatch compatible LEVEL. The default will use Log::Report restrictions only. mode => 'NORMAL'|'VERBOSE'|'ASSERT'|'DEBUG'|0..3 to_level => ARRAY-of-PAIRS See reasonToLevel(). Accessors $obj->backend Returns the Log::Dispatch::Output object which is used for logging. $obj->isDisabled See "Accessors" in Log::Report::Dispatcher $obj->mode See "Accessors" in Log::Report::Dispatcher $obj->name See "Accessors" in Log::Report::Dispatcher $obj->needs See "Accessors" in Log::Report::Dispatcher $obj->type See "Accessors" in Log::Report::Dispatcher Logging $obj->collectLocation Log::Report::Dispatcher::LogDispatch->collectLocation See "Logging" in Log::Report::Dispatcher $obj->collectStack([MAXDEPTH]) Log::Report::Dispatcher::LogDispatch->collectStack([MAXDEPTH]) See "Logging" in Log::Report::Dispatcher $obj->log(HASH-of-OPTIONS, REASON, MESSAGE) See "Logging" in Log::Report::Dispatcher $obj->reasonToLevel(REASON) Returns a level which is understood by Log::Dispatch, based on a translation table. This can be changed with new(to_level). $obj->stackTraceLine(OPTIONS) Log::Report::Dispatcher::LogDispatch->stackTraceLine(OPTIONS) See "Logging" in Log::Report::Dispatcher $obj->translate(HASH-of-OPTIONS, REASON, MESSAGE) See "Logging" in Log::Report::Dispatcher SEE ALSO
This module is part of Log-Report distribution version 0.94, built on August 23, 2011. Website: http://perl.overmeer.net/log-report/ LICENSE
Copyrights 2007-2011 by Mark Overmeer. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html perl v5.14.2 2011-08-23 Log::Report::Dispatcher::LogDispatch(3pm)
All times are GMT -4. The time now is 09:34 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy