Re: Windows 7 64 bit Make.exe file

[Sisyphus]

- Original Message - 
From: "Sean Murphy" 

To: 
Sent: Tuesday, January 18, 2011 9:23 PM
Subject: Windows 7 64 bit Make.exe file


Hi all.

I cannot install any CPAN libraries because CPAN complains that I don't have 
a 64 bit Make executible. I have installed the Express 2010 C++ package from 
Microsoft. It didn't help.


=

If you have ActivePerl, CPAN will be wanting to find nmake.exe - and I would 
think nmake.exe would be part of the compiler package you installed.


Having installed that compiler, you then usually need to run a batch file 
(from the command line) prior to using it. That batch file (which ships with 
the compiler) will alter the environment so that things like nmake.exe, 
cl.exe and the various libraries and headers *do* get found.
Only thing is, I don't know exactly what the batch file is called - maybe 
vcvarsall.bat or vcvars64.bat or vsvars64.bat or something like that ... See 
if you can find it and give it a try.


The ideal MS compiler to use with x64 ActivePerl builds is the "Microsoft 
Platform SDK for Windows Server 2003 R2", as that's the compiler used to 
build x64 ActivePerl. It's still freely available for download from 
Microsoft, but a bit tricky to get hold of - if you're not careful the 
"Microsoft Platform SDK for Windows Server 2003 R2" download links that you 
follow morph into links that give you an updated version of that compiler. 
(But it can be done if you find the right links.)


For x64 Windows perl builds especially, Strawberry Perl is a simpler 
proposition when it comes to installing modules using CPAN. (It uses the 
dmake make utility, and the mingw-w64.sf port of the gcc compiler.)


Cheers,
Rob 



--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: how to trap print() errors?

[C.DeRykus]

On Jan 17, 3:45 pm, dpchr...@holgerdanske.com (David Christensen)
wrote:
> Ron Bergin wrote:
> > It's interesting that you found the warning message to be meaningless,
> > but the exact same message was helpful when you told the pragma to
> > raise the level of warnings to be fatal.
> > I should have said nearly the same message.  Both messages told you where
> > the problem was located and with that info it should have been easy to
> > find/fix the problem.  In my mind that's not meaningless.
>
> The root cause problem is that "perldoc -f print" does not describe what
> happens on error.  I've filed a perlbug report to this effect.
>

Actually it does this... as you discovered in the doc:

Prints a string or a list of strings. Returns true if
successful...

In this case, $! is EBADF or "Bad file descriptor" which might
be due to some obscure OS error unknown to perl. So perl
can't necessarily pinpoint the exact cause with a meaningful
message at this stage but at least first warns you about the
unopened  filehandle. (and that unopened filehandle warning,
as it turns out,  is certainly a cause of  EBADF).

And I'd agree that the docs should mention $! as perl does
here:

unlink  Deletes a list of files. On success, it returns the
  number of files it successfully deleted. On failure,
  it returns false and sets $! (errno):

And  many other perl i/o docs omit mention that  $! gets
set and  if there's failure such as truncate, stat, link, ...

However,  $! may be generic and dying on an earlier warning
may not always be particularly meaningful in explaining what's
really happening as it did in your case.


--
Charles DeRykus


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Smart matching

[Vladimir D Belousov]

19.01.2011 0:43, Brian Fraser пишет:

The smart match is no longer commutative - That was removed after 5.10.1, I
think.

http://www.learning-perl.com/?p=32
http://perldoc.perl.org/perlsyn.html#Smart-matching-in-detail

Brian.


Thank you!


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Smart matching

[Brian Fraser]

The smart match is no longer commutative - That was removed after 5.10.1, I
think.

http://www.learning-perl.com/?p=32
http://perldoc.perl.org/perlsyn.html#Smart-matching-in-detail

Brian.

Re: Windows 7 64 bit Make.exe file

[Brandon McCaig]

On Tue, Jan 18, 2011 at 5:23 AM, Sean Murphy  wrote:
> I cannot install any CPAN libraries because CPAN complains that I don't have 
> a 64 bit Make executible. I have installed the Express 2010 C++ package from 
> Microsoft. It didn't help.
>
> I couldn't find anything on the web that clearly indicated what was required 
> to resolve this issue. Any help is greatly welcomed.

I've heard that Strawberry Perl comes with everything that you need
for installing CPAN modules in Windows. :) As a test, I just tried
installing HTTP::Daemon::SSL with Strawberry Perl and it seems to have
worked. :) Is it an option to install Strawberry Perl instead of
whatever other distribution you're using?


-- 
Brandon McCaig  
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software  

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Smart matching

[Vladimir D Belousov]

19.01.2011 0:09, Uri Guttman пишет:
but why don't you just call exists on the hash key? there is no win to 
using smart matching for that. it is included for consistancy but it 
isn't needed for hash keys.




I just want to understand how does it work :)


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Windows 7 64 bit Make.exe file

[Sean Murphy]

Hi all.

I cannot install any CPAN libraries because CPAN complains that I don't have a 
64 bit Make executible. I have installed the Express 2010 C++ package from 
Microsoft. It didn't help.

I couldn't find anything on the web that clearly indicated what was required to 
resolve this issue. Any help is greatly welcomed.

Sean 

Re: Smart matching

[Uri Guttman]

> "VDB" == Vladimir D Belousov  writes:

  VDB> I'm trying to check whether the given key exists in the hash.

smart matching is powerful and cool but why don't you just call exists
on the hash key? there is no win to using smart matching for that. it is
included for consistancy but it isn't needed for hash keys.

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Smart matching

[Vladimir D Belousov]

I'm trying to check whether the given key exists in the hash.
The simple example:

use feature ':5.10';

my %a = (a => 1, b => 2);
say %a ~~ 'a' ? 'YES' : 'NO';# says NO -- why?
say %a ~~ 'c' ? 'YES' : 'NO';# says NO
say 'a' ~~ %a ? 'YES' : 'NO';# says YES
say 'c' ~~ %a ? 'YES' : 'NO';# says NO

There is a description of smart mathing operator:
http://search.cpan.org/~rgarcia/perl-5.10.0-RC1/pod/perlsyn.pod#Smart_matching_in_detail
"...The behaviour of a smart match depends on what type of thing its 
arguments are. It is always commutative, i.e. |$a ~~ $b| behaves the 
same as |$b ~~ $a|..."


Why is the result of %a ~~ 'a' differs from the result of 'a' ~~ %a ?

Re: Perl Mail::Sendmail encoding problem

[Uri Guttman]

> "SF" == Shlomi Fish  writes:

  SF> Don't slurp files this way:

  SF> http://perl-begin.org/tutorials/bad-elements/#slurp

if you are going to show a slurp sub in your tutorial at least show a
good one. look at my slurp article in the File::Slurp distro for a
better and faster one. avoiding perl's i/o is key to speed. and i don't
mean using File::Slurp itself which you mention.

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: How to convert EURO Symbol € character to Hex

[Khabza Mkhize]

I have end up using ASCII Encoding instant of UTF-8
it does not find any thing if I use 'BC' . chr(0x20AC) . '01'  then i
change to 'BC' . chr(0x80) . '01'

The following code works

if ( $euros eq 'BC' . chr(0x80) . '01' ) {  # 0x20AC is the
hexadecimal value of €
 # ...
 }



which I am not sure if my code will work to all version of windows.
Is there a different between using ASCII or UTF-8?

Regards
Khabza
Green IT Web
http://www.greenitweb.co.za
> Hi Khabza,
>
>> now my problem is I cant type € symbol on my editor Textpad it return funny
>> characters like €
> Textpad probably allows you to set the encoding of the file to UTF-8,
> I think. Set it to UTF-8 so that you will be able to type in the €
> symbol.
>
>  use utf8;  # use whenever source code includes UTF-8
>
>  if ( $euros eq 'BC€01' ) {
>  # ...
>  }
>
>
> __OR__
>
>  if ( $euros eq 'BC' . chr(0x20AC) . '01' ) {  # 0x20AC is the
> hexadecimal value of €
>  # ...
>  }
>
> Regards,
> Alan Haggai Alavi.

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Perl Mail::Sendmail encoding problem

[Shlomi Fish]

Hi sync,

