Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl issue ..
Top Forums Shell Programming and Scripting perl issue .. Post 302235951 by KevinADC on Saturday 13th of September 2008 11:22:10 PM
Old 09-14-2008
You can use a look up hash that points to subrotuines depending on the operator, an short example:

Code:
%com = (
   and => \&and,
);	

$one{val1} = 9;
$one{cond} = 'and';
$one{val2} = 13;
$val = 10;

if ($com{$one{'cond'}}->($val,$one{'val1'},$one{'val2'})) {
   print "true";
}

sub and {
   my ($v0,$v1,$v2) = @_;
   return(1) if ($v0 >= $v1 && $v0 <= $v2);
   return(0);
}

Note that '=>' is not a comparison operator, it is the comma operator.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

issue with if loop in perl

Hi I have a log file, I am having problem with "if else" loop in my perl script which does, find a string in that file ,If that string is found append to success.txt else append it to failed.txt. problem is: else part of loop it is not working I am adding problem part of the script. ... (4 Replies)
Discussion started by: amitrajvarma
4 Replies

2. Shell Programming and Scripting

Perl Script Issue - Please Help * Thanks!!!

Please help me with my script please. I am trying to do the following: 1. Read files for the current directory 2. Open and read from nbe files files only 3. Read only the lines with the results pattern 4. Split the line and print 3rd field Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies

3. Shell Programming and Scripting

Perl Issue

Hi, I got this script from the web, this generates an LDAP report in CSV format. #!/usr/bin/perl # # Copyright (c) 2004 # Ali Onur Cinar &060;cinar&064;zdo.com&062; # # License: # # Permission to use, copy, modify, and distribute this software and its # documentation for... (23 Replies)
Discussion started by: raj001
23 Replies

4. Shell Programming and Scripting

Perl issue - please help!

Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Discussion started by: akreibich07
7 Replies

5. Shell Programming and Scripting

wc -l command issue with perl

Hi Team, the Following program execute with out error but the out is not save with create2.txt. kindly help me!!! print "Enter your Number \n"; my $name = <STDIN>; if ($name =="*91111*") { @dirlist1 = `wc -l $name > create2.txt`; } else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies

6. Shell Programming and Scripting

perl command issue

Hi, Please could someone advise on a perl command : export ENVPROP="$HOME/cfg/environment.properties.template" export LM_LICENSE=`awk -F= '!/^#/ && /LM_LICENSE/{print $2}' environment.properties` echo $LM_LICENSE $DATA_FILE/licenses/sample.demo.lic perl -i -npe... (1 Reply)
Discussion started by: venhart
1 Replies

7. Shell Programming and Scripting

PERL - issue with OPEN

Hi, I have a menu script written in PERL which calls some shell scripts and displays the return. I'm having a problem with OPEN. A section of the code is below: `./scriptlist.ksh 1`; open OUTPUT, "</home/$SCRIPTUSER/output"; { local $/ = undef; $_ =... (2 Replies)
Discussion started by: chris01010
2 Replies

8. Shell Programming and Scripting

Perl format issue

Input : day :15 and count -100 printf ("%6.6ld %10.10s %s\n",day,count) any idea what would be the format it will be. (3 Replies)
Discussion started by: ramkumar15
3 Replies

9. Shell Programming and Scripting

Out of memory issue in perl

I am getting a out of memory issue while executing the perl program. Per version : /opt/acc_perl/lib/site_perl/5.14.2 Read in 54973 total records Read in 54973 table records from table. Out of memory! so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies

10. Programming

Perl - EMail issue - NEED Help

I have a perl that is sending emails in a bad format: "begin 644 Included.doc M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies

LEARN ABOUT FREEBSD

dwarf_add_fde_inst

DWARF_ADD_FDE_INST(3)					   BSD Library Functions Manual 				     DWARF_ADD_FDE_INST(3)

NAME

     dwarf_add_fde_inst -- add a call frame instruction to a DWARF frame descriptor

LIBRARY

     DWARF Access Library (libdwarf, -ldwarf)

SYNOPSIS

     #include <libdwarf.h>

     Dwarf_P_Fde
     dwarf_add_fde_inst(Dwarf_P_Fde fde, Dwarf_Small op, Dwarf_Unsigned val1, Dwarf_Unsigned val2, Dwarf_Error *err);

DESCRIPTION

     Function dwarf_add_fde_inst() adds a call frame instruction to the DWARF frame descriptor referenced by argument fde.

     Argument fde should reference a frame descriptor allocated using dwarf_new_fde(3).

     Argument op specifies the operator for the frame instruction.  The DWARF standard defines the set of legal values for this argument.

     Argument val1 specifies the first operand of the frame instruction.

     Argument val2 specifies the second operand of the frame instruction.

     If argument err is not NULL, it will be used to store error information in case of an error.

RETURN VALUES

     On success, function dwarf_add_fde_inst() returns the frame descriptor given in argument fde.  In case of an error, function
     dwarf_add_fde_inst() returns DW_DLV_BADADDR and sets the argument err.

ERRORS

     Function dwarf_add_fde_inst() can fail with:

     [DW_DLE_ARGUMENT]		      Argument fde was NULL.

     [DW_DLE_FRAME_INSTR_EXEC_ERROR]  The frame instruction operator specified in argument op was invalid.

     [DW_DLE_MEMORY]		      An out of memory condition was encountered during the execution of the function.

SEE ALSO

     dwarf(3), dwarf_add_frame_fde(3), dwarf_add_frame_fde_b(3), dwarf_add_frame_cie(3), dwarf_fde_cfa_offset(3), dwarf_new_fde(3)

     The DWARF Debugging Information Format, Version 4, http://www.dwarfstd.org/.

BSD
								September 26, 2011							       BSD
All times are GMT -4. The time now is 09:32 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy