🚀 go-pugleaf

Indibil escribió:
> 
> Hola:
> 
> En mi empresa estan pensando en desarrollar una aplicacion que corra en un
> servidor web y se acceda a ella a traves de un navegador. El problema es
> que hasta ahora la programacion que se hacia era en Visual Basic contra
> bases de datos Access. Por lo tanto no tenemos claro que herramientas
> elegir.
> 
> La aplicacion no seria muy complicada, pero tampoco muy sencilla. Para que
> os hagais una idea constaria de unas 10 tablas relacionadas, contando la
> mayor de ellas con unos 50.000 registros. El numero estimado de usuarios
> concurrentes estaria sobre 50.
> 
> Para elegir base de datos hemos pensado en MySQL o PostgreSQL pero, ¿cual
> elegir? y ¿porque?.
> 
> En cuando al lenguaje de programacion, PHP, Python, ¿cual?
> 
> ¿Existen otras alternativas a considerar?.
> 
> Gracias,
> Indibil

Hola.
Nosotros usamos en una empresa de ámbito nacional (es decir, desarroyos
serios) PostgreSQL y Php.
PostgreSQL está muy bien, es rápida, al menos lo suficiente para una app
web, y tiene muchas más capacidades que mSQL o MySQL. También tienes una
utilidad gráfica para el manejo de la base de datos bastante maja.
Php es muuuucho más simple que Perl. Perl hace programas complejos en
cuatro líneas. Es decir, cuando controlas Perl, no tienes que pasar un
día escribiendo código para hacer lo que quieres, es de desarroyo muy
rápido. Tambien es muy potente y rápido de ejecución. Tambien tiene
módulos para hacer todo aquello con lo que hayas soñado.
El único inconveniente que le veo yo a Perl es que al principio parece
chino, te cuesta un poco acostumbrarte.
Php es igual en prácticamente todo salvo que el lenguaje es más
tradicional, como C/C++ y Java, con lo cual no has de aprender nada
nuevo (casi).
Los dos corren en Win y Linux... los dos acceden a MySQL, mSQL y
PostgreSQL, odbc...
La ventaja fundamental en entornos empresariales que veo yo, es que con
Php puedes cojer un programador de prácticamente cualquier lenguage y
tenerlo haciendo php en horas, mientras que en perl pueden pasar semanas
hasta que coje suficiente soltura como para ser productivo. Añade a ésto
la falta de informáticos en el mercado laboral y el resto de
comparaciones sobran.

Ahí van ejemplos de Perl y Php para que te hagas una idea.

== PERL
========================================================================

my $order = 0;
my $counter = 0;

  print BLUE, "read input-file [$input_filename] and generate the
[$opt_order]th piece with size [$opt_size].\n", RESET if $opt_verbose;
  open(INPUT,"$input_filename") or die "Can't open file
[$input_filename]\n";
  binmode(INPUT);

      if ($opt_block > $opt_size) {
        $opt_block = $opt_size;
        print "block size adjusted to $opt_block.\n";
      }
       my $pass_num = $opt_size / $opt_block;
       my $new_opt_size = $pass_num * $opt_block;
      if ($new_opt_size != $opt_size )
      {
         print "size adjusted to $new_opt_size.\n";
         $opt_size = $new_opt_size;
      }

  my $i;

  if ($opt_order == 0) {
     # generate all pieces
     $order = 0;
     print "size: $opt_size block: $opt_block pass_number: $pass_num\n"
if $opt_debug;
     for (;;) {
       $order ++;
       $output_filename = "$opt_output" . "." . "$order";
       open(OUTPUT, ">$output_filename");
       binmode(OUTPUT);
       for ($i=0; $i<$pass_num; $i++) {
         if(read(INPUT, $buff, $opt_block)) {
           print OUTPUT $buff;
         } else {
           close (OUTPUT);
           close (INPUT);
           print "$order files are generated.\n";
           exit;
         }
       }
       close (OUTPUT);
     }
  } else {
     # generating only one piece
  print RED, "Sorry, generating one file only is not implemented yet. My
hard disk has been able to handle all files so far. It's trivial to do
so, though.\n", RESET;
  }

  close (INPUT);


== PHP  ============================================================

<?php

switch ($submenu) {
	case 0:
		?>
		<hr>
		<center><h1>Página de delegaciones.</h1></center>
		<table width="80%" align="center">
			<tr><td>Use el menú situado arriba a la izquierda para seleccionar lo
que desea hacer.</td></tr>
		</table>
		<?
		break;
	case 3:
		switch ($paso) {
			case 0:
				$db = new Db();
				$res = $db->query("select * from delegaciones");
				?>
				<table width="80%" bgcolor="silver" align="center">
				<tr><td bgcolor="#aaaa9a" align="center"><b>Lista de delegaciones
dadas de alta.</b></td></tr>
				<?
				while ($db->next_record()) {
					echo "<tr><td>" . $db->f("delegacion") . "</td></tr>";
				}
				?>
				</table>
				<?
				break;
		}
		break;

}

function alta ($nombre)
{
	$db = new Db();

	$res = $db->query("insert into delegaciones (delegacion) values
('$nombre')");
	echo "Resultado de la operación: " . $res . "<br>" . $db->LinkId;
}

?>