Sponsored Content
Full Discussion: perl if condition problem
Top Forums Shell Programming and Scripting perl if condition problem Post 302343690 by shriyer on Thursday 13th of August 2009 09:53:26 AM
Old 08-13-2009
perl if condition problem

if ( ( ( $val eq "ssd_max_throttle" ) || ( $val eq "ssd_io_time" ) ) && ( $proc eq "i386" ) ) {
print "im in";
next CONFLINE;
}

The code never goes in to the braces, even though $proc is i386,
and when the larger code parses thru values of Solaris kernel variables, and $var becomes ssd_max_throttle and then ssd_io_time.

If I eliminate the && ( test for $proc ) it goes into the braces.
I have printed out proc just outside this statement, and it is getting set as i386.

What am I doing wrong with this if statement ?
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

problem with if condition

hi, :) pls consider the following if statement if //g') ] then ........ else ....... when i execute the script i am getting the following error '(' unexpected I am not able to find the mistake. could anybody tell where i did mistake. cheers RRK (13 Replies)
Discussion started by: ravi raj kumar
13 Replies

2. Shell Programming and Scripting

problem in if then else condition

Hi , I am trying the following simple script . But it is always giving 1 output. Dont know why #!/bin/sh find . -name "a.log" if ; then echo "1" else echo "0" fi Kindly advice. it is giving 1 output even when the a.log file is not there (26 Replies)
Discussion started by: himvat
26 Replies

3. Shell Programming and Scripting

Condition statement in perl

#!/usr/bin/perl $output1 = "/home/log.txt" $output2 = "/home/grep.txt" #Statement1 creates an output file called log.txt. #Statement2 greps a line from log.txt and store the result in grep.txt I want to create a condition where if the file grep.txt is empty repeat process. Thanks. (1 Reply)
Discussion started by: sureshcisco
1 Replies

4. Shell Programming and Scripting

If condition problem

Hi, I need to use if condition for search a file pattern on a particular location. cd $file_Path if || then do this else do that fi Can someone help me with the if part, how i can put those conditions? make sure format should be *.file* and *.file file is a keyword which i... (5 Replies)
Discussion started by: amit.mathur08
5 Replies

5. Shell Programming and Scripting

Perl Array Condition

Hello, I want to check if all element of an array have the same value regardless the length of the array. example: @array1 = qw(44 44 44 44); @array2 = qw(55 55 55 55 55 55 55); Please advice, Ahmed (11 Replies)
Discussion started by: ahmed_zaher
11 Replies

6. Shell Programming and Scripting

if condition problem!

Hi All, I'm a newbie here, I'm just wondering how can i disable my 1st sed command if there's no file found on Yes_Directory and process instead the No_Directory because there's a file found on it. Yes_Directory="/home/yes/ No_Directory="home/no/ script: if ; then sed -i... (8 Replies)
Discussion started by: nikki1200
8 Replies

7. Shell Programming and Scripting

perl -Calling the Subroutine Only if the condition is met

Hello All, I am in the process of learning perl.I have a perl script and based on the arguments passed it would the appropriate subroutine that is defined in the script. Now, I need to check a value that is defined in the Environment variables and should call the subroutine only if the... (1 Reply)
Discussion started by: filter
1 Replies

8. Shell Programming and Scripting

If condition problem

Hi All, I am using below if condition to check whether null is passed as a parameter to the program if or ; then echo "ABC">>$FILE else echo "CDF">>$FILE fi However it is saying me null=null command not found . Please help me with this (9 Replies)
Discussion started by: Hypesslearner
9 Replies

9. Shell Programming and Scripting

Condition problem

Hi All, Seeking for your assistance on how to condition it correctly. cat file1.txt 290,1663,43,888,0,0.00,86.91,0.00,26.98,0.00 290,1663,52,0,0,0.00,0.00,0.00,0.00,0.00 290,1663,52,888,0,0.00,34.60,0.00,9.00,0.00 1st scenario: if the fourth column contains 888s and 0s it is by... (16 Replies)
Discussion started by: znesotomayor
16 Replies
X11Font(3)						User Contributed Perl Documentation						X11Font(3)

NAME
Tk::Font - a class for finding X Fonts SYNOPSIS
use Tk::X11Font; $font = $widget->X11Font(foundry => 'adobe', family => 'times', point => 120 ); $font = $widget->X11Font('*-courier-medium-r-normal-*-*'); DESCRIPTION
This module can be use to interrogate the X server what fonts are avaliable. METHODS
Foundry( [ $val ] ) Family( [ $val ] ) Weight( [ $val ] ) Slant( [ $val ] ) Swidth( [ $val ] ) Adstyle( [ $val ] ) Pixel( [ $val ] ) Point( [ $val ] ) Xres( [ $val ] ) Yres( [ $val ] ) Space( [ $val ] ) Avgwidth( [ $val ] ) Registry( [ $val ] ) Encoding( [ $val ] ) Set the given field in the font name to $val if given and return the current or previous value Name( [ $max ] ) In a list context it returns a list of all font names that match the fields given. It will return a maximum of $max names, or 128 if $max is not given. In a scalar contex it returns the first matching name or undef Clone( [ key => value, [ ...]] ) Create a duplicate of the curent font object and modify the given fields AUTHOR
Graham Barr <Graham.Barr@tiuk.ti.com> HISTORY
11-Jan-96 Initial version 08-Nov-98 Renamed for Tk800.012 COPYRIGHT
Copyright (c) 1995-1996 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.12.1 2007-05-05 X11Font(3)
All times are GMT -4. The time now is 06:40 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy