[19764] in Perl-Users-Digest
Perl-Users Digest, Issue: 1959 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 18 18:05:44 2001
Date: Thu, 18 Oct 2001 15:05:10 -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: <1003442710-v10-i1959@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 18 Oct 2001 Volume: 10 Number: 1959
Today's topics:
[OT] Re: precedence question <joe+usenet@sunstarsys.com>
Any modules to help printing html files? <jonf@rgb.com>
Re: Any modules to help printing html files? <jurgenex@hotmail.com>
Re: Array as a variable <c_clarkson@hotmail.com>
Re: Change Last Modified for all files in a directory (BUCK NAKED1)
Re: Checking a line of string <c_clarkson@hotmail.com>
collection of benchmark scripts (Miko O'Sullivan)
Re: Faster than split "\n", $txt; <c_clarkson@hotmail.com>
How to store C Structure pointer in perl <jkumar@atrenta.com>
Re: How to store C Structure pointer in perl <rereidy@indra.com>
Re: IE6 Error - Perl Output <Jon.Ericson@jpl.nasa.gov>
just a quicky <trullock@yahoo.com>
Re: just a quicky <jeff@vpservices.com>
Re: just a quicky <trullock@yahoo.com>
Re: just a quicky <vmurphy@Cisco.Com>
Re: just a quicky <jeff@vpservices.com>
Re: just a quicky <trullock@yahoo.com>
Re: just a quicky <tsee@gmx.net>
Re: just a quicky <jurgenex@hotmail.com>
Re: need ideas for two-way associative array <dtweed@acm.org>
Re: Perl CGI problem printing Javascript... <bart.lateur@skynet.be>
Re: Programmer Newbie <tsee@gmx.net>
Re: putting $1..$9 into a replacement string such as $r (Joe Smith)
Re: putting $1..$9 into a replacement string such as $r (Joe Smith)
Reconciliation module <chawig@eplus-online.de>
Re: Regex: extracting repeating values like x=a,b,c,d <dover@nortelnetworks.com>
rename return value <arfry@lineone.net>
Re: Scaling a DNA string <darkon@one.net>
serial comm on Win2000 (harris)
Re: serial comm on Win2000 <tsee@gmx.net>
Re: Splitting on value pairs <mbudash@sonic.net>
Stange DBI Error <brad_watts@attcanada.net>
Re: Trying to call a Perl script from Perl <ajohnson_no_spam@purplemountain.net>
Using XML::Simple on Access 2002 generated XML: Working <jemptyg@rwmc.net>
Re: win32::TieRegistry Print problem... <ra990866@ic.unicamp.br>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Oct 2001 14:18:08 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: [OT] Re: precedence question
Message-Id: <m3sncgak2n.fsf_-_@mumonkan.sunstarsys.com>
"Stefan Weiss" <weiss@kung.foo.at> writes:
> "Clinton A. Pierce" <clintp@geeksalad.org> wrote:
>
> > [Note that "undefined" means that it's perfectly acceptable for the
> > compiler to cause monkeys to come flying out of the programmer's butt
> > playing Beethoven's 5th symphony on the banjo with their teeth.]
>
> %whoops_undefined = (
> c => "demons from programmer's nose",
> perl => "monkeys from programmer's butt",
> ....
> );
>
> http://www.science.uva.nl/~mes/jargon/n/nasaldemons.html
>
> Makes you wonder what a LISP interpreter would do...
Well whatever it did, I'm sure it would be as impressive
to the William Faulkner PEN panelists as was the opening
sentence to Donald Antrim's _The Hundred Brothers_.
--
Joe Schaefer "Always forgive your enemies; nothing annoys them so much."
-- Oscar Wilde
------------------------------
Date: 18 Oct 2001 20:33:07 GMT
From: "Jon Feldhammer" <jonf@rgb.com>
Subject: Any modules to help printing html files?
Message-Id: <9qnea3$ko2@dispatch.concentric.net>
I need to be able to print an html file I generate with a perl program. The
problem is if this file goes beyond one page. I want a header for the
second page, so the program needs to recognize when the second page begins
and the first page ends.
Has anyone encountered/worked through this problem before?
Thanks in advance,
Jon
------------------------------
Date: Thu, 18 Oct 2001 14:38:34 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Any modules to help printing html files?
Message-Id: <3bcf4bd8$1@news.microsoft.com>
"Jon Feldhammer" <jonf@rgb.com> wrote in message
news:9qnea3$ko2@dispatch.concentric.net...
> I need to be able to print an html file I generate with a perl program.
The
> problem is if this file goes beyond one page. I want a header for the
> second page, so the program needs to recognize when the second page begins
> and the first page ends.
>
> Has anyone encountered/worked through this problem before?
What you ask for is impossible to achieve without client side scripting. The
server cannot know the size of the browser window on the client (or the
paper size on the client printer for that matter). And if I'm using e.g.
large fonts then all bets are off anyway (unless you hardcode the font size
which is bad for accessibility).
If you want the concept of a "physical page" then you should use PDF or
Postscript instead of HTML.
jue
------------------------------
Date: Thu, 18 Oct 2001 13:12:10 -0500
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: Array as a variable
Message-Id: <tsuchp990h3m18@corp.supernews.com>
"Blnukem" <blnukem@hotmail.com> wrote:
: Hi All
:
: I need help with this, What I'm trying to do is retrieve a
: form "value" that is always different. 1-10 fist page
11-20
: next page and so on I cant seem to figure it out. I can
get
: "$0 = $FORM{'0'} $1 = $FORM{'1'}" pushed into an array but
: how can I assign each in the array as a variable to be
used
: in the script?
:
: print "Content-type: text/html\n\n"
:
: for ($i = 0; $i < 10; $i +=1 ) {
: push (@TEMP, "\$$i = \$FORM{'$i'}\;\n" )
: }
:
: print @TEMP; # just so I can view the array.
:
I assume your using cgi-lib.pl or a subroutine
to get your form variables. So %FORM may be hash
imported into your namespace and you access it to
retrieve the values of certain fields in a form.
It seems you want to place some of the %FORM
hash values in an array. (I am not certain what
your asking.) This can easily be done with a hash
slice:
my @temp = @FORM{1 .. 10};
print @temp;
Note that %FORM does not need the single quotes
around its keys. In modern perl, $FORM{'1'} is
equivalent to $FORM{1}. If your not stuck with a
server that won't update perl, use the latter
notation. If you find the first notation in a
script, it is probably an old script and needs
updating. It is most likely insecure.
A hash slice allows you to access more than one
hash value at a time. It uses the @ prefix just as
we use the $ prefix to access one value of the hash.
Valid slices could include:
@FORM{name, address}
@FORM{1, 3, 5, 7}
@FORM{1 .. 10}
Note that many will encourage you to use CGI.pm
for your cgi scripts. CGI.pm is more common today
and you'll find it easier to obtain help. If I
haven't answered your question, please provide a
better idea of what you want to do with the form
info.
HTH,
Charles K. Clarkson
Clarkson Energy Homes, Inc.
It is not our preferences that cause problems but our
attachment to them.
- Buddha
------------------------------
Date: Thu, 18 Oct 2001 13:18:16 -0500 (CDT)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: Re: Change Last Modified for all files in a directory
Message-Id: <16029-3BCF1CE8-32@storefull-245.iap.bryant.webtv.net>
> bart.lateur@skynet.be (Bart=A0Lateur)
> > BUCK NAKED1 wrote:
> > > I thought just a plain "Cntrl R" was reloading it.
> > Hold Ctrl down and press the button in > > the toolbar (or press
F5). Or was it
> > Shift? No, that's Netscape...
Thanks Bart. FWIW, I'd use Netscape more often if I knew how to keep
that kernel 32 error from locking me up all the time. So much to
learn...
Regards,
Dennis
------------------------------
Date: Thu, 18 Oct 2001 13:53:39 -0500
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: Checking a line of string
Message-Id: <tsuchqautt0c19@corp.supernews.com>
"Sasha" <sasha_lui@yahoo.com> wrote:
: Hi
: I am writing a program which receives one line at a
: time. Each line may have some comment marked # or
: data containing name and phone number, I was
: wodering if some one could tell me how can I skips
: or ignore the data started or after # skips a line
: if it starts with # or skips a line with more than
: two words and save the lines data if it has two
: words.
:
: The data in a line looks like this
:
: # Here is an example of line data
:
: Peter 2131111111 # correct data it should be
saved
:
: Andre 212112 333333 # Wrong data and it should be
ignored
:
: Mark 212112 Angel # Wrong data and it should
be ignored
:
:
:
: My program looks like :
:
:
:
: If (open (MYFILE, "data.dat")){
:
: $line = <MYFILE>;
:
: while ($line ne "") # Not end of file {
:
: if (it_is_ a_comment ){ } #dont save it
:
: if (it_is_ a_wrong ){ } # dont save it
:
: if (it_is_correct){ #save it }
:
: }
:
: }
:
Assuming you want to save the data to an array
of arrays (AoA):
use Data::Dumper;
my @phone_list;
{
my $file_name = 'myfile.txt';
open my $fh, $file_name or die "Can not open $file_name:
$!";
while (<$fh>) {
my ($name, $phone) = (split ' ')[0, 1];
next unless $name and $phone and $phone =~ /\d{10}/;
push @phone_list, [$name, $phone];
}
}
print Dumper \@phone_list;
__END__
HTH,
Charles K. Clarkson
Clarkson Energy Homes, Inc.
You can lead a man to logic, but you can't make him think.
------------------------------
Date: 18 Oct 2001 14:05:01 -0700
From: miko@idocs.com (Miko O'Sullivan)
Subject: collection of benchmark scripts
Message-Id: <db27ea77.0110181305.99cc151@posting.google.com>
During a recent project it was necessary for us to absolutely maximize
the efficiency of one module in particular. (For other modules it was
ok to sacrifice a little bit of CPU efficiency in favor of short
development time.) That situation got me curious about the relative
efficiency of various common situations in Perl programming. For
example, what is the most efficient way to assign variables in a
subroutine to the arguments that were passed in? What's the most
efficient way to iterate through each character of a long string? You
get the idea.
I wrote a small collection of scripts to benchmark various techniques.
I invite you to look at these scripts and comment on them. Do they
really test the concepts they purport to test? Are the concepts
actually more complicated than the scripts suggest? Am I committing
heresy? Did the scripts rock your world?
The scripts are available at ftp://ftp.idocs.com/pub/benchmarks.tar.gz
Some of the results of my tests aren't very suprising. Yup, it sure
looks like one print statement to output five strings is faster than
five print statements outputting one string each.
OTOH, there were some surprises (at least for me). One of the scripts
tests the different techniques for assigning subroutine arguments to
variables. Basically, this:
my ($name, $email, $msg) = @_;
vs this:
my $name = shift;
my $email = shift;
my $msg = shift;
The tests I ran gave different results on different machines. The
first technique ran faster on a BSD box, the second technique ran
faster on a Linux box:
BSD:
multiple shifts, one per line: 10.37 CPU
multiple shifts in an array: 10.70 CPU
@_: 8.26 CPU
Linux:
multiple shifts, one per line: 7.22 CPU
multiple shifts in an array: 7.22 CPU
@_: 7.64 CPU
-Miko
------------------------------
Date: Thu, 18 Oct 2001 13:57:11 -0500
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: Faster than split "\n", $txt;
Message-Id: <tsuchrcf88hf1a@corp.supernews.com>
"Mario Rizzuti" <mariorizzuti@yahoo.com> wrote:
: What is the *fastest* way to split a string in lines?
The fastest method would be to receive the string
already split. Is it possible to change the way you
receive your data?
------------------------------
Date: Thu, 18 Oct 2001 14:33:05 -0700
From: Jayakumar Mundunuri <jkumar@atrenta.com>
Subject: How to store C Structure pointer in perl
Message-Id: <3BCF4A90.81583CD5@atrenta.com>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
HI Friends!!
<p>I required to checkout / checkin some license features from perl.
<br>We have our license libraries built in C and whenever I checkout
<br>a feature ( through XS ) it will returns a handle ( structure pointer
).
<br>I need to store some how this handle in perl and need to use it
<br>when I checkin the feature back.
<p>Can anybody suggest me how shall I store this value in perl?
<p>Thanks in advance.
<p>jay
<br> </html>
------------------------------
Date: Thu, 18 Oct 2001 15:41:52 -0600
From: Ron Reidy <rereidy@indra.com>
Subject: Re: How to store C Structure pointer in perl
Message-Id: <3BCF4CA0.8B4D4E8D@indra.com>
Jayakumar Mundunuri wrote:
>
> HI Friends!!
>
> I required to checkout / checkin some license features from perl.
> We have our license libraries built in C and whenever I checkout
> a feature ( through XS ) it will returns a handle ( structure pointer
> ).
> I need to store some how this handle in perl and need to use it
> when I checkin the feature back.
>
> Can anybody suggest me how shall I store this value in perl?
>
> Thanks in advance.
>
> jay
>
use Storable;
--
Ron Reidy
Oracle DBA
Reidy Consulting, L.L.C.
------------------------------
Date: 18 Oct 2001 11:30:23 +0000
From: Jon Ericson <Jon.Ericson@jpl.nasa.gov>
Subject: Re: IE6 Error - Perl Output
Message-Id: <86d73lrxrk.fsf@jon_ericson.jpl.nasa.gov>
"RSL" <rlally1@nycap.rr.com> writes:
> This is a Perl Misc. newsgroup, No? Misc. meaning misc. items
> dealing with Perl?
Not really. "Miscellaneous" is defined by the people who regularly
read and contribute to this group. You are expected to read the
discussion for a week or two to find out what newsgroup is about
*before* trying to contribute.
> My question is very Perl related especially for a MISC newsgroup.
> The server apparently has a 404 sitting around in some variable.
> From within a Perl script can this variable be changed?
To quote from perlfaq9:
If you can demonstrate that you've read the following FAQs and that
your problem isn't something simple that can be easily answered,
you'll probably receive a courteous and useful reply to your
question if you post it on comp.infosystems.www.authoring.cgi (if
it's something to do with HTTP, HTML, or the CGI protocols).
Questions that appear to be Perl questions but are really CGI ones
that are posted to comp.lang.perl.misc may not be so well received.
The useful FAQs and related documents are:
CGI FAQ
http://www.webthing.com/tutorials/cgifaq.html
Web FAQ
http://www.boutell.com/faq/
WWW Security FAQ
http://www.w3.org/Security/Faq/
HTTP Spec
http://www.w3.org/pub/WWW/Protocols/HTTP/
HTML Spec
http://www.w3.org/TR/REC-html40/
http://www.w3.org/pub/WWW/MarkUp/
CGI Spec
http://www.w3.org/CGI/
CGI Security FAQ
http://www.go2net.com/people/paulp/cgi-security/safe-cgi.txt
> What is so difficult about this question? It is Perl related
> because I am using Perl.
So if you had written the script in lisp it would be on-topic in
comp.lang.lisp? If you had written a static HTML page in XEmacs it
would be on-topic for comp.emacs.xemacs? You managed to assign the
most importance to the element of your problem with the least
relevance. It's ok to be wrong, but not to be stubbornly wrong.
Jon
--
"Consider carefully what you hear," he continued. "With the measure
you use, it will be measured to you--and even more. Whoever has
will be given more; whoever does not have, even what he has will be
taken from him." -- Mark 4:24-25 (NIV)
------------------------------
Date: Thu, 18 Oct 2001 20:18:50 +0100
From: "']['rull" <trullock@yahoo.com>
Subject: just a quicky
Message-Id: <zRFz7.6045$sF.649520@news2-win.server.ntlworld.com>
why doesnt this code work?
$listof = "";
foreach $result (@searchable) {
if ($listof =~ m/$result/) {
} else {
$listof = $listof . "$result\;";
}
}
@searchable contains 100s of entrys, some of which are the same, what i want
to do, is have a new array/string that contains only one copy of each entry.
meaning:
if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
@list (or $list) needs to contain a,b,c,d,e,g,f
whats the best way to do this?
cheers
--
']['rull
------------------------------
Date: Thu, 18 Oct 2001 12:23:05 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: just a quicky
Message-Id: <3BCF2C19.BAB53F79@vpservices.com>
"']['rull" wrote:
>
> if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
>
> @list (or $list) needs to contain a,b,c,d,e,g,f
>
> whats the best way to do this?
perlodc -q duplicate
--
Jeff
------------------------------
Date: Thu, 18 Oct 2001 20:33:09 +0100
From: "']['rull" <trullock@yahoo.com>
Subject: Re: just a quicky
Message-Id: <%2Gz7.6195$sF.665595@news2-win.server.ntlworld.com>
"Jeff Zucker" <jeff@vpservices.com> wrote in message
news:3BCF2C19.BAB53F79@vpservices.com...
> "']['rull" wrote:
> >
> > if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
> >
> > @list (or $list) needs to contain a,b,c,d,e,g,f
> >
> > whats the best way to do this?
>
>
> perlodc -q duplicate
>
> --
> Jeff
>
erm....
what exactly do i do with that?
/me appologises for being uneducated
--
']['rull
------------------------------
Date: 18 Oct 2001 15:34:10 -0400
From: Vinny Murphy <vmurphy@Cisco.Com>
Subject: Re: just a quicky
Message-Id: <m3sncgrbd9.fsf@vpnrel.cisco.com>
"']['rull" <trullock@yahoo.com> writes:
> why doesnt this code work?
>
> $listof = "";
> foreach $result (@searchable) {
> if ($listof =~ m/$result/) {
> } else {
> $listof = $listof . "$result\;";
> }
> }
>
> @searchable contains 100s of entrys, some of which are the same, what i want
> to do, is have a new array/string that contains only one copy of each entry.
>
> meaning:
>
> if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
>
> @list (or $list) needs to contain a,b,c,d,e,g,f
>
> whats the best way to do this?
TMTOWTDI. Here is one way:
@searchable = grep ! $seen{$_}++ => @searchable;
--
Vinny
------------------------------
Date: Thu, 18 Oct 2001 12:34:46 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: just a quicky
Message-Id: <3BCF2ED6.A35576C1@vpservices.com>
"']['rull" wrote:
>
> "Jeff Zucker" <jeff@vpservices.com> wrote in message
> news:3BCF2C19.BAB53F79@vpservices.com...
> > "']['rull" wrote:
> > >
> > > if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
> > >
> > > @list (or $list) needs to contain a,b,c,d,e,g,f
> > >
> > > whats the best way to do this?
> >
> >
> > perlodc -q duplicate
> >
> > --
> > Jeff
> >
>
> erm....
>
> what exactly do i do with that?
Go to the command prompt and type it and press enter and perl will
explain how to do what you want. For more information on using it, type
"perldoc perldoc".
--
Jeff
------------------------------
Date: Thu, 18 Oct 2001 20:48:15 +0100
From: "']['rull" <trullock@yahoo.com>
Subject: Re: just a quicky
Message-Id: <9hGz7.6353$sF.681646@news2-win.server.ntlworld.com>
cheers matey
:OD
--
']['rull
"Vinny Murphy" <vmurphy@Cisco.Com> wrote in message
news:m3sncgrbd9.fsf@vpnrel.cisco.com...
> "']['rull" <trullock@yahoo.com> writes:
>
> > why doesnt this code work?
> >
> > $listof = "";
> > foreach $result (@searchable) {
> > if ($listof =~ m/$result/) {
> > } else {
> > $listof = $listof . "$result\;";
> > }
> > }
> >
> > @searchable contains 100s of entrys, some of which are the same, what i
want
> > to do, is have a new array/string that contains only one copy of each
entry.
> >
> > meaning:
> >
> > if @searchable contains a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
> >
> > @list (or $list) needs to contain a,b,c,d,e,g,f
> >
> > whats the best way to do this?
>
> TMTOWTDI. Here is one way:
>
> @searchable = grep ! $seen{$_}++ => @searchable;
>
> --
> Vinny
------------------------------
Date: Thu, 18 Oct 2001 22:32:17 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: just a quicky
Message-Id: <9qne60$mhp$02$1@news.t-online.com>
"']['rull" <trullock@yahoo.com> schrieb im Newsbeitrag
news:%2Gz7.6195$sF.665595@news2-win.server.ntlworld.com...
|
| "Jeff Zucker" <jeff@vpservices.com> wrote in message
| news:3BCF2C19.BAB53F79@vpservices.com...
| > "']['rull" wrote:
| > >
| > > if @searchable contains
a,a,a,a,b,b,b,b,c,c,c,d,d,e,d,d,e,d,e,g,g,g,f,g,
| > >
| > > @list (or $list) needs to contain a,b,c,d,e,g,f
| > >
| > > whats the best way to do this?
| >
| >
| > perlodc -q duplicate
| >
| > --
| > Jeff
| >
|
| erm....
|
| what exactly do i do with that?
Type it into your console.
Hit [ENTER].
Voilà.
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: Thu, 18 Oct 2001 14:45:23 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: just a quicky
Message-Id: <3bcf4d71@news.microsoft.com>
"']['rull" <trullock@yahoo.com> wrote in message
news:zRFz7.6045$sF.649520@news2-win.server.ntlworld.com...
> @searchable contains 100s of entrys, some of which are the same, what i
want
> to do, is have a new array/string that contains only one copy of each
entry.
[...]
> whats the best way to do this?
Any special problems with PerlFAQ4?
"How can I remove duplicate elements from a list or array?"
Granted, it is not trivial to find because neither "perldoc -q single" nor
"perldoc -q uniq" will find the entry.
You must use "perldoc -q duplicate".
jue
------------------------------
Date: Thu, 18 Oct 2001 18:12:20 GMT
From: Dave Tweed <dtweed@acm.org>
Subject: Re: need ideas for two-way associative array
Message-Id: <3BCF1A27.7FBDA606@acm.org>
Ted Zlatanov wrote:
> Basically, I need to associate two lists with a many-to-many
> relationship. If the lists are A and B, we need to associate A1 with
> B1, B2, and B3, and A2 with B3 and B1.
>
> A1 -> { B1, B2, B3 }
> A2 -> { B1, B3 }
>
> This is easy to do with hashes. But what if I want to know what the
> associations of B1 (A1 and A2) are? I have to generate them on the
> fly from the associations in the A list, or I have to keep two
> separate hashes and keep them synchronized. The first way is
> inefficient, the second way creates a lot of extra work.
The second way should be fairly straightforward; no module needed,
and it's exactly twice as much work as doing a single hash.
my %avals;
my %bvals;
# create a bidirectional relationship
# Note that undef creates the key without assigning a value to it;
# this is slightly more efficient than assigning an explicit value,
# but you need to use exists instead of defined to test for the key
# later.
undef $avals{'A1'}{'B1'};
undef $bvals{'B1'}{'A1'};
# destroy a bidirectional relationship
delete $avals{'A1'}{'B1'};
delete $bvals{'B1'}{'A1'};
# all of the bvals assocated with an aval
@list = keys %{$avals{'A1'}};
# is a particular bval associated with a particular aval?
if (exists $avals{'A1'}{'B1'}) ... # or exists $bvals{'B1'}{'A1'}
-- Dave Tweed
------------------------------
Date: Thu, 18 Oct 2001 21:41:12 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Perl CGI problem printing Javascript...
Message-Id: <l1justgru8tpsphvca22172831n1iepbm6@4ax.com>
BUCK NAKED1 wrote:
><SCRIPT LANGUAGE="Javascript" SRC="www.pschallenge.com/cgi-bin/bc.pl"
>type="text/javascript">
></script>
>
>Don't know if this is what's causing your prob, but you're using
>"<script language=javascript... blah... type=text/javascript>", and then
>you use a PERL file for your script file. IOW, shouldn't your SRC file
>end in .js, and be a JAVASCRIPT file?
I would think that he's using a CGI script tpo generate the source of
the Javascript?
Maybe try appending "/foo.js" after your URL. If your server doesn'
barf, it might work.
<SCRIPT LANGUAGE="Javascript"
SRC="www.pschallenge.com/cgi-bin/bc.pl/foo.js" type="text/javascript">
</script>
--
Bart.
------------------------------
Date: Thu, 18 Oct 2001 21:29:16 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: Programmer Newbie
Message-Id: <9qnaoq$1an$00$1@news.t-online.com>
"Jasper McCrea" <jasper@guideguide.com> schrieb im Newsbeitrag
news:3BCEBDC0.8D553E26@guideguide.com...
[snip]
| or we could go mad
|
| for my $y (0..7) {
| print qw(O X)[($_ + $y) % 2] for (0..7);
| print $/;
| }
hmm, mad.
Nobody said, this wasn't alright:
print <<'here';
xoxoxoxo
oxoxoxox
xoxoxoxo
oxoxoxox
xoxoxoxo
oxoxoxox
xoxoxoxo
oxoxoxox
here
;)
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: Thu, 18 Oct 2001 21:31:03 +0000 (UTC)
From: inwap@best.com (Joe Smith)
Subject: Re: putting $1..$9 into a replacement string such as $repl="=csinfo$1$2^$3"
Message-Id: <9qnhmm$1ffo$1@nntp1.ba.best.com>
In article <187c116b.0110160527.41129d83@posting.google.com>,
=?ISO-8859-1?Q?sh=F2wd=F6g?= <showdog@my-deja.com> wrote:
>Bernard El-Hagin <bernard.el-hagin@lido-tech.net> wrote in message news:<slrn9sno35.85e.bernard.el-hagin@gdndev25.lido-tech>...
>> On 15 Oct 2001 14:44:07 -0700, shòwdög <showdog@my-deja.com> wrote:
>> I don't understand this. The way $_ is interpreted depends
>> on how it's quoted.
>
>while <FOO> {
> print;
>}
>
>In that context?
None.
$a = {$_};
is not the same as
$a = "$_";
since the former makes a verbatim copy of the variable (or object)
while the latter executes a "stringify" operation on the double quoted
string. With 'use overload' the programmer can redefine what
"stringify" means to a blessed object.
>This is not important to me anyway. What I REALLY need is an answer
>to the first q I posted. Its got me and my development team stumped!!!
Try analyzing this bit of code. The difference between #1 and #2 is
subtle but important in understanding how s///e works.
sub foofoo { return "function-called"; }
$srch = '(foo)';
$repl = '$1 x 2';
$_ = "0(foo)bar\n"; s/$srch/$1 x 2/; print $_; #0(foo x 2)bar
$_ = "1(foo)bar\n"; s/$srch/$repl/; print $_; #1($1 x 2)bar
$_ = "2(foo)bar\n"; s/$srch/$repl/e; print $_; #2($1 x 2)bar
$_ = "3(foo)bar\n"; s/$srch/$1 x 2/e; print $_; #3(foofoo)bar
$_ = "4(foo)bar\n"; s/$srch/$repl/ee; print $_; #4(foofoo)bar
$_ = "5(foo)bar\n"; s/$srch/$1 x 2/ee; print $_;#5(function-called)bar
$_ = "6(foo)bar\n"; s/$srch/$repl/eee; print $_;#6(function-called)bar
#0: " x 2" are literal characters, $1 is substituted after match.
#1: The contents of $repl are interpolated, like variables in double quotes.
"$1 x 2" are six characters; dollarsign, one, blank, x, blank, two.
#2: Treat RH of s/// as {$repl} instead of as "$repl"; results are the same.
#3: Treat /$1 x 2/ as a block of code instead of as a double-quoted string.
The code is executed, which says to take the current value of $1 and
make two copies. Put the result into $_ with no further interpretation.
#4: Like #2, but eval the resultant string - eval('$1 x 2').
#5: Like #3, but evaluate the resultant string. Execute foofoo().
#6: Like #4 with another eval: eval('eval q(eval {$repl})')
= eval('eval q( $1 x 2)')
= eval(' foofoo')
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Thu, 18 Oct 2001 21:38:40 +0000 (UTC)
From: inwap@best.com (Joe Smith)
Subject: Re: putting $1..$9 into a replacement string such as $repl="=csinfo$1$2^$3"
Message-Id: <9qni50$1fgg$1@nntp1.ba.best.com>
In article <187c116b.0110160533.6febc1c9@posting.google.com>,
=?ISO-8859-1?Q?sh=F2wd=F6g?= <showdog@my-deja.com> wrote:
>Thanks Joe! That's what I thought. I'm still perplexed though, as
>this relates to my original question
I posted a small sample program to another reply on this thread.
It shows that if you are using a variable in the second half of s///,
you'll need to add one more "e" than expected, due to the subtle
difference between 'eval {$_}' versus 'eval "$_"'.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Thu, 18 Oct 2001 23:17:49 +0200
From: Martial Chateauvieux <chawig@eplus-online.de>
Subject: Reconciliation module
Message-Id: <3BCF46FD.6070200@eplus-online.de>
Hi,
We are curently preparing a Perl module which we want to make our life
easier when writing reconciliation programs.
A reconciliation program is a program which tries to establish
connection between two data sources. The variant currently implemented
is actually a kind of diff which works on records and fields, instead of
lines. We actually suuport two types of data sources DBI and files (CSV
files is implemented, Spreadsheet::ParseExcel should follow)
The module should be ready for a first release in the middle of next
week. We are currently looking for a name.
We currently think of releasing under the Misc group and give it the
name Reconciliation.
Any better sugestions ??
Thanks very much
Martial
------------------------------
Date: Thu, 18 Oct 2001 14:32:15 -0500
From: "Bob Dover" <dover@nortelnetworks.com>
Subject: Re: Regex: extracting repeating values like x=a,b,c,d
Message-Id: <9qnaii$s6$1@bcarh8ab.ca.nortel.com>
"Alexander Farber (EED)" wrote...
>
> everyone on c.l.p.m. loves regex problems, right? :-)
> [...snip...]
> But then it would also match "lonely" strings like BLAH&H'4BD4
> also when they are not prepended by the assignment IA=...
The best regex expressions are those that can be easily understood.
I'd approach the problem by first prescaning a line to identify the
occurrence of a "x=..." string, scan back/forward to delineate the
string, extract it and parse with a simple regex.
It might not be the fastest way to do the job, but there's alot to
be said for support, maintainability, and extendability.
YMMV.
------------------------------
Date: Thu, 18 Oct 2001 22:12:51 +0100
From: "Andrew Fry" <arfry@lineone.net>
Subject: rename return value
Message-Id: <3bcf45c1_1@mk-nntp-1.news.uk.worldonline.com>
Im using rename to rename directories and files in a tree.
It renames all files OK, but not the directories.
However, the odd thing is that it returns 0 (false) in ALL cases - even upon
success.
I dont understand - the books say it returns 1 (true) upon success. What's
going on ?
---
Andrew F
------------------------------
Date: Thu, 18 Oct 2001 20:52:05 -0000
From: David Wall <darkon@one.net>
Subject: Re: Scaling a DNA string
Message-Id: <Xns913EAB57FAAB4darkononenet@207.126.101.97>
mgjv@tradingpost.com.au (Martien Verbruggen) wrote on 18 Oct 2001:
> On Wed, 17 Oct 2001 22:52:57 -0400,
> DocDodge <DocDodge@hotmail.com> wrote:
>
>> As you may know, the DNA which codes for all the instructions of life
>> is simply a string composed of the four characters A, C, G, or T. We
>> have experimental evidence that suggests that a motif composed of
>> four G's or four C's in a row might have implications for how some
>> genes are regulated. But, it would matter how close these motifs are
>> to the genes they are suppose to control.
[snip]
>> So, I grabbed 2000 characters from nearby an important gene and
>> stored it in a string. Here is what part of that might look like:
>>
>> ...ACGACGTCCAGGGGGGTTGTTACGTCCCCAATCAGTCGGGGCTATTCAGTC...
>>
>> Next I replaced all the unimportant characters with at dash so we can
>> see where these motifs are:
>>
>> ...----------GGGGGG---------CCCC--------GGGG----------...
>>
>> But as you might imagine, I'm having trouble printing out these 2000
>> character long strings in a readable format. What I need to do is
>> scale the string down to a reasonable size.
[snip]
>
> What about coming up with a totally different encoding scheme? One
> that simply tells you how many repeats it's seen? Your string would be
> encoded as
>
> -10G6-9C4-8G4-10
>
> or maybe
>
> -10 G6 -9 C4 -8 G4 -10
>
> Mine would be:
>
> -3 C4 -1 G5 -2 C7 -2 G8 -2 C4 -2
>
> The more repetition there is, the more compression you get. You could
> even consider not putting the minuses in.
>
> 3 C4 1 G5 2 C7 2 G8 2 C4 2
Now I feel silly. I like this idea better than what I did first, but with
a slight modification:
$sequence =~ s/(C{4,}|G{4,})/lc $1/ge;
$sequence =~ tr/AGTC/-/;
$sequence =~ s/(-+)/" ".(length $1)." "/ge;
$sequence =~ s/^ +//;
my $count = 1;
for ( split /\s+/, $sequence ) {
printf "%6d ", $count;
my $position = $count + 1;
if ( /\d+/ ) {
$count += $_ - 1;
}
else {
$count += length($_) + 1;
printf "%20s at %5d \n", $_, $position;
}
}
printf "%6d\n", $count;
__END__
Sample output:
1 520 gggg at 521
525 549 ccccc at 550
555 817 ccccc at 818
823 1040 cccc at 1041
1045 1105 ccccc at 1106
1111 1120 ggggg at 1121
1126 1187 gggg at 1188
1192 1232 ggggggg at 1233
1240 1270 gggg at 1271
1275 1383 gggg at 1384
1388 1463 cccc at 1464
1468 1484 ccccc at 1485
1490 1541 cccc at 1542
1546 1681 gggg at 1682
1686 1738 ggggg at 1739
1744 1977 cccc at 1978
1982 2000
From position 1 to 520, no motifs. Then we have gggg at 521 to 524,
nothing interesting from 525 to 549, etc... The two leftmost columns
aren't really necessary, but they were useful in detecting off-by-one
errors in the code. I'm sure other tweaks can be made if this suits the
OP's purpose, as well as cleaning up the code a bit.
--
David Wall
darkon@one.net
------------------------------
Date: 18 Oct 2001 11:48:00 -0700
From: harris_m@yahoo.com (harris)
Subject: serial comm on Win2000
Message-Id: <af968c64.0110181048.31edb018@posting.google.com>
Hi,
I tried using Win32API::CommPort module to send and receive some text
data over serial port.
My test prog as follows (which fails)-
use Win32API::CommPort;
$PortName = "COM2";
$PortObj = new Win32API::CommPort ($PortName) || die "Can't open
$PortName: $^E\n";
Reason to fail is "CommPort.pm" uses Win32::API and it can not find
Win32::API module file.
I searched for API.pm on my machine as well on CPAN but could not find
it.
My perl version is ActiveState Perl 5.6.1 for Win32 multithread
Question:
1. Any one tried to use Win32API::CommPort and had similar problem?
Any solution found?
2. Any one tried serial comm on Win2000 using Perl?
Thank you,
Harris M.
------------------------------
Date: Thu, 18 Oct 2001 21:12:15 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: serial comm on Win2000
Message-Id: <9qn9fo$dfj$02$1@news.t-online.com>
"harris" <harris_m@yahoo.com> schrieb im Newsbeitrag
news:af968c64.0110181048.31edb018@posting.google.com...
[snip]
| My perl version is ActiveState Perl 5.6.1 for Win32 multithread
|
| Question:
| 1. Any one tried to use Win32API::CommPort and had similar problem?
| Any solution found?
| 2. Any one tried serial comm on Win2000 using Perl?
Neither.
But I read something about it in the ActiveState Perl FAQ. Something like
you're supposed to use COM? and similar as a filehandle (umm, pipe).
Never tried it, I suggest you have a look at the FAQ yourself.
Hope I could be of a little help,
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: Thu, 18 Oct 2001 18:43:20 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Splitting on value pairs
Message-Id: <mbudash-3E96DA.11432418102001@news.sonic.net>
In article <IFuz7.22$wo2.221240@news.interact.net.au>, "Tintin"
<tintin@snowy.calculus> wrote:
> "Michael Budash" <mbudash@sonic.net> wrote in message
> news:mbudash-576DAB.22350517102001@news.sonic.net...
> > here's an alternative thought path... why not start with the '='s?
> >
> > $_ = q|id=firewall fw=199.9.9.9 src=199.9.9.9 time="2001-10-14
> > 12:01:05"|;
> > my (@h, %h);
> > my @a = split /\s*=\s*/;
> > for my $i (0..$#a) {
> > $a[$i] =~ s/^"(.+)"$/$1/;
> > if ($i == 0 || $i == $#a) {
> > push @h, $a[$i];
> > } else {
> > $a[$i] =~ /^(.+)\s+(\S+)$/;
> > push @h, $1, $2;
> > }
> > }
> > %h = @h;
> > while (my ($k, $v) = each %h) {
> > print "$k=>$v\n";
> > }
> >
> > this produces:
> >
> > src=>199.9.9.9
> > fw=>199.9.9.9
> > id=>firewall
> > time=>2001-10-14 12:01:05
>
> True, that does work, although I ended up with a pretty simple solution,
> ie:
>
> while (<>) {
> my %record;
> foreach (split(/ (?=[a-z]+=)/)) {
> my ($field,$value) = split(/=/);
> $record{$field}=$value;
> }
> }
>
>
yours will almost work for the example data you gave (it still leaves
the double quotes on the datetime), but will break in more general
cases, such as this:
id=firewall fw=199.9.9.9 src3=199.9.9.9 time="2001-10-14 12:01:05"
however, in situations like yours, you go for what works, and don't
worry about a perfect solution, eh? 8^)
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Thu, 18 Oct 2001 14:09:50 -0400
From: Brad <brad_watts@attcanada.net>
Subject: Stange DBI Error
Message-Id: <3BCF1AEE.B343D95E@attcanada.net>
Howdy,
I installed DBI, DBD, MySQL modules on a sun4u sparc without error.
MySQL client works fine. (from command line)
But Perl says this:
my $dbh = DBI->connect("DBI:mysql:user=root;database=NETWORK",
{'RaiseError' => 1});
-- error message --
ld.so.1: /usr/local/bin/perl: fatal: relocation error: file
/usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/auto/DBD/mysql/mysql.so:
symbol mysql_init: referenced symbol not found
Killed
Does anyone have any idea what I can do to fix? Checked numerous mailing
list archives addressing this issue, though I did not see any conclusive
suggestions...
Thanks in advance..
Brad
------------------------------
Date: Thu, 18 Oct 2001 14:00:19 -0600
From: Amy Johnson <ajohnson_no_spam@purplemountain.net>
Subject: Re: Trying to call a Perl script from Perl
Message-Id: <3BCF34D3.3050204@purplemountain.net>
Unfortunately system() doesn't seem to work from a Web Browser. It
looks like it tries to start up a DOS window. There must be some easy
way to leave one CGI Perl script and enter another CGI Perl script. I
don't need to return control back to the first CGI Perl script.
Any ideas????????????????????????
Thanks,
Amy
Dave Lehman wrote:
> Amy,
>
> try system($cmd, @args). it's like exec, but does a fork() first.
>
> hope that's what you wanted...
>
> Dave
>
>
> Amy Johnson wrote:
>
>> This is probably a newbie question...
>>
>> I have a Perl CGI script that I call from my web page. As a security
>> measure, I would like to be able to leave that Perl CGI script and
>> call another Perl CGI script when cookies aren't set correctly. But I
>> can't figure out how to redirect the control to another Perl CGI script.
>>
>> I'm using the CGI.pm and DBI modules.
>>
>> I've tried "do" and "exec" but with no luck, My code looks something
>> like:
>>
>> ==============================================================
>> SWITCH: {
>> if (cookie('user') ne 'test') {do login.pl; last SWITCH;}
>>
>> (more SWITCH statements)
>> }
>> ===============================================================
>>
>> Thanks so much for any help.
>> Amy
>>
>> ajohnson@purplemountain.net
>>
>
>
------------------------------
Date: Thu, 18 Oct 2001 19:38:40 GMT
From: "George Jempty" <jemptyg@rwmc.net>
Subject: Using XML::Simple on Access 2002 generated XML: Working Code
Message-Id: <1003433596.821800@airwave-sb.scottsbluff.net>
Enjoy, unless I'm in your kill file :(
(I know, I know: now I have to learn to use POD)
G
sub getAccess2002data
{
#Returns a (scalar) reference to a data structure mapped from XML
generated
#by Access 2002's export utility
#
#Takes the (scalar) reference returned by XML::Simple's "XMLin" method
#
#The (reference to the) returned data structure is either
#1)An array of hashes, or 2) a hash of hashes,
#depending on options passed to XMLin, for instance:
#
#An array if no options passed
#A hash if keyattr option is passed a list
#
#etcetera, the imperative being to know what XMLin returns!!
#
#NOTE: Unexpected results may occur if a column in Access is named "id",
#as the default for XMLin's keyattr option is
['name','key','id'(literally?!)]
#
#Regardless of returning an array of hashes or hash of hashes, the inner
hash
#returned by this routine maps from a row of Access 2002 data,
#with the hash key names corresponding to Access column names
#
#The root element of XML generated by Access has two direct children:
#one tag named after the Access data source (query or table),
#with that data further nested within;
#the other child tag specifying the XML namespace for (Microsoft) Office
data
#
#This routine simply circumvents the namespace node; additionally it does
NOT
#return the name of the Access data source but only the dat itself
#
#EXAMPLE
#
#
#use XML::Simple;
#my $XMLinRef = XMLin($xmlFile, $queryColumnName);
#
#my $access2002dataRef = getAccess2002Data($XMLinRef) #USAGE
#
#my %access2002data = %{$access2002dataRef};
#my $returnColumnValue =
$access2002data{$queryColumnValue}{$returnColumnName}
#
#
# version 0.1, October 18, 2001, George Jempty, jemptyg@rwmc.net
#
#
my $xmlInRef = shift;
my %access2002xml = %{$xmlInRef};
my $xmlNameSpaceTag = "xmlns:od";
foreach $key (keys %access2002xml)
{
next if ($key eq $xmlNameSpaceTag);
return $access2002xml{$key};
}
}
------------------------------
Date: Thu, 18 Oct 2001 19:56:02 -0200
From: Alessandro Augusto <ra990866@ic.unicamp.br>
To: Joseph <boogiemonster@usa.net>
Subject: Re: win32::TieRegistry Print problem...
Message-Id: <Pine.GSO.4.10.10110181951541.11757-100000@tigre.dcc.unicamp.br>
I have one example to solve your problem and a question to anyone.
First the question, which is easy: "how does win32::tieregistry" connects
to the remote computers? what port does it use? 139? netbios?
i would like to know what port is it, so I can create a specify IPSec
policy for this kind of connection.
-----
My code as a simple example:
use Win32::TieRegistry(Delimiter=>"/");
my ($maquina)= @_;
$remotekey= $Keyboard->Connect("machine_name_here",
"HKEY_CURRENT_USER/Control Panel",
{ Access=>KEY_READ, Delimiter=>"/" } )
or die "Can't check it: $^E\n";
print "Wallpaper: $Wallpaper";
print "RemoteKey: $remotekey";
-----------
[]'s
Alessandro
On Wed, 10 Oct 2001, Joseph wrote:
> I'm trying to connect to a remote machine and see what values are listed in
> specific key. My following code is...
>
> 1 use Win32::TieRegistry;
> 2
> 3 if( $Machine = $ARGV[0] )
> 4 {
> 5 $remMachKey = $Registry->Connect( $Machine, "LMachine",
> {Delimiter=>"/"} )
> 6 or die "Can't Connect to $Machine HKEY_LOCAL_MACHINE key: $^E\n";
> 7 }
>
> one keeps telling me there is an error on line 4, near ") {"
> but I do not see any. I'm also trying to open a a subkey to delete it. If
> anyone uses Win32::TieRegistry connecting to a remote machine and have a
> snippet of code they would like to share i would greatly appreciate it.
>
>
>
>
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
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 V10 Issue 1959
***************************************
