Do it with Perl or not

2007-09-01 Thread Rafael Morales
Hi list, This my situation I love Perl, and I need to create a GUI program for a school, but this is my problem: - In the school all machines are under Windows (different versions). - So I don`t know what to do, I must to code the program with Perl or i will have to use other language. Please

Programming an interface with Perl

2007-08-01 Thread Rafael Morales
Hi list, I'm using some design patterns (MVC, Observer, Strategy), with Perl, however I see that I need to create some interfaces (watching examples in Java and C++), but I don't know how to create these interfaces with Perl, for example in Java this is done with this: public interface

Re: Programming an interface with Perl

2007-08-01 Thread Rafael Morales
Subject: Re: Programming an interface with Perl Date: Wed, 01 Aug 2007 12:22:44 -0700 On Aug 1, 2:20 pm, [EMAIL PROTECTED] (Rafael Morales) wrote: I'm using some design patterns (MVC, Observer, Strategy), with Perl, however I see that I need to create some interfaces (watching examples

Re: Problems installing XML modules

2007-04-19 Thread Rafael Morales
The problem seems to be in your make, which operative system do you use ? anyway use this: # whereis make you must to have make if you use a UNIX style OS. - Original Message - From: Kaptein, A.M. [EMAIL PROTECTED] To: beginners@perl.org Subject: Problems installing XML modules

RE: SMS or text messaging

2006-03-27 Thread Rafael Morales
- Original Message - From: henry chen [EMAIL PROTECTED] To: [EMAIL PROTECTED], beginners@perl.org Subject: RE: SMS or text messaging Date: Sun, 26 Mar 2006 15:47:50 -0800 Interesting. I'm actually working on a project that requires sms text messaging. To actually send a

Re: how to work with ^@ ^M ^D etc. ?

2006-03-08 Thread Rafael Morales
It seems like if you were creating/editing files in windows and re-editing in unix later. When I have that symbols I do this in my console. dos2unix original_file.txt newfile.txt Use it maybe it helps you. - Original Message - From: Tom Phoenix [EMAIL PROTECTED] To: Eugeny

for send an email part II

2005-12-29 Thread Rafael Morales
Well I have done this code, but the messages arrive in white :(, anybody could help me with this please ???. Note: I do not know the list of users for that reason I need multipart. Regards #!/usr/bin/perl use strict; use warnings; my $msg_html = message.html; my $msg_txt =

Re: Re: for send an email part II

2005-12-29 Thread Rafael Morales
] To: beginners@perl.org Subject: Re: for send an email part II Date: Thu, 29 Dec 2005 22:07:52 +0100 Rafael Morales: Well I have done this code, but the messages arrive in white There should be at least one empty line between header and body, so add a \n somewhere. -- Affijn, Ruud

Re: for send an email part II

2005-12-29 Thread Rafael Morales
Morales [EMAIL PROTECTED], beginners@perl.org Subject: Re: for send an email part II Date: Fri, 30 Dec 2005 00:21:52 +0100 From: Rafael Morales [EMAIL PROTECTED] Well I have done this code, but the messages arrive in white :(, anybody could help me with this please ???. Note: I do not know

for send an email

2005-12-23 Thread Rafael Morales
Hi list !!!. I need to send an email to some clients, so I need to know if their mail client can accept html format or just text format. How can know that ???, I think that there is, some cpan module to do that however I haven't found it. Could you help me please with this homwork ??? thank

Dates again.

2005-12-05 Thread Rafael Morales
Hi to all !!! Now I have a new trouble with dates. How can I know the date of 72 days ago ?. For example for get 2005-12-05, I do this use POSIX qw(strftime); my $today = strftime %Y-%m%d, localtime(); I would like to get this date: 2005-09-21. Thanks list. --

RE: Dates again.

2005-12-05 Thread Rafael Morales
] To: [EMAIL PROTECTED], Rafael Morales [EMAIL PROTECTED] Subject: RE: Dates again. Date: Mon, 5 Dec 2005 10:32:29 -0800 localtime() returns an array with populated with the details about the current time and date (unless you feed it a date in Perl time() format). The key, then is to get

Convert date to timestamp

2005-12-02 Thread Rafael Morales
Hi list. I have two dates in format -MM-DD for example ( 2005-09-01), but I need to pass them to timestamp format, how do I do it ???. I tried with time, localtime, gmtime, but I canĀ“t. Thanks. -- ___ Get your free email from

RE: Convert date to timestamp

2005-12-02 Thread Rafael Morales
I can`t find the way for do it with Time::Local, could you explain me please :) - Original Message - From: Timothy Johnson [EMAIL PROTECTED] To: Rafael Morales [EMAIL PROTECTED], beginners@perl.org Subject: RE: Convert date to timestamp Date: Fri, 2 Dec 2005 11:39:23 -0800

