r than using the ppm? Or is my ppm broken?
>
If you told us what version of ActivePerl you were running, and
whether you installed the .MSI or .ZIP version, or built it from
source, it would help.
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAI
- Original Message -
From: "Michael Stidham" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: "Edward G. Orton" <[EMAIL PROTECTED]>
Sent: Tuesday, April 16, 2002 11:31 AM
Subject: Re: Changing startup for a service.
> Win32::Service
>
I had a
Does anyone know of a perl module/tool which can be used to
change a Windows service from "manual" startup to "Automatic"?
Config:
Windows 2000 (SP2)
ActivePerl 631
PDK 4.01
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
ema
this
problem?
Windows 2000 Server (SP2)
ActivePerl Build 628
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
the logfile.txt has the
> following
>
You've opened the file for writing, and then tried to read from
it, and then tried to write to it again while reading it. If
this was actually allowed, you would have an infinite loop. As
it is, you just get a mess.
ego
Edward G. Orton, GWN Consult
rver
>
> Any one have any ideas as to where I might find
MIME-QuotedPrint
I believe it is in the package Mime-Tools
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
P
ge. In some cases, modules implement case conversion to
prevent problems with improper case, but this is not always
true, and users should be aware that there IS a difference in
most instances.
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
e
- Original Message -
From: "Wagner-David" <[EMAIL PROTECTED]>
To: "'Edward G. Orton'" <[EMAIL PROTECTED]>; "'Perl Win32'"
<[EMAIL PROTECTED]>
Sent: Friday, March 15, 2002 12:48 PM
Subject: RE: Weird problems w/ PPM occu
hich
needed to be updated. Now each time I go into PPM all my set
info is gone. I have no repositories, etc.
>
> I am running w2k, AS Build 623 5.6.0 I know it is older, but
it does what is needed for my work. I did not update ppm.
>
After you made changes to ppm's setup, did you do a
ndeling the
> quotes.
>
> any suggestions?
If you want to avoid escaping the quotation marks, why not use
qq{}.
print qq{};
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
st will be the most recent.
# Sort files in chronological order
sub timesort {
return ( (-M $a) <=> (-M $b) );
}
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
reference or a general way to
call
> Excel Menu commands from OLE from within PERL?
Try looking at the VB reference help file within Excel. The
Objects and Methods for VB are defined there, and you can call
them from a perl script by changing the VB '.' notation to
Perl's '-&g
kip_path_checks is non zero, then clear it.
The only case in which it would not clear is if the numeric
value was '0' or the string value evaluated to '0'.
Since you haven't provided information on what information the
scalar is expected to hold, it's diffic
(/,/, $a);
my ($qty_b, $desc_b) = split(/,/, $b);
$qty_a =~ s/[^\d]+//g;
$qty_b =~ s/[^\d]+//g;
return ($qty_a <=> $qty_b);
}
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
ing for ideas,
> Floyd
If the Daemon understands SIGHUP, you could re-write the
information, send a SIGHUP to the Daemon, which should cause it
to reload it's information and re-start. This is sort of the
"normal" way of dealing with daemons in the unix world.
ego
Edward G. Or
;MailFile(
> {to => $To,
> subject => $Subj,
> msg => $Msg,
> file=> $File,
> }))
> )
> or print "$Mail::Sender::Error\n";
> }
It would appear that you haven't defined the server. Add:
smtp => 'mail.yourdomain.com',
and it
> Try this:
> >
> > for $key (wq(first_name last_name address
> > transportation)) {
> > print "$reqfields{$key\n";
> > }
>
> Closing } on $key in the print statement aside, what
> exactly does this do? I can't find reference to wq anywh
d automatically
inside of a
> loop?
>
> I currently increment a counter variable and want to know if I
am repeating
> something that is already internally done.
>
> Thanks in advance.
>
> Roy Rubin
What kind of loop? Brief sample of code?
ego
Edward G. Orton, GWN Consultants In
getting
very far with it. I'd like to see this >module updated if
possible.
ppm verify --upgrade
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTE
ng the glob operator. I use
>
> my @html_files = glob "$input_dir/*.html";
>
> This works when the $input_dir doesn't contain a space. If it
does, it fails
> (it gives
> me just the name of the directory up to the first space)
>
> I appreciate any help.
>
> --
"\n";
}
}
split returns an array of results if the variable or function
can accept it. It the variable is a scalar, it returns the
number of elements it found or the equivalent of
(scalar(@array).
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [E
I've been working on printing, print queue information, and the
like using Win32::OLE and Perl. Does anyone have pointers to
working with Notepad via OLE?
Thanks in advance.
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROT
and drivers?
Try this. It's a Visual Basic call to add a printer.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us
/wmisdk/r_32hard6_5lte.asp
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
_
[1] -> {x};
>
What's happened is you've re-initialize the whole hash. What you
want to do is just set the value of the 'y' element.
$the_data[1] =
{
x => "A",
y => "B",
};
print $the_data[1] -> {x};
$
> different results, but all within one to five lines.
>
> TIA!
>
> Chris
You could try:
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
$url = 'http://www.yoursite.com';#change
if (get($url)) { print "$url is available\n"; }
else { print "$url is
results
> to a file.
>
> It currently can display the "HostName is Alive" or "Not
responding".
>
> This is being run on NT/W2K/W98/WME boxes.
>
> How can I display the real results???
>
> TIA!
>
> PS - THis is kinda urgent.. Needed Friday! DOH
- Original Message -
From: "$Bill Luebkert" <[EMAIL PROTECTED]>
To: "Edward G. Orton" <[EMAIL PROTECTED]>
Cc: "Perl-Win32-Users Mailing List"
<[EMAIL PROTECTED]>
Sent: Tuesday, December 11, 2001 10:44 PM
Subject: Re: what is this variable/
so that it can be
used in machines which dosent have perl/tk module installed
>
>
> thanks
>
>
> regards
>
>
Try PerlApp or Perl2exe
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
more than 40 characters)?
>
> -Matthew
This looks like it would work on Unix, but not on Windows. Unix
shells automatically expand wild cards, and pass in the file
names. Windows shells do not. You might try something like
perl -p -i.bak -e 's/Steve/Fred/g' glob(*.txt) #not tested, j
e drive is full, I remove
the oldest files until there is enough data deleted to add in
the new files. The problem is, until the script exits, the
deleted files aren't deleted.
Any suggestions?
ActivePerl 628 on Windows 2000 server.
ego
Edward G. Orton, GWN Consultants Inc.
Phone: 613-764-318
- Original Message -
From: "Ron Grabowski" <[EMAIL PROTECTED]>
To: "Edward G. Orton" <[EMAIL PROTECTED]>
Cc: "Perl-Win32-Users Mailing List"
<[EMAIL PROTECTED]>
Sent: Friday, June 29, 2001 3:38 PM
Subject: Re: Mounting/Unmounting removab
t use
NMEA or GRMN protocols.
Any pointers to a module, or a spec for the Rockwell binary protocol for GPS
units would be greatly appreciated.
ego
Edward G. Orton, GWN Consultants Inc.
Office: 613-860-3186, Home: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROT
> Hi
> Is it possible in perl to get the loaction of some ecexutable from the
PATH
> ,
> For example if the system path has
> PATH= E:/Perl/bin
>
> Is it possible to read it using perl
>
> regards
> Saurabh
>
Attached is a quick script which does this. It's sort
d with an array of hashes, one for each locally logged on
user.
ego
Edward G. Orton, GWN Consultants Inc.
Office: 613-860-3186, Home: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://li
properly. Will I need to compile
> my own (not a preferable choice)?
>
> Adam Frielink
Try putting the following lines of code at the top of the script. The
problem is that output is buffered, and isn't flushing out in the order you
expect. By setting auto flush, it should come out to w
required to assist you. How about a small snippet
of the script where it's failing to give us an idea of what's going on.
ego
Edward G. Orton, GWN Consultants Inc.
Office: 613-860-3186, Home: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
__
build 622 on Windows 2000 Server (SP1) and fork works
just fine.
ego
Edward G. Orton, GWN Consultants Inc.
Office: 613-860-3186, Home: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http:
Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec) [(localtime)
> [4]];
>
> Bareword "Jan" not allowed while "strict subs" in use.
> I get the above message for each month. If I turn off strict just for the
> above can I return it on.
>
Try this:
my $thismon=qw(Jan
>
> /path/to/my/file/test.jpg
> c:\path\to\my\file\test.jpg
>
> would return test.jpg
>
> Any help would be apreciated.
>
use File::Basename;
my $path = 'c:\path\to\my\file\test.jpg';
my $file = basename($path);
($file now equals 'test.jpg')
ego
Edw
eful.
Any help would be greatly appreciated.
ego
Edward G. Orton, GWN Consultants Inc.
Office: 613-860-3186, Home: 613-764-3186, Fax: 613-764-1721
email: [EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
tial, but for some reason, not always.
glob("log.[0-9a-fA-F]{3}") does not return any filenames, but
glob("log.*") does. Any suggestions?
Thanks,
ego
Edward G. Orton - Network Security Officer - ADDSecure.Net Inc.
email: [EMAIL PROTECTED] URL: http://www.ADDSecure.Net
phone:
41 matches
Mail list logo