Re: IO::Socket::SSL and SSL_verify_mode

2012-03-21 Thread ml
my error in my server script is Can't use an undefined value as a symbol reference at server.pl ligne 412 ligne 412 is $flags = fcntl($socket, F_GETFL, 0)or die "Can't get flags for socket: $!\n"; Please explain me clearly Le jeudi 22 mars 2012 à 01:45 +0100, ml a écrit

Re: IO::Socket::SSL and SSL_verify_mode

2012-03-21 Thread ml
ks only with 0x00 Le mercredi 21 mars 2012 à 17:33 -0700, Bob goolsby a écrit : > What was wrong with the answer you received on Perl Monks? > > > > > 2012/3/21 ml : > > hello list > > hello guru of perl > > hello all > > > > > > I seek to

IO::Socket::SSL and SSL_verify_mode

2012-03-21 Thread ml
hello list hello guru of perl hello all I seek to understand how to position the value SSL_verify_mode => 0x00. can you explain how to properly use this parameter in IO::Socket::SSL thank for reply sincerely -- http://pgp.mit.edu:11371/pks/lookup?op=g

I'd like to explain to me how to do testing on lists and list slices

2012-03-09 Thread ml
hello the list hello "the" perl guru hello this I want to know how to work on slices of lists. I has 3 slices of the form. $t[0] = user; $t[1] = ip; $t[2] = time(); the registration of the list are checked by me I know what the file contains and recording are separated by a space (/\s+/) I woul

Re: research for secure tchat client server use IO::Socket::SSL

2012-02-15 Thread ml
forgiveness for the bad presentation perl code see my post on PerlMonks http://www.perlmonks.org/?node_id=954050 Le 2012-02-15 20:51, ml a écrit : hi guys hi master of "Fu" any update I am doing some research on the server and client for the chat. I have long taken the trouble

research for secure tchat client server use IO::Socket::SSL

2012-02-15 Thread ml
hi guys hi master of "Fu" any update I am doing some research on the server and client for the chat. I have long taken the trouble to consult the documentation that is different and both PerlMonks different pages that deal with this vast subject. I try to find a minimal example because I want to

Broken unsubscribble

2002-01-04 Thread rich+ml
List admin: please unsub me manually, the ezmlm mailto is barfing on the '+' in my address. Thanks -- Rich -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Need help with workweek to week dates ...

2001-12-03 Thread rich+ml
Been a while since I had to do this... you need 'zeller congruence', an arithmetic formula to convert date to day-of-week (circa late 1800's IIRC). Google says 475 hits -- Rich On Mon, 3 Dec 2001, C.E.O. wrote: > Date: Mon, 3 Dec 2001 13:25:18 -0600 > From: C.E.O. <[EMAIL PROTECTED]> > To: [EMAI

Re: use strict and filehandles

2001-10-27 Thread rich+ml
IIRC the warning is intentionally suppressed if the alleged 'reserved word' is uppercase, i.e. it will complain about "open f,$file" but not "open F, $file". On Sat, 27 Oct 2001, Jan wrote: > Date: Sat, 27 Oct 2001 20:39:48 +0200 > From: Jan <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject:

Re: Listing directory contents

2001-10-18 Thread rich+ml
Mebbe something like this? sub ls { for (<$_[0]/*>) { print "$_\n"; ls($_) if -d; } } ls "."; On Tue, 16 Oct 2001, The Black Man wrote: > Date: Tue, 16 Oct 2001 08:10:31 -0700 (PDT) > From: The Black Man <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Listing directory contents > > Hi a

Re: convert hexa to text

2001-09-24 Thread rich+ml
If you mean that you have a string containing "61626364" and you want "abcd": print pack "a*", "61626364"; On Mon, 24 Sep 2001, Hernan wrote: > Date: Mon, 24 Sep 2001 13:50:52 -0400 > From: Hernan <[EMAIL PROTECTED]> > To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> > Subject: convert hexa to text

Re: Problems using REGEXP

2001-09-11 Thread rich+ml
OK, first: $job{ra}=~/^(.*)\d\d/ does two things: returns true if $job{ra} contains two digits, and assigns the portion of the string BEFORE the two digits to $1. Second: The ? is not part of the regex. Syntax x?y:z evaluates to y if x is true, or to z if x is false, basically an inline if-then

Re: Problems using REGEXP

2001-09-10 Thread rich+ml
For position, try: $p=($job{ra}=~/^(.*)\d\d/?length $1:-1); $p is 0-based index of '\d\d', or -1 if none. On 10 Sep 2001, Rupert Heesom wrote: > Date: 10 Sep 2001 12:28:11 -0400 > From: Rupert Heesom <[EMAIL PROTECTED]> > To: Beginners Perl <[EMAIL PROTECTED]> > Subject: Problems using REGEXP