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
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
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
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
- 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
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
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 =
]
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
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
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
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.
--
]
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
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
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
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/
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
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
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;
, 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
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:
] )
{
$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
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
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
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(),
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
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;
26 matches
Mail list logo