> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Dirk Bremer
> Sent: Tuesday, May 09, 2006 14:49
> To: Active State Perl
> Subject: Calling Acrobat Reader
>
> I'm developing a nice little program that will search
F-files is, the executable name and its path. I would imagine that
this will require some search of the registry which I have no experience
with from within Perl. I would like any methodology to be used to be
relatively fast in locating the executable.
Dirk Bremer - Senior Systems Engineer
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Nelson R. Pardee
&g
> -Original Message-
> From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED]
> Sent: Friday, April 07, 2006 13:15
> To: Dirk Bremer; Perl-Win32-Users@listserv.ActiveState.com
> Subject: RE: Replace Leading Spaces
>
> > Using a regex, I want to replace each
> -Original Message-
> From: Arms, Mike [mailto:[EMAIL PROTECTED]
> Sent: Friday, April 07, 2006 11:37
> To: Perl-Win32-Users@listserv.ActiveState.com
> Cc: Dirk Bremer
> Subject: RE: Replace Leading Spaces
>
> Dirk Bremer [Dirk.Bremer AT nisc.coop] wrote:
>
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Dirk Bremer
> Sent: Friday, April 07, 2006 09:52
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Replace Leading Spaces
>
> Using a regex, I want to replace e
7;0259.00 '
The total length of the string would remain the same after the replace
operation.
I'm just having a total brain-fade on this one.
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[
Try '^[\[\]a-zA-Z0-9-_. ]+$'
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
From: [EMAIL PROTECTED]
[mailto:[EMAIL PRO
It turns out that in a very long pathname that I had one-byte that was
incorrect that was causing the file-test -d operator to fail, rightly
so. My mistake!
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL
directory first?
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To
> Dirk Bremer wrote:
> > Note the loop as shown above. What am I doing wrong? Do I
> need to create
> > a new SMTP object for each message?
>
> You have to start each message transaction with the "MAIL FROM" SMTP
> command (i.e. $smtp->mail() ). Yo
$smtp->dataend();
$smtp->quit;
Note the loop as shown above. What am I doing wrong? Do I need to create
a new SMTP object for each message?
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECT
this helps.
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
> Yes, I will have to calculate the path, since it is not absolute.
>
> If I put a relative path in @INC, I guess it
> -Original Message-
> From: David Dick [mailto:[EMAIL PROTECTED]
> Sent: Monday, October 31, 2005 14:57
> To: Dirk Bremer
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: Re: Daylight Savings Time
>
> Dirk Bremer wrote:
> > I check certain files
rt 2-weeks earlier and end 1-week
later.
Is there a way to determine DST changes in Perl through a module, etc.?
Or would one have to manually account for the DST schedule every year?
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 f
$month = '07';
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St.
Louis MO - USA Central Time Zone636-755-2652 fax
636-755-2503[EMAIL PROTECTED]www.nisc.coop
From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Pierce, Glen ESent: Friday,
mmand to the socket connection.
print($Socket "$_\n");
# Wait for and then process the information returned from the
server.
while ($Answer = <$Socket>)
{
chomp($Answer);
print("Accepted from server: $Answer\n");
# Exit this loo
t) {kill('STOP',$Acrobat)}
# Kill Acrotray if it is running.
if ($Tray) {kill('STOP',$Tray)}
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
___
unning, we
will exit the program to prevent multiple occurences of the program.
Note that in this example, we are searching against the window's actual
title.
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central T
nts"
Note that when paths/filenames are specified that contain embedded
spaces, its best to enclose the entire string in quotation marks, i.e.:
C:\perl\bin\perl.exe C:\somedirectory\yourprogram.pl "c:\program
files\test\some log file directory\log.txt"
Let me know if you need any
ome nifty code that someone
else wrote:
sub ProgressBar()
{
my ($Got,$Total,$Width,$Char) = @_;
$Width ||= 25;
$Char ||= '=';
my $NumWidth = length $Total;
sprintf("|%-${Width}s| Got %${NumWidth}s bytes of %s
(%.2f%%)\r",$Char x
(($Width-1)*$Got/$Total).&#
ed copy command as
the overhead of spawn a shell-command may be unpredictable.
6. You might consider deleting each file first if it exists as their
might be less overhead involved in copying over an existing file.
7. There may be other things that
every circumstance and always return the
correct results? I don't know. I developed the 'parse' code a while back
to use on Windows platforms, although because it determines the
delimiter character, i.e. / or \, it might work on *nix platforms as
well. If anyone can get more performance o
: stuart arnold
[mailto:[EMAIL PROTECTED] Sent: Wednesday, April 13, 2005
22:56To: Dirk Bremer;
Perl-Win32-Users@listserv.ActiveState.comSubject: RE: Windows
Tasks
Dirk,
Some other things
to watch out for when working with manipulating windows:
1) Watchout for
languages
ode.
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 13, 2005 13:45
To: Dirk Bremer
Cc: Perl-Win32-Users@listserv.ActiveState.com
Subject: Re: Windows Tasks
Dirk Bremer wrote:
> Stuart,
>
> I've managed to program items 1-3 using Win32
o find the
processes or something else, and if something else, specifically what?
Once the program is running, how do I send a message to the program to
activate the Start button?
-Original Message-
From: stuart arnold [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 13, 2005 12:05
T
ation does not have a menu, just four buttons.
-Original Message-
From: stuart arnold [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 13, 2005 10:38
To: Dirk Bremer; Perl-Win32-Users@listserv.ActiveState.com
Subject: RE: Windows Tasks
For item #3: since you have the window handle
static and known ahead of time. I also
know the actual program executable name. The same is also know from
Acrobat.
Your suggestions will be appreciated.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED
I installed PAR via ppm but am missing a require module, i.e.:
Can't locate Module/ScanDeps.pm in @INC
I would prefer a PPM-installable version of this missing file is
possible, otherwise I would need instructions on how to install it from
CPAN.
Dirk Bremer - Systems Programmer II
27;m using Perl v5.6.1.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveSt
Try this:
use Win32::FileOp;
my @Files = Win32::FileOp::OpenDialog(-title => "Select File(s) to
process",
-filters => ['All Files' =>
'*.*'],
-defaultfilter => 1,
-dir => 'c:\\',
Sent: Thursday, January 27, 2005 11:50
To: [EMAIL PROTECTED]
Cc: Dirk Bremer; perl-win32-users@listserv.ActiveState.com;
[EMAIL PROTECTED]
Subject: RE: Regex Help
The reason that "200412" matches in your first regex is that the first
four characters match the pattern (as expected) but ther
gexes in the past but have never used the
positive lookahead assertion before because I have never really
understood it.
Out of the three regexes, I would have expected the first to fulfill my
requirements. I do not understand why it is not, although I suspect it
has something to do with the dash character.
tting the user leave this entry until a
valid value has been entered. I have experimented with the various focus
properties without success. Basically what I would like to do here is
this:
1. Validate the entry with the -validatecommand. This appears to be
working.
2. If an invalid value is entered
label button label button label button label button
I have been using the pack geometry manager. Suggestions?
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.ni
Gerhard,
Can you direct me to the location of the mailing list?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Thursday, January 20, 2005 06:02
To: Dirk Bremer
Cc: perl-win32-users
Subject: Re: Perl GUI Programming
Hi Dirk,
I don't know, why Tk
EMAIL PROTECTED]
Sent: Wednesday, January 19, 2005 18:43
To: Dirk Bremer; perl-win32-users
Subject: Re: Perl GUI Programming
Hi Dirk,
Dirk Bremer <[EMAIL PROTECTED]> wrote:
>
>I am ready to attempt some GUI programming in Perl. I have looked at
> Win32::GUI and need more documentati
.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http
Peter and Michael,
Your advice seems to have done the trick. Have a great weekend.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message -
From: "Peter
Win2K.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
Timeout => $Interval);
The value of the variable I am using, i.e. $Interval, can be set to whatever
you desire, it represents the number of seconds that the socket will listen
for a connection.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-9
while the program
was executing and it does express the changes to the module, which was my
desired result.
I will consider loading a file rather than the module for the future.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 63
- Original Message -
From: "Richard Morse" <[EMAIL PROTECTED]>
To: "Ken Cornetet" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; "Dirk Bremer (NISC)"
<[EMAIL PROTECTED]>
Sent: Monday, June 28, 2004 08:45
Subject: Re: :Oracle
>
&
- Original Message -
From: "Richard Morse" <[EMAIL PROTECTED]>
To: "Ken Cornetet" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; "Dirk Bremer (NISC)"
<[EMAIL PROTECTED]>
Sent: Monday, June 28, 2004 08:45
Subject: Re: :Oracle
>
&
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message -
From: "Lee Goddard" <[EMAIL PROTECTED]>
To: "Capacio, Paula J" <[EMAIL PROT
that filehandles are destroyed earlier than objects based upon
my testing. This is a very interesting subject that has repercussions for
filehandles in objects. I would love the opinion of an internals guru.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Z
n");
}
The same string, i.e. "AmsLog=HASH(0x1ab51c8)" is displayed. So now the
question becomes how do I get the object hash reference from this string or
how do I access the object hash from within the DESTROY?
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
US
your machine thinks 'test' is?
> Or can you run '.\test 1 2 3.?
>
> I only mention this as once - many years ago - I wasted a whole day on
> something exactly like this.
>
>
On my machine, a search of the ActiveState installation reveals multiple
instances of test
at
the $Self->{FH} is undefined at the point it is referenced in LogClose. This
is interesting as the 3rd edition of the Camel book, page 330, has a code
example very similar to what I am attempting to do. I realize it is probably
not neccessary to close the file and the most simple solution
> It occurs because the only kind of variable allowed for specifying the
> filehandle is a scalar--no array or hash elements. There are (or course)
> several solutions. One is actually documented in the entry for print in
> perlfunc:
>
> print({$Self->{FH}} "$TimeStamp$LogMsg\n");
>
> Another possi
-filters => ['All Files' => '*.*'],
-defaultfilter => 1,
-dir => 'c:\\',
-filename => '*.*',
-options =>
- Original Message -
From: "Joe Youngquist" <[EMAIL PROTECTED]>
To: "Dirk Bremer (NISC)" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Friday, April 09, 2004 13:29
Subject: Re: MySQL/Perl
> from the DBI docs:
>
> the connect string is
I am not interested in File::Find for this particular task, although I am
familiar with its capabilities.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message
returning the selected
filename(s)?
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsu
t an
associated window. There is no choice that is obvious to create a minimized
window. Is this possible with Win32:Process or should a console window as
created by Win32:Process use some other method to minimize the window once
it has been created?
Dirk Bremer - Systems Programmer II - ESS/AMS -
.sourceforge.net/perl/
>
> --
> Mike Arms
Mike,
I changed a 2 lines in your which.pl that seems to have cured the problem
with the directories with spaces in their names. Through some
experimentation, glob seems to like the forward slashes better than the
backword slashes. Also placing qu
t; what am I doing wrong?
> the date should be yesterdays date 20030915
>
Alex,
I found that the method that worked best for me in a similar circumstance
was to parse the output of the DOS dir command.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
6
fferent locations within the fonts. I looked at both a Courier and Times
New Roman fonts, and both have the monetary pound character mapped to
location 163. A console window normally uses raster fonts, which I cannot
locate to examine. You can try changing the console font to Lucinda Console
DD2456,DDD1123,
> D2,DD1206,D1,DD0011,D3
> EE5609,EE1200
> END
>
James,
Assuming that you have opened the files, have a loop that reads the input
file line by line and assigns the current line to $_ after chomping it, and
that the output file filehandle is FHO:
key" requires explicit package name at v06b.pl line 1561.
> Global symbol "$key" requires explicit package name at v06b.pl line 1562.
> Execution of v06b.pl aborted due to compilation errors.
>
> If I use $_[2] instead of $key, then it works. Is there a way of passing
f;
open(FH,"<$ARGV[0]") or die("Cannot open input file");
while()
{
chomp;
next unless(length > 0);
unless(defined $line){$line = $_}
else {print("$line $_\n"); $line = undef}
}
close(FH) or die 'Close failed for filehandle FH';
*** Untest
- Original Message -
From: "Jeff Slutzky" <[EMAIL PROTECTED]>
To: "'Dirk Bremer (NISC)'" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Tuesday, January 28, 2003 15:42
Subject: RE: socket application
> I'm glad my question was ins
- Original Message -
From: "Gerber, Christopher J" <[EMAIL PROTECTED]>
To: "'Dirk Bremer (NISC)'" <[EMAIL PROTECTED]>
Sent: Tuesday, January 28, 2003 15:25
Subject: RE: socket application
> Dirk,
>
> I had hacked together something like
hine. This can be
done from the receiving socket program that will be executing on the other
machine. Both of the processes I am interested in killing run in separate
windows with specific window titles. Which is the best way to locate these
processes and then kill them? Note that neit
Capture the output of the Win9x ipconfig command, i.e.:
my @results = `ipconfig`;
You will have to parse the results slightly. This command also lists other
information that may be of interest.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636-922-9158
, they both
> > give me all the attributes of the files too!
> >
> > Is there a better, faster, Perlish way to glob a directory?
Ben,
If you are strictly operating on Win32, the dir command is faster than any
pure Perl solution:
my $src = 'c:\perl\scripts\\';
my @lis
started will be appreciated.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St.
Peters636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]www.nisc.cc
Ullrich,
I suspect that your problem is that you are reading a large
file into an array, i.e.
(@inrecs = )
I think your will find that the program will work better if you eliminate
the array and instead read the input and write the output line by line rather
than all at once.
Dirk
he path like this, assuming $file
contains the fully qualified filename:
($path, undef, undef) = Fparse($file);
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St.
Peters636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]www.nisc.cc
- Original Message -
From:
function again, but it will lose all information about any modules that you
have installed that are not part of the standard installation.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message
1BillSelect.pl ',$Dir,$ARGV[0],'.dat
',$TempSvd,' ',$ARGV[1],' 4 \"',join(' ',@Args),'\"');
# Execute the selection program.
Win32::Process::Create($Process,'C:/Perl/Bin/perl.exe',$Params,0,CREATE_NEW_
CONSOLE,'c:/perl/scripts
Oops, I think I have it backwards:
CDT = GMT - 5. MDT = GMT - 6. CST = GMT - 6. MST = GMT - 7.
So, today you should be 6 hours earlier than GMT. I wonder if it is a
problem with the way you have your TZ set.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 8652
I ran your code here in CDT:
58 52 10 23 9 102 3 295 1
Local: Wed Oct 23 10:52:58 2002
GMT: Wed Oct 23 15:52:58 2002
CDT = GMT - 6. MDT = GMT - 7. CST = GMT - 5. MST = GMT - 6. It looks to me
that the culprit is gmtime, it is not taking into account the daylight
savings time offset.
Dirk
Jasper,
You could try a low overhead version:
script_1.pl
use strict;
our $var1 = 'foo';
our $var2 = 'bar';
1;
script_2.pl
use strict;
require "script_1.pl";
print "In script_2.pl: $script_1::var1, $script_1::var2\n";
Dirk Bremer - Systems Programmer
Are you trying to open a file or a directory? If a directory, you will need
a trailing slash. If a file, you will almost certainly need to specify a
file extension. What is your E drive, attached or networked? If networked,
have you tried the UNC name?
Dirk Bremer - Systems Programmer II - ESS
Change your argument to: E:/BU_0/C/Prefs
The backslash is escaping the characters it preceeds. Alternative:
E:\\BU_0\\C\\Prefs
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message
I also will do the following:
Start->Settings->Control Panel->System->Advanced tab->Environment Variables
button->System variables list, select and edit the PATHEXT variable, add
'.PL;' to the variable string, and then click Okay on everything.
Dirk Bremer - Sys
mpt the user each time after a block of 45 lines has been
displayed.
if (($Displayed % 45) == 0)
{
print(STDERR ' to continue with this file...');
$Prompt = ;
last if (length($Prompt) > 1);
}
Dirk Br
if (defined $5) {print("\$5 = $5\n")}
if (defined $6) {print("\$6 = $6\n")}
if (defined $7) {print("\$7 = $7\n")}
if (defined $8) {print("\$8 = $8\n")}
if (defined $9) {print(&q
Ken,
Why don't you post a few lines of the data that you are trying to match, especially
the lines that match.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message -
From: &qu
put filename already
exists, attempt to delete it.
DeleteFile($ZipOutputFile);
# Extract the file into the output
filename. if
($ZipObject->extractMember($_,$ZipOutputFile) !=
0)
{
WriteLog("Cannot extract $_ from $ZipInputFile, file may be
corrupted&quo
$variable = undef;
@array = ();
%hash = ();
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message -
From: "Jose Guevarra" <[EMAIL PROTECTED]>
To: "Perl-Win32-Use
}
I rarely use elsif's and much prefer a case statement, which might be made more
efficient than a series of if/elsif's.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECT
syntax or names of Perl functions.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
> This is a debugging use of the preprocessor, which is not really a
> problem since only you will have to understand it.
&g
ert comma separators.
1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
return($_);
}
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
___
Perl-Win32-Users mailing list
[EMAI
2 sub. When run without the benchmark,
I get no errors. Why does test2 generate this
error?
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
_
x27; ';}
}
return($self);
}
After running some more benchmarks, this routine is several orders of magnitude faster
than sprinf or a regex.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www
Steve,
How funny you should mention that, I come from a COBOL background and find printf to
be difficult to use compared to an edited PIC
clause. In fact, maybe that's an idea for a module...
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 63
write to your output file like:
for (@Record) {print(OFH,"$_,");}
print(OFH,"\n");
The above assumes that what ever you use to parse the output file is tolerant of
having a comma following the last data field,
otherwise you will have to process the array in a slight
78/s
(n=10)
sprint: 3 wallclock secs ( 2.39 usr + 0.00 sys = 2.39 CPU) @ 41788.55/s
(n=10)
I was quite surprised to see that the regex won out by a bit, I would have thought
that it would have invoked more overhead. This
has been a learning experience, which is one of the aspects of this
red
result, while the 0+ maybe useful for other things.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday,
= ,999,999. Please advise.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/m
I have started an instance of the Winnt Task Manager using Win32::Process, and once it
has started, I would like to minimize it. How
may I accomplish this in Perl?
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTEC
ve
been entered. All of this information is in the
Camel book, if you don't have it, get it, if you have it, please read it.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
- Original Message -
From: "
pha to A, H, R, S, etc.
foreach (keys %Constants)
{
if ($Attr & $Constants{$_}) {$Attrs .= $_;}
}
$File would be assigned your file name/directory name.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
= -9
How can I do this with Perl's bitwise operators?
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
___
Perl-Win32-Users mailing list
[EMAIL
Joe,
I changed things to pass undef as the third argument and to just check for defined on
the argument and it works fine. Thanks for
your and others' suggestions on this issue.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailt
an error and generating a false condition in a validity check for the value used in
the example.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
<mailto:[EMAIL PROTECTED]>
- Original Message -
From: "Joe Schell" <[EM
a problem with the grep function. It returns all of the files in the
directory instead of the specified file extensions.
It appears that grep does not recognize the value in $ForVar1. Any suggestions?
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-44
I have a new version of my PerlCheck program available. I also wrote a program that
will calculate voltage drops for 120AC lines.
Email me direct if you are interested in either of these programs and indicate if you
would like the files as attachments or inline.
Dirk Bremer - Systems
1 - 100 of 123 matches
Mail list logo
