One of the variables you are printing must have no value, or a value of 0. Looking through your code it's probably either $intoinit or $dessdate.

HTH,
Mark G.

--
_______________________________________________
NEW! Lycos Dating Search. The only place to search multiple dating sites at once.
http://datingsearch.lycos.com

Have a look at the "split" function - $PERL_HOME/bin/perldoc perlfunc

perl -e '$s="1001"; @array = split //, $s; print "$array[1]n";'
Gives: 0

HTH


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This e-mail and its contents are subject to the Telkom SA Limited
e-mail legal notice available at

http://www.telkom.co.za/TelkomEMailLegalNotice.PDF
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I don't think you mean that, since it would mean @a contained one element,
a large integer. I think you mean @a = qw(1 1 1 0 1 1 0 1 0), since you
say:

Dot is the string concatenation operator. What do you want from applying
it to two lists? For some reason, Perl does not complain when you do
this, but the result is not useful. Also, @a has 8 elements, not 9, so
there is only undef when you refer to $a[8].

You can always say @b = reverse @a[0..3] etc.

--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/

$array[0] = 1;
$array[1] = 0;
$array[2] = 0;
$array[3] = 1;

you use $2 (which is not defined) instead of $k (untested).

I think you can't (and have to use two arrays, one with one and another with
two dimensions), without providing an object with this semantic.

To have $d[5][1] (an array containing array refs as values), $d[5] contains a
(scalar) reference to an array, so there is no additional place to hold
another scalar value.

The term "one array with different dimensions" is not appropriate I'd say,
since they are not some kind of "different array types" (differing in
dimension). Inspecting the first dimension, you can see the layout of the
2nd, but not the 3rd etc. The top level contains not the informations about
the dimensions.

joe

To show the "core" modules included with a given Perl version:

perldoc perlmodlib

To show locally installed additional modules:

perldoc perllocal

yeah, I do this often right at the command line:

perl -pi.bak -e 's/xxxx/xxxxx/g;' filetochange

this automatically creates a backup file named filetochange.bak

to edit the file in-place (once you're sure you have the regex correct),
you need simply alter the line to read:

perl -pi -e 's/xxxx/xxxxx/g;' filetochange

see perldoc perlrun for more details on -p -n and -i switches.


my most often used example is nativizing line-endings in text files:

perl -pi -e 's#1512|15|12#n#' *.txt

Using SQL placeholders solves exactly this problem.

<http://search.cpan.org/~timb/DBI/DBI.pm#Placeholders_and_Bind_Values>

With placeholders, the SQL syntax will be something like this:

INSERT INTO table1 (id, col2, col3) VALUES (?, ?, ?)

This then gets executed something like this, for a single insertion:

my $sql = q[INSERT INTO table1 (id, col2, col3) VALUES (?, ?, ?)];
my $sth = $dbh->prepare( $sql );
$sth->execute( undef, $col_B, $col_C );

This then gets executed something like this, for a bulk insertion:

my $sql = q[INSERT INTO table1 (id, col2, col3) VALUES (?, ?, ?)];
my $sth = $dbh->prepare( $sql );
foreach sort keys %temp {
$sth->execute( undef, $_, $t );
}

Try it and see if it works for you.



--
Chris Devers

Absolutely.

Experiment with it, and use the approach that works best for you.

Never take the code that some stranger on the internet posted without
looking it over and adapting it to your needs. :-)


--
Chris Devers