Hello all,
I'm having a problem with the hash table built by querying the database. I'm getting a
different number of hash elements when I'm printing them from the while loop and from
the foreach block. I don't need to count and print them but I wanted to check if I'm
getting everything beca
Has anyone sucessed to connect to MQ by MQCONNX (not MQCONN) in module "MQSeries",
MA89 perl support, without MQSERVER env nor AMQCLCHL.TAB?
I can't do this for long time.
I posted this to MQ mailing list. And I got response from the auther Mr. Moore
saying "Debug by yourself, I am simply passing
I have a script that I want to fork a child process that will start an
application, e.g. notepad. Once notepad is closed I want the child
process to send a signal to the parent. How would I do this in Windows?
my $pid = fork();
defined ($pid) or die "Can't fork: $!";
if ($pid > 0){exit};
prin
Here is one thing I might do.
I would open another file for writing
open(RESULT,">c:\\results.txt");
This file is going to be the file
that gets written out with the fixed 'stuff'.
and then open up the file in question that you want to rip apart and edit.
open(READTHISFILE,"c:\\file_to_rea
Denis
I think this will do the deal for you:-
$tagger = "See SAY_PLEASE_TXT and SAY_HELLO_TXT.";
$tagger =~ s/\b([A-Z]+_[A-Z_]+)\b/^$1^/g;
print "$tagger\n";
Andy
- Original Message -
From: "Denis Pleic" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 18, 2001 5:49 PM
Denis Pleic wrote:
>
> Hi Perlers,
>
> I need some help with a regex I can't figure out.
>
> In short, I need to enclose all occurences of certain "label"
> strings in a text file into '^' marks.
>
> I.e., for example:
>
> "See SAY_PLEASE_TXT and SAY_HELLO_TXT."
>
> Those string codes *alway
Hi Perlers,
I need some help with a regex I can't figure out.
In short, I need to enclose all occurences of certain "label"
strings in a text file into '^' marks.
I.e., for example:
"See SAY_PLEASE_TXT and SAY_HELLO_TXT."
Those string codes *always* come in all caps, and with *at least*
one
> -Original Message-
> Behalf Of $Bill Luebkert
>
>
> Joe Schell wrote:
> >
> > > What does that mean 'stopped being true' ?
> >
> > At one point the path to perl had to be specified in the
> shebang line. I
> > remember because it was annoying going back and forth between
> window
Joe Schell wrote:
>
> > What does that mean 'stopped being true' ?
>
> At one point the path to perl had to be specified in the shebang line. I
> remember because it was annoying going back and forth between windows and
> unix with the path change. So when it started allowing the use of just
>
> Message: 10
> From: "steve silvers" <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Subject: unlink problems
> Date: Mon, 18 Jun 2001 12:53:20 -
>
> Thanks for all your help so far with this. Im still having a
> problem. Im
> using this snippet of code that someone helped with.
>
I have had success using MIME::Lite. Here is code from a script that works
in production today. Some of the "names
have been changed to protect the innocent".
The script generates a log while processing and then e-mails it to a list
of users.
use MIME::Lite;
.
..
.
sub SendEmail {
my (
> -Original Message-
> On Behalf Of Dan Jablonsky
>
> Hi all,
> I have a regex, it's isolating some numbers in each
> line of a text file and I want to add some computation
> with those numbers on the same line. I know you can
> basically stick any function in a regex but I don't
> know
Steve,
There are several other questions that need to be asked before you can
decide on a regular expression:
* Is there a possiblity of typos in the month names?
* Can the month names sometimes be in all uppercase?
* Can there be more than one space between month and day or comma and year?
Ca
True. For that you could use /\w{1,}\s{0,}\d{1,2}\,\s{0,}\d{4}/ but that's
not what he asked for.
> -Original Message-
> From: Asif Kaleem [mailto:[EMAIL PROTECTED]]
> Sent: Monday, June 18, 2001 3:20 PM
> To: Peter Eisengrein; 'steve silvers';
> [EMAIL PROTECTED]
> Subject: RE: R
if we have the date like "ber 11, 2001" or "ugust 12, 2001" then the match is
ture whcih is not what we want.
--- Peter Eisengrein <[EMAIL PROTECTED]> wrote:
> untested...
>
> /[January|February|March|April|May|June|July|August|September|October|Novemb
> er|December]\s{0,}\d{1,2}\,\s{0,}\d{4}/
Could you clarify the question.
Example: If I get the input line
___
I want this output line
___.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Dan
Jablonsky
Sent: Monday, June 18, 2001 2:32 PM
To: [EMAIL PROTECTED]
Subject: computations with backr
:
: I need a regular expression that will match dates in the
: following format.
:
: January 01, 2001
: January 15, 2001
: February 01, 2001
:
: so on. All dates are spelled out March, April, May...
:
if ($date_string =~ /(\w+)\s+(\d{1,2}),\s+(\d{4})/) {
$month = $1;
untested...
/[January|February|March|April|May|June|July|August|September|October|Novemb
er|December]\s{0,}\d{1,2}\,\s{0,}\d{4}/
> -Original Message-
> From: steve silvers [mailto:[EMAIL PROTECTED]]
> Sent: Monday, June 18, 2001 3:00 PM
> To: [EMAIL PROTECTED]
> Subject: Regular Expressi
PS:
See perlre and perlop, aka
http://www.perl.com/pub/doc/manual/html/pod/perlop.html and
http://www.perl.com/pub/doc/manual/html/pod/perlre.html for tons more
info.
--Art
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.
I need a regular expression that will match dates in the following format.
January 01, 2001
January 15, 2001
February 01, 2001
so on. All dates are spelled out March, April, May...
Any suggestions.
Thanks in advance.
Steve.
_
G
: I know you can
: basically stick any function in a regex but I don't
: know how. Hence, the code below won't work:
To evaluate the right side of a substitution as an expression (rather
than a literal string), you stick an "e" after the last delimiter.
: $_=~s/^[A-Z]\t(\d{1,2})\t.*\t(\
Hi all,
I have a regex, it's isolating some numbers in each
line of a text file and I want to add some computation
with those numbers on the same line. I know you can
basically stick any function in a regex but I don't
know how. Hence, the code below won't work:
$_=~s/^[A-Z]\t(\d{1,2})\t.*\t(\d{2
I've never been able to get it to work either, although I did notice that
if I changed EMBED_ATTACHMENT to '1454', notes would send the email with
the attachment, but I'd red screen my notes client.
I also noticed that if I turned on warnings while running with
EMBED_ATTACHMENT, I'd get a type
Has anyone had success attaching a file to a Lotus
Notes email using Perl? I have the following script
which sends the email, but, so far no attachment.
TIA
Brad
use Win32::OLE;
use Win32::OLE::Variant;
$file = "c:\\sstrm60\\batch\\pcareport.xls";
send_mail('Brad Currens','@anywhere.com');
s
> -Original Message-
> Behalf Of $Bill Luebkert
>
> Joe Schell wrote:
> >
> > > -Original Message-
> > > Behalf Of $Bill Luebkert
> > >
> > > Andy Jennings wrote:
> > > >
> > > > Michael
> > > >
> > > > On NT/2000 default installation of AS Perl will associate
> > > filetypes in
25 matches
Mail list logo
