03-19-2009
Need help in understanding thisperl code.
Can any body explains the under given lines of code i have difficulties in understanding it,
my $errorlog = "/var/log/controler.log";
&initLanguage($language);
&launchCbox();
sub launchCbox {
$scr = Term::ScreenColor->new;
$scr->clrscr();
my ($mode) = @_;
my $error = 0;
my $cbox_x = $dog_x + 3;
my $args;
my %box_args = %{$args[3]};
$args .= "-d " if $box_args{"debug"};
$args .= "-l " if $box_args{"log"};
$args .= "-L ".$box_args{"language"} if $box_args{"language"};
if($mode ne "restart") { $scr->at($y_pos,3)->puts($x.". ".$txth->getText("5016")); }
else { $y_pos = $dog_y_pos+3; $scr->at($dog_y_pos+3,3)->puts($cbox_x.". ".$txth->getText("5016"." "x($status_bar_pos-(length($txth->getText("5016"))+7)))); }
if(!$xwindow) { `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/tty9`; }
else { `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/pts/2`; }
$error ? &printNOK : &printOK;
}
Kindest Regards,
Raheel.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Couple of questions as I try to decipher someones code who left...
What would something coded like this do?
IFS=:
grep FIELD1 /Path/Path2/Param.fle | read LBL1 LBL2 USRID EADR SUBJ SERVERNAME CFGTBL DIR
ERR=0
Param.fle contents..
FIELD1:FEI::FIELD2:dATAFIELD BATCH:MAIN SERVER......etc.. (2 Replies)
Discussion started by: NycUnxer
2 Replies
2. UNIX for Dummies Questions & Answers
Hello All,
I would like to know and understand the difference between the below 3 IF loops and also if possible what are the different other parameters i could use other than those mentioed in the below lF LOOP conditions, appreciate your help.
Thanks,
Sam. (1 Reply)
Discussion started by: Ariean
1 Replies
3. UNIX for Dummies Questions & Answers
I am really new to UNIX and programming in general and so apologies if this thread is a bit simple.
I have searched and found a piece of sample code for a training program I am currently undertaking, but seeing as I am relatively new, I dont completely understand how it works.
Here is the... (6 Replies)
Discussion started by: Makaer
6 Replies
4. UNIX Desktop Questions & Answers
hello all,
May i know what is this "DEBUG_ME $DEBUG_CMD main" doing in the below code. I am confused with alias also "alias DEBUG_ME='#'". Thanks for your help.
set -x
alias DEBUG_ME='#'
if ; then
. /product/apps/informatica/v7/pc/ExtProc/debug.ksh "$1"
fi
# Declaring the... (1 Reply)
Discussion started by: Ariean
1 Replies
5. Shell Programming and Scripting
Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:
$files_lim =~ (/^\d*$/)
$files_lim =~ (/^\d*h$/)$files_age =~ s/h//The code where this was... (0 Replies)
Discussion started by: RedSpyder
0 Replies
6. Shell Programming and Scripting
Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:
$files_lim =~ (/^\d*$/)
$files_lim =~ (/^\d*h$/)
$files_age =~ s/h//
The code where... (2 Replies)
Discussion started by: RedSpyder
2 Replies
7. Programming
What is the difference between the two statements below?
A:
$a->{"$fruit"}->{"$color"}->{size} = $size
B:
$size = $a->{"$fruit"}->{"$color"}->{size}
Please assist. Thanks! (0 Replies)
Discussion started by: onlinelearner02
0 Replies
8. Shell Programming and Scripting
Hi,
I need to understand below perl code, can some one advise me.
perl -MDate::Parse -e'BEGIN{$main::now=time;$main::old=(time-60*30)}' -nE'if(/^(\w+\s+\d+\s+\d+:\d+:\d+)/) {$t=str2time $1; $t > $old && $t < $now && print}' (1 Reply)
Discussion started by: learnbash
1 Replies
9. Shell Programming and Scripting
Hi guys,
I am still learning awk and much apprecated to shed some light on the following: the questions asked is below!
{
total = i = 0
do {
++i
total += $i
} while ( total <= 100 )
print i, ":", total
}
File used:
cat test.do
45 25 60 20
10 105 50 40
33 5 9 67
108 3 5 4 (2 Replies)
Discussion started by: Apollo
2 Replies
10. Programming
As the title suggests, I want to better understand the following assembly code:
section .text
global main ; must be declared for linker (gcc)
main: ; tell linker entry point
mov edx, len ; message length
mov ecx, msg ; message to write... (2 Replies)
Discussion started by: Azrael
2 Replies
LEARN ABOUT SUNOS
vsyslog
vsyslog(3C) Standard C Library Functions vsyslog(3C)
NAME
vsyslog - log message with a stdarg argument list
SYNOPSIS
#include <syslog.h>
#include <stdarg.h>
int vsyslog(int priority, const char *message, va_list ap);
DESCRIPTION
The vsyslog() function is identical to syslog(3C), except that it is called with an argument list as defined by <stdarg.h> rather than with
a variable number of arguments.
EXAMPLES
Example 1: Use vsyslog() to write an error routine.
The following demonstrates how vsyslog() can be used to write an error routine.
#include <syslog.h>
#include <stdarg.h>
/*
* error should be called like:
* error(pri, function_name, format, arg1, arg2...);
*/
void
error(int pri, char *function_name, char *format, ...)
{
va_list args;
va_start(args, format);
/* log name of function causing error */
(void) syslog(pri, "ERROR in %s.", function_name);
/* log remainder of message */
(void) vsyslog(pri, format, args);
va_end(args);
(void) abort( );
}
main()
{
error(LOG_ERR, "main", "process %d is dying", getpid());
}
ATTRIBUTES
See attributes(5) for descriptions of the following attributes:
+-----------------------------+-----------------------------+
| ATTRIBUTE TYPE | ATTRIBUTE VALUE |
+-----------------------------+-----------------------------+
|MT-Level |Safe |
+-----------------------------+-----------------------------+
SEE ALSO
syslog(3C), attributes(5)
SunOS 5.10 15 Nov 1999 vsyslog(3C)