Sponsored Content
Top Forums Shell Programming and Scripting Help need to write a script on column separation for syslog output in perl Post 302365225 by iron_michael86 on Monday 26th of October 2009 10:58:18 AM
Old 10-26-2009
Help need to write a script on column separation for syslog output in perl

HI Pros,

I have a issue.I need to write a script to parse the logs got from syslog server and update the same in my database.I need the following output.I donot know perl and I heard it very easy to write in perl

I have the sample log I need each column seperated by commas and all equals need to be removed ie date= time= needs to be removed
THis is the same log
Code:
Oct 26 09:31:17 172.16.2.1 date=2009-10-26 time=15:13:26 devname=DNBTUFW01 device_id=FG300A3908500525 log_id=0317099511 type=webfilter subtype=ftgd pri=notice vd=root policyid=19 serial=113820071 user="N/A" group="N/A" src=172.16.12.113 sport=1293 src_int="port5" dst=203.77.189.53 dport=80 dst_int="port1" service="http" method="domain" cat=52 cat_desc="Information Technology" mode="rule" rule_type="rating" rule_data="Information Technology" hostname="photos.itpro.co.uk" status=passthrough url="/images/nav_bg_high.gif" msg="URL belongs to an override rule"

I need the following output

Code:
2009-10-26, 15:13:26 , 172.16.12.113 ,1293 ,"port5" , 203.77.189.53 ,80 ,"port1" ,"http" ,"domain" , "Information Technology" , "rating" ,"Information Technology","photos.itpro.co.uk" ,passthrough ,"/images/nav_bg_high.gif"

This output will be very easy when I update in database

Last edited by pludi; 10-26-2009 at 01:38 PM.. Reason: code tags, please
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need help to write a Perl script

Hello friends, I am having a awk script which does my goal , but I want to learn perl , after learning the basics in perl now I am trying to convert my nawk script to perl . Please help me to do some task in perl that I ve already did in nawk. Like I am facing some problem in... (10 Replies)
Discussion started by: user_prady
10 Replies

2. Shell Programming and Scripting

write a script to parse some tcpdump output

i am trying to write a script to parse some tcpdump output, in each line of the tcpdump output, I know for sure there are 3 keywords exist: User{different usernamehere} NAS_ipaddr{different ip here} Calling_station{ip or dns name here} But the positions for these 3 keywords in the... (4 Replies)
Discussion started by: fedora
4 Replies

3. Shell Programming and Scripting

Write Awk output to a file , inside script.

Hi, Can anyone please help me with this issue. I have a Awk command which take file as input, and provides the output having multiple lines, its working in command mode, but not if i plug it in script. #!/bin/ksh infile=a.txt outfile=b.txt awk ' BEGIN{ FS=OFS="|";ORS = "\n";... (1 Reply)
Discussion started by: sp999
1 Replies

4. Shell Programming and Scripting

Write output to a file using Korn shell script

All, Can anyone please help me with the below scenario in korn shell script. Can anyone please give me some hints to proceed on this. I have a Flat file of the below format. Input file format:... (1 Reply)
Discussion started by: sp999
1 Replies

5. UNIX for Dummies Questions & Answers

Count the lines with the same values in a column and write the output to a file

Hey everyone! I have a tab delimited data set which I want to create an output contained the calculation of number of those lines with a certain value in 2nd and 3rd column. my input file is like this: ID1 1 10M AAATTTCCGG ID2 5 4M ACGT ID3 5 8M ACCTTGGA ID4 5 ... (7 Replies)
Discussion started by: @man
7 Replies

6. Shell Programming and Scripting

How to write a update query in perl script?

can any one suggest me on how to write a update query in perl script for Oracle database and also tell me abt how we can write a code for sending mails with report as attachment to appropriate persons? (1 Reply)
Discussion started by: Ramesh V Kumar
1 Replies

7. Shell Programming and Scripting

Need a perl script to read and write the data

Hi, I have on Designdocument in that information is stored with in tabular format.I need Perlscript to read and write the datausing perl script? Regards, Ravi (0 Replies)
Discussion started by: toravi.pentaho
0 Replies

8. Shell Programming and Scripting

How to write Perl Script to Get MQ Queue Depth?

Hi , I got the following script from internet to display queue depth using Perl Script. However, when I execute it , im getting following error. Can anyone shed light on what is going wrong? #!/usr/bin/perl ## 07/23/01 ## Depth Inquiry sample program. ## Arguments: ## Connects to... (11 Replies)
Discussion started by: srkmish
11 Replies