On Tuesday 18 Jan 2011 03:17:21 sync wrote:
> Greetings all,
> 
> I have to send emails through a smtp server, with Chinese  character
> encoding.
> 
> 
> In details , the  encoding of my  send mail is UTF-8, but the encoding of
> 
> others received is GB2321 , so it will apprears with "weird" characters.
> 
> 
> Does anyone has any working example or any suggestion please ?
> 

Maybe look into the Encode module and maybe try 
http://search.cpan.org/dist/Email-Sender/ instead of Mail-Sendmail.

Now a few comments on your code:

> Best Regards,
> 
> 
> My code is :
> 
>1. #!/usr/bin/perl
>2.
>3.
>4. use strict;

Also add "use warnings;".

>5. use Mail::Sendmail;
>6. use MIME::Base64;
>7.
>8. my $content = `cat tmp.txt`;
>9.

Don't slurp files this way:

http://perl-begin.org/tutorials/bad-elements/#slurp


>10. print "Sending an email .";
>11.

Don't you want a \n here?

>12. my %mail = (
>13.   To=> "x...@xx.com",
>14.   From =>  "x...@xx.com",
>15.Subject   => "test",
>16.content-type   => "text/plain",
>17.content-transfer-encoding => 'base64',
>18. Message => $content,
>19.   smtp   => "xx.xx.xx",

These are not aligned properly.

>20. );
>21.
>22.
>23. if  (sendmail %mail) { print "Mail send ok!\n";}
>24.

Please Indent properly.

>25. else {print "Error : $mail::Sendmail::errror\n"}
> 

It should be:  "$Mail::Sendmail::error" - you have a lowercase "m" and three 
consecutive "r"'s instead of two.

http://search.cpan.org/~mivkovic/Mail-
Sendmail-0.79/Sendmail.pm#$Mail::Sendmail::error

> 
> The "tmp.txt" is the content of Chinese .

Regards,

Shlomi Fish

-- 
-
Shlomi Fish   http://www.shlomifish.org/
Funny Anti-Terrorism Story - http://shlom.in/enemy

Chuck Norris can make the statement "This statement is false" a true one.

Please reply to list if it's a mailing list post - http://shlom.in/reply .

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Octavian Rasnita]

From: "Uri Guttman" 

"AM" == Alexey Mishustin  writes:


 AM> I used brackets not for storing but for combining in order to use the
 AM> combined patterns in alternation.

the point is parens (the correct term. brackets are []) is they will
grab the match inside them and store it in $1 and friends. grouping
without grabbing is more efficient and also tells the reader (that
person again! :) that they shouldn't look for using $1 (or whatver
number) after this regex is used.

 AM> Oops. Evidently, I was wrong in this combining... I meant

 AM> (imgres)

 AM> OR

 AM> (images)

 AM> OR

 AM> (products)

nope. you mean (:?imgres|images|products).

uri



The correct syntax is (?:imgres|images|products).

The wrong syntax appeared in 2 messages and it might cause confusion.

Octavian


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Module supporting certifics

[Sean Murphy]

Hi All.

what modules are out there that support ssl certificis that would work with WPL?

Sean 

Re: regex for matching Google URLs

[Alexey Mishustin]

1/18/2011, "Uri Guttman"  вы писали:

>> "AM" == Alexey Mishustin  writes:
>
>  AM> 1/18/2011, "Uri Guttman"  вы писали:
>
>  >>> "AM" == Alexey Mishustin  writes:
>  >> 
>  AM> I used brackets not for storing but for combining in order to use the
>  AM> combined patterns in alternation.
>  >> 
>  >> the point is parens 
>
>  >> (the correct term. brackets are [])
>  AM> Eh... Useful correction.
>
>  AM> And what is the correct term. for {} ?
>
>braces.
>
>() are parentheses or parens for short
>[] are (square) brackets
>{} are (curly) braces
>
>i don't know the russian versions! :)

() круглые скобки - literally, round brackets
[]  квадратные скобки - literally, square brackets
{} фигурные скобки - literally, figured brackets

:)

--

Regards,
Alex

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Uri Guttman]

> "AM" == Alexey Mishustin  writes:

  AM> 1/18/2011, "Uri Guttman"  вы писали:

  >>> "AM" == Alexey Mishustin  writes:
  >> 
  AM> I used brackets not for storing but for combining in order to use the
  AM> combined patterns in alternation.
  >> 
  >> the point is parens 

  >> (the correct term. brackets are [])
  AM> Eh... Useful correction.

  AM> And what is the correct term. for {} ?

braces.

() are parentheses or parens for short
[] are (square) brackets
{} are (curly) braces

i don't know the russian versions! :)

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Uri Guttman]

> "AM" == Alexey Mishustin  writes:

  AM> 1/18/2011, "Alexey Mishustin"  вы писали:

  >> I meant
  >> 
  >> (imgres)
  >> 
  >> OR
  >> 
  >> (images)
  >> 
  >> OR
  >> 
  >> (products)

  AM> Uri wrote the correct alternation for that:

  AM> (imgres|images|products)

  AM> So, I should write

  AM> /(www\.){0,1}(google\.).*\/(imgres|images|products)\?{0,1}/

you are still grabbing and not just grouping. and of course you are
still using {0,1} instead of ?

and finally you are using / for the delimiter when {} looks much better
when you have / in the regex.

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Alexey Mishustin]

1/18/2011, "Uri Guttman"  вы писали:

>> "AM" == Alexey Mishustin  writes:
>
>  AM> I used brackets not for storing but for combining in order to use the
>  AM> combined patterns in alternation.
>
>the point is parens 

>(the correct term. brackets are [])
Eh... Useful correction.

And what is the correct term. for {} ?

>is they will
>grab the match inside them and store it in $1 and friends. grouping
>without grabbing is more efficient and also tells the reader (that
>person again! :) that they shouldn't look for using $1 (or whatver
>number) after this regex is used.
>
>  AM> Oops. Evidently, I was wrong in this combining... I meant
>
>  AM> (imgres)
>
>  AM> OR
>
>  AM> (images)
>
>  AM> OR
>
>  AM> (products)
>
>nope. you mean (:?imgres|images|products).

Yes, I see it now. Thanks again.

--

Regards,
Alex

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Alexey Mishustin]

1/18/2011, "Uri Guttman"  вы писали:

>> "AM" == Alexey Mishustin  writes:

>  AM> /(www.){0,1}(google\.).*\/(imgres)|(images)|(products)\?{0,1}/
>  >> 
>  >> {0,1} is just ? by itself.
>
>  AM> Yes, I know. But I like the {a,b} syntax more :) It's more uniform than
>  AM> ?,+,* etc.
>
>it is noisier and more people know the shortcuts. code so other people
>can read your code as it is for them, not yourself.

It's interesting, do most people here think so?

>  >> you don't need to grab things that are not used later on. also why grab
>  >> each trailing word separately which means it will be hard to tell what
>  >> word was there.
>
>  AM> Where did I grab things that are not used later? What do you mean by
>  AM> trailing word?
>
>look in perldoc perlre and look at the difference between (foo) and
>(:?foo). 

"This may substantially slow your program. Perl uses the same mechanism
to produce $1, $2, etc, so you also pay a price for each pattern that
contains capturing parentheses. (To avoid this cost while retaining the
grouping behaviour, use the extended regular expression (?: ... )
instead.)"

Thanks. I'll know it.

>  >> using alternate delimiters means you don't need to escape / which makes
>  >> it easier to read.
>
>  AM> Sure.
>
>see, you agree about easier to read. do the same with your use of {a,b}.

I can consider the opinion of most people but I won't change my own
opinion because of that. For me, {a,b} is easier. Clearer and easier.

--

Regards,
Alex.

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Fwd: How to convert EURO Symbol € character to Hex

[Khabza Mkhize]

I have program which write data to SQL Database, one of my input field is €
but it was working fine all along one day one of my user was working from
home using remote connection to the office. He save some data when come back
found all data that include euro € character have

weird like "BC�01" instant of BC€01


now I am trying to pattern match the string value and convert it to another
value


eg if ($euros eq 'BC€01'){

$euros = 'EUROS';

}


now my problem is I cant type € symbol on my editor Textpad it return funny
characters like €


kind
Khabza
Green IT Web
http://www.greenitweb.co.za

