06-03-2011
Ernst,I assume the log_file ( cat of log1,log2..) have the data:A> reading is funB> hair sprayC> travel abroadA>the sky is blueB> train stationC>cup of waterfor this to get the desired output:awk -F">" '{f=$1;$1="";a[f]=$0"\n"a[f]} END { for(i in a) { print i"."a[i] }}' log_file | sed '/^$/d'
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
How to search a pattern inside a zipped file ie (.gz file) with out unzipping it?
using grep command..
Bit urgent.. pls..help me (2 Replies)
Discussion started by: senraj01
2 Replies
2. Shell Programming and Scripting
Hi All,
I'm new to perl,
My requirement is to check if particular file exists.
e.g. filename.txt, filename1.txt, filename2.txt etc
I tried the below code:-
my $var1 = "filename.txt"
if ( -e ($var1 = ~ /file\w/))
{
print "File found \n";
}
else
{ print "File not found \n";
}
... (0 Replies)
Discussion started by: doitnow
0 Replies
3. Programming
Hi,
I have large files with fixed length fields or fields seperated by delimeter. I would like to do validation on some or all fields to check for numeric or date or characters etc.. I would like to write this in C++. Please let me know if any one have any ideas on this.
Thanks for all... (2 Replies)
Discussion started by: rameshmelam
2 Replies
4. Shell Programming and Scripting
I need scan through some files, then open the file one by one and scan inside the file using perl to see if it contain a start tag and end tag which the end tag is the mirror image of the start tag, the start tag and end tag only have 5 char. And inside the file there is "http://". It is just a... (5 Replies)
Discussion started by: blueblur
5 Replies
5. Shell Programming and Scripting
hello everybody,
I have a group of file
eg-
sample1
sample2
sample3
sample4
each file contain this :-
cat sample1
SEQ_NUM,1,UPESI1
My requirement is to
change the value-UPESI1 to UPE10 in file which contain this pattern -UPESI1.
any help is appreciated. (2 Replies)
Discussion started by: abhigrkist
2 Replies
6. Shell Programming and Scripting
There are 4 files inside one folder matching criteria i.e. File name = ABCJmdmfbsjopXXXXXXX_mm-dd-yyyy_XXX.data
Here is the Code which find the files matching criteria:-
TS=`date +"%m-%d-%Y"`| for fname in `find . -name "ABCJmdmfbsjop???????_${TS}*.data"`
do # Matching File Processing Code.... (1 Reply)
Discussion started by: lancesunny
1 Replies
7. Shell Programming and Scripting
i have little challenge, help me out.i have a file where i have a value declared and and i have to replace the value when called. for example i have the value for abc and ccc. now i have to substitute the value of
value abc and ccc in the place of them.
Input File:
go to &abc=ddd;
if... (16 Replies)
Discussion started by: saaisiva
16 Replies
8. Shell Programming and Scripting
Hi All ,
I have some fille names in a file which are sorted according to date. for example
file1_123.log 23 Jul 0Kb
file2_123.log 22 Jul 2Kb
file3_123.log 20 Jul 0Kb
file1_456.log 24 Jul 2Kb
file2_678.log 22 Jul 0Kb
file2_678.log 21 Jul 2Kb
here 123 is a... (2 Replies)
Discussion started by: LoneRanger
2 Replies
9. Shell Programming and Scripting
Hi
I need to do a patten match between files .
I am new to shell scripting and have come up with this so far. It take 50 seconds to process files of 2mb size . I need to tune this code as file size will be around 50mb and need to save time.
Main issue is that I need to search the pattern from... (2 Replies)
Discussion started by: nitin_daharwal
2 Replies
10. UNIX for Beginners Questions & Answers
Hi all,
I have files and have a missing record. I need copy the existing record and mark those values up. For example in the below file 11048 is missing. I need to copy 22001 and copy those create the values for 11048. I have 120 set of files and I need to do that on all files.
Note the... (8 Replies)
Discussion started by: arunkumar_mca
8 Replies
LEARN ABOUT MOJAVE
net::server::log::sys::syslog
Net::Server::Log::Sys::Syslog(3) User Contributed Perl Documentation Net::Server::Log::Sys::Syslog(3)
NAME
Net::Server::Log::Sys::Syslog - log via Syslog
SYNOPSIS
use base qw(Net::Server::PreFork);
__PACKAGE__->run(
log_file => 'Sys::Syslog',
syslog_ident => 'myapp',
);
DESCRIPTION
This module provides Sys::Syslog logging to the Net::Server system.
CONFIGURATION
log_file
To begin using Sys::Syslog logging, simply set the Net::Server log_file configuration parameter to "Sys::Syslog".
If the magic name "Sys::Syslog" is used, all logging will take place via the Sys::Syslog module. If syslog is used the parameters
"syslog_logsock", "syslog_ident", and "syslog_logopt",and "syslog_facility" may also be defined.
syslog_logsock
Only available if "log_file" is equal to "Sys::Syslog". May be either unix, inet, native, console, stream, udp, or tcp, or an arrayref
of the types to try. Default is "unix" if the version of Sys::Syslog < 0.15 - otherwise the default is to not call setlogsock.
See Sys::Syslog.
syslog_ident
Only available if "log_file" is equal to "Sys::Syslog". Id to prepend on syslog entries. Default is "net_server". See Sys::Syslog.
syslog_logopt
Only available if "log_file" is equal to "Sys::Syslog". May be either zero or more of "pid","cons","ndelay","nowait". Default is
"pid". See Sys::Syslog.
syslog_facility
Only available if "log_file" is equal to "Sys::Syslog". See Sys::Syslog and syslog. Default is "daemon".
DEFAULT ARGUMENTS FOR Net::Server
The following arguments are available in the default "Net::Server" or "Net::Server::Single" modules. (Other personalities may use
additional parameters and may optionally not use parameters from the base class.)
Key Value Default
## syslog parameters (if log_file eq Sys::Syslog)
syslog_logsock (native|unix|inet|udp
|tcp|stream|console) unix (on Sys::Syslog < 0.15)
syslog_ident "identity" "net_server"
syslog_logopt (cons|ndelay|nowait|pid) pid
syslog_facility w+ daemon
METHODS
"initialize"
This method is called during the initilize_logging method of Net::Server. It returns a single code ref that will be stored under the
log_function property of the Net::Server object. That code ref takes log_level and message as arguments and calls the initialized
log4perl system.
"handle_log_error"
This method is called if the log_function fails for some reason. It is passed the Net::Server object, the error that occurred while
logging and an arrayref containing the log level and the message. In turn, this calls the legacy Net::Server::handle_syslog_error
method.
LICENCE
Distributed under the same terms as Net::Server
perl v5.18.2 2013-01-09 Net::Server::Log::Sys::Syslog(3)