Abner, Daniel [EMAIL PROTECTED] wrote:
What's an efficient way of splitting the elements of an array
globally? For instance, let say an array consists of the
following two elements:
Bob:Jones
Mary:Parker
Let's say I'd like to cut each element of the array down to
the string preceding
thiyag [EMAIL PROTECTED]
i have a file with perl statments,I want them to be access few line
(depends dynamically) in my programe ,
can anyone suggest me how to go about with it...! i tried reading the
file line by line extracting the needed line's into an array and then
John Draper [EMAIL PROTECTED] wrote:
snip!
I would like to sort @A_of_H based on 'SIZE', i.e.,
A_of_H[$i]{'SIZE'} from largest to smallest.
sort {$b-{SIZE} = $a-{SIZE}} @A_of_H
is, strictly speaking, the answer to your question. However, I have no idea
what will happen if two files have
[EMAIL PROTECTED] wrote
snip!
Do you think we can impose upon our Original Poster to run some
benchmarking on his live data?
Honestly, no. We could try, but since we're just mailing addresses to each
other, I doubt we have anything to impose _with_. But if he wishes to do it
and publish,
Tillman, James [EMAIL PROTECTED] wrote:
use Win32::OLE;
my $ServObj = Win32::OLE::GetObject(IIS://MYWEBSERVER/w3svc/1/Root);
Interesting. With ActivePerl 630,
use Win32::OLE;
my $ServObj = Win32::OLE::GetObject(IIS://MYWEBSERVER/w3svc/1/Root) or
die Win32::OLE-LastError ();
gets me
Morse, Richard E. [EMAIL PROTECTED]
Orcish manouver?
Not sure where I got that name for it. It's NOT in ActivePerl's HTML help
(and I _did_ find it and install it over top of 630, since I add modules to
ActiveState's kit, and I wanted the help for them available).
It's a cacheing technique,
[EMAIL PROTECTED] wrote:
snip!
It seems that the ++ [in a regular expression] causes
problems (which I understand). Is there a way to tell
Perl to handle the ++ as a string rather than an operator?
Yes.
Oh. You want to know how?
If you read perlre in the documentation
Ah-Hah!
It's all characters. PIC XX means a two-byte field, PIC X(70) means a
70-byte field. All you need is something like
($l_name, $f_name, $id1_num ...) = unpack 'A35A30A10...'
where the elipsis (...) means you fill in the rest.
Now figuring out what file to read and how to read it is
All,
I had a note from David Deline that supplied the missing piece. The
corrected scripts are appended. The changes are:
The script that generates the output needs to set $| = 1. This gets you
automatic flushing of the output data. This means, by the way, that unless
you can coerce the
[EMAIL PROTECTED] wrote:
snip!
Problem 1:
if/elsif fails. The first if stmt evaluates to false, but then the
subsequent elsif stmts are never tested, ...
snip!
C:\1Tmptype foo.pl
if (0) {
print FALSE is TRUE!\n;
}
elsif {
print FALSE is FALSE.\n;
}
C:\1Tmpperl foo.pl
karthikeyan [EMAIL PROTECTED] wrote:
I have allready sent unsubscribe message before.
This is one of those times when I think this mailing list needs a FAQ. I
actually started one not too long ago, but most of the entries were read
the documentation, so I desisted. The following is from that
Why do I get Can't call method on an undefined value?
---
Because you're trying to call a method on an undefined value. This
generally means that you did something like
$object = Class-new ();
$object-method ();
and Class-new failed. The
[EMAIL PROTECTED] wrote:
snip!
If the script is started using perl test2.pl a b c it passes
args correctly but not when called bare at a command prompt, ie
test2.pl a b c
snip!
Build 630 works for me under Win2K SP2. The symptoms say that the .PL file
association is incorrect. From a
Andrew Wax [EMAIL PROTECTED] wrote:
I have a perl script that runs fine when I run it standalone. It
basically reads a file from a network drive and writes output to
a network drive. When I call this from a the web page it fails.
Are you running the Apache service under a username that
All,
Periodically there's traffic on this list about how to get information
about another NT process. I have needed some things along this line,
including things I can't figure out how to get from Win32::PerfLib (the
full pathname of the executable is what I was really interested in).
So I have
All,
The problem of how to get info on another process comes up here from time
to time. I had my own incentive to solve the problem (I needed a full path
name, and couldn't get it from anywhere I had access to) so with a little
help from my friends (including, but NOT limited to, Dave Roth,
Balam,
You say your code is not working, but you don't say what's wrong.
You could try Date::Manip. It may be overkill, of course, and you don't get
a Perl date out of Parse_Date; you still need to run it through Unix_Date
with the %s format qualifier. And I always seem to have to hold my
Tillman, James [EMAIL PROTECTED] wrote:
Is anyone else less than thrilled regarding this new CHM version of
the help? I fail to see the benefit when it doesn't add newly
installed modules to the help. With the plain HTML help we used to
have in ActivePerl, new modules got added to the
I had a wonderful example, but this message is too small to contain it.
Rather than asking people to post again, have you tried the mailing list
archive?
Tom Wyant
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe:
Mary J Blige [EMAIL PROTECTED] wrote:
Does anybody know the good algorithm [snipped code would be better
;-)] that can produce all sequences of a string of numbers??
Sounds like you're talking about permutations.
I searched CPAN (http://search.cpan.org/) with the word permute and came
up
Yes, but _I_ didn't have to write any of it.
If we're going to talk about ALL the code necessary to run
C:\perl -pe oldscript.pl newscript.pl
I feel constrained to point out that I executed not only Perl itself but
Windows. A _serious_ attempt to reduce the amount of code needed to do the
_I_ think you need
@nums = split '\s+', $nums;
If you do
push @nums, qw{$nums};
the list ends up containing ('$nums'), because qw is _not_
double-quotish.
Tom Wyant
[EMAIL PROTECTED]@listserv.ActiveState.com on 05/16/2002 12:14:51 PM
Sent by:[EMAIL PROTECTED]
To:[EMAIL
Adam,
Under Windows 2000 (and possibly other Win* operating systems), see
$ENV{USERPROFILE}. If you need a complete pathname:
C:\perl -MFile::Spec -e print File::Spec-catfile ($ENV{USERPROFILE}, 'My
Documents')
C:\Documents and Settings\wyant\My Documents
Beware of the space if you intend to
Ember Normand [EMAIL PROTECTED] wrote:
It seems that Active State has not implemented getppid.
Any hints on how I can get the PID that is in the Windows Task
Manager?
If you have WMI available, you can get it that way; see Dave Roth's Win32
Perl Scripting for more information.
I've been
Dovalle Yankelovich [EMAIL PROTECTED] wrote:
I need to take some data from txt file and im looking for a
string within the text.
here part of the text:
tionDwsRx: Total allocated bytes (downstream) = 0, bits = 2,
I need the value after the first '='
What's wrong with
my ($bytes,
Ron Grabowski [EMAIL PROTECTED] wrote:
my $regex = join '|', 'value_garbage1',
'value_garbage2',
'value_garbage3';
next if /$regex/;
You might want to say next if /$regex/o to prevent Perl from compiling
every time. If you're Perl 5.6, you could
Eckart -
Aldo Calpini's Win32::Shortcut will both create and manipulate shortcuts.
It comes with ActivePerl, but unfortunately, the documentation apparantly
gets lost somewhere between him and ActiveState's distribution. You can get
it by downloading the current Win32::Shortcut from
Beckett Richard-qswi266 [EMAIL PROTECTED] wrote:
Is there something I can insert into the script to stop the parser
from checking the rest of it, before execution?
As Adrian Stovall, wrote, __END__ is useful in this duty, and in fact I
have so used it.
Sometimes, though, the part you want
]
To:[EMAIL PROTECTED]
cc:
Subject:RE: NET::Telnet
Thanks.
But the what should be used as prompt?
-Original Message-
From: Thomas R Wyant_III [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 17, 2002 7:01 PM
To: [EMAIL PROTECTED]
Subject: Re: NET::Telnet
Jitendra Soam
Paul Flint [EMAIL PROTECTED] wrote:
I'm getting incorrect results from recipe 8.8 in the Perl Cookbook.
I'm building an index of offset positions for lines in a file (3
MB), which I'm supposed to be able to use to access any line in that
file.
I use Code A to build the index. (taken from
Warkentin, Brad [EMAIL PROTECTED] wrote:
Thomas R Wyant_III [mailto:[EMAIL PROTECTED]]
postulates:
snip! /
Because of the text mode translation, DOSish perls have
limitations in using seek and tell on a file accessed
in text mode.
True, however I thought the limitation was that you
Adam Ingerman [EMAIL PROTECTED] wrote:
[[EMAIL PROTECTED] wrote:]
do you know a possibility to set the actual directory inside a Perl
script (chdir my_dir;) to get it changed in the command shell
outside the script?
easiest way, tell the shell to do it for you. if you're on windows,
[EMAIL PROTECTED] wrote:
I'm trying to get Information about a spezific table in an Oracle
with the command
'describe table_name; '
This command works within SQL-PLus and other Tools but I get the
error message: Ora-00900: invalid SQL statement when I use it
within a perl-script using a
Scott Campbell [EMAIL PROTECTED] wrote:
I have looked everywhere to find an example of how to call a
method in WMI with perl, and have been unsuccessful.
Does anyone know if it can be done, and if so, have an example?
Yes, it can be done. The following script lists all process IDs, and the
John Drabinowicz [EMAIL PROTECTED] wrote:
I just got the O'Reilly Learning Perl on Win32 Systems book and
have a question about using the directory/file structure.
This book says that I can walk the directory as shown is example 1,
[using globbing] but I have been using example 2 [which
Hari -
You've got me. It seems to me if Win32::AdminMisc is installed on your
server _and_ your browser has access to it, this shouldn't happen. But I've
seen it come by on the mailing list. You might want to root around in the
archives and see what comes up.
Tom
Krishna, Hari [EMAIL
Burak -
Unless, of course, the user opened DATA first! :-)
Perverse example:
C:\perl
print Hello, sailor!\n;
__END__
Hello, sailor!
C:\perl
while (DATA) {print Data $_}
__END__
The bustard's a genial fowl
Data The bustard's a genial fowl
with minimal reason to growl.
Data with minimal reason
[EMAIL PROTECTED] wrote:
The output looks like this:
date1 = 2002101714:59:00
date2 = 2002102510:47:56
date3 = +0:0:1:0:19:48:56
There's defintely 7+ days between these two dates, it shows 0 days,
19 hours, 48 minutes, 56 seconds.
Actually, it shows 1 week, 0 days, 19 hours, 48 minutes,
Phil -
You might want to look at XML::Simple. I get the impression XML::Parser is
the foundation of a _lot_ of XML code (including XML::Simple). XML::Simple
will load the XML into a data structure that looks a lot more like what you
probably want to massage with Perl. It goes to considerable
Carter,
I'm with Johan Lindstrom - bind variables are the way to go. If you're
unfamiliar with them, they're a little strange at first. The following is
your script cold-coded to use bind variables and placeholders.
# Create the Insert
my $SQL = -- sql end --;
INSERT INTO scmrequests (Status,
No problems with:
Norton Antivirus Corporate 7.60.926
ActivePerl 633
Windows 2000 SP2 (5.00.2195)
Tom Wyant
This communication is for use by the intended recipient and contains
information that may be privileged, confidential or copyrighted under
applicable law. If you are not the intended
This communication is for use by the intended recipient and contains
information that may be privileged, confidential or copyrighted under
applicable law. If you are not the intended recipient, you are hereby
formally notified that any use, copying or distribution of this e-mail,
in whole or
All,
My apologies to the list for the previous empty note.
Starting about a day ago, everything I post to this list gets the following
reply from System Attendant [EMAIL PROTECTED]:
Trend SMEX Content Filter has detected sensitive content.
Place = [EMAIL PROTECTED]; ;
Sender = Thomas R
optique [EMAIL PROTECTED] wrote:
forgive my poor english, :), I come form beijing, china.
It is better than my Chinese!
my question is:
@B = (1,2,3,4,5,6);
@A = (3,6);
and I want to remove 3 and 6 from @B, after that the @B
will be (1,2,4,5).
but, I don't want to use foreach to iterate
[EMAIL PROTECTED] wrote:
snip!
The $expletive produced by Excel claiming to be HTML
is just awful (and Office 2000 is even worse)
You got that right. When HTMLizing Put the CD in the CD drive with
Word2K, we got
Put the CD in the addressCD drive/address.
If you do save from Excel, make
Burak Gürsoy [EMAIL PROTECTED] wrote:
umm... did you read my message?
wantarray is 'exactly' what you want
Second the motion. In fact, Last night I spent a little time writing a
rebuttal, but then I tried it, and you're exactly right. I figured this
would be the last word, but should have
The code:
while () {
$day = '';
print Before: $_;
s/(Monday|Tuesday|Wednesday|Thursday|Friday|
Saturday|Sunday)'s(\s+Games)?//x and $day = $1;
print After: $_;
print Day = '$day'\n;
}
The test:
C:\perl trw.tmp
Yesterday's Games were boring
Before: Yesterday's
I assume IsObject is a method that returns TRUE if the given object is of
the given class, and FALSE otherwise. If this is the case, the 'canonical'
way to do it is to use UNIVERSAL::isa. See the 'perlobj' documentation for
details. Here's some (working, this time!) sample code:
use strict;
use
Lee Clemmer [EMAIL PROTECTED] wrote:
s/$search/$newstr/i
You might want to modify this to
s/$search/$newstr/igo
The o promises Perl you will never change the $search string. Perl will
then put it through the regular expression compiler the first time it's
encountered, and you _should_
Mundell, R. \(Ronald\) [EMAIL PROTECTED] wrote:
How do one set an Environment variable out of a perl script, let say
PATH?
$ENV{PATH} =
But this only works for processes spawned by the Perl script that does the
setting. Search the archives of the os-specific mailing lists for
OS-specific
Lee Goddard [EMAIL PROTECTED] wrote:
Here's a funny thing: I'm getting the runtime error Modification of a
read-only value attempted when $_ is set to any value (including undef).
This is the only $_ in the scope, and it doesn't matter where in the
block
I put it.
First thing in a
sadanand limaye [EMAIL PROTECTED] wrote:
I have written a perl script to find the program is running or not.
On Unix, I can use to test mytest binary is running
$isprocactive = `ps -ef | grep mytest | grep -v grep | grep -c mytest`;
If the process mytest is running then $isprocactive is
Cameron Dorey [EMAIL PROTECTED] wrote:
Mangesh wrote:
I am trying to use one regular expression to extract search result from
Google.
In PERL script this works fine but in VB.NET this does not work. any
suggestions??
[VB snipped]
No suggestions but the obvious one: use perl
theatrale [EMAIL PROTECTED]
in all my perl programs, there is a line to include my own libray :
use lib $ENV{'PTI_CGI_HOME'};
I wonder how to declare PTI_CGI_HOME and where (in apache ?).
This is not an Apache mailing list. Further, you did not provide the
version of Apache you are using.
Jeff DuVall [EMAIL PROTECTED]
Is there an easy way to search a directory tree for path/filename
combinations of
a particular length? I'm troubleshooting a issue with some software, and
want to
rule out that the possibility of having path/filename combinations of
260
characters.
_THIS_
Glenn Linderman [EMAIL PROTECTED] wrote:
And my missing feature PPM rant is that it would be nice to be
able to issue PPM commands to prepare a CD containing a collection
of modules and their dependencies to take to an offline machine
(there are places where there just isn't local access to
LViale - TiscaliNet [EMAIL PROTECTED] wrote:
Does someone know how to get from registry the exact version of MS
Win 2k (Professional, Server, Advanced Server, ...).
The WMI Win32_OperatingSystem object has attribute Caption which says
Microsoft Windows 2000 Professional on my desktop
Mundell, R. \(Ronald\) [EMAIL PROTECTED] wrote:
I am busy writing a script that will determine the status of an
application.
I also need to determine the amount of memory used by such an
application.
If anyone knows how to do this within perl please help. This solution
needs
to be platform
Krishna, Hari [EMAIL PROTECTED] wrote:
I have written a perl program that downloads the files (basically
ftp in a batch program) from the unix systems to windows. These files
contain the ping information to various unix systems that we use. The
program then calculates the uptime and downtime
[EMAIL PROTECTED] wrote:
Is it possible to use the require command from a perl script on one
server, to access a library located on a different server??
For example:
require http://www.dokos-gr.net/RWAPSoft/cgi-bin/my_lib.pl;
Yes and no. Or maybe no and yes. Or maybe just no. As was noted
Daniel Gross [EMAIL PROTECTED] writes:
I running into problems again: This time I'd like to fill a hash
with arrays, however, the following push command generates a
syntax error. Any idea why
My %dirHash = ();
foreach my $item(@dirArray) {
$prefix = substr($item, 0,4);
push
[EMAIL PROTECTED] wrote:
To the Point (the question): If I install ActiveState
Perl onto a non-internet connected computer, can I
create an HTML file (client side) that has a form that
submits to a CGI file (client side - same computer)
and uses that data to create some MS word documents
62 matches
Mail list logo