Using perl Syntax Highlighting
- use DBI;
- # See "Creating database handle" below
- $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
- f_ext => ".csv/r",
- RaiseError => 1,
- }) or die "Cannot connect: $DBI::errstr";
- print "Inicio: \n";
- # Selecting
- my $sth = $dbh->prepare ("select * from fil");
- $sth->execute;
- $sth->bind_columns (\my ($fname, $lname, $email, $pageid, $studentid, $a, $b));
- my $i =0;
- while ($sth->fetch) {
- print '$userarray['.$i.'][\'userid\'] = '.$studentid.';'."\n"; # Aqui es mi duda.. cuando $stundeid cambia su valor ?
- print '$userarray['.$i.'][\'cmid\'] = '.$pageid.';'."\n\n";
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Mi duda es por qué las variables $studenid y $pageid cambian su valor, si no hay asignación aparente alguna donde se les dé el valor, aunque el hecho es que funciona, pero ¿en qué momento del while estas variables cambian? ¿Tendrá algo que ver con esto?