Re: Convert date to timestamp SOLVED

2005-12-02 Thread Rafael Morales
Thanks, to Timothy and Shawn four your help and time. -- ___ Get your free email from http://mymail.bsdmail.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

about regex

2005-11-16 Thread Rafael Morales
Hi list !!! This is my trouble, I have a file with this output: [11/14/05 22:52:10:130 GMT] 686b4b72 SystemOut O POST: https://198.104.159.77/ssldocs/ws/xt_vm_transkods.alia?brand=KO-BRperson_id=14560115password=teatrotrans_id=2amount=10trans_date=2005-11-14

Re: about regex

2005-11-16 Thread Rafael Morales
Thanks to Elie, Jay and Shawn, all work fine, but I used the Jay solution. What I was using is: #!/usr/bin/perl use strict; use warnings; $/ = ; my $file = 111505_SystemOut_1.log; open ( FILE, $file ) || die El nombre de archivo es incorrecto o no existe\n$!\n; while ( my

Repetead values

2005-10-14 Thread Rafael Morales
Hi. My trouble is with a value duplicated value on a nested foreach, these are my variables: %names=( 1='NA' 2='NCW' 3='NE' 4='S' 5='SE' 6='SP' ); %hash{'2005-09-19'}{'1'}{'56'}=788; %hash{'2005-09-19'}{'1'}{'43'}=540;

Re: Repetead values

2005-10-14 Thread Rafael Morales
, 14 Oct 2005 14:39:16 -0700 Rafael Morales wrote: Hi. Hello, My trouble is with a value duplicated value on a nested foreach, these are my variables: %names=( 1='NA' 2='NCW' 3='NE' 4='S' 5='SE' 6='SP

update file

2005-07-14 Thread Rafael Morales
Hi list. I have two files which I compare: first file: 813|42006|34913|373376|SALAZAR/BERLANGA/JUAN FRANCISCO K00|42004|99|489545|FAUSTO/PERALTA/PORFIRIO 900|72059|2031|237648|CAZARES/GUTIERREZ/ALEJANDRO 211|42005|34913|86258|GUZMAN/DIAZ/CARLOS NOE second file:

Re: update file

2005-07-14 Thread Rafael Morales
] ) { $match = 1; } } } if ( $match == 1 ) { print FILE2 $nomina[0]\n; } } - Original Message - From: Wiggins d'Anconia [EMAIL PROTECTED] To: Rafael Morales [EMAIL PROTECTED] Subject: Re: update file Date

RE: Trouble running a script with cron

2005-01-03 Thread Rafael Morales
Yes, Bob it works perefect now, thanks. Regards. - Original Message - From: Bob Showalter [EMAIL PROTECTED] To: 'Rafael Morales' [EMAIL PROTECTED], beginners@perl.org Subject: RE: Trouble running a script with cron Date: Wed, 29 Dec 2004 15:42:57 -0500 Rafael Morales wrote: Hi

Trouble running a script with cron

2004-12-29 Thread Rafael Morales
Hi list. I need to put a script in cron, but this script needs exec some Oracle variables for work fine, these variables are: export ORACLE_HOME=/oracle/app/product/9.2.0 export ORACLE_SID=galdb export LD_LIBRARY_PATH=/oracle/app/product/9.2.0/lib32 export NLS_LANG='MEXICAN

Trouble with format

2004-12-13 Thread Rafael Morales
This is my code (something very simple): $variable = Ordenes\nServicios\nGarantias; format ORDENES = Text: ^* $variable ~~^* $variable . But I don't know how can I see or print the output of this, and send it bye email. I tried with write(),

Format and send a file

2004-11-30 Thread Rafael Morales
rows selected. But when I send it by email the exit is disordered. How could I send this file and receive it ordered in the inbox This my code: #!/usr/bin/perl use strict; my $rmorales = [EMAIL PROTECTED]; #- Correo de Rafael Morales my $alertas = alertaMail.log; #- Archivo que

Re: help on comparing lines in a text file

2004-10-12 Thread Rafael Morales
I did something like you want, and maybe this could help you !!!. I copy my code. foreach my $linea1 ( ARRAY1 ) { my $match = 0; my @comp = split /\|/, $linea1; foreach my $linea2 ( ARRAY2 ) { my @comp2 = split /\|/, $linea2;