Sponsored Content
Top Forums Shell Programming and Scripting Need help in understanding thisperl code. Post 302299070 by Raheel Hassan on Thursday 19th of March 2009 06:14:30 AM
Old 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

Little Trouble Understanding some code...

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

Understanding Code in IF LOOP

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

Problems understanding example code

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

Understanding the code

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

Help understanding Perl code.

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

Help understanding some Perl code.

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

Understanding perl code

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

Help with perl code understanding

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

[Solved] Help understanding this code!!

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

Understanding Assembly Code

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
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)
All times are GMT -4. The time now is 04:52 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy