Diario de padawanlinuxero

sip, triste pero cierto todo tiene un ciclo de vida y pues este blog sera su fin, no lo voy a borrar, pero solamente que ya no voy a escribir en el, quiero que me perdonen por lo que voy a poner si me censuran pues ni modo, los que me conocen saben que normalmente no digo maldiciones, pero ahorita tengo mucha muina y como le hace el Undertaker hasta los ojitos en blanco pongo, asi que ahi va haber como me sale...

retiro este blog por que una maldita perra, insatisfecha por el pendejo con el que se quedo y por el cual me dejo, ha estado leyendolo, si pinche perra a ti te lo escribo y al pinche looser de tu "hombre" que tiene un pinche pito de colibri, por culpa tuya maldita perra, es que tengo que cerrar el blog no quiero que manches ni a mi mujer con un comentario, como los que me has estado enviando, ojala maldita perra sarnosa que el pendejo de tu "hombre" te pegue alguna pinche enfermedad, de alguna de las pinches putas callejeras que levanta en tu pinche carro, la verdad que no para que me molestas, tu pinche perra maldita y la marrana, no perate, la pinche hipopotamo de amiga que tienes que solamente le importa el dinero. 

Ahora esto es para ti pinche webon de mierda, vuelves a decirle algo a mi mujer y te corto la lengua y te castro, le estaria haciendo un bien a la humanidad al hacer eso, porque zanganos como tu no pueden andar en el mundo asi. ah otra pinche cosita, BUSCA TRABAJO WEBON DE MIERDA!!!!!!!!, ya deja de vivir de los demas.

Bueno creo que me extendi un poco mas de lo normal.

en fin.

amigos : gracias por leerme!

ahora , Brujita, Sr. Audiosaurius, Sinika, bigotona, icqgirl, (se que se me olvidan, ustedes disculpen)  les doy unas gracias especiales a ustedes, por escribirme y darme su opinion.

Brujita: Mi querido angel, me retiro, pero como dijo alguien... "volvere..." gracias por ser de los que me apoyaron en este cambio de vida que he tenido. tu y yo compatimos algo que muchos otros no nuestro cookie monster. No te dejo amiga solo me transformo.

weno a los que deje afuera: Gracias

Toro gracias por poner este sitio tan bueno para la comunicacion 

prometo si vuelvo que el proximo es de paga :)

[ Enlace | 9 comentarios ] del.icio.us Estrella este post

Debido a que alguien, ninguno de ustedes fue, le dijo a una persona sobre mi blog y como dar con el y por el email que me acaba de enviar me veo en la obligacion de hacerlo privado, la pregunta es como lo hago???, que solo los cuates puedan verlo si alguien me dice por fa les estare agradecido.

gracias

[ Enlace | 8 comentarios ] del.icio.us Estrella este post

Matamoros Tamaulipas es una ciudad que cuenta con una posicion geografica importante porque esta en la frontera con los Estados Unidos Americanos. Por ende una ciudad fronteriza y tambien portuaria, aunque nuestro puerto si eso es un puerto, es pequeno a comparacion de otros puertos como Veracruz o como otros, aunque gozamos de esa situacion geografica, no hemos sido capaces de hacer que las industrias vean con buenos ojos a nuestra ciudad, es cierto por muchos anios tuvimos una afluencia de capital que hizo crecer a nuestra ciudad de ser un pueblito a una ciudad grande, pero por malos manejos de muchas instituciones entre ellas los sindicatos o mejor dicho el unico sindicato "autorizado" para afiliar trabajadores para las empresas maquiladoras en la ciudad, como unico sindicato se pudieron hacer las famosas "conquistas sindicales" que eran en su tiempo las mejores en todo el pais, entre ellos los sueldos estaban por encima de el salario minimo, incluso para personas que iban entrando a trabajar, la jornada de trabajo para las maquiladoras es de 40 horas cuando en casi todas las demas ciudades lo normal es que se trabajara 48 horas, pero eso empezo a cambiar, como quien dice se durmieron en sus laureles, otras ciudades como Reynosa, dieron muchas facilidades para que nuevas empresas que buscaban mejores condiciones de trabajo se quedaran en esa ciudad, otro detalle mas es que en Reynosa no conozco que exista un sindicato unico para el personal que labora en las maquiladoras, en cambio se formaron sindicatos dentro de las mismas empresas, como pude constatar en mi estancia en en Reynosa.

