Perl IF Issue

intoperl has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Perl IF Issue by stevieb (Canon) on Aug 20, 2015 at 15:28 UTC
Put `print ">$HOSTNME< >$SRVCHX<";` right before the `if` statement. It should print without a line break, and the arrows should be right next to the expected text. First thing to do in these situations is verify that your data is exactly what you expect.	[reply] [d/l] [select]
Re^2: Perl IF Issue by intoperl (Acolyte) on Aug 20, 2015 at 16:00 UTC
Thanks Stevieb for your suggestion. Here how it looks like after i did what you told (when i keep the both the argurments same): `>tantra.zdr.moksha.com < >tantra.zdr.moksha.com<` [download]	[reply] [d/l]
Re^3: Perl IF Issue by stevieb (Canon) on Aug 20, 2015 at 16:03 UTC
Do a `chomp $HOSTNME;` prior to the `if` statement. That variable has an attached newline (`\n`) at the end if it. Update: See `perldoc -f chomp` to understand the purpose of `chomp`. -stevieb	[reply] [d/l] [select]
Re: Perl IF Issue by choroba (Cardinal) on Aug 20, 2015 at 15:27 UTC
Are you sure the strings are exactly the same? Try comparing them character by character: `die "Different length" if length $HOSTNME != length $SRVCHX; for my $pos (0 .. length($HOSTNME) - 1) { warn warn "$HOSTNME\n", " " x $pos, "\| $pos\n$SRVCHX\n" if substr($HOSTNME, $pos, 1) ne substr($SRVCHX, $pos, 1); }` [download] Also, do you use strict? Just to make sure there's no typo in the variables' names. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^2: Perl IF Issue by intoperl (Acolyte) on Aug 20, 2015 at 16:04 UTC
Hi Choroba, thanks for your reply. yes i am using strict. And below is the output when i did the testting your ways : Different length at ./cpu_chk.pl line 149, <STDIN> line 1.	[reply]
Re: Perl IF Issue by dasgar (Priest) on Aug 20, 2015 at 16:00 UTC
In addition to the suggestions about checking the values of the two variables, I've got two ideas. First thought: do you have the variable names correct? Using a variable named $HOSTNME instead of $HOSTNAME seems a bit odd to me personally and I'm just wondering if you might have a slight typo there. As choroba pointed out, using strict will help catch this kind of typo with variable names. The other idea is that maybe the two variables have basically the same string, but without exact case matching (such as 'MyServer' and 'myserver'). The eq operator is looking for exact matches, which means that it is doing case-sensitive matching. If you want/need case-insensitive matching, you just need to use a simple regex instead. Basically, change: `if($SRVCHX eq $HOSTNME )` to be: `if($SRVCHX =~ m/$HOSTNME/i )`	[reply] [d/l] [select]
Re^2: Perl IF Issue by stevieb (Canon) on Aug 20, 2015 at 16:13 UTC
You need to create boundaries to get an exact match when using that syntax: `if($SRVCHX =~ m/^$HOSTNME$/i)` [download] or else things like `"one" =~ /on/i;` will match.	[reply] [d/l] [select]
Re^3: Perl IF Issue by Monk::Thomas (Friar) on Aug 20, 2015 at 16:17 UTC
Got one, missed one. The provided example value was an FQDN and contains dots. ;)	[reply]
Re^4: Perl IF Issue by stevieb (Canon) on Aug 20, 2015 at 16:26 UTC
Re^4: Perl IF Issue by intoperl (Acolyte) on Aug 20, 2015 at 16:37 UTC
Re^3: Perl IF Issue by intoperl (Acolyte) on Aug 20, 2015 at 16:38 UTC
Thanks Stevieb, your trick worked. Great Help:)	[reply]
Re^2: Perl IF Issue by Monk::Thomas (Friar) on Aug 20, 2015 at 16:15 UTC
`if($SRVCHX =~ m/^\Q$HOSTNME\E$/i )` [download]	[reply] [d/l]
Re^2: Perl IF Issue by intoperl (Acolyte) on Aug 20, 2015 at 16:36 UTC
Thanks dasgar	[reply]
Re: Perl IF Issue by Random_Walk (Prior) on Aug 21, 2015 at 09:22 UTC
Good `$localtime` I see this in your code: `message("host test : $HOSTNME"); ----> testing to check current hostname(good)` I guess `$HOSTNAME` is the name of the host you are running on. If so a nice portable way to get this, is to use `Sys::Hostname` (in Perl Core) `use strict; use warnings; use Sys::Hostname; print "I am running on:". hostname .", thank you and goodnight\n";` [download] `Sys::Hostname` creates the constant `hostname` that provides a nice clean, portable, line break free instance of your hostname. You may want to copy it to $host for easier use in strings: `use strict; use warnings; use Sys::Hostname; my $host = hostname; print "I am running on: $host, thank you and goodnight\n";` [download] Cheers, R. Pereant, qui ante nos nostra dixerunt!	[reply] [d/l] [select]