No output in Commmand prompt from the code. 3

[DaSe]

Hi all ,

My question is regarding the code below.When I try to execute it there's no output in command prompt or other intrpreters ( it leaves a blank space ).I'm using ActivePerl and get "Hello World" correctly.I notice that the interpreter has problmes with Reg. expression operators =~ or maybe there's a unicode problems ? Thanks .


$myStr = "men";

if($myStr =~ m/ e{1}/)
{
print("e is found in $myStr");

} else {print("not ok") ; }

 

[travs69]

works just fine on activestate 5.8.8 (your code gets the not ok, removing the leading space before the e gets you is found message). I "think" that {1} format is only valid on 5.8 and above.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[DaSe]

Hi Travs69.Thank you but I'm using the latest version of ActivePerl.I have been tryingy DzSoft Perl interpreter and the same thing - no output.Quite confused 'cuz it looks like the interpreter has only problems with binding operators.

 

[stevexff]

Run this, then

use strict;
use warnings;

my $tilde = '~';

print ord($tilde), "\n";

Mine gives 126. If yours is anything else, looks like you have a character mapping problem.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[DaSe]

Thanks Stevexff.Yep I ran it and indeed got 126 - what is even more confusing.Nonetheless , I agree with you that it might or is a character mapping problem.When I run 'edit' command in cmd - I cannot get tilde or hash symbol from the button on which they appear but get them from other buttons - the script however doesn't execute properly either.

 

[stevexff]

DaSe

What are you using to edit the your Perl scripts? Not a word processor I hope...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[DaSe]

Hi Steve.Yes, the truth is ( a brutal programming truth for you I guess ) is that I use notepad BUT I have tried to use DzSoft Perl and I also got no output...I have tried to save the files in Unicode / Utf-8 and it didn't solve a problem.However on one occasion I was getting the correct output from a file in another folder - what made be max confused - I replaced this file with the same of course extension and - no output still.

 

[DaSe]

I need to add that I got no virues / trojans etc. and have spanking clean registry if that matters with no suspensions from the programs.

 

[KevinADC]

I "think" that {1} format is only valid on 5.8 and above.

The {n,n} {n} {,n} {n,} quantifier has been around for a long long time.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

I wish I had a vista box to test with Have you asked on activestates forums?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[DaSe]

Hi guys , yep I'm about to post it on Active State Vista forums.

 

[KevinADC]

DaSe,

is this all the code?

$myStr = "men";

 if($myStr =~ m/ e{1}/)
{
 print("e is found in $myStr");

} else {print("not ok") ; }

You are not loading any modules or pragmas?



------------------------------------------
- Kevin, perl coder unexceptional!

 

[DaSe]

Hi Kevin.This is all.A basic code from a bigger one that I just noticed that it's not working.No modules , no pragmas.
When it has 'else' command - I get 'not ok' when I skip else command - I get a blank space.

 

[travs69]

I said I "think", I just never remember seeing it in the 5.6 documentation. But I do believe you

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

Hi Kevin.This is all.A basic code from a bigger one that I just noticed that it's not working.No modules , no pragmas.
When it has 'else' command - I get 'not ok' when I skip else command - I get a blank space.

Then the code is working. Your regexp will not match the string, Travis already explained why.

works just fine on activestate 5.8.8 (your code gets the not ok, removing the leading space before the e gets you is found message). I "think" that {1} format is only valid on 5.8 and above.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[KevinADC]

I said I "think", I just never remember seeing it in the 5.6 documentation. But I do believe you

Yes, just letting you know so it's no longer something you are unsure of.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[DaSe]

Hi Kevin.Look one more time at the code. If the match operator finds 'e' 1 time in the string 'men' then the output is 'e is found' when it doesn't then you get 'not ok'.But there is e in the string that appears 1 time and the output must be 'e is found' instead I get 'not ok' and if I don't use 'else' command I get a blank space . I'm a beginner but you confused me ? Or I'm completely wrong in this case ? Regards.

 

[DaSe]

I got Kevin - I apologise.Yes I have removed the leading space and got this lovely output 'ok' . Thank you all guys for answers - you are much more than necessary with your great knowledge.Thanks to all.

 

[KevinADC]

You're welcome

------------------------------------------
- Kevin, perl coder unexceptional!