Ahora Matamoros tiene un grave problema en cuanto a desempleo, pocas son las maquiladoras que se quedan en Matamoros, muchas de ellas se van para ciudades que si presentan condiciones favorables para su negocio como Reynosa.

Ahora el pendejo del presidente municipal dice que Matamoros volvera al augue de los anios pasados donde habia mucha inversion. Me pregunto como va hacer eso el pendejo si las empresas actuales muchas de ellas o piensan en cambiarse a Reynosa o de plano irse a China, y este pendejo anda diciendo que van a venir mas empresas nuevas a Matamoros, como ??? con mentiras???.

Hace muchos anios atras cuando empece a trabajar para una empresa americana aqui en Matamoros, el gerente general me platico despues de una huelga que tuvimos porque los del sindicato querian un aumento de casi un 30%, total que despues de una huelga de 10 dias habiles, y un acuerdo donde iban los empleados a recibir un aumento de casi 20%, me comento que una empresa fuera un negocio rentable el precio de la hora hombre deberia de ser menor a 1.50 de dolar, de eso fue hace como unos 14 anios.

[ Enlace | Sin comentarios :'( ] del.icio.us Estrella este post

Haber perdonenme que oque de nuevo el tema, Spawn lo conocia poco pero es que solo trozos de informacion he encontrado, alguien puede ponerme al dia?

Ya se reviso bien la informacion?, donde?, seria de muy mala leche una bromita asi.

[ Enlace | 4 comentarios ] del.icio.us Estrella este post

Te asomas tímida Primavera
coloreando las mañanas
alumbrando los vestigios
de otro Invierno que pasó.

Tu sol nuevo se levanta
tras la calma de las aguas
que han ahogado ya en su suelo
las tormentas del ayer.

Con tu luz el verde brota
en un empuje por nacer
y adornar con sus matices
sin conciencia del final.

Ese final imaginario
tan solo un cambio de color
que nace del amor
para morir en él.

Una muerte que es entrega
despojo de su tronco
para vivir eternamente
en cada Primavera.

Brujita tu si lo vas a entender.

[ Enlace | Sin comentarios :'( ] del.icio.us Estrella este post

Bienaventurados los que no tienen nada que decir, y que resisten la tentación de decirlo.LOWELL, James

saludos

[ Enlace | 4 comentarios ] del.icio.us Estrella este post

yo se que muchos ya lo habran leido o enviado pero todavia me sigue gustando mucho y quise compartirlo con ustedes. Saludos

CLIENTE: ¿Si? ¿Estoy llamando al departamento de Atención a Clientes?

EMPLEADO: Así es. Buenos días. ¿En qué puedo ayudarle?

CLIENTE: Estuve revisando mi equipo y encontré un sistema que se llama AMOR pero no funciona. ¿Me puedes ayudar con eso?

EMPLEADO: Seguro que sí. Pero yo no puedo instalárselo; tendrá que instalarlo usted mismo, yo lo oriento por teléfono, ¿le parece?

CLIENTE: Sí, puedo intentarlo. No se mucho de estas cosas, pero creo que estoy listo para instalarlo ahora. ¿Por dónde empiezo?

EMPLEADO: El primer paso es abrir tu CORAZON. ¿Ya lo localizaste?

CLIENTE: Sí, ya. Pero hay varios programas ejecutándose en este momento ¿No hay problema para instalar mientras siguen ejecutándose?

EMPLEADO: ¿Cuáles son esos programas?

CLIENTE: Déjame ver... Tengo DOLORPASADO.EXE, BAJAESTIMA.EXE, CORAJE.EXE y RESENTIMIENTO.COM ejecutándose en este momento.

EMPLEADO: No hay problema. AMOR borrará automáticamente DOLORPASADO.EXE de tu sistema operativo actual. Puede que se quede grabado en tu memoria permanente, pero ya no afectará otros programas. AMOR eventualmente reemplazará BAJAESTIMA.EXE con un módulo propietario del sistema llamado ALTAESTIMA.EXE. Sin embargo, tienes que apagar completamente los programas CORAJE.EXE y RESENTIMIENTO.COM. Estos programas evitan que AMOR se instale adecuadamente. ¿Los puedes apagar?

CLIENTE: No se cómo apagarlos. ¿Me puedes decir cómo?

EMPLEADO: Con gusto. Ve al menú INICIO e invoca PERDON.EXE. Ejecútalo tantas veces como sea necesario hasta que CORAJE.EXE y RESENTIMIENTO.COM hayan sido borrados completamente.

CLIENTE: Ok... listo. AMOR ha empezado a instalarse automáticamente. ¿Es esto normal?

EMPLEADO: Si. En breve recibirás un mensaje que dice que AMOR estará activo mientras CORAZON esté vigente. ¿Puedes ver ese mensaje?

CLIENTE: Si, si lo veo. ¿Ya se terminó la instalación?

EMPLEADO: Si, pero recuerda que sólo tienes el programa base. Necesitas Empezar a conectarte con otros CORAZONES para poder recibir actualizaciones.

CLIENTE: Oh, oh... Ya me apareció un mensaje de error. ¿Qué hago?

EMPLEADO: ¿Qué dice el mensaje de error? CLIENTE: Dice "ERROR 412 - PROGRAMA NO ACTIVO EN COMPONENTES INTERNOS". ¿Qué significa eso?

EMPLEADO: No te preocupes, ese es un problema común. Significa que AMOR está configurado para ejecutarse en CORAZONES externos, pero no ha sido ejecutado en tu CORAZON. Es una de esas cosas técnicas complicadas de la programación, pero en términos no técnicos significa que tienes que "AMAR" tu propio equipo antes de poder "AMAR" a otros.

CLIENTE: Entonces, ¿qué hago?

EMPLEADO: ¿Puedes localizar el directorio llamado "AUTOACEPTACION"?

CLIENTE: Si, aquí lo tengo.

EMPLEADO: Excelente, aprendes rápido

CLIENTE: Gracias.

EMPLEADO: De nada. Haz "click" en los siguientes archivos para copiarlos al directorio MICORAZON: AUTOPERDON.DOC, AUTOESTIMA.TXT, VALOR.INF y REALIZACION.HTM. El sistema reemplazará cualquier archivo que haga conflicto y entrará en un modo de reparación para cualquier programa dañado. También, debes eliminar AUTOCRITICA.EXE de todos los directorios, y después borrar todos Los archivos temporales y la papelera de reciclaje, para asegurar que se borre completamente y nunca se active.

CLIENTE: Entendido. ¡Hey! Mi CORAZON se está llenando con unos archivos muy bonitos. SONRISA.MPG se está desplegando en mi monitor e indica que CALOR.COM, PAZ.EXE y FELICIDAD.COM se está replicando en todo mi CORAZON.

EMPLEADO: Eso indica que AMOR está instalado y ejecutándose. Ya lo puedes manejar de aquí. Una cosa más antes de irme...

CLIENTE: ¿Si?

EMPLEADO: AMOR es un software sin costo. Asegúrate de dárselo, junto con sus diferentes módulos, a todos los que conozcas y te encuentres.

[ Enlace | Dos es mejor que uno... supongo :/ ] del.icio.us Estrella este post

Tengo un archivo en excel al que estoy modificando usando Perl, al decir modificandolo me refiero que le estoy dando forma como un reporte, es decir que los datos esten en una cuadricula, el logo de la empresa, bueno mi bronca es que necesito hacer un VLOOKUP o BUSCARV hacia otra hoja de excel para extraer los datos de el cliente NUMERO Y CLIENTE y ponerlos en una celda de excel. pero el problema es que no he podido encontrar informacion o como hacer que en una celda 'x' me ponga el resultado de la formula.

Si alguien sabe pues digan no sean ganchos

gracias

por cierto si quieren el codigo este es el

=MAS=

use DBI;

use Win32::OLE;

use Win32::OLE::Variant;

use Win32::OLE::Const 'Microsoft Excel';

use Date::WeekOfYear;





my $dir = "C:/proyecto/csv";

chdir ($dir);

my files = glob("*.xls");

for my $file ( files) {

print "Processing $file .....";

print "Done! ";

########################################################################################################

#Termina creacion de los archivios de excel

########################################################################################################

########################################################################################################

########################################################################################################

my $datafilename = "d3";



print ("este es el archivo con el que trabajara : $file ");



my $Excel = Win32::OLE->GetActiveObject('Excel.Application')

|| Win32::OLE->new('Excel.Application', 'Quit');

#------ Abro el archivo CSV y lo dirijo al primera hoja de trabajo -----

my $Book = $Excel->Workbooks->Open("$dir/$file");

my $Sheet = $Book->Worksheets(1);

#----- View file -------------------------------------------

#$Excel->{'Visible'} = 1;

$Sheet->Rows("1:16")->Insert(-4121,0);

$Sheet->Columns('A:M')->Select();

$Sheet->Columns('A:M')->EntireColumn->Autofit();

$Sheet->Range("A16:L16")->{Value} = [[ 'Patente', 'Pedimento', 'Cve. Doc.', 'Fecha Entrada', 'Fecha Salida', 'RFC Imp/Exp', 'CURP', 'Peso Bruto', 'Contribuciones', 'Banco', 'Ped. Orig.', 'Ped. Rectif']];

$Book->ActiveSheet->Pictures->Insert( "C:proyectoaaa.bmp" )->Select;

my $LastRow = $Sheet->UsedRange->Find({What=>"*",

SearchDirection=>xlPrevious,

SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*",

SearchDirection=>xlPrevious,

SearchOrder=>xlByColumns})->{Column};

#------ Imprimo en pantalla los valores -------

print " Ultima Columna:";

print "$LastCol ";

print " Ultimo renglon:";

print "$LastRow ";

#------ Ahora busco las celdas de la hoja de excel -----

#en este caso dejo la primera linea sin contar porque es la de los encabezados

my ($Start_col, $Num_Cols,$End_col) = ('A', $LastCol, 'A');

++$End_col while --$Num_Cols;

my ($Start_row, $Num_rows) = (16, $LastRow);

my $End_row = $Start_row + $Num_rows - 1;

my $Range_str = "$Start_col$Start_row:$End_col$End_row";

my $range = $Sheet->Range($Range_str);

$range->AutoFormat(2);

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> {HorizontalAlignment} = xlHAlignCenter;

$Sheet -> Range('H:I') -> {HorizontalAlignment} = xlHAlignRight;

$Sheet -> PageSetup -> {Orientation} = xlLandscape;

$Sheet -> PageSetup -> {Zoom} = 75;

$Sheet -> PageSetup -> {FitToPagesWide} = 1;

$Sheet->Columns('H:H')->{NumberFormat}='0.000';

$Sheet->Columns('I:I')->{NumberFormat}='0';

$Sheet -> Range('A1:M15') -> Borders(xlEdgeBottom) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeLeft) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeTop) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeRight) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeBottom) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Select();

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {LineStyle} = xlDouble;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {Weight} = xlThick;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {ColorIndex} = 1;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeLeft) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeLeft) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeTop) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeTop) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeRight) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeRight) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideVertical) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideVertical) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideHorizontal) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideHorizontal) -> {Weight} = xlThin;



#---- Conectarse a la base de datos para extraer la tabla de semanas

#my $datafilename = "d3";



my $dbh_semana1 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana1) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}



my $sqlsemana1="SELECT SEMANA FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana1 = $dbh_semana1->prepare($sqlsemana1);

$sthsemana1->execute();

while (my $semana_row1 = $sthsemana1->fetch) {

print " RELACION DE OPERACION CORRESPONDIENTES A LA SEMANA No. @$semana_row1 ";

$Sheet->Cells(13,5)->{Value} = "Relacion de Operacion correspondiente a la semanan No. @$semana_row1";



}



my $dbh_semana2 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana2) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}



my $sqlsemana2="SELECT FEC_FINAL FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana2 = $dbh_semana2->prepare($sqlsemana2);

$sthsemana2->execute();

while (my $semana_row2 = $sthsemana2->fetch) {

$Sheet->Cells(11,7)->{Value} = "al @$semana_row2 ";

}



#---- FECHA INICIAL -----



my $dbh_semana = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}



my $sqlsemana="SELECT FEC_INICIA FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana = $dbh_semana->prepare($sqlsemana);

$sthsemana->execute();

while (my $semana_row = $sthsemana->fetch) {

$Sheet->Cells(11,5)->{Value} = "Comprendida del @$semana_row ";



}



$Sheet->Range("C12")->{Value} = [[ '=LOOKUP(R[1]C[-2],PATENTES.xls!R2C1:R82C2,2,FALSE)']];



$Excel -> {DisplayAlerts} = 0; # This turns off the "This file already exists" message.





my $file2 = "M.$file";

print "este es el archivo : $file2 ";

$Book -> SaveAs("$file2");

$Book->Close();

[ Enlace | 4 comentarios ] del.icio.us Estrella este post

Que el hombre tema a la mujer cuando ésta odia; porque en el fondo el hombre no es más que malo, pero la mujer es perversa.

NIETZSCHE, Friedrich

Sera?

[ Enlace | 12 comentarios ] del.icio.us Estrella este post

Pues fui a mi entrevista de trabajo, la empresa es grande!, mas grande de lo que esperaba me entrevistaron 2 personas, el primero fue el gerente de Ingenieria,  me pregunto de mis trabajos anteriores y es que como que viendolo bien si que he trabajado en muchas ramas, pues haber las ultimas 4 trabajos, en plasticos, entre como tecnico de sistemas, termine mejor dicho cuando renuncie era Contralor-gerente de sistemas-coordinador de contabilidad americana, luego por un anio fui consultor independiente en sistemas, hacia casi de todo desde instalacion de servidores hasta reparacion de chompus, luego entre a Tyco ahi iba como tecnico de sistemas, termine siendo Ingeniero de SMT, y ahorita en este trabajo pues soy Desarrollador de Software!!!, eso le llamo la atencion la platica con el fue muy buena me explico que la compania se dedica al outsourcing para empresas como Nokia y Motorola, y que actualmente se encuentran en franca expansion me explico que aqui en Mexico tenian ya dos maquiladoras, funcionando y que esta la de Reynosa iba a ser la mas grande, en Mexico, le gusto mucho el hecho que habia aprendido desde abajo, pues bueno la segunda fue un poco mas tecnica pero creo que me fue bien la semana que entra tenemos otra entrevista. Sigan aciendo changuitos!.

