[15511] in Perl-Users-Digest
Perl-Users Digest, Issue: 2921 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 2 06:10:31 2000
Date: Tue, 2 May 2000 03:10:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <957262215-v9-i2921@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 2 May 2000 Volume: 9 Number: 2921
Today's topics:
Re: Problem with $ sign in string (Craig Berry)
Re: Problem with $ sign in string otrcomm@wildapache.net
Re: Problem with $ sign in string otrcomm@wildapache.net
Re: Problem with $ sign in string <rootbeer@redcat.com>
Re: Problem with $ sign in string (Tony L. Svanstrom)
Re: Problem with $ sign in string <rootbeer@redcat.com>
Re: Problem with $ sign in string <wyzelli@yahoo.com>
Re: Problems with creating a unique key for a script to <mjcarman@home.com>
Re: Problems with creating a unique key for a script to (Tad McClellan)
Re: Problems with creating a unique key for a script to (Craig Berry)
Re: Problems with creating a unique key for a script to <rootbeer@redcat.com>
Problems with creating a unique... Explaining (Lobo)
Re: Problems with creating a unique... Explaining <rootbeer@redcat.com>
Re: Reformatting a File (Variable to Fixed) <gellyfish@gellyfish.com>
Re: Retrieving the name of a variable (Rafael Garcia-Suarez)
using system or open to get program output <novotny@nlanr.net>
Re: Which template module? CGI::FastTemplate? <tye@metronet.com>
Re: Which template module? CGI::FastTemplate? <webmaster@momsathome.on.ca>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 02 May 2000 05:19:45 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Problem with $ sign in string
Message-Id: <sgspbhd71g228@corp.supernews.com>
Drew Simonis (care227@attglobal.net) wrote:
: does join() use more overhead than the . operator?
:
: Anyone know?
<spooky music>
Benchmark knows!
</spooky music>
...always assuming I can come up with a representative test case which
won't get picked to pieces by the Lords of Benchmarking. Fingers
crossed, here we go:
#!/usr/bin/perl -w
# joinvsdot - Test speed of join vs. dot for building strings.
# Also does double-quote interpolation, just for kicks.
# Craig Berry (20000501)
use strict;
use Benchmark;
my ($a, $b, $c, $d, $e) = qw(a e i o u);
timethese(100_000, {
dot => sub { $_ = $a . $b . $c . $d . $e; },
'join' => sub { $_ = join '', $a, $b, $c, $d, $e; },
dq => sub { $_ = "$a$b$c$d$e"; }
});
Results:
Benchmark: timing 100000 iterations of dot, dq, join...
dot: 18 secs (15.79 usr 0.00 sys = 15.79 cpu)
dq: 17 secs (14.75 usr 0.00 sys = 14.75 cpu)
join: 18 secs (16.12 usr 0.00 sys = 16.12 cpu)
...in other words, more or less a wash.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "The road of Excess leads to the Palace
of Wisdom" - William Blake
------------------------------
Date: Tue, 02 May 2000 06:58:45 GMT
From: otrcomm@wildapache.net
Subject: Re: Problem with $ sign in string
Message-Id: <390e7a4d.961875143@news.wildapache.net>
On Mon, 01 May 2000 18:26:53 -0700, "Godzilla!"
<godzilla@stomp.stomp.tokyo> wrote:
>otrcomm@wildapache.net wrote:
>
>> "UPS Ground - $20.62" (minus the quotation marks)
>
>> and I want to pick the number 20.62 out of it
>
>> The $ sign is getting in the way of everything that I try.
>
>
>* smiles *
>
>You are declaring '$20' as a variable,
>silly boy! Oh, this does bring back
>memories of so long ago...
I realize that perl thinks that this is a variable, but that is a
limitation of perl. The string exists in this format, so I have to figure
out how to deal with it as is.
>
>
>Listen, lets talk data base. Forget all
>this techno-geekster gibberish fancy
>dancy coding to deal with a dollar sign.
>Get rid of that puppy!
>
>Why the heck do you need a $ in your data
>base anyhow! Fire up your program editor
>and delete that little monster everywhere.
>While you are at it, get rid of:
Well, first of all, it is not my routines that write to the database. It
is a shopping cart system called minivend.
All I am trying to do is develop an interface between the existing shopping
cart system and Cybercash. I would prefer that the shopping cart system
not write to the database in this format, but it does so I have to work
with what it does.
I could modify the way that my copy of the shopping cart system writes to
the database, but then no one else could use the tool that I am developing.
So, I still need to know how to pick the the part after the $ sign in the
string.
Does anyone know how to do this?
Thanks,
Murrah Boswell
>
>UPS Ground -
>
>..as well. Clutter, clutter, clutter.
>Typical boy! Boys and their toys. Gurls
>and thier curls!
>
>Remove the $ and UPS Ground - from your
>data base. Neither are needed and only
>present a problem along with a lot of
>unwarranted extra coding for nothing,
>not to mention a messy over-filled
>toy chest data base.
>
>Pull your amount, 20.62 nice and plain.
>
>
>>From your data base, $charge = "20.62";
>
>$shipping_sting = join ("", "UPS Ground - ", "\$", $charge);
>
>UPS Ground - $20.62
>
>
>All done! One old fashion line, no geeksterese!
>You are happy as a dead pig lying in sunshine!
>
>Yeah, a backslash is needed.
>
>Might even think about taking out that
>decimal point while you are at it. No
>real need for that in your data base
>either, don't ya think? Clean up your
>data base, forget all those Band Aid
>codes to fix what shouldn't be a
>problem initially.
>
>Have fun and remember, everyone was
>a beginner once and, some pros are
>still beginners!
>
>Godzilla!
>
------------------------------
Date: Tue, 02 May 2000 07:20:32 GMT
From: otrcomm@wildapache.net
Subject: Re: Problem with $ sign in string
Message-Id: <390e7d6d.962675394@news.wildapache.net>
On Mon, 1 May 2000 18:42:16 -0700, "Lauren Smith"
<lauren_smith13@hotmail.com> wrote:
>
>Godzilla! <godzilla@stomp.stomp.tokyo> wrote in message
>news:390E2EDD.784FFB27@stomp.stomp.tokyo...
>> otrcomm@wildapache.net wrote:
>>
>> > "UPS Ground - $20.62" (minus the quotation marks)
>>
>> > and I want to pick the number 20.62 out of it
>>
>> > The $ sign is getting in the way of everything that I try.
>>
>>
>> * smiles *
>>
>> Listen, lets talk data base. Forget all
>> this techno-geekster gibberish fancy
>> dancy coding to deal with a dollar sign.
>> Get rid of that puppy!
>
>I didn't see any mention of a database in his original post...
>
>> While you are at it, get rid of:
>>
>> UPS Ground -
>
>If the OP knew how to remove the digits, he'd likely know how to remove the
>leading text.
>
>> Remove the $ and UPS Ground - from your
>> data base. Neither are needed and only
>> present a problem along with a lot of
>> unwarranted extra coding for nothing,
>> not to mention a messy over-filled
>> toy chest data base.
>
>You are again assuming a database.
I was not thorough in my first message! Yes it does come from a database
that is written by a shopping cart system called minivend.
Minivend is opensource, so I can modify the source code that I have for my
copy, but this will not help with copies that other people have.
I am developing an interface between minivend and Cybercash that I will
make available as opensource to other minivend users. So I have to work
with how minivend write to the database. I do not necessarily like the way
this is shipping cost string is formated and would not do it that way if I
were king, but I am not in this situation.
>
>
>> >From your data base, $charge = "20.62";
>>
>> $shipping_sting = join ("", "UPS Ground - ", "\$", $charge);
>>
>> UPS Ground - $20.62
>>
>> All done! One old fashion line, no geeksterese!
>> You are happy as a dead pig lying in sunshine!
>
>That 'join' seems like overkill.
>
>$shipping_string = "UPS Ground - \$$charge";
>
>Of course, the problem was getting the value of $charge *out* of the string,
>not putting it back in.
This is a true fact!
I know how to put the string back together once I have it in parts and I
will do that later in my code, but first I have to get it apart.
>
>$string = "UPS Ground - $20.62";
>$charge = $1 if ($string =~ /$(\d+\.\d\d)/ ); # Find a dollar sign followed
>by one or more digits and a period and two digits
I guess I do see how this will extract the 20.62 from the string.
Is there a way in perl to do this, i.e., extract the 20.62 from the given
string?
I know how to take it apart if I write the string:
$shipping_string = "UPS Ground - \$20.62";
$shipping_string =~ s/\$//;
$costlen = length $shipping_string;
$hyphpos = index($shipping_string, "-");
$costlen = $costlen - $hyphpos-2;
$shipping_cost = substr($shipping_string,-($costlen),$costlen);
chomp($shipping_cost);
voila! Big Deal!
but I do not have access to the string in raw form to put the \ before the
$ sign.
Murrah Boswell
>
>Lauren
>
>
------------------------------
Date: Tue, 2 May 2000 00:12:00 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problem with $ sign in string
Message-Id: <Pine.GSO.4.10.10005020002200.13677-100000@user2.teleport.com>
On Tue, 2 May 2000 otrcomm@wildapache.net wrote:
> So, I still need to know how to pick the the part after the $ sign in
> the string.
>
> Does anyone know how to do this?
Here's a small, self-contained example program which does what (as near as
I can see) you seem to be asking for. This is using, in essence, the same
code that other helpful folks have posted in response to your original
message - so you should have gotten your answer by now, if I'm right about
what you want.
$pointer1->{'shipping'} = 'UPS Ground - $20.62';
my($value) = $pointer1->{'shipping'} =~ /\$([\d.]+)/;
print "The value is '$value'.\n";
Run it on your system to see what it does. Is that what you want? If not,
can you explain how it differs from what you want?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 2 May 2000 09:16:39 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Problem with $ sign in string
Message-Id: <1e9zz0i.h7anqs117l2reN%tony@svanstrom.com>
<otrcomm@wildapache.net> wrote:
> I realize that perl thinks that this is a variable, but that is a
> limitation of perl. The string exists in this format, so I have to figure
> out how to deal with it as is.
Ok, and what exactly is that limitation... That it has variables? No,
the limitation is in the person not able to handle it correctly.
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
DSS: 0x9363F1DB, Fp: 6EA2 618F 6D21 91D3 2D82 78A6 647F F247 9363 F1DB
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©1999 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Tue, 2 May 2000 00:27:34 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problem with $ sign in string
Message-Id: <Pine.GSO.4.10.10005020026280.13677-100000@user2.teleport.com>
On Tue, 2 May 2000 otrcomm@wildapache.net wrote:
> I know how to take it apart if I write the string:
>
> $shipping_string = "UPS Ground - \$20.62";
> but I do not have access to the string in raw form to put the \ before
> the $ sign.
You are mistaken; there is no backslash in $shipping_string. See the
perlop manpage about quoting operators. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 2 May 2000 17:19:27 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Problem with $ sign in string
Message-Id: <qMvP4.25$Ib7.2035@vic.nntp.telstra.net>
Tom Phoenix <rootbeer@redcat.com> wrote in message
news:Pine.GSO.4.10.10005020002200.13677-100000@user2.teleport.com...
> On Tue, 2 May 2000 otrcomm@wildapache.net wrote:
>
>
> $pointer1->{'shipping'} = 'UPS Ground - $20.62';
> my($value) = $pointer1->{'shipping'} =~ /\$([\d.]+)/;
> print "The value is '$value'.\n";
>
> Run it on your system to see what it does. Is that what you want? If
not,
> can you explain how it differs from what you want?
>
And if it doesn't, then the change is real simple:
$pointer1->{'shipping'} = 'UPS Ground - $20.62';
my($value) = $pointer1->{'shipping'} =~ /(\$[\d.]+)/;
print "The value is '$value'.\n";
See what that does...
Wyzelli
------------------------------
Date: Mon, 01 May 2000 23:33:01 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: Problems with creating a unique key for a script to search. Please help me here.
Message-Id: <390E5A7D.7AEF3FE7@home.com>
Lobo wrote:
>
> I can't create a really UNIQUE key for perl to search for.
Why not?
> If a field contains the number "1", the script will bring all results
> who matches this number (1, 11, 21,31, 41, and so on).
But 1 != 11, so these objects are unique. How are you searching? I'm
guessing SQL syntax, of which I know next to nothing, but the general
idea is to search for equality, not similarity.
In Perl, you would want to replace
$var =~ /1/
with
$var == 1
In SQL, you probably need to replace a LIKE query with an IS query, or
whatever the syntax is for an exact match. I can't help you with that.
HTH.
-mjc
------------------------------
Date: Mon, 1 May 2000 23:51:27 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Problems with creating a unique key for a script to search. Please help me here.
Message-Id: <slrn8gsk5v.3jn.tadmc@magna.metronet.com>
On Tue, 02 May 2000 02:23:13 GMT, Lobo <er@matrix.com.br> wrote:
>I'm writing a DB application in Perl, and it's almos ready, but there
>is a problem that's making me mad:
>
> I can't create a really UNIQUE key for perl to search for. If a
>field contains the number "1", the script will bring all results who
^^^^^^^^^^
>matches this number (1, 11, 21,31, 41, and so on).
Those _are_ all unique!
How does "the script" select matches?
With a pattern match?
Maybe an == test would work better.
Maybe word boundaries would help.
Show us the code that "selects" matches, and we can probably
make it work with those Plain Old Numbers for unique keys.
>I've tried the good old "$key=time();", but it doesn1t worked fine...
The problem is not with the keys.
The problem is in selecting matches.
Show us the part of code that does the selecting.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 02 May 2000 05:22:21 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Problems with creating a unique key for a script to search. Please help me here.
Message-Id: <sgspgde11g2109@corp.supernews.com>
Lobo (er@matrix.com.br) wrote:
: I'm writing a DB application in Perl, and it's almos ready, but there
: is a problem that's making me mad:
:
: I can't create a really UNIQUE key for perl to search for. If a
: field contains the number "1", the script will bring all results who
: matches this number (1, 11, 21,31, 41, and so on). So, since the data
: file - a Pipe Delimited Values TXT - doesn't have a hundred rows yet,
: I've made a temporary solution: I've inserted a zero on lines 1 to 9,
: so it looks like this:
[snip]
Why not just anchor the patten? Or better yet, check for equality rather
than using a regex? Regexen are cool, but they're not the tool for all
conceivable problems.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "The road of Excess leads to the Palace
of Wisdom" - William Blake
------------------------------
Date: Mon, 1 May 2000 21:14:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problems with creating a unique key for a script to search. Please help me here.
Message-Id: <Pine.GSO.4.10.10005012113170.13677-100000@user2.teleport.com>
On Tue, 2 May 2000, Lobo wrote:
> Subject: Problems with creating a unique key for a script to search. Please
help me here.
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> But when the 100ª row appears and I search for the row 10, for an
> example, it will bring me 10 AND 100!
It sounds as if you're using a pattern match or substring when you should
be searching for an exact numeric or string value. Is that the problem?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 02 May 2000 07:13:22 GMT
From: er@matrix.com.br (Lobo)
Subject: Problems with creating a unique... Explaining
Message-Id: <390e7fab.14311868@news.matrix.com.br>
On Mon, 1 May 2000 21:14:28 -0700, Tom Phoenix <rootbeer@redcat.com>
wrote:
>It sounds as if you're using a pattern match or substring when you should
>be searching for an exact numeric or string value. Is that the problem?
>
YES, this is EXACTLY the problem. Sorry if I didn't made my self
clear.
Please, help me.
------------------------------
Date: Tue, 2 May 2000 00:31:29 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Problems with creating a unique... Explaining
Message-Id: <Pine.GSO.4.10.10005020029140.13677-100000@user2.teleport.com>
On Tue, 2 May 2000, Lobo wrote:
> >It sounds as if you're using a pattern match or substring when you should
> >be searching for an exact numeric or string value. Is that the problem?
> YES, this is EXACTLY the problem.
Okay, so you'll probably want to use some of the operators from the perlop
manpage. Do the descriptions for 'eq' and '==' sound as if they might be
what you want? Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 2 May 2000 07:10:27 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Reformatting a File (Variable to Fixed)
Message-Id: <8elrgj$b48$1@orpheus.gellyfish.com>
On Mon, 01 May 2000 16:34:35 GMT mkrol@my-deja.com wrote:
> Is there a way to convert a file that has variable length records to a
> file with fixed length records using a Perl script? I have a file with
> 25 records that are 238 chars long, but when I Ftp the file to an IBM
> MVS system the file is showing as variable length (255 chars long).
>
In the first instance I would try FTPing the file in binary mode.
/J\
--
Marge, please. Old people don't need companionship. They need to be
isolated and studied so that it can be determined what nutrients they
have that might be extracted for our personal use.
--
fortune oscar homer
------------------------------
Date: Tue, 02 May 2000 07:16:03 GMT
From: garcia_suarez@hotmail.com (Rafael Garcia-Suarez)
Subject: Re: Retrieving the name of a variable
Message-Id: <slrn8gt0af.uv4.garcia_suarez@r-garcia.kazibao.net>
Makau Divangamene wrote in comp.lang.perl.misc:
>How do you retrieve the name of a variable?
You will have to scan the entire symbol table (the %:: hash, look at
the perlmod manpage to learn about it) to find all symbol table entries
that refer to the value. Note that this is not completely reliable as
you must deal with hard references vs symbolic references (see perlref)
and with lexical scoping. A complex job, that will slow down your
program, and that probably will hurt its maintenability. Are you
sure you don't want to consider another algorithm? E.g. by using
references?
>For example the follwing code :
>
>--
>($var1,$var2,$var3) = ('value1','value2','value3');
>
>foreach ($var1,$var2,$var3) {
> print NameOfVar($_)."\n";
>};
>--
>
>should return:
>
>--
>var1
>var2
>var3
>--
>
>Thanks in advance!
--
Rafael Garcia-Suarez
------------------------------
Date: Tue, 02 May 2000 01:03:30 -0700
From: Jason Novotny <novotny@nlanr.net>
Subject: using system or open to get program output
Message-Id: <390E8BD2.258EA060@nlanr.net>
Hi,
I have a program that requires a passphrase and then produces a
result. I just simply want to do something like the following.
open(MPGD, "|$program") or die "Can't open pipe to $program: $!\n";
print MPGD "$password\n";
close (MPGD) or die "Can't close pipe to $program: $!\n";
But how do I check the output produced by $program. I know I could
save as a file using ">output" in a system() call, but then I have to
deal with file locking...
Do I need expect?
Thanks very much, Jason
------------------------------
Date: 2 May 2000 00:30:37 -0500
From: Tye McQueen <tye@metronet.com>
Subject: Re: Which template module? CGI::FastTemplate?
Message-Id: <8elp5t$cg1@beanix.metronet.com>
Jennifer <webmaster@momsathome.on.ca> writes:
)
) I think I am going to adapt CGI::FastTemplate for my own needs.
) It works very much like I want except for the delimiters and the
) printing of warnings.
Please consider making these changes as options such as the
"strict variable" already is and submiting a patch to the module
author so that others can benefit from your work just as you are
benefiting from their work.
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: Tue, 02 May 2000 02:33:58 -0400
From: Jennifer <webmaster@momsathome.on.ca>
Subject: Re: Which template module? CGI::FastTemplate?
Message-Id: <390E76D6.F16D905@momsathome.on.ca>
Tye McQueen wrote:
>
> Jennifer <webmaster@momsathome.on.ca> writes:
> )
> ) I think I am going to adapt CGI::FastTemplate for my own needs.
> ) It works very much like I want except for the delimiters and the
> ) printing of warnings.
>
> Please consider making these changes as options such as the
> "strict variable" already is and submiting a patch to the module
> author so that others can benefit from your work just as you are
> benefiting from their work.
If I get something clean enough to submit, I will. I'm afraid
that I am not comfortable enough with object oriented programming
yet for others to see/use my work.
The changes I make now to get it working are going to be in the
form of a direct hack instead of setting up options that need to
be set.
Jennifer
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 2921
**************************************
