Thanks Steffen,
I've have a new input file 'state.txt' and the expected output file
'stateout.txt' and it is becoming more complicated.
I will need to make info from 3 lines into 1 line in some cases.
Please help.
Thanks
James
--- On Tue, 3/9/10, steffen johnson sajoh...@yahoo.com wrote
Hi All,
I want to read from an input file 'state.txt' and create a file like
'stateout.txt'.
Basically I want to print the daily balance into the same line as the others.
Can anybbody help please?
Thanks
James
open OUT,stateout;
while ()
{
chomp;
next unless ( m!^\s+\d+! || m!^\s+\$\d
Hi all,
Is there a way to run a script that take standard input.
My remote script is called 'restore'. When it is run , it require a Yes or NO
answer before it can run
My Perl program telnet find but cannot seems to pass the Y or N for the
restore script to run.
use Net::Telnet;
$ip = hulk;
Hi all,
I've sent it to the perl-unix group but didn't get much help.
Can someone one here figure what's wrong?
This program 'info.pl' takes 2 different input file format
( file1.txt or file2.txt) and display information about the
Boot and the Boot Processor.
It works file file
(15000);
{$goodfile-Kill(0)}
--
James Shuttlesworth
Network Technologies Manager
Ursinus College
Computing Services
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Stuart Arnold
Sent: Tuesday, April 29
Hey Folks,
I have a newbie question for Win32::OLE. How do I use [out] parameters
within PERL?? What's the correct syntax for calling a COM method that
contains [out] parameters so the invoked object can store its data??
Thanks,
James
James H. Hill
1. There is a missing semicolon on the first line.
2. Does $string really contain line breaks? If it does you need the
s option in the regex.
how about this;
v
use strict;
my $string = 'NameFNJohn/FN LNSmith/LN/Name,
NameFNSusan/FN LNMiers/LN/Name
I am a newbee in perl. Just wanted some guidance so as to how to
implement multidimensional arrays in perl. I have to create an 2-d array
with 26*26 of all the english alphabets so that for each row and column i
can have a partiulcar value like a to a =1 b to a=2;
I am just not getting how to
Ted wrote:
while (FILEFROM) {
chomp;
if ($_ =~/\d\s[A-Z]{3}\s/) {
$_ = s/$1/$1\t/g;
}
print FILETO $_\n;
}
You were close Ted but there are a couple problems.
1. $_ = s/$1/$1\t/g; should be $_ =~ s/$1/$1\t/g; (you left out the ~)
2. $1 isn't defined anywhere in this code
I have an array of values. How can I sort these values that has
a non numeric character [ _ ] in it? What I did was parse the numbers
before the _ character and then perform a number short on those
value, but there must be an easier way? Any help is greatly
appreciated.
55_20051202
DZ-Jay wrote:
Hello:
I have a problem using the split() function: When there are
trailing delimiters, without any content between them, split() skips
them. For example, this:
my @foo = split(/,/, 'this,is,a,test,,');
yields:
this
is
a
test
while I'm expecting:
[EMAIL PROTECTED] wrote:
I know it shouldn't make a difference, but we all know that things that
shouldn't, do. I wasn't seeding it explicitly, was letting perl handle
it.
Unless it's a bug, my theory is that mod_perl is keeping the old seed from
the last compile. Mod_perl does not recompile
At 05:53 AM 12/1/2005 -0800, [EMAIL PROTECTED] wrote:
random unique.
If you want unique numbers also put your routine above in
your program and discard duplicates.
True but over some interval they should be unique. If they're going to
repeat every 10 or 20 times u hit the submit
One more thing to try is to add a trailing space after the directory
spec, as in;
system qq{$prog "$dir " $dest}
or
my $cmd = qq{$prog "$dir " "$dest"};
I did some quick tests with;
##Perl code
my $prog = 'c:\windows\desktop\some-batch.bat';
my $dir = 'c:\windows\desktop\jim'; # no
I agree bill, it does not make sense, nonetheless on my win98 machine
(creak creak), the extra space is required.
jim
$Bill Luebkert wrote:
James Sluka wrote:
One more thing to try is to add a trailing space after the directory
spec, as in;
system qq{$prog "$dir &q
<>Robert's solution (rounding with sprintf) is pretty good, except
it requires that you
know something about the numbers. For example, they must differ by more
than 0.01 to
be considered different. What happens when the two numbers are;
0.101
0.100
Now you need to check for
Does anyone know how to read SAS datasets
with perl? (.sas7bdat) I am trying to get information from
these datasets without having to launch SAS.
Any ideas?
Thanks in advance,
Jim.
___
Perl-Win32-Users mailing list
Hi All,
I am trying to process a XML file and print some info
but my script is not printing anything.
Please help
Here is my code
use XML::Simple;
use Data::Dumper;
my $tempxml = C:/temp/bom.xml;
my $bom = XMLin($tempxml);
my $itm =
$bom-{T_Stpo_Table}-{BOM_ITEM_API01}-{ITEM_NO};
my $comp =
Hi there,
Is there a way to disable the 'X' at the right top
corner of the TK main window so to prevent the user to
exit out of the program that way.
Thanks
James
__
Celebrate Yahoo!'s 10th Birthday!
Yahoo! Netrospective: 100 Moments
Hi there,
Can somebody compile the SAP-Rfc-1.36 for me in Window
XP and perl5.8 and send it to me. I don't have any C
compiler on my PC.
http://search.cpan.org/~piers/SAP-Rfc-1.36/
Thanks
James
__
Do you Yahoo!?
All your favorites on one
-discover(RFC_READ_TABLE);
$it-QUERY_TABLE('TRDIR');
print HELLO\n;
$it-DELIMITER('|');
$it-ROWCOUNT( 10 );
$it-OPTIONS( [NAME LIKE 'RS%'] );
$rfc-callrfc( $it );
--- James [EMAIL PROTECTED] wrote:
Hi ,
I am using SAP::RFC module to connect to a SAP
database and extracting tsome data.
So far I
Hi ,
I am using SAP::RFC module to connect to a SAP
database and extracting tsome data.
So far I was able to connect sucessfully.
The problem is how do I get exract info by a specific
value?
Is there a way to get the tables name in my SAP
database?
Hope to get some help.
Thanks
James
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Michael Meltzer
Sent: Wednesday, December 15, 2004 2:44 PM
To: Perl-Win32-Users
Subject: sort question
The following strings I have in an array:
xyz
abcd
when I run
the script:
unexpected read error: Bad file descriptor at fcli.pl line 22
Any suggestions/comments appreciated.
James
1 use strict;
2 use warnings;
3
4 use IPC::Open2;
5 use Net::Telnet;
6 $| = 1;
7
8 my ($readme, $writeme, $results, $pid);
9 eval { $pid = open2($readme
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Martin Leese
Sent: Wednesday, November 10, 2004 1:40 PM
To: [EMAIL PROTECTED]
Subject: UNIX utilities in Perl
Hi,
I am not sure if this is the right list for this question.
I suspect it
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Glenn Linderman
Sent: Friday, November 05, 2004 1:48 PM
To: Martin Leese
Cc: [EMAIL PROTECTED]
Subject: Re: How remove newlines?
On approximately 11/5/2004 10:38 AM, came the following
-Original Message-
From: A B [mailto:[EMAIL PROTECTED]
Sent: Friday, November 05, 2004 2:10 PM
To: vega, james; Martin Leese
Cc: 'Glenn Linderman'; [EMAIL PROTECTED]
Subject: RE: How remove newlines?
$tempVale =~ s/\r?\n/br/g;
What about Mac-formatted files which use just \r
I'm trying to figure how to get the following code to work.
I've tried a
few combos, but nothing seems to get it right. I'm guessing
it's something
simple, but I couldn't nail down what it was. I realize that
^ is a special
operator but I don't see a way to escape it, given that
Hey all,
I am writing a program to read from an input file and
verify or not if the Quantity equal to the number of
parts. The problem is some of the parts can be in 2 or
3 lines. Fromthe data file, the quantity match the
number of parts but I cannot find the logic to write a
program. Please help
performing all of the
mentioned steps next time. :)
H:\perl -e print int(1.1+.5)
1
H:\perl -e print int(1.5+.5)
2
H:\
James
Kind regards,
Mark Anderson
SMS Deployment
The Royal Bank of Scotland
113 Dundas Street, Edinburgh, EH3 5DE
http://www.manufacturing.rbs.co.uk/GTrswi
It's kind of foul but it works... This is for NT.
perl -pi.bak -e s/qtd/\/td/ test.txt del test.txt.bak
There's probably a way to not create the .bak file but I haven't spent
any time on it. I'd love to hear a better solution though, please
share if you find one.
-james donohoe
On Tue, 1
Steve,
You need to create the http_proxy environment variable or do something
like this:
my $ua = LWP::UserAgent-new;
$ua-proxy(['http', 'ftp'], 'http://my.proxy_server.net:3128/');
Read this for more info:
http://search.cpan.org/~gaas/libwww-perl-5.79/lib/LWP/UserAgent.pm
HTH,
James.
steve
my %DW_AutoSearch = ( 0x = [ Off, On, Off, Off ],
0x0004 = [ Off, Off, On, Off ],
0x0005 = [ Off, Off, Off, On ],
0x0006 = [ On, Off, Off, Off ]
);
my $value = 0x0005;
my @outs
;
}
Unfortunately, the event_handler never gets called. Does anyone know if
I'm making a mistake?
Any help is much appreciated.
Thanks,
James.
P.S. Win32::OLE version: 0.1403, Perl Version: 5.6.1.635, SAPI: 5.1
___
Perl-Win32-Users mailing list
[EMAIL
need enable mode before sending this command)
Experiment with this, but if all else fails, you could get in touch with
the module author via his web forum:
http://nettelnetcisco.sourceforge.net/
HTH,
James.
Bullock, Howard A. wrote:
I am attempting to automate some router changes using Net
On Mon, 12 Jan 2004 11:42:09 -0500, Andrew Timberlake-Newell wrote:
perldoc perlre
Go down about 4 or 5 screens-full until you get to the paragraph
which begins Because patterns are processed as double-quoted
strings ...
Going down 'screens-full'? That seems an odd direction for
input (no GUI display or mouse is necessary).
Many thanks,
James.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
file) ?
3. I don't know much about PerlXS. Do I need to create an XSUB interface?
Many thanks to anyone who replies.
Regards,
James.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
-Original Message-
From: Kamal Ahmed [mailto:[EMAIL PROTECTED]
Sent: Sunday, October 19, 2003 11:05 PM
To: [EMAIL PROTECTED]
Subject: How to Install Perl Modules
I would like to know how to install Perl Modules
e.g MAIL::POP3Client on a Linux (SuSe).
I would appreciate any
Michael,
Microsoft's new Windows Scripting Host 5.6 allows you create a session and capture the
STDOUT and STDERR, as well as write to STDIN.
James
use Win32::OLE;
$objShell = Win32::OLE-new(WScript.Shell);
# // Generates 'Could Not Find...' on STDERR
$objExec = $objShell-Exec(CMD /c DEL C
You know, I found a funny way of emulating which using Perl a few years
back. This doesn't solve your problem (it's already solved by the look of
Helen Bennet's email), but is more along the lines of interesting related
things. If you enter this at the command prompt:
perl -S notepad.exe
I use ptked! It's the best!
(Just kidding...)
jpt
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
. );
$WordApp-ActiveDocument-SaveAs({FileName=$outputFile,
FileFormat=wdFormatDocument});
$WordApp-ActiveDocument-Close();
$WordApp-Quit();
James Krummel
From: Brad Smith [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Tue, 02 Sep 2003 13:54:19 -0400
Subject: Where am I going wrong with OLE and MS
perldoc File::Find
-Original Message-
From: Subrahmanyam Vadlamani [mailto:[EMAIL PROTECTED]
Sent: Monday, August 04, 2003 2:38 PM
To: perl-unix; perl-win32
Subject: How to recurse through a directory and do something with each
file
Hi:
I would like to recurse through a
Is there a neater way of doing this:?
my $sheet;
foreach (1, 2, 4) {
$sheet = $_;
print \$sheet = $sheet\n;
}
something along the lines of:
foreach (my $sheet = (1, 2, 4)) {
print \$sheet = $sheet\n;
}
print \$sheet = $_\n for (1,2,4)
On Fri, 11 Jul 2003 10:16:46 +0200, [EMAIL PROTECTED]
wrote with regard to: AW: Problem Using 'unlink' within Script:
I think, the problem is: the difference between the end write of a file,
and the time in the file to the system is known (and the system the access
through).
If I write a big
$last = substr($content, (index($content, $endTag)+length($endTag)
) );
$content = $first.$last;
}
}
stripTag(font,);
stripTag(FONT,);
this code has to be called with each case variant, or I'd have to put a lot
of IFs inside the SUB
James
ps, tips
. Guess tonight I hit the perl doc on regex.
I presume that the \Q is needed to process the variables? I didn't think
that was needed.
I'm confused about the ? after the * .
$content =~ s/\Q$startTag.*?$endTag//i; # untested!
At 10:35 AM 7/8/03, Joseph Discenza wrote:
=James Birkholz= wrote
/;
print theOutFile TotalElements = , $#theRecs, \n;
print theOutFile StartRec = , $theRecs[0], \n;
print theOutFile EndRec = , $theRecs[1], \n;
print theOutFile TotalRecs = , $theRecs[2], \n;
}
}
===
TIA,
James
ps (Sorry if this isn't the most correct
- Original Message -
From: Messenger, Mark [EMAIL PROTECTED]
To: 'James E Keenan' [EMAIL PROTECTED]; Maraglia, Dominicx
[EMAIL PROTECTED]; asphyx [EMAIL PROTECTED]; Messenger,
Mark [EMAIL PROTECTED]; Arms, Mike [EMAIL PROTECTED]
Cc: Perl-Win32-Users [EMAIL PROTECTED]
Sent: Friday, June 13
Thanks to everyone who wrote concerning my problem unlinking a file from
within the script where it was created. Between the time I posted and the
time I got your responses, I had already tried out some of the things you
suggested. Unfortunately, the problem seems more complex and I haven't
On my job I have written a script which creates a plain-text file in a
directory on a network server for which I have permissions (Win2K
Professional, Novell Network). Since the file is only intended to be
temporary, I wish to delete the file at the end of the script. Hence, my
code:
my
Question:
Is it possible to correct for erroneous configuration information once
ActivePerl 8 has been installed? If so, how?
Background:
Today I was attempting to upgrade a CPAN module as an extension to a Perl
(Perl 5.8.0/ActivePerl 8.0) installation at my job. This Perl is installed
on a
- Original Message -
From: Randy Kobes [EMAIL PROTECTED]
To: James E Keenan [EMAIL PROTECTED]
Cc: Perl-Win32-Users [EMAIL PROTECTED]
Sent: Wednesday, May 28, 2003 8:36 PM
Subject: Re: Need Fix for Configuration Problem on ActivePerl 8
I've had some experience manually moving Perl
with this problem.
Thanks
Jim
James C. Hooker
Marconi - TAC
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
a Wordpad
program using OLE. It seems as if Tk maintains itself as the parent when
using the backtick operator.
I am totally unfamiliar with this process and would appreciate any help.
Thanks
James C. Hooker
Marconi - TAC
___
Perl-Win32-Users mailing list
In my day job I work on Win2K terminals which are linked by a Novell
Network. Perl version is 5.8 (ActivePerl 8.0). For an all-Perl application
involving a flat-file database I would like to be able to answer the
question: Which user made a change to a file, and at what time? The time
aspect
,DD0011,D3
EE5609,EE1200
END
Thanks
James
__
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
PROTECTED]]
Sent: Friday, February 21, 2003 12:04 AM
To: [EMAIL PROTECTED]
Subject: RE: Case insensitive search help
Tillman, James [EMAIL PROTECTED] wrote:
The trick here is to do the upper-casing on _both_ values,
and to do it on the RDBMS-side, not the perl side.
Why
This isn't a perl related question. However, in the interest of being
helpful, I'd recommend you try this:
SELECT * FROM table WHERE TOUPPER(search_col) LIKE TOUPPER('%$search%')
Oracle is case-sensitive in its searches as far I'm aware (limited
experience, however).
jpt
-Original
-Original Message-
From: Ken Cornetet [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 11:50 AM
To: Perl Web (E-mail); Perl Win32 Users (E-mail)
Subject: RE: Question about IIs
I do not believe the following statement to be true:
A site ends up in the Internet zone
like
this.
Hope this helps,
jpt
-Original Message-
From: Khosla, Deepak [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 11, 2003 9:01 AM
To: Khosla, Deepak; [EMAIL PROTECTED]; Tillman,
James; [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: memory usage issue
To clarify
Deepak
I am very interested in your problem since I process large files
(~20-300mb). Can you please explain some more about your problem. What does
the statement @$msgref = (@$msgref, $mid); have to do with increasing
processing time?
James C. Hooker
-Original Message-
From: Khosla
$key1?
James C. Hooker
-Original Message-
From: Khosla, Deepak [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 11, 2003 8:21 AM
To: Tillman, James; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: memory usage issue
Thanks!! Sounds like I need to go through
You might also try searching through the archives for this mailing list on
this topic. I remember a discussion about a year ago involving large
variable allocations in a loop and memory usage.
jpt
-Original Message-
From: Khosla, Deepak [mailto:[EMAIL PROTECTED]]
Sent: Friday,
The
technique that sourceforge uses can be used privately, as well. They use
CVS (Concurrent Versions System) to allow remote development. You can set
up CVS on your own computer, and your friends can connect to the CVS server
remotely to checkout/checkin files while developing. This is way
What
does it do when you just pass in 0's and 1's instead of $vtfalse and
$vttrue? I've found that Win32::OLE normally converts my values to the
simple variants for me. If this doesn't work, I'd try using positioned
parameters instead of named ones. You can usually just pass in undef for
- this will
come in handy as both a debugging AND a learning tool.
Steve
From: Norris, Joseph [EMAIL PROTECTED]
To: 'Tillman, James' [EMAIL PROTECTED],
'[EMAIL PROTECTED]' [EMAIL PROTECTED],
[EMAIL PROTECTED]
Subject: RE: Search a free Perl debugger
Date: Tue, 4 Feb 2003 09:46:54 -0800
- let me add my thanks, too
- this will
come in handy as both a debugging AND a learning tool.
Steve
From: Norris, Joseph [EMAIL PROTECTED]
To: 'Tillman, James' [EMAIL PROTECTED],
'[EMAIL PROTECTED]' [EMAIL PROTECTED],
[EMAIL PROTECTED]
Subject: RE: Search a free Perl debugger
-Original Message-
From: PRADEEP GOEL [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 03, 2003 5:42 AM
To: [EMAIL PROTECTED]
Subject: remote execn on win nt machines for their info
Hi All
Does anybody knows how to use perl or other script
for remote execn on nt machines
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 03, 2003 10:05 AM
To: [EMAIL PROTECTED]
Subject: Search a free Perl debugger
Hi,
I have to debug my scripts. But i don't know a free Perl debugger.
Can you recommand me one.
Do this
Anyone have an idea how to get past this one? Thomas_M
suggested using LWP, but I just looked at the module (since
at this point I'm willing to do a complete rewrite to get
past these problems) and I don't see how you can request
files a chunk at a time (which I require in order to
This question suggests a REALLY COOL enhancement:
use url qw{http://somehost/perl_library/};
use Foo::Bar; # Gets fetched from the URL if it isn't
found in @INC.
Obviously, LWP gets loaded somewhere along the line. The
funny thing is,
it's not at all obvious to me that some
Actually, I've all I've seen along these lines is something called the
JavaPerl bridge that appears to be an abandoned attempt to bridge java and
perl many years ago. I'd stick to command line execution unless you're
willing to get into the Bean Scripting Framework (which looks quite cool,
but I
I believe the preferred method is to write to .rtf files, which has a
reasonably comprehendible format. Word will open them with no squawks
and preserve the formatting.
I use RTF::Writer. Might that work for you as well?
Goood luck. I hope this points you in the right direction. If
Title: Temp tables perl DBI
In SQL
Server, temporary tables are retained on a per-connection basis unless they are
global (and in your case, this won't be necessary, probably). Since all
your tables are on the same database, and thus you can run them all on the same
connection, you should
It's not binary compatible with the 800 builds. Don't know why it's not
provided in the PPM, though. I guess they have extra work to do on it...
jpt
-Original Message-
From: Christopher R. Jones [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 23, 2003 11:18 AM
To: theatrale;
I have a multi-level hash (about 4 hashes deep) and I want to keep the
insertion order of the keys in which it was created. I've tried use
Tie::IxHash but it doesn't seem to handle the keys in the sub-hashes.
Is there a better way to do this?
Thanks,
James
-Original Message-
From: Mundell, R. (Ronald) [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 07, 2003 2:45 AM
To: Perl-Unix-Users (E-mail); Perl-Win32-Users (E-mail)
Subject: CGI and client side
Good Day All
I know that when one write an app under perl it runs on the web server. is
I have a problem calling a perl WSC thru ASP - My ASP page
calls the WSC
fine, the WSC then calls Crypt::PGPSimple which then calls
PGP through the
command line.
The WSC runs, but the encryption fails and I get an error
message that the
file is not found - Oddly identical code
}
else {
closedir(HD); }
return 1;
}
James C. Hooker Marconi - TAC -Original Message-From: Hawley, Eric
[mailto:[EMAIL PROTECTED]]Sent: Friday, December 20, 2002
8:42 AMTo: 'Perl-Win32
([EMAIL PROTECTED])'Subject: Creating
directories
I was wondering if someone knows a good
way to
I
believe you're running into a problem with what is called "impersonation
credentials" that is often encountered in IIS environments that use network
resources. The essential problem is that IIS doesn't receive your password
when you authenticate using Integrated security, it only receives
See ref() -- perldoc -f ref()
While ref is useful, you do have to be careful in this particular situation
to avoid the non-OO references CODE, HASH, ARRAY, and SCALAR. Someone else
already posted a solution, I believe.
This might also work (although it will cause a scan of the entire
But unfortunately I have no experience with OLE to OpenOffice.
Tom Wyant
Which brings up an interesting question that's been on my mind lately. I
don't know, but I would bet that OO doesn't even have an OLE interface. Has
anyone been able to do any automation at all using OO on either Win32
; $file_num++)
However, I get the following syntax error:
Missing comma after first argument to open function at qt.pl line 29, near
unable to open $in_fn: $!\n;
Is there a workaround?
James H. Cutts
it helps you out!
jpt
-Original Message-
From: Vuillemot, Ward W [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 22, 2002 12:32 PM
To: 'Lee Goddard'; Tillman, James;
[EMAIL PROTECTED]
Subject: RE: [Perl-Win32-Users]Windows Control Panel / Add/Remove
Programs ?
Since
[snip]
Title - perl.exe - Unable to Locate DLL
The dynamic link library RASFIL32.DLL could not be
found in the specified path path... [Perl\bin is in
my path]
[snip]
Anyone else ever see this?
Yes, this is a Windows message. I've seen this type of error message many
times
Works great, thanks for the pointer.
But the problem remains of NT machines in a software
'shutdown' state.
Anyone has an idea how to remotely restart those ?
No way to restart them (except to perhaps use SNMP to turn off their UPSs or
something, if you're lucky enough to have such
Im much interested in this topic but all i got with this code
was a missing object image in IE. I tried to download a
bunch of files like Richtx32.ocx and msxml3.cab that i found
on my way to making it work but nothing seemed to make the difference.
Can anyone please explain this code
.
James
-Original Message-
From: Harald Wopenka [EMAIL PROTECTED]
To: Perl-Win32-Users [EMAIL PROTECTED]
Subject: I want your MAC!
Date: Wed, 6 Nov 2002 01:14:51 +0100
Hi again,
how can I determine the MAC-Address via IP-Address? Is there a function in
perl?
tia
Harry
Hi, i wonder how to remove the 4 first lines of a file in Perl?
How does this admittedly lazy-brained script work for you?:
---
open(IN,filetosnip.txt) or die $!;
open(OUT, tempfile.txt) or die $!;
$line = IN;$line = IN;$line = IN;$line = IN;
while($line = IN) {
print OUT $line;
}
Title: RE: Source-Code-Protection
True. Or one could use Soap::Lite for selected portions of thecode,
and have the main perl script connect to the SOAP server to run the "meaty
bits".
Still,
this is a lot of trouble. I'm pretty much with Morbus on this one.
License your code properly and
Mark,
Here is a way to make a shortcut to a file or URL using OLE.
James
use Win32::OLE;
$WSH = Win32::OLE-new('Wscript.Shell');
$SC = $WSH-CreateShortcut($WSH-SpecialFolders('AllUsersDesktop').\\Sample.lnk);
$SC-{WindowStyle} = 4; # 3=Maximized 4=Normal 7=Minimized
$SC-{TargetPath
them all, but Win2k does.
James
use Win32::OLE;
$WSH = Win32::OLE-new('Wscript.Shell');
print $ENV{WINDIR}.\n;
print $ENV{SYSTEMROOT}.\n;
print $WSH-SpecialFolders('AllUsersDesktop').\n;
print $WSH-SpecialFolders('AllUsersStartMenu').\n;
print $WSH-SpecialFolders('AllUsersPrograms').\n;
print $WSH
-Original Message-
From: Stovall, Adrian M. [mailto:Adrian.Stovall;durez.com]
Sent: Wednesday, October 23, 2002 9:51 AM
To: perl-win32-users
Subject: RE: Can't access from Command Line
How about The First Annual Improvisational Perl Contest...
Announcer Welcome to the First
-Original Message-
From: Livingston, Rex [mailto:Rex.Livingston;praxa.com.au]
Sent: Friday, October 18, 2002 11:06 PM
To: Tillman, James; Perl Win32 Users (E-mail)
Subject: RE: Win32::OLE=HASH lastLogon ADSTYPE_LARGE_INTEGER
Thanks James...this code now works and may be useful
On Fri, 18 Oct 2002 17:01:51 -0400, Chris Benco
[EMAIL PROTECTED]
wrote with regard to: How can I avoid the Undefined reference in a hash
value error:
Script seems to work well. I can send it blank fields and it recovers
every time. Problem is when I leave it running it crashes with the now
Hello,
Very simple script, opens a file, reads it into an array,
and then it
should display it to the browser. But it's not, and I'm
at a loss why.
It works command line fine. But not via the web. Using
ActiveState build
633 (perl -v = v5.6.1)
IIS5 entries are:
.cgi
It seems the lastLogon field is a LARGE_INTEGER ... Refer syntax in..
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsc
hema/w2k/A_lastLogon.asp
How can I view the real value from Perl ?
This article on Groups.Google.com might help you, although it's discussing
.
I have downloaded IO-Interface-0.97 and IO-Socket-Multicast-0.21 modules
but when attempting to build them, nmake aborts complaining that ioctl.h
is missing. Where can I get that file?
Can anyone offer advice?
James
___
Perl-Win32-Users mailing list
1 - 100 of 236 matches
Mail list logo