Hello Mailing List people,
I had initially installed ActivePerl-5.6.1.626-MSWin32-x86-multi-thread.zip
(seemed to be the latest Win32 binary dist) and things went well.
I wanted to do some Tk work, don't have a C compiler - and if I did wouldn't
know what to do with it 8-) - so I `downgraded'
Could you show us the part of your code which calls the connect method,
and perhaps the exact error message?
cr
On Wed, 23 May 2001 13:30:41 +0700, prasoeu said:
Hi
I have problem about DBI library, when I connect asking me library not found
DBI?
Please tell me.
Prasoeu
Murray Webster writes ..
--- ok ---
C:\PERL561perl systest2.pl a123 b432
@ARGV contains: a123 b432
Received a123, b432
--- ok - haven't created association yet 8-( ---
C:\PERL561systest2.pl a321 g554
The system cannot execute the specified program.
--- create association for .pl --
hi
I would like to know which part of my program is taking much time. IS that
possible?
if possible, can u tell me how to do it??
Thankyou
regards
babylakshmi
_
Get Your Private, Free E-mail from MSN Hotmail at
Has anybody used Matts guestbook?
I've tried using several versions (I thought they were by different people
until I got into the code) and each one has the same problem.
The HTML pages work fine, but when the links point to the perl bits I get an
internal server error that looks like:
Internal
Hi Sally (Kevin?),
sounds like somthing in your webserver cgi-setup is wrong..
perhaps your path to perl is wrong in the script being called?
Or you haven't edited any relevant bits of the code for file locations etc..
I am have never used Matt's Scripts, but have you checked that your
on 23.05.01, baby lakshmi wrote
hi
I would like to know which part of my program is taking much time. IS that
possible?
if possible, can u tell me how to do it??
Thankyou
regards
babylakshmi
The benchmark perl module is what you'd be after
Here's something to get you started:
perldoc -q profile
perldoc -q memory
I always that that modules were the domain of real Perl gurus, so I did a
lot of requiring in my first Perl scripts. After running into all sorts of
problems with namespace, especially for global variable names, I decided to
check out modules. Surprise, surprise, they're simple!!
Without
Hello,
I will install apache_1.3.20.tar.gz and mod_perl-1.25.tar.gz on the HP-UX
OS.
I have installed all perl modules e.g
libwww-perl-5.48.tar.gz
URI
MIME-Base64
HTML-Parser
libnet
Digest::MD5
HTML::Tagset
Finally I am doing following:
$gzip -d apache_x.xx.tar.gz
$tar xfv apache_x.xx.tar
Can anyone suggest mailing lists for Linux similar to this one?
Thanks.
On Wed, 23 May 2001 [EMAIL PROTECTED] wrote:
Can anyone suggest mailing lists for Linux similar to this one?
Perhaps your local Linux User Group runs a help list.
--
Tony
do any of you know a module for generating random but unique filenames,
something like the GUID thing in windows.
Ron Yacketta wrote:
: I finally got a few books from O'Reilly, I truly am enjoying reading Perl
: Cookbook
: I was wondering if any of these complete scripts are available online for
: download?
All the examples from the book are available as a .tzr.gz or .zip file
from
On Wed, 23 May 2001, Kyrytow, Stefan wrote:
As you can see the last two inputs should not be accepted. I am using $x =~
/[0-9]/ as my filter. I understand why the values are being accepted, I am
searching for a number and 12bob bob12 each contain a number.
What I do not understand is how
Jeff == Jeff Pinyan [EMAIL PROTECTED] writes:
Jeff if (length($x) and $x =~ /\D/) { fail() }
Simpler...
if ($x =~ /\d/ and $x !~ /\D/) { winner! }
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
[EMAIL PROTECTED] URL:http://www.stonehenge.com/merlyn/
On May 23, Randal L. Schwartz said:
Jeff == Jeff Pinyan [EMAIL PROTECTED] writes:
Jeff if (length($x) and $x =~ /\D/) { fail() }
Simpler...
if ($x =~ /\d/ and $x !~ /\D/) { winner! }
Yeah, I was thinking of that too. merlyn++
--
Jeff japhy Pinyan [EMAIL PROTECTED]
I have a dbm file that i am trying to work with here. I am working with an established
format :
user = tagname: value\n tagname: value\n tagname: value\n...
The problem I am having is where I try to retrieve that value of the tagname.
dbmopen %PROXY, $proxy, 0666 or die Can't
: this is what i tryed on the command prompt.
:
: perl -pi -e 's{^!--\ntd}{test}' hello.txt
:
: but this command is not working .. so anybody kindly please help me in getting a
:regular expression for this.
Two things:
1. The -p flag by itself will only read in one line of hello.txt at a
I strongly recommend that you let mod_perl do the apache build for you. Just make
sure it can find the src directory under apache.
Here's a script that I use. Hasn't failed me yet, although YMMV as I'm doing this on
Solaris and Linux, not HP-UX. Don't see why it would be significantly different,
Check out Linuxnewbie.org. A great site, in a similar vein as Perl Monks. Tons and
tons of help there, and as the name implies it's geared toward promoting Linux and
it's use to neophytes and intermediate folk like myself.
~Matt C.
--- Tony Cook [EMAIL PROTECTED] wrote:
On Wed, 23 May 2001
Dear all,
Actually it does not depend on having an installation of Perl at all, let alone a sane
one. I am assuming
that the enquirer can take my supplied code, change the first line so that it points
to their Perl install
directory. Save it as test.pl in a suitable directory, change the
--- Aaron Craig [EMAIL PROTECTED] wrote:
At 15:12 22.05.2001 -0700, you wrote:
The problem is: PROTOTYPES MUST BE SEEN BEFORE THE FUNCTION IS
CALLED. So few people realize that (for one reason or
another[1]).
For that reason, I usually do my function definitions at the top of
--- Aaron Craig [EMAIL PROTECTED] wrote:
I always that that modules were the domain of real Perl gurus, so I
did a lot of requiring in my first Perl scripts. After running into
all sorts of problems with namespace, especially for global variable
names, I decided to check out modules.
At 02:15 PM 5/23/01 +0530, baby lakshmi wrote:
hi
I would like to know which part of my program is taking much time. IS that
possible?
if possible, can u tell me how to do it??
Oops, I just caught the subject. Your subject liine refers to memory
usage. Your text refers to time. Which is it
--- Timothy Kimball [EMAIL PROTECTED] wrote:
Stefan Kyrytow wrote:
: As you can see the last two inputs should not be accepted. I am
using $x =~ /[0-9]/ as my filter. I understand why the values are
being accepted, I am searching for a number and 12bob bob12 each
contain a number.
What
Hello,
Thanks for all the help this list is providing,
Here is today's problem:
#!/usr/bin/perl
$test = dave David Davy;
$i=0;
### Does not work want to count the number of matches...
$regex= ($test=~ s/(dav)/$i++ $1/eig);
print $regex $i\n;
### This does work..
$regex= ($test=~
On May 23, David Gilden said:
#!/usr/bin/perl
$test = dave David Davy;
$i=0;
### Does not work want to count the number of matches...
$regex= ($test=~ s/(dav)/$i++ $1/eig);
print $regex $i\n;
Do you want to count matches, or change the string? If you just want to
count the number of
--- David Gilden [EMAIL PROTECTED] wrote:
$test = dave David Davy;
### Does not work want to count the number of matches...
$regex= ($test=~ s/(dav)/$i++ $1/eig);
Just counting? Don't use s///. Try this:
my @regex = $test =~ /(dav)/g; # returns list of all matches
$i = scalar
Does anyone know a better way to say @{$$hash_name{arrayref}}?
thanks
Peter Cline
Inet Developer
New York Times Digital
$test=~ s/(dav)/$1 Smith/ig;
print $test
;
gives the following result:
dav Smithe Dav Smithid Dav Smithy
###
$test=~ s/(dav)w+/$1 Smith/ig;
Gives us: dav Smith Dav Smith Dav Smith
The \w+ says one or more word characters. Sticking that on the end gave us a bit
more control over the result
On Wed, 23 May 2001, Peter Cline wrote:
Does anyone know a better way to say @{$$hash_name{arrayref}}?
A hash containing an array reference?
How about
$hash_name{arrayref_name}-[0];
or @{ $hash_name{arrayref_name} };
-- Brett
Brett == Brett W McCoy [EMAIL PROTECTED] writes:
Brett On Wed, 23 May 2001, Peter Cline wrote:
Does anyone know a better way to say @{$$hash_name{arrayref}}?
Brett A hash containing an array reference?
Brett How about
Brett $hash_name{arrayref_name}-[0];
Brett or @{
Hi.
Can someone explain this to me?
I want to check that a backtick command has executed OK. I thought I could
do that by looking at the $! variable. But I find that if I do this for
example
$output = `pwd` ;
print $output\n ;
print \$! = $!\n ;
I get
/home/ron
$! = No such file or
--- Jeff Pinyan [EMAIL PROTECTED] wrote:
On May 23, Peter Cline said:
Does anyone know a better way to say @{$$hash_name{arrayref}}?
Doing $$foo{...} or $$foo[...] is often confusing for people to read.
That's why the - operator exists:
$foo-{bar} # is like $$foo{bar}
$foo-[$i] #
On May 23, Paul said:
{ local @ary = $hash_name-{arrayref}; # @ary now the array
print $ary[4]; # access is normal
} # aliasing ends with scope
Err, I think you mean
local *ary = $hash_name-{arrayref};
That will make @ary an alias
I want to check that a backtick command has executed OK. I thought I could
do that by looking at the $! variable.
Check $?
This is Child exit status which is what you get when you spawn another
process with back ticks.
The $! is the ERRNO (or Error string depending on context) for the last
Enter:
perldoc perlvar
and then look at the entries for $CHILD_ERROR ($?) and $ERRNO ($!).
There can be other issues about return values, but start with the above.
I have a perl CGI script provided by Lancelot Securities in order to
synchronize a username/password file. Whenever a new user signs up (this is
to my understanding of how the script works by reading it, I have very
little knowledge in perl, and by reading the files) lancelot runs the script
by
--- Jeff Pinyan [EMAIL PROTECTED] wrote:
On May 23, Paul said:
local @ary = $hash_name-{arrayref}; # @ary now the array
Err, I think you mean
local *ary = $hash_name-{arrayref};
Yep, that was it.
__
Do You Yahoo!?
Yahoo! Auctions - buy
Thanks for all the responses to my question regarding deferencing a hash
reference which in turn references an array. I decided to use the arrow
operator.
Now I'd like to know if it is possible to pass an object as an argument to
subroutine. I tried doing this as follows:
in one file, the
--- Paul [EMAIL PROTECTED] wrote:
--- Jeff Pinyan [EMAIL PROTECTED] wrote:
On May 23, Paul said:
local @ary = $hash_name-{arrayref}; # @ary now the array
Err, I think you mean
local *ary = $hash_name-{arrayref};
Yep, that was it.
To elaborate a bit on my previous blunder,
--- Peter Cline [EMAIL PROTECTED] wrote:
Now I'd like to know if it is possible to pass an object as an
argument to subroutine.
object method calls always do. =o)
$object-method()
passes $object to method much like
Namespace::method($object);
I tried doing this as follows:
in one file,
Hey all,
Been reading the list for a little while, and had sort of a philosophy
question for the group. I've been trying to learn Perl for some time (in
fact, my company has offered to pay for me to take a Sun course on it).
In the mean time I've been reading through the standard Perl books
Hello, I want to automatically get a receipt for a user when they read the
email my script sends out . I have red hat 7.1
Thanks in advance
Jim
I want to create a script to allow a user to change their password.
Any suggestions?
Dana M. Jansen
At 02:59 PM 5/23/01 -0500, Tom Yarrish wrote:
What have people done/read/whatever
to think in a perl state of mind.
Zen and the Art of Motorcycle Maintenance
Illusions/Richard Bach
Whack on the Side of the Head/van Oech
Any Far Side collection
As I said, I've been trying for some time to learn
On Wed, May 23, 2001 at 02:59:13PM -0500, Tom Yarrish wrote:
Hey all,
Been reading the list for a little while, and had sort of a philosophy
question for the group. I've been trying to learn Perl for some
time (in fact, my company has offered to pay for me to take a Sun
course on it). In
Hi, I have a question regarding the following script.
#!/usr/sbin/perl
if (!@ARGV) {
print STDERR usage: $0 alignment_file [threshold%]...\n;
print_sets();
exit 0;
}
my $FILE = shift @ARGV;
my @THRESHOLD;
if (@ARGV) {
@THRESHOLD = @ARGV;
} else {
@THRESHOLD = (90, 80,
--- Peter Cline [EMAIL PROTECTED] wrote:
my $object = Class-new( );
Looks ok. Can you access the objects methods thereafter in that
scope?
Yes, I can access object methods anywhere in the file in which I
created the object even though it has multiple namespaces.
I'm not sure
--- Tom Yarrish [EMAIL PROTECTED] wrote:
Hey all,
Been reading the list for a little while, and had sort of a
philosophy question for the group. I've been trying to learn Perl
for some time (in fact, my company has offered to pay for me to take
a Sun course on it).
In the mean time I've
--- Dana Jansen [EMAIL PROTECTED] wrote:
I want to create a script to allow a user to change their password.
Any suggestions?
Millions (figuratively speaking, of course. =o)
In what context?
UNIX command-line for box login?
Web-based form for site access?
Windows script to change a network
--- Pedro A Reche Gallardo [EMAIL PROTECTED] wrote:
Hi, I have a question regarding the following script.
[snip]
Heres is the question.
This script should take an alignment with sequences spread in two
or more blocks, and print them in one single block. Se below
Um, what does that mean?
Also try reading Drawing on the Artist Within by Betty Edwards. Through a
series of drawing excercises you will learn to look at problems in new ways,
and as a result, find creative solutions to any problem you're trying to
solve.
At 01:29 PM 5/23/01 -0700, you wrote:
I'm not sure what you mean by multiple namespaces. Could you
elaborate?
I am writing a module. This module has numerous packages which are what I
am referring to (perhaps erroneously) as namespaces. In this module file
is a use pragma/function that
Folks,
I search CPAN and found a good deal of Mail packages, seeing that I am
frankly new
which of them would you recommend to use in a perl script that will be
sending a single
email at the completion of a set of tasks?
-Ron
==
__
/_/\ Ronald
Personally, I like the one liner:
open (LETTER, |mailx -s \TITLE HERE\ someone\@some-domain.com) || die
(cannot open mail);
Paul Jasa
Qwest Cyber.Solutions
(408) 281-5295
-Original Message-
From: Yacketta,Ronald J [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 23, 2001 1:52 PM
To:
--- Peter Cline [EMAIL PROTECTED] wrote:
At 01:29 PM 5/23/01 -0700, you wrote:
I'm not sure what you mean by multiple namespaces. Could you
elaborate?
I am writing a module. This module has numerous packages which are
what I am referring to (perhaps erroneously) as namespaces.
Nope, I
I am not sure what type of system you are on but if you are running the perl
script on a UNIX type of machine and sendmail is installed and functioning
then you may wish to resort to using a system() call at the end of your
script. (barring that this does not run every 5 seconds) My preference
Hi Paul, thank for your interest. I am talking
about multiple protein sequence alignments generated by the program
clustalW (see http://www.ebi.ac.uk/clustalw/help.html for additional information).
Since the sequences to be aligned can be very long, in the output clustalW
split the sequences in
Hi, I have a question regarding the following script.
[code]
Did you write the code?
This should be the output.
[data1]
However, the output is the following:
[data2]
Did you know that [data2] is near enough just [data1], twice?
Which is probably because the somethings in this code:
ANyone help me out with a problem I'm having splitting some | separated
variables...
%router_tables contains entries like 0.0.0.0|unknown 1.1.1.1|cisco
2.2.2.2|juniper
foreach $i (sort keys %router_tables)
{
next if ($i =~ unknown);
($router_table{i},$router_type{i}) =
ok, so the routine is in main:: namespace?
Is it? Does require put its arguments into the namespace from which it was
called?
use NYT::Cnxdb;
my $cnxdb =
Cnxdb-new($conf{cnxdbUser},$conf{cnxdbPort},$conf{cnxdbTimeout});
die(Unable to connect to database: . $cnxdb-getlasterror())
On May 23, Andy Roden said:
($router_table{i},$router_type{i}) = split(/\|/,
$router_tables{i});
You probably want that to be $i, not i.
if ($router_table{i} ne ) {
print SH \$router_table{i}\ ;
}
There too.
else {
print SH \$router_tables{$i}\
($router_table{i},$router_type{i}) = split(/\|/,
$router_tables{i});
All those indices should be {$i} rather than {i}.
I'm figuring it's the {i} causing the problem
You had it figured...
Casey == Casey West [EMAIL PROTECTED] writes:
Casey Don't forget to subscribe to the list(s) you're interested in.
And those instructions are?...
And which ones am I already subscribed? Wouldn't it have been easier
to just subscribe across the board, then let us unsubscribe?
--
Randal L.
On Wed, 23 May 2001, Me wrote:
($router_table{i},$router_type{i}) = split(/\|/,
$router_tables{i});
All those indices should be {$i} rather than {i}.
They are actually $i in the script, just typos in the mail...
appologies...
I'm figuring it's the {i} causing the problem
- Original Message -
From: Yacketta,Ronald J [EMAIL PROTECTED]
To: Beginners (E-mail) [EMAIL PROTECTED]
Sent: Wednesday, May 23, 2001 10:52 PM
Subject: mail
Folks,
I search CPAN and found a good deal of Mail packages, seeing that I am
frankly new
which of them would you
Hello,
I'm learning Perl for fun and writing a little program as a learning
exercise. I've spend the last few years writing Java middleware and I'm
finding Perl to be extremely refreshing. There are so many things you can
do in Perl that would take many lines of code in Java. For example:
--- Peter Cline [EMAIL PROTECTED] wrote:
ok, so the routine is in main:: namespace?
Is it? Does require put its arguments into the namespace from which
it was called?
Yep, I think so.
require 'x.pl';
is much the same as
eval `cat x.pl`;
Yes?
use NYT::Cnxdb;
my $cnxdb =
--- David Blevins [EMAIL PROTECTED] wrote:
local @fileList = reverse sort `ls $list*.list`;
local $current = $fileList[0];
local $previous = $fileList[1];
Local is great for a few things, but almost universally you should be
using my(). local() can cause you some real (and
On Wed, May 23, 2001 at 02:56:20PM -0700, Randal L. Schwartz ([EMAIL PROTECTED])
spew-ed forth:
Casey == Casey West [EMAIL PROTECTED] writes:
Casey Don't forget to subscribe to the list(s) you're interested in.
And those instructions are?...
Look at the FAQ, or lists.perl.org for
I need help. I am a newbie. I am frustrated.
I am working with a dbm file. It has data in it. The data is formatted in this way:
key = name: parameter\n name: parameter\n name: parameter\n
I want to get rid of the 'name' and just get the 'parameter'.
The parameter may have spaces in
Very interesting,
Thanks for pointing that out. I looked that up and read the related
sections, good information to know. I had been using local() thinking it
worked as my() does. That has been corrected now.
Thanks for watching my back ;)
David
From: Paul [mailto:[EMAIL PROTECTED]]
At 06:37 PM 5/23/01 -0400, Kevin Meltzer wrote:
And which ones am I already subscribed? Wouldn't it have been easier
to just subscribe across the board, then let us unsubscribe?
E.. what is up with this new opt-out thing? :) We wouldn't want people to
suddenly come back to check their
I just get tired of looking everything up in my Perl book.
Try perldoc ;)
$ perldoc chop
chop VARIABLE
chop LIST
chopChops off the last character of a string and returns the
character chopped. It's used primarily to remove the newline
from the end of an input
On Wed, May 23, 2001 at 03:42:57PM -0700, Peter Scott ([EMAIL PROTECTED]) spew-ed forth:
Okay, now I'm confused. I'm on [EMAIL PROTECTED] and I want to stay
there. You mean I have to resubscribe to it? How come I'm still getting
its messages then?
N.. you are still subscribed to
On Wed, May 23, 2001 at 03:42:57PM -0700, Peter Scott wrote:
: At 06:37 PM 5/23/01 -0400, Kevin Meltzer wrote:
: And which ones am I already subscribed? Wouldn't it have been easier
: to just subscribe across the board, then let us unsubscribe?
:
: E.. what is up with this new opt-out
--- [EMAIL PROTECTED] wrote:
The code fragment below is the bit I'm having issues with. I know
that everything works as the commented print stmts work. When I try
to return the value to the calling script I seem to be getting a
count
of the elements of the array.
That sounds like a
Hi guys,
I created the following script to logout users from a
unix system. Please take a look and let me know if
the syntax is correct.
#!/usr/bin/perl
#
#Purpose: To logout users off the system during after
hours.
#
sub DEBUG () { 1 }; # set level of debugness.
open (STDERR, /tmp/userlog.log)
perlguy == perlguy [EMAIL PROTECTED] writes:
perlguy On Wed, May 23, 2001 at 03:42:57PM -0700, Peter Scott ([EMAIL PROTECTED])
spew-ed forth:
Okay, now I'm confused. I'm on [EMAIL PROTECTED] and I want to stay
there. You mean I have to resubscribe to it? How come I'm still getting
--- David Michael [EMAIL PROTECTED] wrote:
I need help. I am a newbie. I am frustrated.
I am working with a dbm file. It has data in it. The data is
formatted in this way:
key = name: parameter\n name: parameter\n name: parameter\n
I want to get rid of the 'name' and just get
82 matches
Mail list logo
