Existen muchos lenguajes de programaci\u00f3n, y ma\u00f1ana, seguramente alguien escribir\u00e1 un nuevo lenguaje, pero la pregunta es. \u00bfPor qu\u00e9 hacer mas, que no hay suficientes?<\/p>\n
Los lenguajes de programaci\u00f3n tienen un prop\u00f3sito, se han escrito para resolver un determinado problema. Los mejores lenguajes son los de prop\u00f3sito general, pero eso significa mucho c\u00f3digo para realizar la tarea mas simple de lo que un lenguaje especializado requiere.<\/p>\n
Esta de moda el lenguaje PHP, su prop\u00f3sito fue ser un script para WEB y eso es algo que hace muy bien, cuando alguien decide escribir un programa para WEB. PHP es la opci\u00f3n viable<\/p>\n
Si se trata de manipular texto, Perl no tiene rival<\/p>\n
PHP es un lenguaje especializado por lo tanto su mejor uso esta en la WEB.<\/p>\n
Ahora un lenguaje de prop\u00f3sito general como C o Pascal, podr\u00edan hacer lo mismo que hace PHP por eso son de prop\u00f3sito general =) sin embargo, lo que PHP arregla con una sola l\u00ednea de c\u00f3digo, C requiere muchas mas para hacer una tarea que es facil en PHP<\/p>\n
Algo tan simple como mostrar un String despu\u00e9s de procesar un formulario puede requerir m\u00e1s de 100 l\u00edneas en C<\/p>\n
Es aqu\u00ed donde demuestro lo inviable de no usar el lenguaje correcto, a continuaci\u00f3n manipulare un formulario en PHP y en C, har\u00e1n exactamente lo mismo. Pero hasta quien no sepa de programaci\u00f3n notara la diferencia de c\u00f3digo y complejidad para hacer algo tan simple.<\/p>\n
Escribir\u00e9 un formulario para enviar v\u00eda POST un String, el formulario preguntara nuestro nombre y el servidor lo procesara y devolver\u00e1 un saludo =), algo simple<\/p>\n
Con C<\/a> El c\u00f3digo que se ejecuta con C<\/p>\n 1 #include <string.h> 44 Mucho codigo \u00bfno?<\/p>\n El c\u00f3digo que se ejecuta con PHP<\/p>\n 1 <?php 3 Lineas, definitivamente el lenguaje correcto para esta tarea es PHP<\/p>\n Al igual que en los ejemplos anteriores antes podr\u00eda ser inviable programar en C para DOS, era preferible programar en Pascal, el c\u00f3digo generado por el compilador de borland era muy peque\u00f1o y r\u00e1pido de ejecutar. Adem\u00e1s Borland Pascal tiene librer\u00edas para programar de forma visual en modo texto.<\/p>\n A continuaci\u00f3n un ejemplo de programaci\u00f3n en Pascal para un editor de texto.<\/p>\n {$M 8192,8192,655360} \nuses Objects, Drivers, Memory, Views, Menus, Dialogs, \nconst const \ntype var<\/p>\n softdav: Tsoftdav; function OpenEditor(FileName: FNameStr; Visible: Boolean): PEditWindow; constructor Tsoftdav.Init; procedure Tsoftdav.HandleEvent(var Event: TEvent);<\/p>\n procedure mensajebarra; procedure softdav; procedure abrir; procedure nuevo; \nprocedure ShowClip; \nbegin else procedure Tsoftdav.InitMenuBar; newsubmenu (‘Editar’,hcnocontext,newmenu( NewSubMenu(‘Buscar’, hcNoContext, NewMenu( newsubmenu (‘Hojas’,hcnocontext,newmenu( newsubmenu (‘Programaci\u00a2n’,hcnocontext,newmenu(newitem( procedure Tsoftdav.InitStatusLine; procedure Tsoftdav.OutOfMemory; begin \u00bfMucho codigo?, Imaginatelo en C. Este tipo de programacion era la que usaba en 1996,
\nCon PHP<\/a><\/p>\n
\n2 #include <stdio.h>
\n3
\n4 char *getpost(int numparam)
\n5 {
\n6 char *post;
\n7 int lengthstring;
\n8 int contador;
\n9 int deletrado = 0;
\n10 int nparam = 0;
\n11 static char cadena[10000];
\n12 static char cache[10000];
\n13 static int reentrante = 0;
\n14 char campo[10000];
\n15
\n16
\n17 if (reentrante == 0)
\n18 {
\n19 lengthstring = atoi (getenv ("CONTENT_LENGTH"));
\n20 post = malloc (lengthstring + 1);
\n21 fread (post,lengthstring,1,stdin);
\n22 post [lengthstring] = ‘\\0’;
\n23
\n24 strcpy (cadena,post);
\n25 strcpy (cache,cadena);
\n26 reentrante++;
\n27 }
\n28 else strcpy (cadena,cache);
\n29
\n30
\n31 for (contador=0;strlen(cadena) != contador;contador++)
\n32 {
\n33 if (cadena[contador] != ‘&’)
\n34 {
\n35 campo [deletrado] = cadena [contador];
\n36 deletrado++;
\n37 } else
\n38 {
\n39 nparam++;
\n40 if (nparam == numparam) break;
\n41 deletrado = 0;
\n42 }
\n43 }<\/strong><\/p>\n
\n45 strcpy (cadena," ");
\n46 for (contador=0;contador != deletrado;contador++)
\n47 {
\n48 cadena [contador] = campo[contador];
\n49 }
\n50 cadena[contador] = ‘\\0’;
\n51
\n52
\n53 return cadena;
\n54 }
\n55
\n56
\n57 int getpostlen()
\n58 {
\n59 int lengthstring;
\n60 lengthstring = atoi (getenv ("CONTENT_LENGTH"));
\n61 return lengthstring;
\n62 }
\n63
\n64 char x2c( char *x ) {
\n65 register c;
\n66
\n67 c = ( x[0] >= ‘A’ ? ( (x[0] & 0xdf) – ‘A’) + 10 : (x[0] – ‘0’) );
\n68 c *= 16;
\n69 c += ( x[1] >= ‘A’ ? ( (x[1] & 0xdf) – ‘A’) + 10 : (x[1] – ‘0’) );
\n70 return(c);
\n71 }
\n72
\n73
\n74 void decodificarurl(char *url)
\n75 {
\n76 register int i, j;
\n77
\n78 for (i=0, j=0; url[j]; ++i,++j)
\n79 {
\n80 if ((url[i] = url[j]) == ‘%’)
\n81 {
\n82 url[i] = x2c( &url[ j + 1] );
\n83 j+=2;
\n84 }
\n85 else if (url[i] == ‘+’)
\n86 url[i]=’ ‘;
\n87 }
\n88 url[i]=’\\0′; \/*terminar en la nueva longitud *\/
\n89 }
\n90
\n91 char *getvalue (char *campo)
\n92 {
\n93 int contador;
\n94 int continuecont;
\n95 int deletrado = 0;
\n96 static char valortext[1000];
\n97 char auxtext[1000];
\n98
\n99
\n100 for (contador = 0;strlen(campo) != contador;contador++)
\n101 {
\n102 if (campo[contador] == ‘=’)
\n103 {
\n104 contador++;
\n105 for (continuecont=contador;strlen(campo) !=
\n106 continuecont;continuecont++)
\n107 {
\n108 auxtext [deletrado] = campo [continuecont];
\n109 deletrado++;
\n110 }
\n111 auxtext [deletrado] = ‘\\0’;
\n112 break;
\n113 }
\n114 }
\n115
\n116 strcpy (valortext,auxtext);
\n117 return valortext;
\n118 }
\n119
\n120
\n121
\n122 int main ()
\n123 {
\n124 char parametros [getpostlen()];
\n125 strcpy (parametros,getvalue (getpost(1)));
\n126 decodificarurl (parametros);
\n127 printf ("\\n\\nHola, mucho gusto: %s",parametros);
\n128 return 0;
\n129 }<\/strong><\/p>\n
\n2 echo "Hola, mucho gusto: ".$_POST["nombre"];
\n3 ?><\/strong><\/p>\n
\n{$X+,S-}<\/p>\n
\nStdDlg, MsgBox, App, Editors;<\/p>\n
\nHeapSize = 32 * (1024 div 16);<\/p>\n
\ncmportapapeles = 102;
\ncmsoftdav = 103;
\ncmmensajeenlabarra = 104;<\/p>\n
\nPsoftdav = ^Tsoftdav;
\nTsoftdav = object(TApplication)
\nconstructor Init;
\nprocedure HandleEvent(var Event: TEvent); virtual;
\nprocedure InitMenuBar; virtual;
\nprocedure InitStatusLine; virtual;
\nprocedure OutOfMemory; virtual;
\nend;<\/p>\n
\nClipWindow: PEditWindow;<\/p>\n
\nvar
\nP: PWindow;
\nR: TRect;
\nbegin
\nDeskTop^.GetExtent(R);
\nP := New(PEditWindow, Init(R, FileName, wnNoNumber));
\nif not Visible then P^.Hide;
\nOpenEditor := PEditWindow(Application^.InsertWindow(P));
\nend;<\/p>\n
\nvar
\nH: Word;
\nR: TRect;
\nbegin
\nMaxHeapSize := HeapSize;
\ninherited Init;
\nDisableCommands([cmSave, cmSaveAs, cmCut, cmCopy, cmPaste, cmClear,
\ncmUndo, cmFind, cmReplace, cmSearchAgain]);
\nEditorDialog := StdEditorDialog;
\nClipWindow := OpenEditor(”, False);
\nmessagebox (‘Bienvenidos a ENEDIT.’,nil,mfokbutton);
\nif ClipWindow <> nil then
\nbegin
\nClipboard := ClipWindow^.Editor;
\nClipboard^.CanUndo := False;
\nend;
\nend;<\/p>\n
\nbegin
\nmessagebox (‘Editor de texto para DOS https:\/\/www.lastdragon.net’,nil,mfokbutton);
\nend;<\/p>\n
\nbegin
\nmessagebox (‘Sistema programado por: David Rivero’,nil,mfokbutton);
\nend;<\/p>\n
\nvar
\nFileName: FNameStr;
\nbegin
\nFileName := ‘*.TXT’;
\nif ExecuteDialog(New(PFileDialog, Init(‘*.TXT’, ‘Archivos’,
\n‘Nombre’, fdopenButton, 100)), @FileName) <> cmCancel then
\nOpenEditor(FileName, True);
\nend;<\/p>\n
\nbegin
\nOpenEditor(”, True);
\nend;<\/p>\n
\nbegin
\nClipWindow^.Select;
\nClipWindow^.Show;
\nend;<\/p>\n
\ninherited HandleEvent(Event);
\ncase Event.What of
\nevCommand:
\ncase Event.Command of
\ncmOpen: abrir;
\ncmNew: nuevo;
\ncmportapapeles: ShowClip;
\ncmsoftdav : softdav;
\ncmmensajeenlabarra :mensajebarra;<\/p>\n
\nExit;
\nend;
\nelse
\nExit;
\nend;
\nClearEvent(Event);
\nend;<\/p>\n
\nvar
\nR: TRect;
\nbegin
\nGetExtent(R);
\nR.B.Y := R.A.Y + 1;
\nMenuBar := New(PMenuBar, Init(R, NewMenu(
\nnewsubmenu (‘Comandos estandar’,hcnocontext,newmenu(
\nnewitem (‘Nueva hoja de texto’,”,kbnokey,cmnew,hcnocontext,
\nnewitem (‘Abrir hoja de texto’,”,kbnokey,cmopen,hcnocontext,
\nnewitem (‘Guardar hoja de texto’,”,kbnokey,cmsave,hcnocontext,
\nnewitem (‘Guardar como…’,”,kbnokey,cmsaveas,hcnocontext,
\nnewitem (‘Salir de ENEDIT’,”,kbnokey,cmquit,hcnocontext,
\nnil)))))),<\/p>\n
\nnewitem (‘Deshacer lo ultimo hecho’,”,kbnokey,cmundo,hcnocontext,
\nnewitem (‘Pasar al portapapel’,”,kbnokey,cmcopy,hcnocontext,
\nnewitem (‘Traer del portapapel’,”,kbnokey,cmpaste,hcnocontext,
\nnewitem (‘Borra y manten en el portapapel’,”,kbnokey,cmcut,hcnocontext,nil))))),<\/p>\n
\nNewItem(‘Buscar cadena’, ”, kbNoKey, cmFind, hcNoContext,
\nNewItem(‘Remplazar cadena’, ”, kbNoKey, cmReplace, hcNoContext,
\nNewItem(‘Otra busqueda’, ”, kbNoKey, cmSearchAgain, hcNoContext,
\nnil)))),<\/p>\n
\nnewitem (‘Acomodar hojas en el escritorio’,”,kbnokey,cmtile,hcnocontext,
\nnewitem (‘Cerrar la hoja activa’,”,kbnokey,cmclose,hcnocontext,
\nnewitem (‘Hoja siguiente’,”,kbnokey,cmnext,hcnocontext,nil)))),<\/p>\n
\n‘Acerca del sistema’,”,kbnokey,cmsoftdav,hcnocontext,nil)),
\nnil))))))));
\nend;<\/p>\n
\nvar
\nR: TRect;
\nbegin
\nGetExtent(R);
\nR.A.Y := R.B.Y – 1;
\nNew(StatusLine, Init(R,
\nNewStatusDef(0, $FFFF,
\nnewstatuskey (‘Editor de texto para DOS https:\/\/www.lastdragon.net 1996-2007’,
\nkbnokey,cmmensajeenlabarra,
\nnewstatuskey (‘~F10~ Acceso al men\u00a3’,kbf10,cmmenu,nil)),nil)));
\nend;<\/p>\n
\nbegin
\nMessageBox(‘Memoria agotada’,
\nnil, mfError + mfOkButton);
\nend;<\/p>\n
\nsoftdav.Init;
\nsoftdav.Run;
\nsoftdav.Done;
\nend.
\n<\/strong><\/p>\n
\ncuando escribia mis primeros programas orientados a objetos en el DOS<\/p>\n