Brujita, Bigotona, 3unic3, Butterfly, Miranda, gracias!!! Se los agradezco de corazon, Tambien a los que lo leyeron y no escribieron jajaja

[ Enlace | 4 comentarios ] del.icio.us Estrella este post

hola

ya regrese!!!, mi padecimiento me mantuvo alejado un poco pero por aqui me tienen de vuelta!!!. bueno y vuelvo con noticias!!!, hoy me hablaron de una empresa para que fuera a una entrevista de trabajo manana aunque es en reynosa, y si es por alla pues :( no voy a tener internet, pero los fines de semana es cuando podria. Asi que por favor crucen los deditos para que les caiga bien y que con los conocimientos que tengo sean los suficientes para que me den chamba, es que en realidad lo que habia hecho por casi 7 anios esta medio dificil de conseguir un trabajo asi, en Tyco Electronics asi se llamaba la compania para la que trabajaba era Ing. de SMT (Surface Mounted Technology) es decir era ingeniero que estaba a cargo de lineas de montaje de componentes electricos en tarjetas o PCB, para los que esten confundidos yo hago los programas para las maquinas que ponen los capacitores o resistencias en las tarjetitas verdes que vienen en los radios, celulares, etc. pues bien ese era mi chamba, aunque mi carrera profesional es Ing. de Sistemas Computacionales, pero cuando entre ahi me dieron chance de trabajar en eso, y pues me gusto la chamba, es muy buen trabajo y tienes muchas oportunidades de seguir creciendo en el area, tambien las satisfacciones que obtienes cuando desarrollas nuevas mejoras en equipo o individuales, en fin hagan changuitos!!!!

[ Enlace | 6 comentarios ] del.icio.us Estrella este post

 Esto es algo de informacion sobre la Depresion, yo sufro de eso le digo asi porque de bebe he incluso de ninio le tenia miedo al mono azul de plaza sesamo. asi le llame yo a mi padecimiento.

mas adelante pondre otros que me he encontrado, creanme si tienen a un amigo o familiar asi, no le den la espalda y ayudenlo, a veces puede ser un infierno.

[ Enlace | Tres comentarios ] del.icio.us Estrella este post