Sponsored Content
Top Forums Shell Programming and Scripting Another method for this snippet Post 302841307 by ryandegreat25 on Wednesday 7th of August 2013 07:11:21 AM
Old 08-07-2013
sure. here is the input file

Code:
[oracle@server logs]$ head -1 /opt/application.log | awk 1 RS='\t'
2013/08/07 04:48:36:685
NORMAL
Oracle
Oracle:server.testpoc.com:Health:Connection Statistics Monitor
server.testpoc.com
Metric 'SSH connections. Total failed to open V2' changed status from 'warning' to 'good'
Metric 'SSH connections. Total failed to open V2' crossed 'back to default' with value '0'
Connection Statistics Monitor
SSH connections. Total failed to open V2
server.testpoc.com::SSH connections. Total failed to open V2:Unknown:NORMAL
server.testpoc.com::SSH connections. Total failed to open V2
CiHint:@@server.testpoc.com
Unknown:Unknown:0
Oracle@@server.testpoc.com
Oracle:server.testpoc.com:SSH connections. Total failed to open V2
http://server.testpoc.com:8080/Oracle/servlet/Main?activeid=10006&activerighttop=dashboard&view=new&dashboard_view=Details&dashboard_model=true&sis_silent_login_type=encrypted&login=%28sisp%29knjxbqDESkAn5mKcvgTmj%2FyFwHH5Ke3m%0D%0A&password=%28sisp%29EzqXbIXEFD%2BJbE1N1T%2FZlELjja0DKaN7%0D%0A
OracleMonitor:__Health__:10006
1






[oracle@server logs]$

im echoing first column

Code:
while IFS="     " read line timestamp severity x msg1 server y z msg2
do
        message="$msg1 $msg2"
        echo "$timestamp"

done < /opt/application.log

exit 0

Code:
[oracle@server logs]$ ./Log_converter.sh
NORMAL
NORMAL
MINOR
MINOR
NORMAL
NORMAL
CRITICAL
NORMAL
NORMAL
NORMAL
NORMAL
CRITICAL
CRITICAL
NORMAL
CRITICAL
MINOR
NORMAL
MINOR
MINOR
CRITICAL
MINOR
CRITICAL
NORMAL
NORMAL
CRITICAL
NORMAL
NORMAL
NORMAL
NORMAL
CRITICAL
CRITICAL
[oracle@server logs]$

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Can someone help translate this snippet?

Hello all - This snippet from a script runs on a Tru64 machine (ksh). if ps -ef | grep thing1 | grep dtsession | grep -v grep then echo "Killing Thing1 desktop session" kill -9 'ps -ef | grep thing1 | grep dtsession | grep -v grep | awk '{FS = " "}{print $2}'' fi I'm... (7 Replies)
Discussion started by: Heron
7 Replies

2. Shell Programming and Scripting

gui text box code snippet?

Hello, I have written some scripts that query the user and waits for keyboard input for an answer. I was wondering if there is any generic code snippets out there that would allow me to run this as a GUI. I am thinking of a simple dialogue box that would display the question and have a text... (1 Reply)
Discussion started by: Allasso
1 Replies

3. Shell Programming and Scripting

Bash snippet to find files based on a text file?

Evening all. I'm having a terrible time with a script I've been working on for a few days now... Say I have a text file named top10song.tm2, with the following in it: kernkraft 400 Imagine i kissed a girl Thriller animals hallelujah paint it black psychosocial Oi to the world... (14 Replies)
Discussion started by: DJ Charlie
14 Replies

4. UNIX for Dummies Questions & Answers

Code snippet for signals

