sleep if length($upc_itemlist{$upc}) == 0;
}
##
Out of curiosity, what application outputs this type of datafile?
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Greg Wardawy [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, Februa
Threads are disabled in AP 5.6 as of yet. If you absolutely need this
functionality you'll either need to downgrade to 522, wait for Perl 6, or
hope for a 5.x build supporting threads.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message
needing to be manually specified while inserting data. On the off hand you
need to generate a unique id within Perl itself (for session states, etc),
another non-portable approach is to call CoCreateGUID using Win32::API.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED
If tele.conf is straight perl code, try:
require "tele.conf";
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: David Armstrong [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 06, 2001 11:53 AM
To: [EMAIL PROTECTE
look into printf and sprintf:
printf "%.2f", $number; # prints floating-point number to two decimal places
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Roee Rubin [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, Marc
Ask them
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Sharon Tiroff [mailto:[EMAIL PROTECTED]]
Sent: Monday, March 19, 2001 1:46 PM
To: '[EMAIL PROTECTED]'
Subject: Newbie question
Hi List!
Right now I am sending HTML
@chars);
$out .= splice @chars, $idx, 1;
}
print $out;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Roee Rubin [mailto:[EMAIL PROTECTED]]
Sent: Monday, June 25, 2001 4:08 PM
To: Perl-Win32-Users
Subject: Randomly selecting
open(CAREWEBFILE, "$CareWebFile") || die "SORRY, CAN'T FIND
$CareWebFile\n";
3. incorrect syntax for print to filehandle
print ($_) CAREWEBOUT;
-- print CAREWEBOUT $_;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Messa
Same for me.. output capture, function list, syntax coloring.. what more do
you need? :P
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Chuck Brewer [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 09, 2001 3:28 PM
What, you don't just put a few well-placed print's in your code for
debugging? G If the GUI debugger functionality is what you want, take a
look at OptiPerl at http://www.xarka.com/optiperl/. I'm sure Komodo will
work fine too if you have a beefy machine.
Peter Guzis
Web Administrator, Sr
). You could also write the GUI portion of your program in C
and drop in an embedded perl interpreter for the rest of the code.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Roman @ blakout [mailto:[EMAIL PROTECTED]]
Sent
opendir (DIR, $directory) || die can not open it:$!;
@sub_folders = grep $_ !~ /^\.+$/, readdir($directory);
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Monday, October
Exactly how much memory is your program using? How much memory does your
server have? How are your scripts executed? (CGI, ASP, PerlIS, PerlEx, etc)
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Mauricio Lairet P
turning on file auditing for the directories on question. It will help
pinpoint what is happening.
Is your CGI script called via a form submit from the shtml document or is it
embedded with a server-side include?
Hope this helps,
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED
for development and not production servers.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Simon Oliver [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 03, 2002 12:51 AM
To: [EMAIL PROTECTED]
Subject: Re: A website, perl
When you write:
$the_data[1] = some_value;
you are overwriting all of $the_data[1]. Instead, if you only wish to
replace an exising key, use:
$the_data[1]-{y} = C;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Andrew
::OLE::LastError();
if ($last_url ne $url) {
print $url\n;
$last_url = $url;
}
sleep 1;
}
exit;
---
For the IE object model check out Microsoft Internet Controls in your
C:\Perl\html\site\lib\Win32\OLE\Browser\Browser.html.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email
'};
my $hour = int ($sec / (60 * 60));
$sec -= $hour * 60 * 60;
my $min = int ($sec / 60);
$sec -= $min * 60;
printf %-12s %02d:%02d:%02d\n, $session-{'user'}, $hour, $min,
$sec;
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED
, Timeout=60);
}
### Now this will do the right thing:
$msg-send; ### will now use Net::SMTP as shown above
---
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Scot Robnett [mailto:[EMAIL PROTECTED]]
Sent
and the
echoed information is correct, the remote host is considered reachable.
Specifying the icmp protocol requires that the program be run as root
or that the program be setuid to root.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message
Excerpt from the Net::Ping docs, that is :P
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Peter Guzis [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 19, 2002 3:03 PM
To: [EMAIL PROTECTED]
Subject: RE: perl ping?
Root
, your application will be slow.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 02, 2002 9:33 AM
To: [EMAIL PROTECTED]
Subject: Perl Encryption
I want to take
for updates towards this
increased functionality.
I hope this helps, but I know it wasn't the answer you had hoped for.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
Sent
I don't think that data is stored in the registry. You can grab it via a
SQL interface though. Try the following URL:
http://www.sqlteam.com/item.asp?ItemID=8318
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message
, $attr ENCRYPTED ? 'is' : 'is not';
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Galleske, Ingo (Ingo)** CTR ** [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 5:05 AM
To: '[EMAIL PROTECTED
open (FH, pathtofile) or die Could not open file: $!\n;
while (FH) {
if (/^#(.+)/) {
chomp (my $comment = $1);
print $comment\n;
}
}
close (FH);
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From
# unknown/unsupported state change, just clobber it and say we are running
normally
} else {
Win32::Daemon::State ($last_state);
}
# to keep cpu utilization down (use Time::HiRes if you need more
granularity)
sleep 1;
}
exit;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak
Once you properly install the service and put the aforementioned code in
your script you are running a full-fledged service. You can start and stop
it just like any other service. No special tools are required.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL
! Goodbye!\n;
exit 0;
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: James E Keenan [mailto:jkeen;concentric.net]
Sent: Sunday, October 20, 2002 8:28 AM
To: [EMAIL PROTECTED]
Subject: Re: How can I avoid
, $chunk_size - $search_length,
$search_length - 1;
$chunks_read++;
}
close BIN;
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Thad Schultz [mailto:tschul;woodward.com]
Sent: Friday, November 15
You're right on the first issue. I need to slow down in my rush to be first
reply :P
The search string will NOT be truncated because of these lines:
my $search_length = length ($search);
my $chunk_size = $search_length CHUNK_SIZE ? $search_length :
CHUNK_SIZE;
Peter Guzis
Web
a
program (untested) that claims to do it.
For full C source code check out the application called PowerOff at:
http://users.pandora.be/jbosman/applications.html
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From
adjust the code
accordingly.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Christopher Hahn [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 1:33 PM
To: Perl win32 email list ([EMAIL PROTECTED
Title: RE: Ping routine correct?
You
can't eval {} a 'use' since the use happens at compile time and the eval is not
invoked until run-time. Enclose your 'use' code in a BEGIN {} block and
youshould be abletowork around it.
Peter GuzisWeb Administrator, Sr.ENCAD, Inc.- A
Kodak
You could also check into WxPerl (http://wxperl.sourceforge.net/) which is a Perl
interface to WxWindows (http://www.wxwindows.org). I find it is much more robust,
full-featured, and better documented than Win32::GUI. It is also cross-platform
compatible.
Peter Guzis
Web Administrator, Sr
From the LWP::UserAgent pod:
The request can be aborted by calling die() in the callback routine. The die message
will be available as the ``X-Died'' special response header field.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
If you don't mind using an external program I highly suggest CHKCPU.EXE from
http://web.inter.nl.net/hcc/J.Steunebrink/chkcpu.htm. We use it in our login scripts
and it works very well on all versions of Windows. It's free and small too at less
than 17 KB.
Peter Guzis
Web Administrator, Sr
@matches = grep /^Status/, @data;
If this doesn't do it you might consider posting some sample data.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Hawley, Eric [mailto:[EMAIL PROTECTED]]
Sent: Thursday
Check out http://www.roth.net/perl/scripts/scripts.asp?ChRes.pl
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Dax T. Games [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 06, 2003 2:12 PM
To: Perl Users
I noticed in test.pl you have $cmdLine set to perl -Ic:\\PerlLibs sload.pl
$testname. Is there anything that prohibits you from moving the sload.pl code to
test.pl? That might save you from having to deal with waiting on another process.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc
3) Use Win32::AdvNotify if you can find it
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Messenger, Mark [mailto:[EMAIL PROTECTED]
Sent: Friday, June 27, 2003 3:22 PM
To: 'Wingfield, Nancy'; '[EMAIL
I would love to have the source as well. Win32::ChangeNotify is quite limited by
comparison. *sigh*
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
2000 SP3 and
above won't work?
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Molumuri, Janardhan [mailto:[EMAIL PROTECTED]
Sent: Monday, July 07, 2003 9:09 PM
To: '[EMAIL PROTECTED]'
Subject: download
You need to escape your backslashes.
%NetResource = ( RemoteName = 'server\\share\\vol' );
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Burns, Tom (Consultant) [mailto:[EMAIL PROTECTED]
Sent: Monday
Here's one way to do it:
my @keys = keys %$errs;
foreach my $key (@keys) {
if (my ($suffix) = $key =~ /^err_main_(.+)/) {
$errs-{err_$suffix} = delete $errs-{$key};
}
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
;
$right /= MAX_VOLUME / 100;
return wantarray ? ($left, $right) : ($left + $right) / 2;
}
##
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Michael D. Smith [mailto:[EMAIL PROTECTED]
Sent: Thursday, October
are
using.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Edward Peschko [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 21, 2003 5:16 PM
To: Hanson, Rob
Cc: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Re
Check out Win32::EventLog::Message at http://www.roth.net/perl/.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: John_Ramsden [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 23, 2003 10:32 AM
To: [EMAIL
. The variable names
should be enclosed in parenthesis. use warnings would have notified you of this
problem.
3. Don't take for granted that all function calls are successful. Be sure to check
the return codes.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL
, $datestr);
$temp-ChangeType(VT_DATE);
$temp-ChangeType(VT_R8);
return timelocal((gmtime(int(($temp - 25569)*86400+0.5)))[0..5]);
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Tony White [mailto:[EMAIL
Looking at your code what you really need is a return.
Don't use goto if you can at all help it. There is almost always a better way.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED
Have you turned on autoflush at the beginning of your script?
$| = 1
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, November 03, 2003 8:44 AM
file.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Darragh O'Brien [mailto:[EMAIL PROTECTED]
Sent: Saturday, November 08, 2003 5:03 AM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: software.log problem
of
headaches.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Krishna, Hari [mailto:[EMAIL PROTECTED]
Sent: Friday, November 14, 2003 11:21 AM
To: [EMAIL PROTECTED]
Subject: PERL Authentication!!
Hi guys
Is there a reason you cannot use Outlook Web Access?
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tue 12/2/2003 8:18 PM
To: [EMAIL PROTECTED]
Cc:
Subject: MS Exchange public folder to Web page
message number
my @sortmsgs = sort { $a = $b } @msgnums;
my $maxmsg = @sortmsgs[$#sortmsgs];
my $nxtmsgnum = $maxmsg + 1;
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Peter Davis [mailto:[EMAIL
be better off subclassing MLDBM and writing your own
Tie::IxHash-like functionality.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Hernandez, Pedro (Merant) [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 10
script verbatim.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 08, 2004 4:57 PM
To: Peter Guzis; [EMAIL PROTECTED];
[EMAIL PROTECTED
anyway, I would recommend uninstalling all versions of Perl and
deleting the residual /Perl directory structure. 5.6 and 5.8 aren't binary-compatible
and all sorts of weird things could conceivably happen if they are pulling modules
from the same location.
Good luck!
Peter Guzis
Web
+$/ || !defined $coderef || ref
$coderef ne 'CODE';
push @schedule, [ time + $delay, $coderef, [EMAIL PROTECTED] ];
1;
}
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Asim Siddiqui [mailto:[EMAIL PROTECTED]
Sent
Look into CDO (Collaboration Data Objects). A good place to start is
http://www.cdolive.com.
-Original Message-
From: Richard DeWath [mailto:[EMAIL PROTECTED]
Sent: Wed 1/14/2004 5:55 AM
To: [EMAIL PROTECTED]
Cc:
Subject: Reading
with and you are only limiting your total contiguous storage space
if you put the paging file on a separate partition, but on the same physical drive.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: henry
.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: steve silvers [mailto:[EMAIL PROTECTED]
Sent: Monday, January 26, 2004 10:28 AM
To: [EMAIL PROTECTED]
Subject: Compare hash and scalar or array
I'm reading
{uc $name} = 1;
}
$text =~ s/%$_%/$ENV{$_}/gi foreach keys %env_vars;
$text;
}
##
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Friday, January 30
::Sempahore would all be good
candidates. The latter two may only work on the same computer, though.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Triton [mailto:[EMAIL PROTECTED]
Sent: Tuesday, February 10
=poemode=module). Another solution
may be to keep track of the number of characters for the longest text in each column
and adjust the number of columns downward when necessary.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original
{
$memory += $precision - $remainder;
}
$memory;
}
##
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Matt Bazan [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 17, 2004 9:18 AM
To: [EMAIL PROTECTED
I think what you're looking for is a zero-width negative look-ahead assertion.
##
if ($var =~ /this is (?!test|best|chest)/) {print does not contain
##
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From
sys = 9.20 CPU) @ 1086.60/s (n=1)
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 23, 2004 5:37 AM
To: Matt Bazan; [EMAIL PROTECTED]
Subject: Re
Don't use regular expressions to parse complex data like HTML. It's just not worth
it. Try HTML::TokeParser instead.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Chris [mailto:[EMAIL PROTECTED]
Sent
$cellValue = 'Smith, A.B., Jones, C.D. and Doe, E.F.';
@originators = $cellValue =~ /(.+, .+), (.+, .+) and (.+, .+)/;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Martin Leese [mailto:[EMAIL PROTECTED
$a =~ s/ /_/g;
$a =~ s/[()]//g;
or
$a =~ tr/ ()/_/d;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 01, 2004 9:28 AM
To: [EMAIL
$txtype = 0 unless $txtype =~ /^-{0,1}\d+(?:\.\d+){0,1}$/;
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Motter, Jeffrey D [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 01, 2004 10:40 AM
To: Perl-Win32
your program is for SRVANY to forcefully terminate it. This can
potentially lead to data loss and execution stopping at places you didn't intend.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Jim Lancaster
AFAIK, services running in the LocalSystem context have no desktop of which to speak.
Creating an interactive environment (desktop) for something explicitly defined as
non-interactive (service) would serve no purpose.
Assuming there was a system desktop, what were you hoping to capture?
Peter
: Security, Services and the Interactive Desktop
http://support.microsoft.com/default.aspx?scid=kb;EN-US;327618
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: Roy Huggins [mailto:[EMAIL PROTECTED]
Sent: Tuesday
You could try Module::Reload::Selective from CPAN. If you do repeatedly reload your
module keep an eye on memory utilization. I do not believe the memory allocated to
Perl will be reclaimed until your program exits.
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email
BEGIN {
# only use Win32::Process on the correct platform
if ($^O eq 'MSWin32') {
require Win32::Process;
}
}
# rest of code starts here
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From
Wait, this isn't Slashdot :)
It appears ActiveState's PPM repository does not carry GD for ActivePerl 5.8. You can
grab the module from Randy Kobes' site like so:
ppm
repository add uw http://theory.uwinnipeg.ca/ppms/
install GD
Thanks as usual Randy.
-Original Message-
From: Arms,
Try not to use single backslashes even in single quotes. It can lead to subtle, hard
to detect errors. Unless you're using the path with a shell command, you're better
off just using forward slashes.
Example:
unlink '//SERVER/c$'.$flist;
-Original Message-
From: [EMAIL PROTECTED]
Peter Guzis
Web Administrator, Sr.
ENCAD, Inc.
- A Kodak Company
email: [EMAIL PROTECTED]
www.encad.com
-Original Message-
From: John Deighan [mailto:[EMAIL PROTECTED]
Sent: Monday, September 27, 2004 11:03 AM
To: [EMAIL PROTECTED]
Subject: why doesn't this work?
I'm trying to develop
You mean like this?
##
use strict;
use warnings;
use Win32::OLE 'in';
my $server = 'computername';
my $wmi = Win32::OLE-GetObject (WinNT://$server/LanmanServer) or die Unable to get
WMI object\n;
foreach my $resource (in $wmi-Resources) {
my $user = $resource-{'User'};
next unless
For there to be a deficiency with this particular aspect of Win32::Process::Create,
there would also need to be a deficiency with the underlying CreateProcess() Win32
API. The actual cause here is the omission of notepad in the $appname argument.
select YOURFILEHANDLE;
$| = 1;
# enjoy unbuffered file goodness
-Original Message-
From: Dirk Bremer (NISC) [mailto:[EMAIL PROTECTED]
Sent: Friday, October 01, 2004 1:28 PM
To: [EMAIL PROTECTED]
Subject: File Buffering
I wrote and use a module that provides a standardized logging
I've never had any luck using date/time specific data types with DBD::ODBC. Just use
SQL_VARCHAR and you'll be fine.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
John Deighan
Sent: Wednesday, October 27, 2004 3:00 PM
To: [EMAIL PROTECTED]
Subject:
When you DBI-connect within DbConn, are you setting the RaiseError attribute to 1?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
John Deighan
Sent: Thursday, November 04, 2004 12:21 PM
To: [EMAIL PROTECTED]
Subject: Why doesn't this die?
The following
For extracting the icons you could also look into Win32::Exe.
## Start code
use strict;
use Win32::Exe;
my $exe = Win32::Exe::IconFile-new('c:/perl/bin/perl.exe');
$exe-write_iconfile ('perl.ico');
## End code
Determining which icon should be displayed for a given program is a multi-step
Which version of Win32::AdminMisc are you using?
The source code for version 20030714 is available at
ftp://ftp.roth.net/pub/ntperl/AdminMisc/20030714/source/. If Dave hasn't
responded yet, you might try making your changes to the source code and sending
him a patch.
-Original
use strict;
use Time::HiRes 'sleep';
sleep .5;
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Chris
Sent: Friday, January 14, 2005 1:28 PM
To: perl-win32-users
Subject: Sleep()
Is there a way make Perl sleep for less than a full second?
I'm using v5.8
Replace $ftp-type ("A") with
$ftp-binary.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
Ted YuSent: Friday, March 04, 2005 2:44 PMTo:
perl-win32-users@listserv.ActiveState.comSubject: (no
subject)
Hi there: I'm having a serious
I have successfully used both Analyzer (http://analyzer.polito.it/e=9901) and
Ethereal (http://www.ethereal.com) in the past and both seem to work well for
general-purpose packet analyzing. However, let me offer up an alternative if
you are strictly monitoring HTTP traffic.
These days I
This is not a regular expression, but rather what is know as the ternary
operator. It is a terse way of writing an if-else statement with variable
assignment. In this case, it is the equivalent of writing:
if (!X) {
X = 2;
} else {
X = X;
}
-Original Message-
From: [EMAIL
The last time I checked Google explicitly blocked the default LWP user agent.
If you set the user agent to a different name (via LWP::UserAgent), the request
should work.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Peter Eisengrein
Sent: Friday, March
You can always stay single-threaded and use POE::Component::Client::Ping. If
you aren't familiar with POE, though, it may present a bit of a learning curve.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Dietmar Fiehn, Dr.
Sent: Wednesday, March 30, 2005
DB_File has a habit of breaking data file compatibility between versions. The
usual one-time-per-version workaround for this is to run your script with the
old version of DB_File and dump the data structure to an intermediate format.
Run your script a second time with the new DB_File version
My two cents: use Exception::Class. Subclass Exception::Class::Base, throw an
exception object within your eval block, and check the result of UNIVERSAL::isa
($@, 'YourExceptionClass'). This is a close approximation of the try / catch
mechanism available in other languages.
Use Win32::GUI::AxWindow
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Octavian Rasnita
Sent: Thursday, April 21, 2005 7:22 AM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: browser window
Hi all,
Is Win32::GUI able to access a class that can
How much did you copy and how did you go about it? It sounds like you
partially overwrote the second computer's copy of Win32::OLE with a different
version. Try using PPM to reinstall Win32::OLE.
Make sure you are only copying the modules you need. Overwriting important
modules such as
Below is one possible optimization: the elimination of regular expressions.
## begin code ##
use strict;
use warnings;
use Benchmark;
# populate record list
my @records;
foreach my $record (DATA) {
chomp ($record);
push @records, $record;
}
# benchmark
If you are not running your script under any sort of persistent interpreter
(PerlEx, mod_perl, etc.), that could very well be the problem. The overhead of
starting a new Perl interpreter and recompiling your script on each request is
quite significant.
Since PerlEx has been discontinued by
1 - 100 of 114 matches
Mail list logo