Re: pack an array

On Mon, Jan 02, 2006 at 10:07:44AM -0800, Tom Phoenix wrote: my @pack; my $empties = 0; foreach my $item (@array) { if ($item eq '') {# empty string $empties++; } else { push @pack, $item; } } Thanks, very nice. It's difficult (for me ;-)) to think in P

RE: Where is the source code?

Sorry, I lied. I guess there is source code for Data::UUID but I cannot get it to work on windows. I tried ppm install Data::UUID and it could not find it. I tried downloading and following the instructions in the README me but that produced a lot of syntax errors. Can someone suggest how I migh

Where is the source code?

I'm trying to understand the algorithm for generating uuids or guids. I was hoping to use my perl debugger to single step thru the algorithm that creates guids/uuids. So I downloaded the tar.gz files at http://search.cpan.org/src/AGOLOMSH/Data-UUID-0.11/UUID.pm http://search.cpan.org/~phenson/DC

Re: pack an array

Gerard Robin wrote: > Hello, Hello, > I guess that one can write in more perlish fashion that I did: the part > between the of this script to pack the array @array. > > Please, can someone give me some hint ? You don't need to use an array for that: my $string = "[EMAIL PROTECTED] n??e#w

Re: pack an array

On 1/2/06, Gerard Robin <[EMAIL PROTECTED]> wrote: > my @pack; > my $j = 0; > > foreach my $i (0..$#array) { > > if ($array[$i] eq '') { > > $i++; > > } else { > > $pack[$j] = $array[$i]; > > $j++; > > } > } You're right that this doesn't seem very Perl-ish. "Real Perl programmer

Re: pack an array

Gerard Robin wrote: Hello, I guess that one can write in more perlish fashion that I did: the part between the of this script to pack the array @array. Please, can someone give me some hint ? #!/usr/bin/perl # pack_array.pl use strict; use warnings; my $string = "[EMAIL PROTECTED] n??e

pack an array

Hello, I guess that one can write in more perlish fashion that I did: the part between the of this script to pack the array @array. Please, can someone give me some hint ? #!/usr/bin/perl # pack_array.pl use strict; use warnings; my $string = "[EMAIL PROTECTED] n??e#w [?! \$ \% y]e{?]a#

Re: about eval and stdin

Adriano Allora am Montag, 2. Januar 2006 12.48: > hi to all, > a friend of mine ask me for a perl script to change regexp patterns in > some texts (he can learn regexp, but I suppose he won't learn perl). So > I start write this one to him. > I have a problem: > ==> with pattern = (dir)ectory and r

Re: Heterogenous array

On Jan 2, 2006, at 12:53, Aditi Gupta wrote: The error message "argument "1,2,undef,3,4" isn't numeric" was being displayed. But with Data Dumper it is working. That message is a warning, your code was probably doing some math with something that didn't look like a number. From your message

Re: Heterogenous array

Hello, The error message "argument "1,2,undef,3,4" isn't numeric" was being displayed. But with Data Dumper it is working. Thanks:-) On 1/2/06, Charles K. Clarkson <[EMAIL PROTECTED]> wrote: > > Aditi Gupta wrote: > > : @aoa = ([0..5], [EMAIL PROTECTED]); > : where @va

about eval and stdin

hi to all, a friend of mine ask me for a perl script to change regexp patterns in some texts (he can learn regexp, but I suppose he won't learn perl). So I start write this one to him. I have a problem: ==> with pattern = (dir)ectory and replacement = $1, why the script does not eval $1 as "d

RE: Heterogenous array

Aditi Gupta wrote: : @aoa = ([0..5], [EMAIL PROTECTED]); : where @values = (1, 2, undef, 3, 4); : then the program does not accept it. That works just fine for me. What do you mean by "the program does not accept it"? #!/usr/bin/perl use strict; use warnings; use

Heterogenous array

Hello Everybody, A very happy new year to all of you. Well, I'm trying to create a 2D array in which the 1st array is completely numeric and the other array is a combination of numbers and text. If I write it as : @aoa = ([0..5], [1,2,undef, 3,4]); then the program accepts this array of array, b