Hi. This is code snipped I have. I am trying to play with signals... int main(int argc, char *argv) { int i; sigset_t s; //declare set of signals sigfillset(&s); //initializes the signal set to include all of the defined signals int j; for ( i = 0 ; i < 70 ; i++){ j... (6 Replies)
Discussion started by: joker40
6 Replies

5. Shell Programming and Scripting

Script required to extract a specific snippet from the entire file.

Hi, I have a file with the following structure. XXXXX........... YYYYY........... ................. .................. ZZZZZZ...... qwerty_start.............. .................. ................. .................. querty_end................ .............................. (1 Reply)
Discussion started by: abinash
1 Replies

6. UNIX for Dummies Questions & Answers

Script required to truncate all the lines except a specific snippet.

Hi, I have a file with the following structure. XXXXX........... YYYYY........... ................. .................. ZZZZZZ...... qwerty_start.............. .................. ................. .................. querty_end................ .............................. (3 Replies)
Discussion started by: abinash
3 Replies

7. Solaris

svc:/network/physical:default: Method "/lib/svc/method/net-physical" failed with exit status 96. [ n

After a memory upgrade all network interfaces are misconfigued. How do i resolve this issue. Below are some out puts.thanks. ifconfig: plumb: SIOCLIFADDIF: eg000g0:2: no such interface # ifconfig eg1000g0:2 plumb ifconfig: plumb: SIOCLIFADDIF: eg1000g0:2: no such interface # ifconfig... (2 Replies)
Discussion started by: andersonedouard
2 Replies

8. UNIX for Dummies Questions & Answers

What is this perl snippet is doing?

perl -e '@stat=stat("/etc/passwd");$now_string=localtime($stat);print $ARGV.":$now_string\n"' ./file_name Please if anyone can describe it. Thanks in advance (1 Reply)
Discussion started by: ezee
1 Replies

9. UNIX for Beginners Questions & Answers

Syntax error in code snippet

Hello, I am attaching a code snippet. Some of the variables are set in earlier code like count, arrays harr1, harr2, barr1 and barr2. The code below gives syntax errors. I am very new to Bash. for (( i=0; i<=$(( $count -1 )); i++ )) do #Now read the element at barr2 location i. Also find... (2 Replies)
Discussion started by: ngabrani
2 Replies
Bio::SearchIO::Writer::ResultTableWriter(3pm)		User Contributed Perl Documentation	     Bio::SearchIO::Writer::ResultTableWriter(3pm)

NAME
Bio::SearchIO::Writer::ResultTableWriter - Outputs tab-delimited data for each Bio::Search::Result::ResultI object. SYNOPSIS
Example 1: Using the default columns use Bio::SearchIO; use Bio::SearchIO::Writer::ResultTableWriter; my $in = Bio::SearchIO->new(); my $writer = Bio::SearchIO::Writer::ResultTableWriter->new(); my $out = Bio::SearchIO->new( -writer => $writer ); while ( my $result = $in->next_result() ) { $out->write_result($result, ($in->report_count - 1 ? 0 : 1) ); } Example 2: Specifying a subset of columns use Bio::SearchIO; use Bio::SearchIO::Writer::ResultTableWriter; my $in = Bio::SearchIO->new(); my $writer = Bio::SearchIO::Writer::ResultTableWriter->new( -columns => [qw( query_name query_length num_hits )] ); my $out = Bio::SearchIO->new( -writer => $writer, -file => ">result.out" ); while ( my $result = $in->next_result() ) { $out->write_result($result, ($in->report_count - 1 ? 0 : 1) ); } Custom Labels You can also specify different column labels if you don't want to use the defaults. Do this by specifying a "-labels" hash reference parameter when creating the ResultTableWriter object. The keys of the hash should be the column number (left-most column = 1) for the label(s) you want to specify. Here's an example: my $writer = Bio::SearchIO::Writer::ResultTableWriter->new( -columns => [qw( query_name query_length query_description num_hits)], -labels => { 1 => 'QUERY_GI', 2 => 'QUERY_LENGTH' } ); DESCRIPTION
Bio::SearchIO::Writer::ResultTableWriter outputs data in tab-delimited format for each search result, one row per search result. This is a very coarse-grain level of information since it only includes data stored in the Bio::Search::Result::ResultI object itself and does not include any information about hits or HSPs. You most likely will never use this object but instead will use one of its subclasses: Bio::SearchIO::Writer::HitTableWriter or Bio::SearchIO::Writer::HSPTableWriter. Available Columns Here are the columns that can be specified in the "-columns" parameter when creating a ResultTableWriter object. If a "-columns" parameter is not specified, this list, in this order, will be used as the default. query_name query_length query_description For more details about these columns, see the documentation for the corresponding method in Bio::Search::Result::ResultI. FEEDBACK
Mailing Lists User feedback is an integral part of the evolution of this and other Bioperl modules. Send your comments and suggestions preferably to one of the Bioperl mailing lists. Your participation is much appreciated. bioperl-l@bioperl.org - General discussion http://bioperl.org/wiki/Mailing_lists - About the mailing lists Support Please direct usage questions or support issues to the mailing list: bioperl-l@bioperl.org rather than to the module maintainer directly. Many experienced and reponsive experts will be able look at the problem and quickly address it. Please include a thorough description of the problem with code and data examples if at all possible. Reporting Bugs Report bugs to the Bioperl bug tracking system to help us keep track the bugs and their resolution. Bug reports can be submitted via the web: https://redmine.open-bio.org/projects/bioperl/ AUTHOR
Steve Chervitz <sac@bioperl.org> See the FEEDBACK section for where to send bug reports and comments. COPYRIGHT
Copyright (c) 2001 Steve Chervitz. All Rights Reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. DISCLAIMER
This software is provided "as is" without warranty of any kind. SEE ALSO
Bio::SearchIO::Writer::HitTableWriter, Bio::SearchIO::Writer::HSPTableWriter METHODS
to_string() Note: this method is not intended for direct use. The SearchIO::write_result() method calls it automatically if the writer is hooked up to a SearchIO object as illustrated in the SYNOPSIS section . Title : to_string() : Usage : print $writer->to_string( $result_obj, [$include_labels] ); : Argument : $result_obj = A Bio::Search::Result::ResultI object : $include_labels = boolean, if true column labels are included (default: false) : Returns : String containing tab-delimited set of data for each hit : in a ResultI object. Some data is summed across multiple HSPs. : Throws : n/a column_labels Usage : print $result_obj->column_labels(); Purpose : Get column labels for to_string(). Returns : String containing column labels. Tab-delimited. Argument : n/a Throws : n/a end_report Title : end_report Usage : $self->end_report() Function: The method to call when ending a report, this is mostly for cleanup for formats which require you to have something at the end of the document. Nothing for a text message. Returns : string Args : none filter Title : filter Usage : $writer->filter('hsp', &hsp_filter); Function: Filter out either at HSP,Hit,or Result level Returns : none Args : string => data type, CODE reference perl v5.14.2 2012-03-02 Bio::SearchIO::Writer::ResultTableWriter(3pm)
All times are GMT -4. The time now is 02:17 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy