11-05-2008
Build log issue (Perl)
Gentlemen,
Off my Windows MSDev compiler, I redirect each project to some log files. Because of that, I would like to get the begining word of the mached string line into a variable.
Example contents log file ($log_file):
......
MachineInfo - 0 error(s), 0 warning(s)
....
Libtool - 1 error(s), 0 warning(s)
....
LibSystem - 0 error(s), 0 warning(s)
......
so,
my $error = ' - 0 error(s)';
chomp(my $log_file = "D:\\$proj_$log_dir\\$log_file"));
my @in_log_file = open(IN, "<$log_file");
foreach $_(@in_log_file) {
if ($_ eq $error) {
print "No errors found\n";
} else {
.....
here is where I want the "Libtool" into a variable....
}
}
Thank you in advance for your help.
Chris
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
For a programming exercise, I am mean to design a Perl script that detects double letters in a text file.
I tried the following expressions
# Check for any double letter within the alphabet
/+/
# Check for any repetition of an alphanumeric character
/\w+/
Im aware that the... (8 Replies)
Discussion started by: JamesGoh
8 Replies
2. Shell Programming and Scripting
I have got numbers like
l255677
l376039
l188144
l340482
l440700
l254113
to match the numbers starting with '13' what would be the regex
=~/13(.*)/ =======>This is not working ....
But for user123,user657
regex =~/user(.*)/ ========>works
Thanks for help..!! (7 Replies)
Discussion started by: trina_1
7 Replies
3. Shell Programming and Scripting
I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly:
if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Discussion started by: suntzu
1 Replies
4. UNIX for Dummies Questions & Answers
Hi,
I get the following when I cat a file *.log
xxxxx
=====
dasdas gwdgsg fdsagfsag agsdfag
=====
random data
=====
My output should look like :
If the random data after the 2nd ==== is null then OK should be printed else
the random data should be printed.
How do I go about this... (5 Replies)
Discussion started by: manutd
5 Replies
5. Programming
HI,
I'm new to perl and need simple regex for reading a file using my perl script.
The text file reads as -
filename=/pot/uio/current/myremificates.txt
certificates=/pot/uio/current/userdir/conf/user/gamma/settings/security/... (3 Replies)
Discussion started by: jhamaks
3 Replies
6. Programming
Hi Guys
I have the following regex
$OSRELEASE = $1 if ($output =~ /(Mac OS X (Server )?10.\d)/);
output is currently
Mac OS X 10.7.5
when the introduction of Mac 10.8 output changes to
OS X 10.8.2
they have dropped the Mac bit so i changed the regex to be (2 Replies)
Discussion started by: ab52
2 Replies
7. Programming
Hello,
I'm trying to get a quick help on regex since i'm not a regular programmer.
Below is the line i'm trying to apply my regex to..i want to use the regex in a for loop and this line will keep on changing.
subject=... (4 Replies)
Discussion started by: jhamaks
4 Replies
8. Shell Programming and Scripting
Could anyone please make me understand how the ?= works below ..
After executing this I am getting the same output.
$string="I love chocolate.";
$string =~ s/chocolate(?= ice)/vanilla/;
print "$string\n"; (2 Replies)
Discussion started by: scriptscript
2 Replies
9. Shell Programming and Scripting
I am not a big expert in regex and have just little understanding of that language.
Could you help me to understand the regular Perl expression:
^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{
------
This is regex to select functions from a C/C++ source and defined in... (2 Replies)
Discussion started by: alex_5161
2 Replies
10. Shell Programming and Scripting
Experts -
I found a script on one of the servers that I work on and I need help understanding
one of the lines.
I know what the script does, but I'm having a hard time understanding the grouping.
Can someone help me with this?
Here's the script...
#!/usr/bin/perl
use strict;
use... (2 Replies)
Discussion started by: timj123
2 Replies
LEARN ABOUT DEBIAN
net::server::log::sys::syslog
Net::Server::Log::Sys::Syslog(3pm) User Contributed Perl Documentation Net::Server::Log::Sys::Syslog(3pm)
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.14.2 2013-11-28 Net::Server::Log::Sys::Syslog(3pm)