9. Shell Programming and Scripting

How to determine column separation format?

Hi there, say I have a line with multiple columns but with different separation formats: spaces, tabs.. Is it possible to have AWK print the separation format between each column? (10 Replies)
Discussion started by: la2015
10 Replies

10. UNIX for Beginners Questions & Answers

How to write in multiple output files in perl?

hi, Hope you are doing good. During my coding yesterday i got this challenge, actually not a challenge it like to optimize the code. I am printing some statement to monitor the file progress in the log file an also to display it in the screen. so i ended up in the below statements. ... (6 Replies)
Discussion started by: mad man
6 Replies
Gravatar::URL(3pm)					User Contributed Perl Documentation					Gravatar::URL(3pm)

NAME
Gravatar::URL - Make URLs for Gravatars from an email address SYNOPSIS
use Gravatar::URL; my $gravatar_id = gravatar_id($email); my $gravatar_url = gravatar_url(email => $email); DESCRIPTION
A Gravatar is a Globally Recognized Avatar for a given email address. This allows you to have a global picture associated with your email address. You can look up the Gravatar for any email address by constructing a URL to get the image from gravatar.com. This module does that. Examples of use include the author faces on <http://search.cpan.org>. See <http://gravatar.com> for more info. Functions gravatar_url # By email my $url = gravatar_url( email => $email, %options ); # By gravatar ID my $url = gravatar_url( id => $id, %options ); Constructs a URL to fetch the gravatar for a given $email or $id. $id is a gravatar ID. See "gravatar_id" for more information. %options are optional and are... rating A user can rate how offensive the content of their gravatar is, like a movie. The ratings are g, pg, r and x. If you specify a rating it is the highest rating that will be given. rating => "r" # includes g, pg and r size Specifies the desired width and height of the gravatar (gravatars are square). Valid values are from 1 to 512 inclusive. Any size other than 80 may cause the original gravatar image to be downsampled using bicubic resampling before output. size => 40, # 40 x 40 image default The url to use if the user has no gravatar or has none that fits your rating requirements. default => "https://secure.wikimedia.org/wikipedia/en/wiki/File:Mad30.jpg" Relative URLs will be relative to the base (ie. gravatar.com), not your web site. Gravatar defines special values that you may use as a default to produce dynamic default images. These are "identicon", "monsterid", "wavatar" and "retro". "404" will cause the URL to return an HTTP 404 "Not Found" error instead whereas "mm" will display the same "mystery man" image for all missing people. See <http://en.gravatar.com/site/implement/url> for more info. If omitted, Gravatar will serve up their default image, the blue G. border DEPRECATED! This key has been removed from the Gravatar protocol. It will be removed from future versions of Gravatar::URL. Gravatars can be requested to have a 1 pixel colored border. If you'd like that, pass in the color to border as a 3 or 6 digit hex string. border => "000000", # a black border, like my soul border => "000", # black, but in 3 digits base This is the URL of the location of the Gravatar server you wish to grab Gravatars from. Defaults to <http://www.gravatar.com/avatar/"> for HTTP and <https://secure.gravatar.com/avatar/> for HTTPS. short_keys If true, use short key names when constructing the URL. "s" instead of "size", "r" instead of "ratings" and so on. short_keys defaults to true. https If true, serve avatars over HTTPS instead of HTTP. You should select this option if your site is served over HTTPS to avoid browser warnings about the presence of insecure content. https defaults to false. gravatar_id my $id = gravatar_id($email); Converts an $email address into its Gravatar $id. THANKS
Thanks to gravatar.com for coming up with the whole idea and Ashley Pond V from whose Template::Plugin::Gravatar I took most of the original code. LICENSE
Copyright 2007 - 2009, Michael G Schwern <schwern@pobox.com>. Copyright 2011, Francois Marier <fmarier@gmail.com>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://dev.perl.org/licenses/artistic.html SEE ALSO
Template::Plugin::Gravatar - a Gravatar plugin for Template Toolkit <http://www.gravatar.com> - The Gravatar web site <http://en.gravatar.com/site/implement/url> - The Gravatar URL implementor's guide perl v5.14.2 2012-04-04 Gravatar::URL(3pm)
All times are GMT -4. The time now is 10:32 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy