Re: What happened to Getopt::Std ?

[Miguel Santinho]

Em (On) Wed, Jun 13, 2007 at 09:29:27AM -0400, John Peacock escreveu (wrote):
  The Kurila project is a fork of Perl5 without the strict backwards 
 compatibility required of v5.10.0, as a theoretical experiment.  You'll note 
 now that under CPAN, it shows up as

Is CPAN (Comprehensive __Perl__ Archive Network) the right place to put
projects that are forks of Perl, and respectives modules?

Miguel



pgpLN7fIiJaIg.pgp
Description: PGP signature

Re: What happened to Getopt::Std ?

[Miguel Santinho]

Em (On) Wed, Jun 13, 2007 at 09:03:09AM +0100, Jorge Almeida escreveu (wrote):
  http://search.cpan.org/search?m=moduleq=getopts=21

What is this Perl Kurila? and why is this (apparently) creating conflicts
with some namespaces?
http://search.cpan.org/~tty/kurila-0_02/

Miguel



pgprv5pnkRfrR.pgp
Description: PGP signature

Re: encrypt the password stored in a file

[Miguel Santinho]

Em (On) Mon, Aug 29, 2005 at 12:36:32PM -0400, Bob Showalter escreveu (wrote):
 Ken Perl wrote:
  The password used to access a ftp server is stored in a text file, the
  perl program gets the password from the file, the pass it to the ftp
  server for logon, this is the background.
  The requirement is encrypt the password store in a more secure way,
  and the perl program could still use the encrypted password to logon
  the server. what algorithm should be used in this task?

If someone can access your machine to get the password... then your problem
is not the way you encrypt that file, but the way you protect your machine.
;-)

-- 
+-
| Simplicidade.com
| Consultoria em Tecnologias de Informação, Lda.
+-
| Rua António Onofre, 4D
| 2870-220 Montijo - PORTUGAL
| Tel./Fax: +351 21 231 01 51
+-
| [EMAIL PROTECTED] | http://www.simplicidade.com
+-


pgpWEBKl0zi8n.pgp
Description: PGP signature

Re: Reg..Regular expression

[Miguel Santinho (Simplicidade.com)]

One idea

##

#!/usr/bin/perl -w

use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;

my @array = (DATA);
my @strings;
foreach my $line (@array) {
push @strings,
extract_multiple($line,[sub { extract_quotelike($_[0]) },],undef, 1);
}

print Dumper @strings;

__DATA__
Lorper autpat. Lor sent vel del utate el irilit, con exeros 
nit lum num zzrilis nos nullaore dolum dunt nonsenisl et 
augiat. Ut wismolorem ea cortin henis adipit aliquis am, 
consequi bla feum iure dipit eugue core ting ea consectet 
alis dolummy nos nonse delis nonsequismodo coreros nulput 
volobor ipsustrud tatem dunt lutpat.
Lorper alit praestie molute dipit aliquat amet ilit delisi.

##

Will print :

$VAR1 = 'Lor sent vel del';
$VAR2 = 'num zzrilis nos nullaore ';
$VAR3 = 'Ut wismolorem ea cortin';
$VAR4 = 'bla feum iure dipit';
$VAR5 = 'nonsequismodo coreros';
$VAR6 = 'ipsustrud tatem dunt lutpat';
$VAR7 = 'dipit aliquat';




pgpYnrAA9cmJU.pgp
Description: PGP signature

Re: Reg..Regular expression

[Miguel Santinho (Simplicidade.com)]

Or a shorter version :-)

###
#!/usr/bin/perl -w

use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;

my @array = (DATA);
my @strings;
push @strings,extract_multiple(
$_,[sub { extract_quotelike($_[0]) },],undef, 1
) foreach @array;

print Dumper @strings;

__DATA__
Lorper autpat. Lor sent vel del utate el irilit, con exeros 
nit lum num zzrilis nos nullaore dolum dunt nonsenisl et 
augiat. Ut wismolorem ea cortin henis adipit aliquis am, 
consequi bla feum iure dipit eugue core ting ea consectet 
alis dolummy nos nonse delis nonsequismodo coreros nulput 
volobor ipsustrud tatem dunt lutpat.
Lorper alit praestie molute dipit aliquat amet ilit delisi.

##



pgpJt8W56ydfL.pgp
Description: PGP signature

Re: HoH is there a better way?

[Miguel Santinho (Simplicidade.com)]

On Wed, 10 Nov 2004 00:04:12 -0600
Charles K. Clarkson [EMAIL PROTECTED] wrote:
 
 my @headers = split ' ', DATA;

This way, if tomorrow you have some data like:

extents  nptot
  51671035
 2223412520365

you'll be in troubles, right?

 
 my @tables;
 while (DATA) {
 my %table;
 @table{ @headers } = split;
  ^^^
  I love this part! Looks like magic to me :-)

 push @tables, \%table;
 }
 
 print Dumper [EMAIL PROTECTED];



pgpHCtOtF7IMY.pgp
Description: PGP signature