[9736] in Perl-Users-Digest
Perl-Users Digest, Issue: 3330 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 3 17:05:31 1998
Date: Mon, 3 Aug 98 14:00:26 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 Aug 1998 Volume: 8 Number: 3330
Today's topics:
Re: "print" or something deeper? (Larry Rosler)
Re: "print" or something deeper? <thomas@daimi.aau.dk>
Re: "print" or something deeper? (Clinton Pierce)
Array or hash question ? jlafosse@my-dejanews.com
Re: Array or hash question ? <rick.delaney@shaw.wave.ca>
Array question ? jlafosse@my-dejanews.com
Array question ? jlafosse@my-dejanews.com
Array question ? webmaster@vaticanmuseumtreasures.com
C/Perl executable wilgro@my-dejanews.com
Re: CGI Perl Postal Digital <mtveermanAD@mindlessDOT.com>
Re: Changing foreign characters <JKRY3025@comenius.ms.mff.cuni.cz>
Comparing two strings and retrieving a difference <rodm@studiopointe.com>
Re: Comparing two strings and retrieving a difference <rick.delaney@shaw.wave.ca>
Getting email address? <slanicky@students.uiuc.edu>
Re: Getting email address? <thomas@daimi.aau.dk>
HELP: programming with Comm.pl & program structure tigger@io.nospaam.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 3 Aug 1998 12:28:04 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: "print" or something deeper?
Message-Id: <MPG.102faf1fc3502e82989750@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <35C604E5.7F36C6EF@newfangled.com> on Mon, 03 Aug 1998
14:43:49 -0400, Michael S. Brito, Jr. <mike@newfangled.com> says...
> Hey,
Hey, yourself!
> This script keeps dying at line 7 (or so the error log would like me
> to believe). I have retyped and cursed and nothing has worked. Basically
> I would like this bad-boy to open up etonic.dbf, see if the user input
> for the field named 'dealer' matches that lines $place and if it does
> print all the info on $place to the browser. Here is some info that you
> may need:
...
> #!/usr/bin/perl
>
> # Lets DEFINE!!!!
> $filename = "etonic.dbf"
>
> # Go get the query string
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
When the parser reports an error, it reports it on the line where it
detects it, not necessarily the line where it occurs. Now look at your
source again, carefully this time.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 03 Aug 1998 21:43:54 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: "print" or something deeper?
Message-Id: <35C612FA.34B5E540@daimi.aau.dk>
Michael S. Brito, Jr. wrote:
> CGI.pm Library Version 2.36
I see you did not use this one though.
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
this is the line that is supposed to be bad, well it looks ok to me but
there are some other problems.
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs) {
> ($name,$value) = split(/=/,$pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $value =~ s/~!/ ~!/g;
> $FORM{$name} = $value;
> }
>
> # Start the results page
> print "Content-type:text/html\n\n";
should be : (notice space after colon)
print "Content-type: text/html\n\n";
> # Open the database and grab all the dealers and info
> open(INF,$filename);
> @indata = <INF>;
> close(INF);
>
> # Header for list
> print "<p>A dealer near you is:<br><ul>";
>
> # Take each field and seperate
> foreach $i (@indata) {
> chop($i);
chomp($i);
> ($place,$addr1,$addr2,$addr3,$city,$state,$zip,$phone) =
> split(/\|/,$i);
> foreach $dealer (@dealer) {
where did you get the @dealer array from?
> if (!($place =~ /$dealer/i)) {
> print "<li>$place,$addr1,$addr2,$addr3,$city,$state,$zip,$phone<br>";
You are telling your script to print the dealer information if the
search did not match. Is that what you intended to do?
------------------------------
Date: 3 Aug 1998 20:24:53 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
To: mike@newfangled.com
Subject: Re: "print" or something deeper?
Message-Id: <6q56al$6m51@eccws1.dearborn.ford.com>
In article <35C604E5.7F36C6EF@newfangled.com>,
"Michael S. Brito, Jr." <mike@newfangled.com> writes:
>Hey,
>
> This script keeps dying at line 7 (or so the error log would like me
>to believe). I have retyped and cursed and nothing has worked. Basically
>I would like this bad-boy to open up etonic.dbf, see if the user input
>for the field named 'dealer' matches that lines $place and if it does
>print all the info on $place to the browser. Here is some info that you
>may need:
$ cat > /tmp/foo.pl # Paste his script in...
$ perl -wc /tmp/foo.pl
syntax error at /tmp/foo.pl line 7, near "read"
/tmp/foo.pl had compilation errors.
Well duh. It does have a bug.
>$filename = "etonic.dbf" # Line 3
> # Line 4
># Go get the query string # Line 5
>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Line 7
Welcome to a compiled language, Mike. Sometimes the compiler gets
lost and can't report errors as well as you'd like. The problem isn't
in line 7. HINT: Check the lines before 7 and after 7.
The problem is in the prior line containing code--line #3. You're
missing a semicolon at the end of the line.
Most language compilers have problems reporting the exact location of
missing quotes, missing line terminators, missing parens/brackets/braces,
mal-formed regular expressions, mal-formed expressions, etc. (my favorite
is the Shell's "unexpected End of File"). In addition
to checking the lines immediately before an error message, and immediately
after, you can try commenting out blocks of code to see if the error goes
away. Had you commented out line 7, your error message would have moved
to line with @pairs (line #8). This would have given you a clue that line
#7 was not your problem.
..and...
ALWAYS ALWAYS ALWAYS test your scripts on the command-line before trying
to run them from a webserver! "perl -wc" will syntax-check your
script and list out warning messages for you.
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: Mon, 03 Aug 1998 20:26:26 GMT
From: jlafosse@my-dejanews.com
Subject: Array or hash question ?
Message-Id: <6q56dh$23h$1@nnrp1.dejanews.com>
I have read through the postings, as well as the perl manpages, however I am
still confused on how to solve the following problem. Basically I am pulling
in rows from an SQL database, and I want to be able to place these into an
array. For example the following variables will be pulled out of each row
(and the amount of rows returned will vary):
$itemNum, $price, $description, $size, $color
So lets say I have three rows returned with the following data:
row1
$itemNum = 'SKU_1';
$price = '30.00';
$description = 'Widget';
$size = '10';
$color = 'Blue';
row2
$itemNum = 'SKU_3';
$price = '20.00';
$description = 'Widget';
$size = '8';
$color = 'Red';
row3
$itemNum = 'SKU_9';
$price = '5.00';
$description = 'Widget';
$size = '4';
$color = 'Green';
Now I am not sure if it is an @list I want or a %hash, but I want to be able
to access this data later on. Also as I stated earlier, the rowcount will not
always be the same, so I am not sure how to incorporate this into a for loop.
Perhaps someone would be kind enough to show me some example code using the
above data.
Thanks,
Jason
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 20:56:26 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Array or hash question ?
Message-Id: <35C6256C.1B4685A2@shaw.wave.ca>
jlafosse@my-dejanews.com wrote:
>
> I have read through the postings, as well as the perl manpages,
> however I am still confused on how to solve the following problem.
> Basically I am pulling in rows from an SQL database, and I want to be
> able to place these into an array. For example the following variables
> will be pulled out of each row (and the amount of rows returned will
> vary):
> $itemNum, $price, $description, $size, $color
>
One post with one subject from one domain would have been sufficient.
perldoc perldsc
See the section, "Lists of Hashes". There are plenty of good examples
there.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Mon, 03 Aug 1998 20:26:27 GMT
From: jlafosse@my-dejanews.com
Subject: Array question ?
Message-Id: <6q56dj$23l$1@nnrp1.dejanews.com>
I have read through the postings, as well as the perl manpages, however I am
still confused on how to solve the following problem. Basically I am pulling
in rows from an SQL database, and I want to be able to place these into an
array. For example the following variables will be pulled out of each row
(and the amount of rows returned will vary):
$itemNum, $price, $description, $size, $color
So lets say I have three rows returned with the following data:
row1
$itemNum = 'SKU_1';
$price = '30.00';
$description = 'Widget';
$size = '10';
$color = 'Blue';
row2
$itemNum = 'SKU_3';
$price = '20.00';
$description = 'Widget';
$size = '8';
$color = 'Red';
row3
$itemNum = 'SKU_9';
$price = '5.00';
$description = 'Widget';
$size = '4';
$color = 'Green';
Now I am not sure if it is an @list I want or a %hash, but I want to be able
to access this data later on. Also as I stated earlier, the rowcount will not
always be the same, so I am not sure how to incorporate this into a for loop.
Perhaps someone would be kind enough to show me some example code using the
above data.
Thanks,
Jason
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 20:26:28 GMT
From: jlafosse@my-dejanews.com
Subject: Array question ?
Message-Id: <6q56dn$23m$1@nnrp1.dejanews.com>
I have read through the postings, as well as the perl manpages, however I am
still confused on how to solve the following problem. Basically I am pulling
in rows from an SQL database, and I want to be able to place these into an
array. For example the following variables will be pulled out of each row
(and the amount of rows returned will vary):
$itemNum, $price, $description, $size, $color
So lets say I have three rows returned with the following data:
row1
$itemNum = 'SKU_1';
$price = '30.00';
$description = 'Widget';
$size = '10';
$color = 'Blue';
row2
$itemNum = 'SKU_3';
$price = '20.00';
$description = 'Widget';
$size = '8';
$color = 'Red';
row3
$itemNum = 'SKU_9';
$price = '5.00';
$description = 'Widget';
$size = '4';
$color = 'Green';
Now I am not sure if it is an @list I want or a %hash, but I want to be able
to access this data later on. Also as I stated earlier, the rowcount will not
always be the same, so I am not sure how to incorporate this into a for loop.
Perhaps someone would be kind enough to show me some example code using the
above data.
Thanks,
Jason
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 20:28:38 GMT
From: webmaster@vaticanmuseumtreasures.com
Subject: Array question ?
Message-Id: <6q56hm$24p$1@nnrp1.dejanews.com>
I have read through the postings, as well as the perl manpages, however I am
still confused on how to solve the following problem. Basically I am pulling
in rows from an SQL database, and I want to be able to place these into an
array. For example the following variables will be pulled out of each row
(and the amount of rows returned will vary):
$itemNum, $price, $description, $size, $color
So lets say I have three rows returned with the following data:
row1
$itemNum = 'SKU_1';
$price = '30.00';
$description = 'Widget';
$size = '10';
$color = 'Blue';
row2
$itemNum = 'SKU_3';
$price = '20.00';
$description = 'Widget';
$size = '8';
$color = 'Red';
row3
$itemNum = 'SKU_9';
$price = '5.00';
$description = 'Widget';
$size = '4';
$color = 'Green';
Now I am not sure if it is an @list I want or a %hash, but I want to be able
to access this data later on. Also as I stated earlier, the rowcount will not
always be the same, so I am not sure how to incorporate this into a for loop.
Perhaps someone would be kind enough to show me some example code using the
above data.
Thanks,
Jason
================================================================
Jason M. LaFosse
mailto:webmaster@vaticanmuseumtreasures.com
"The most noble & perfect victory is the triumph over one's self"
- Thomas Kempis - Imitation of Christ
"Imitatores mei estote et sicut ego Christi."
("Imitate me as I have imitated Christ.")
- St. Paul
================================================================
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 19:52:05 GMT
From: wilgro@my-dejanews.com
Subject: C/Perl executable
Message-Id: <6q54d5$u9t$1@nnrp1.dejanews.com>
Hello,
Is there a way to call win32 Perl functions from C code and then compile a
single executable. I do not know if Perl will be on the machines that my C
program will be run on so I want to have the Perl libs in my executable and
not as calls to Perl libs. My compile and executing platforms will be many
flavors of UNIX and NT4.0. Any help will be greatly appreciated.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 3 Aug 1998 21:53:30 +0200
From: "Maarten" <mtveermanAD@mindlessDOT.com>
Subject: Re: CGI Perl Postal Digital
Message-Id: <6q54nd$1rs$1@news.worldonline.nl>
Yes
--
--------------------------------------------------------------------------
If you want to email me remove AD and DOT from the following address
mtveermanAD@mindlessDOT.com
topgun wrote in message <35c4e3bb.0@news.arrakis.es>...
>Necesito hacer una pagina Web similar a una de las siguientes paginas pero
>en PERL, sabrma UD decirme como lo podria implementar en el servidor???
>
>Gracias, Juan Antonio Romero
>mailto:romert@arrakis.es
>
>
>
>
------------------------------
Date: Mon, 03 Aug 1998 22:43:57 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: Changing foreign characters
Message-Id: <35C69F9D.5458@comenius.ms.mff.cuni.cz>
CAPEX Capital Exchange Inc. wrote:
>
> In article <901731311.712595@sparc.tibus.net>, Aidan Rogers <aidan@crux.blackstar.co.uk> wrote:
> >I'm currently writing a program in Perl which generates TeX dynamically, and
> >the output of the TeX gets printed. However, TeX barfs any time I try to send
> >it a foreign character, like a-umlaut, or n-tilde and so forth. Does anyone
> >know of a Perl module that will change a-umlauts in to a's, as I have not
> >been able to find one on CPAN. (This could however be down to my lack of
> >experience and general short-sightedness when it comes to finding things that
> >are right in front of me).
> >
> >Any help (including alternative solutions) would be greatly appreciated.
> >
> >Thank,
> >
> >Aidan
> I use the following subroutine for that purpose:
>
> sub bst {my $xyz=$_[0];
> $xyz =~ s/\x84/ae/g;
> $xyz =~ s/\x94/oe/g;
> $xyz =~ s/\x81/ue/g;
> $xyz =~ s/\x9A/Ue/g;
> $xyz =~ s/\x8E/Ae/g;
> $xyz =~ s/\x99/Oe/g;
> return $xyz;}
Maybe he would do better if he used TeX macros for the characters :
sub bst {my $_ = $_[0];
s/a/\\'a/g;
s/m/\\'{\i}/g;
# etc, etc, etc
return $_
}
Jenda
------------------------------
Date: Mon, 3 Aug 1998 15:22:35 -0500
From: "Rod Moore" <rodm@studiopointe.com>
Subject: Comparing two strings and retrieving a difference
Message-Id: <6q567p$g6v$1@newsin-1.starnet.net>
I need to know if there is logic to do the following:
- Compare two strings and determine what is different about them. Once that
difference has been determined, assign it to a variable. The difference
will always be one alpha character.
Example:
$String1 = "SOUR";
$String2 = "POUR";
In this case, the difference is "P", and should be assigned to a variable.
The process needs to determine what the difference is.
Any ideas?
------------------------------
Date: Mon, 03 Aug 1998 20:47:21 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Comparing two strings and retrieving a difference
Message-Id: <35C6234A.1DB8601@shaw.wave.ca>
Rod Moore wrote:
>
> I need to know if there is logic to do the following:
>
> - Compare two strings and determine what is different about them.
> Once that difference has been determined, assign it to a variable.
> The difference will always be one alpha character.
>
There was a thread on this recently called "best way of diffing two
strings". Check out dejanews for some good ideas.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Mon, 3 Aug 1998 14:19:14 -0500
From: Kevin Slanicky <slanicky@students.uiuc.edu>
Subject: Getting email address?
Message-Id: <Pine.SOL.3.96.980803141812.9704A-100000@ux7.cso.uiuc.edu>
Is there any way to get the email address of a user if the script is NOT
located in their home directory?? I've tried whoami and changing to their
home directory with no luck...
Email the reply if you would...
//////////////////////////////
///Kevin Slanicky ///
//University of Illinois ///
/Illini Hockey # 16 ///
--------------------------
------------------------------
Date: Mon, 03 Aug 1998 21:54:36 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Getting email address?
Message-Id: <35C6157C.5BA5FB37@daimi.aau.dk>
Kevin Slanicky wrote:
>
> Is there any way to get the email address of a user if the script is NOT
> located in their home directory?? I've tried whoami and changing to their
> home directory with no luck...
>
perldoc perlfaq9
"How do I return the user's email address?"
------------------------------
Date: 3 Aug 1998 20:31:18 GMT
From: tigger@io.nospaam.com
Subject: HELP: programming with Comm.pl & program structure
Message-Id: <6q56mm$r42$1@hiram.io.com>
Disclaimer: I am a Perl newbie, and something of a programming newbie. I
do shell scripts, I'm comfortable with loop/control concepts, and I'm
reading "Learning Perl", but that's all (so far).
I am trying to build an mp3 (http://www.mp3.com) audio player in perl. It
is going to use a program called rxaudio for the actual decoding. It
passes text messages to and from STDOUT and STDIN. The user will interact
with the player through a controller connected to a serial port. It has a
display with an lcd, and sends back user commands as characters (A-F).
FWIW, this is a project I'm doing in my spare time to go in my car. It
isn't/won't be a commercial product.
My problem is figuring out how to monitor rxaudio messages (using
Comm.pl's &expect function right now) and the controller at the same time.
If I put everything in one loop, then the loop has timing problems (timing
out with &expect after one-second intervals), so user input would only be
checked once a second in some cases. It seems like I need two different
loops running at the same time, one for the player, and one for the
controller. I just have no idea what is the best way to do this. I'm not
looking for actual code, but if anyone could give me suggestions on what
might work best on a conceptual level, I would greatly appreciate it.
Right now things that I've
seen that look like possibilities are fork/exec, OO programming (creating
two separate looping objects), and threads (which I understand 5.005 is
supporting at the OS level).
Thanks a lot,
Paul Archer
PS. Here is a bit of sample code I've been playing with to get a feel for
using Comm.pl's &expect. It opens and plays a file while displaying the
time code that comes preformatted out of rxaudio, skips ahead when it gets
to a certain time in the file, and then exits when the file finishes
playing.
#!/usr/bin/perl
require 'Comm.pl';
&Comm'init();
$|=1;
( $Proc_pty_handle, $Proc_tty_handle, $pid ) = &open_proc( "rxaudio" );
die "open_proc failed" unless $Proc_pty_handle;
$ready='MSG notify ready'; # These are possible messages that
$ack='XA_MSG_COMMAND_INPUT_OPEN'; # rxaudio can spit out. They really
$eof='EOF'; # should be in an array.
$time='\[00.*\]';
print "Here we go.\n";
LOOP: {
print "X\n";#Just lets me know each time the loop starts...
( $match, $err ) = &expect($Proc_pty_handle,2 , $ready, $ack, $eof, $time );
if ($match eq $ready) { print "Opening file.\n";
print $Proc_pty_handle "open neuro.mp3\n";}
if ($match eq $ack) {print "Playing file.\n";
print $Proc_pty_handle "play\n";}
if ($match eq '[00:00:05:00]') {print "Skipping\n";
print $Proc_pty_handle "seek 35 40\n";}
if ($match eq $eof) {print "Exiting\n";
print $Proc_pty_handle "exit\n";
last LOOP;}
if ( $err ) { print "Aborting, err($err)\n"; last; }
if ( $match eq "\003" ) { print "Got control-C\n"; last; }
print " ".$match."\n";
redo LOOP;
}
print "Finished\n";
--
_________________________________________________________________
* Tech Support: "I need you to boot the computer."
* Customer: (THUMP! Pause.) "No, that didn't help."
_________________________________________________________________
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3330
**************************************
