-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 a directory on
another server and return
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 - ESS/AMS - NISC Lake St. Louis MO
'
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
[EMAIL PROTECTED]
www.nisc.coop
-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 each leading space-character
-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:
Using a regex, I want to replace
-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 leading space-character
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 PROTECTED
the 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
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
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 PROTECTED]
www.nisc.coop
___
Perl-Win32-Users mailing list
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() ). You do not need to reconnect
unless the
server kicks
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 fax 636-755
-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' modification dates against
$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, October 07
.
last SOCKET if ($_ eq 'term' or $_ eq 'end');
}
}
# Close the socket connection.
close($Socket);
exit(1);
__END__
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
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 Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
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
From: [EMAIL PROTECTED]
[mailto:[EMAIL
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 other specifics.
Dirk Bremer - Senior
an existing file.
7. There may be other things that I haven't considered.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC Lake St. Louis MO -
USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
| Got %${NumWidth}s bytes of %s
(%.2f%%)\r,$Char x
(($Width-1)*$Got/$Total).'',$Got,$Total,100*$Got/+$Total);
}
3. I'm not sure about File::Copy, I'll have to have a look at it.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC Lake St. Louis MO -
USA Central Time Zone
636-755-2652 fax 636-755
it determines the
delimiter character, i.e. / or \, it might work on *nix platforms as
well. If anyone can get more performance out of any of these three
subroutines or can offer one that will do better, I would like to know.
-Original Message-
From: Dirk Bremer
Sent: Thursday, April 21, 2005
: 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
is 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
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 (from
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
To: Dirk Bremer; Perl
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::OLE and WMI. For item
4,
I can
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 - ESS
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.ActiveState.com
Try this:
use Win32::FileOp;
my @Files = Win32::FileOp::OpenDialog(-title = Select File(s) to
process,
-filters = ['All Files' =
'*.*'],
-defaultfilter = 1,
-dir = 'c:\\',
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.
What am I doing wrong here? I should be able to accomplish this test
using a single regex, right?
Dirk
: 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 there is nothing
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 looks
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.nisc.cc
refers to a
variable for its text, will the label be updated in the GUI if the
-invalidcommand sets the value of the variable? Would the program need
to do another pack on the status label to refresh its view of the lable
text variable?
TIA!
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC
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 documentation for it than I can readily
.
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
on 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
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 Guzis [EMAIL
for a connection.
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
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 636-447-4471
- 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
On my computers, if I use SQL Worksheet, I connect using username
'XXuser
- 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
On my computers, if I use SQL Worksheet, I connect using username
'XXuser
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 Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
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 PROTECTED]
Cc: [EMAIL PROTECTED]; Perl-Win32
simple solution is not to
close the file. But on the other hand, I feel that something like this
should work. What am I doing wrong?
On a similar note, how could I display all of the key/value pairs in the
object hash?
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time
wasted a whole day on
something exactly like this.
On my machine, a search of the ActiveState installation reveals multiple
instances of test.pl in multiple directories, so naming your own script
test.pl is not a good idea.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central
in the DESTROY sub:
sub DESTROY()
{
my $Self = shift;
print($Self\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
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 possibility is
= 'c:\\',
-filename = '*.*',
-options = OFN_ALLOWMULTISELECT |
OFN_EXPLORER);
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
- 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:
$dbh = DBI-connect($data_source, $username, $auth, \%attr
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 unsubscribe: http
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
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 - NISC St. Peters
=~ /$ext$/i -f $f;
print $pad . file_info( $f ) . $f\n;
$found++;
}
}
}
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
the output of the DOS dir command.
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
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,
which does have the monetary pound character mapped to location 163.
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St
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:
if (length($_) 32) {print(FHO substr($_,0,32),\n); print(FHO
substr($_,31),\n)}
else {print(FHO $_\n}
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
of v06b.pl aborted due to compilation errors.
If I use $_[2] instead of $key, then it works. Is there a way of passing
$key as $key to the sub?
Thanks.
R.
sub update_value {
my $key = $_[2];
...
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
USA Central Time Zone
636
on the
remote machine are written in Perl. 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]
www.nisc.cc
___
Perl-Win32-Users
- 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 this in C at one point. I think I
have
a copy of the source
- 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 inspiring. I am trying to get this to work on my
Win2000 Workstation
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 @list = `dir /b/s \$src\`;
Dirk Bremer - Systems Programmer
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
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 = INFIL)
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
) = 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:
Neil
To: [EMAIL PROTECTED]
Sent: Wednesday, December 04, 2002
10:48
Subject: perl-win32
program.
Win32::Process::Create($Process,'C:/Perl/Bin/perl.exe',$Params,0,CREATE_NEW_
CONSOLE,'c:/perl/scripts') || die ErrorReport();
$Process-Wait(INFINITE);
sub ErrorReport() {print(Win32::FormatMessage(Win32::GetLastError()));
return(1)}
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St
will
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
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
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
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 II - ESS/AMS - NISC St. Peters
636-922-9158
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
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
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 - Systems Programmer II - ESS/AMS - NISC St
lines has been
displayed.
if (($Displayed % 45) == 0)
{
print(STDERR 'Return to continue with this file...');
$Prompt = STDIN;
last if (length($Prompt) 1);
}
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St
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: Ken Fox
) {print(\$6 = $6\n)}
if (defined $7) {print(\$7 = $7\n)}
if (defined $8) {print(\$8 = $8\n)}
if (defined $9) {print(\$9 = $9\n)}
Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters
636-922-9158 ext. 652 fax 636-447-4471
[EMAIL
og("Cannot extract $_ from $ZipInputFile, file may be
corrupted",1);
next; }
}
Dirk Bremer
- Systems Programmer II - ESS/AMS - NISC St. Peters636-922-9158 ext.
652 fax 636-447-4471
[EMAIL PROTECTED]www.nisc.cc
- Original Message -
From:
[EMAIL PROTECTED]
$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-Users [EMAIL PROTECTED]
Sent
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 PROTECTED]
www.nisc.cc
($_);
}
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
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
, 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.nisc.cc
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
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
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com
) {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 slightly different manner to exclude
the last comma.
Dirk Bremer - Systems
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 636-447
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, February 12, 2002 11:36
Subject: RE: Zero-suppression
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 list that I enjoy.
Dirk Bremer - Systems Programmer II
= ,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/mailman/listinfo
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 PROTECTED
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: Tanya Graham [EMAIL PROTECTED]
To: [EMAIL PROTECTED
file name/directory name.
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/mailman/listinfo
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 PROTECTED]
http
dition 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" [EMAIL PROTECTED]
To: "Dirk Bremer" [EMAIL
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-4471
m
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-4471
mail
)
{
foreach my $v2 (don't know what to put here using references)
{
print("$v1-[$v2]\n");
}
}
I am not sure about the format of the print statement.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
mailto:[EMAIL PROTECT
Would someone explain the __FILE__ and __LINE__ literal tokens? The camel book say
very little concerning them. What would you use
them for?
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
mailto:[EMAIL PROTECTED
would like to remove the "\n" from the hash
value, preferably by altering one of the two lines of code, rather than a bunch of new
lines. Suggestions?
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 f
?
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/mailman/listinfo/perl-win32-users
Here is the latest version of my PerlCheck program.
Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471
mailto:[EMAIL PROTECTED]
# PerlCheck.pl 03/09/2001.
# Define pragmas.
use diagnostics;
use English;
use strict;
use warnings;
# Define
1 - 100 of 113 matches
Mail list logo