Hi all,
I am search a string from a file using following command, I want to pick the message ( I.e print $5) from the lookup file if and only if both $hostname and $instancename match.
Message=`cat $lookup_tbl| awk '/'$category'/ {if ('$hostname' == '$2' || '$instancename' == '$3') print $5}'`... (2 Replies)
Hi All,
I want to search all the ksh scripts that has following details.
1. Search for "exit 0"
2. Search for "sqlldr" or sqlplus"
3. In the above files i want to search for all the script that has no "case" in it.
Please advice.
Thanks,
Deep (2 Replies)
Hi,
I need to find if there is any error in the last few lines of the log file and send a mail accordingly.For example,
Following errors can be logged in the log file.
ERR_1="DB Connection not established"
ERR_2="Server Unloading"
I need to find if these errors are found in the log file and... (3 Replies)
Hi,
I need to search for some strings in specific positions in a file.
If the strings: "foo1", "foo2" or "foo3" is on position 266 or position 288 in a file i want the whole line printed.
Any idea how to do it? (5 Replies)
I tried awk for this, but failed <or my code is not correct? I dont know>. Can anyone help me on this?
---------- Post updated at 08:34 PM ---------- Previous update was at 08:29 PM ----------
my working file looks like this:
<empty>
<empty>
<empty>
NAME :ABC AGE :15
GENDER... (6 Replies)
Hi
I want to search multiple strings in a file . But the search should start with "From" Keyword and end with before "Where" keyword.
Please suggest me.
Thanks (2 Replies)
I have a list of files all over a file system e.g.
/home/1/foo/bar.x
/www/sites/moose/foo.txtI'm looking for strings in these files and want to replace each occurrence with a replacement string, e.g.
if I find: '#@!^\&@ in any of the files I want to replace it with: 655#@11, etc.
There... (2 Replies)
Hi,
Whether we can search multiple strings using or in grep -F
In Generally,
grep -F "string1" "filename.txt"
How to search for multiple string using grep -F as we using grep
grep "string1\|string2" "filename.txt"
Regards,
Nanthagopal A (10 Replies)
Hi,
I need someone's help in writing correct perl code.
I implemented following code for "multiple search strings replaced with single string".
=========================================================
#!/usr/bin/perl
my $searchStr = 'register_inst\.write_t\(' |... (2 Replies)
i search between two strings viz <app-deployment> & </app-deployment> and save the contents in a new file using the code snippet below.
sed -n "/<app-deployment/,/<\/app-deployment>/p" deploy.tmp >found1.tmpBut if the search string apprears more than once in the file then how can i store the... (3 Replies)
Discussion started by: mohtashims
3 Replies
LEARN ABOUT DEBIAN
mojo::log
Mojo::Log(3pm) User Contributed Perl Documentation Mojo::Log(3pm)NAME
Mojo::Log - Simple logger
SYNOPSIS
use Mojo::Log;
# Log to STDERR
my $log = Mojo::Log->new;
# Customize log file location and minimum log level
my $log = Mojo::Log->new(path => '/var/log/mojo.log', level => 'warn');
# Log messages
$log->debug("Why isn't this working?");
$log->info("FYI: it happened again");
$log->warn("This might be a problem");
$log->error("Garden variety error");
$log->fatal("Boom!");
DESCRIPTION
Mojo::Log is a simple logger for Mojo projects.
EVENTS
Mojo::Log can emit the following events.
"message"
$log->on(message => sub {
my ($log, $level, @messages) = @_;
...
});
Emitted when a new message gets logged.
$log->unsubscribe('message');
$log->on(message => sub {
my ($log, $level, @messages) = @_;
say "$level: ", @messages;
});
ATTRIBUTES
Mojo::Log implements the following attributes.
"handle"
my $handle = $log->handle;
$log = $log->handle(IO::Handle->new);
Log file handle used by default "message" event, defaults to opening "path" or "STDERR".
"level"
my $level = $log->level;
$log = $log->level('debug');
Active log level, defaults to the value of the "MOJO_LOG_LEVEL" environment variable or "debug".
These levels are currently available:
"debug"
"info"
"warn"
"error"
"fatal"
"path"
my $path = $log->path
$log = $log->path('/var/log/mojo.log');
Log file path used by "handle".
METHODS
Mojo::Log inherits all methods from Mojo::EventEmitter and implements the following new ones.
"new"
my $log = Mojo::Log->new;
Construct a new Mojo::Log object and subscribe to "message" event with default logger.
"debug"
$log = $log->debug('You screwed up, but that is ok');
Log debug message.
"error"
$log = $log->error('You really screwed up this time');
Log error message.
"fatal"
$log = $log->fatal('Its over...');
Log fatal message.
"format"
my $message = $log->format('debug', 'Hi there!');
my $message = $log->format('debug', 'Hi', 'there!');
Format log message.
"info"
$log = $log->info('You are bad, but you prolly know already');
Log info message.
"is_level"
my $success = $log->is_level('debug');
Check log level.
"is_debug"
my $success = $log->is_debug;
Check for debug log level.
"is_error"
my $success = $log->is_error;
Check for error log level.
"is_fatal"
my $success = $log->is_fatal;
Check for fatal log level.
"is_info"
my $success = $log->is_info;
Check for info log level.
"is_warn"
my $success = $log->is_warn;
Check for warn log level.
"log"
$log = $log->log(debug => 'This should work');
Emit "message" event.
"warn"
$log = $log->warn('Dont do that Dave...');
Log warn message.
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Log(3pm)