Re: regex for matching Google URLs

[Uri Guttman]

> "AM" == Alexey Mishustin  writes:

  AM> I used brackets not for storing but for combining in order to use the
  AM> combined patterns in alternation.

the point is parens (the correct term. brackets are []) is they will
grab the match inside them and store it in $1 and friends. grouping
without grabbing is more efficient and also tells the reader (that
person again! :) that they shouldn't look for using $1 (or whatver
number) after this regex is used.

  AM> Oops. Evidently, I was wrong in this combining... I meant

  AM> (imgres)

  AM> OR

  AM> (images)

  AM> OR

  AM> (products)

nope. you mean (:?imgres|images|products).

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Uri Guttman]

> "AM" == Alexey Mishustin  writes:

  AM> 1/18/2011, "Uri Guttman"  вы писали:

  >>> "AM" == Alexey Mishustin  writes:
  >> 
  AM> /(www.){0,1}(google\.).*\/(imgres)|(images)|(products)\?{0,1}/
  >> 
  >> {0,1} is just ? by itself.

  AM> Yes, I know. But I like the {a,b} syntax more :) It's more uniform than
  AM> ?,+,* etc.

it is noisier and more people know the shortcuts. code so other people
can read your code as it is for them, not yourself.

  >> you don't need to grab things that are not used later on. also why grab
  >> each trailing word separately which means it will be hard to tell what
  >> word was there.

  AM> Where did I grab things that are not used later? What do you mean by
  AM> trailing word?

look in perldoc perlre and look at the difference between (foo) and
(:?foo). 

  >> using alternate delimiters means you don't need to escape / which makes
  >> it easier to read.

  AM> Sure.

see, you agree about easier to read. do the same with your use of {a,b}.

uri

-- 
Uri Guttman  --  u...@stemsystems.com    http://www.sysarch.com --
-  Perl Code Review , Architecture, Development, Training, Support --
-  Gourmet Hot Cocoa Mix    http://bestfriendscocoa.com -

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Alexey Mishustin]

1/18/2011, "Alexey Mishustin"  вы писали:

>I meant
>
>(imgres)
>
>OR
>
>(images)
>
>OR
>
>(products)

Uri wrote the correct alternation for that:

(imgres|images|products)

So, I should write

/(www\.){0,1}(google\.).*\/(imgres|images|products)\?{0,1}/

--

Regards,
Alex

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: regex for matching Google URLs

[Alexey Mishustin]

1/18/2011, "John W. Krahn"  вы писали:

>Alexey Mishustin wrote:
>>
>> 1/18/2011, "Grant"  вы писали:
>>
>>> I came up with these but they don't seem to work reliably:
>>>
>>> /\.google\..*\/imgres\?/
>>> /\.google\..*\/images\?/
>>> /\.google\..*\/products\?/
>>
>> /(www.){0,1}(google\.).*\/(imgres)|(images)|(products)\?{0,1}/
>
>That says:
>
>(www.){0,1}
>
>Match a four character string, beginning with 'www', zero or one time,
>and store the match in $1

The point should be escaped as I wrote already. So, match the string
'www.', zero or one time.

>(google\.)
>
>Match the string 'google.' and store it in $2,  Why?  We know it will
>always be 'google.'.
>
>.*\/
>
>Match zero or more non-newline characters up to, and including, the last
>'/' character.
>
>(imgres)
>
>Match 'imgres' and store it in $3.  Why?  We know it will always be
>'imgres'.
>
>(images)
>
>Match 'images' and store it in $4.  Why?  We know it will always be
>'images'.
>
>(products)
>
>Match 'products' and store it in $5.  Why?  We know it will always be
>'products'.
>
>\?{0,1}
>
>Match a '?' character zero or one times.

I used brackets not for storing but for combining in order to use the
combined patterns in alternation.

>And finally, you use alternation which says to match either:
>
>(www.){0,1}(google\.).*\/(imgres)
>
>OR:
>
>(images)
>
>OR:
>
>(products)\?{0,1}

Oops. Evidently, I was wrong in this combining... I meant

(imgres)

OR

(images)

OR

(products)

--

Regards,
Alex

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/