Dbd-oracle doesn't seem to be available for the latest version of perl,
and I can't figure out how to make it available. No, I don't want to go
the odbc route. I can go back one perl version to get it to work, but
I'd prefer not to. Suggestions? Thanks in advance for your help.
Chris,
Do you absolutely need backticks? You can invoke a command/program and
capture stdin, stdout with OPEN2, and stderr with OPEN3. I haven't done it
in ActivePerl although I have in Unix. I do know they don't work well for
my purposes with another perl script, but they might work with a
/;
.
.
};
if($@) { .
read 'perlfunc' on eval for usage.
Regards
Mark
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, CST 4-191, Syracuse, NY 13244 --
--(315) 443-1079 [EMAIL PROTECTED
there you can
think of? It would really help this application which runs as a sendmail
alias and I never see the errors I don't trap for myself.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, CST 4-191, Syracuse, NY 13244 --
--(315
thought it might be
an issue of being in debug mode or not, but that doesn't seem to be the
case. Any ideas?
Thanks again for all the help.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, CST 4-191, Syracuse, NY 13244 --
--(315) 443
In order to avoid installing Perl on a bunch of PC's, I'd like to compiler
a couple of Perl programs. Any recommendations? I didn't see anything
recently in the archives but I might have missed it. Thanks in advance.
Nelson
--Nelson R. Pardee, Support Analyst, Information Technology Services
If I haven't run any Perl programs in awhile, it takes a bit to start up.
Subsequent executions startup pretty quickly. Is this possibly a caching
of Perl itself by Windows? other? 2 Ghz processor, 1 G ram.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse
Jan,
The information on STDIN is extremely lucid and helpful. I have
pathext's set, and by using Perl -S, I should be able to do what I want to
cleanly. Your two emails are keepers.
As to command line arguments: Fumbling around off of Stuart's suggestion,
I looked at the file association
wondering
why
Nelson
On Wed, 7 Mar 2007, Bill Luebkert wrote:
Nelson R. Pardee wrote:
1. I want to pipe the output from a program to STDIN such as
type somefile|myperlprogram.pl I've done this forever in unix, but in
Windows/dos it behaves weirdly. -t STDIN doesn't know that it isn't
uninstalled previous versions, then installed
this. Rebooted several times. Any ideas?
2. On this installation, Perl can't find @ARGV.
Perl 5.8.8 Build 820 I uninstalled previous versions, then installed this.
Rebooted several times. Not a problem on other PC's
Thanks!
--Nelson R. Pardee, Support Analyst
Ah, you made me go back and reread the manual on this. It does sound like
it doesn't matter if there's no variable to interpolate. Although- when I
recently did some timing, it seemed to make a very slight difference.
On Tue, 2 May 2006, Timothy Johnson wrote:
Why did you add the o? I believe
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 817 [257965] provided by ActiveState
http://www.ActiveState.com
Built Mar 20 2006 17:54:25
--Nelson R. Pardee, Support Analyst, Information
=~ /^([^\d]+)(.*)$/;
my ($characterString, $numberString) = ($1, $2);
}
Luke
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--Nelson R. Pardee
This doesn't exactly answer your question, but a compact version:
chomp(@subDirs=`dir c:\\some\\directory 21`);
You can use opendir and readdir, too, although because I often want time
stamps, etc., I find myself coming back to the above and so far its
performance has been good (I've called it
= ' 259.00 ';
Note that I don't want to change the trailing space character. The
resulting string would look like:
'0259.00 '
The total length of the string would remain the same after the replace
operation.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse
On Fri, 7 Apr 2006, Nelson R. Pardee wrote:
Don't know if this is the most efficient, but it seems to work for me...
s/^(0?\s)/0/g;
Another brain fade!. This doesn't work.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
:
'0259.00 '
The total length of the string would remain the same after the replace
operation.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, 211 Machinery Hall, Syracuse, NY 13244-1260--
--(315) 443-1079 [EMAIL PROTECTED
I've included timings for 1 iterations for each of the proposed
solutions.
0.056398 s/\s(?=\s*\S)/0/og
0.254457 while (s/\s(?=(\d|\.))/0/ {)
0.094268 s/^(\s+)(?=\d)/'0'x(length $1)/e
0.026934 (see below) Strip front space, take length diff, replace with n x 0
0.095046 s/^(\s+)/sprintf %s,
May not have hit your inbox yet...
0.056398 s/\s(?=\s*\S)/0/og
0.254457 while (s/\s(?=(\d|\.))/0/ {)
0.094268 s/^(\s+)(?=\d)/'0'x(length $1)/e
0.026934 (see below) Strip front space, take length diff, replace with n x
0
0.095046 s/^(\s+)/sprintf %s, q[0]x length($1)/eg
0.086842 s/ (?=.*\d)/0/g
is more faster than
regular
expression.
Are two system calls to agrep really faster than a single, well-crafted
regex? This would be the first thing I'd look at to speed performance.
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, 211 Machinery
: http://listserv.ActiveState.com/mailman/mysubs
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University, 211 Machinery Hall, Syracuse, NY 13244-1260--
--(315) 443-1079 [EMAIL PROTECTED
to load. Execution times themselves are quite reasonable- it's
these overhead issues that are a problem. I'm running on a 2 GH Pentium
with 1G of memory so hardware isn't the issue. Ideas? Suggestions?
--Nelson R. Pardee, Support Analyst, Information Technology Services--
--Syracuse University
22 matches
Mail list logo