[10847] in Perl-Users-Digest
Perl-Users Digest, Issue: 4448 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 17 16:07:32 1998
Date: Thu, 17 Dec 98 13:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 17 Dec 1998 Volume: 8 Number: 4448
Today's topics:
$&, $', and $` and parens.... (Jim Matzdorff)
ANNOUNCE: Countdown Lite v1.0 <preble@ipass.net>
Re: ANNOUNCE: Countdown Lite v1.0 <bprater@jipes.com>
Re: array initialisation <dgris@moiraine.dimensional.com>
Re: Complicated sorting problem <uri@ibnets.com>
Re: Complicated sorting problem (Bart Lateur)
Re: Decent Editor scott@softbase.com
Dynamic PERL Pages in Search Engines? <sme@planetpod.com>
Re: Dynamic PERL Pages in Search Engines? (Groovy94)
extracting domain names ()
Re: Favourite Editor for NT Perl scott@softbase.com
Re: FMTEYEWTK on open (Larry Rosler)
Re: Help needed! <gdschrij@eduserv2.rug.ac.be>
Re: Help needed! (Larry Rosler)
HTML stripping scripts result in strange error <markscottwright@hotmail.com>
Re: Installing C++ compiler after perl on WindowsNT mwas@my-dejanews.com
Re: interpreting binary?/hex?/cryptic? socket data (John O Comeau)
Larry Wall sayings (was Re: ($e_mail !~ /\w+[-\w]*\@\w+ (Tad McClellan)
Re: New module Net::RawIP (William R. Ward)
Re: Perl Cookbook paulwade@my-dejanews.com
Problem with printf <tlynch@cisco.com>
Re: Problem with printf <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Problem with printf (Larry Rosler)
Re: Problems with 'unpack' .. (This has to be in the FA <jipes@ispchannel.com>
Q: extend searchstring during matching? (Marek Rouchal)
Recursion Hell <jipes@ispchannel.com>
Re: recursive dir in perl (Larry Rosler)
Re: Searching through a 10MB file <uri@ibnets.com>
Re: Searching through a 10MB file (Christian M. Aranda)
Segmentation Fault on 5.00502 <kcollier@soli.inav.net>
string to float <steven.m.ford@vanderbilt.edu>
Syntax Error...Not able to find. (Groovy94)
Re: telnet by perl (Clay Irving)
Re: Writing Perl with Notepad <gellyfish@btinternet.com>
Re: Writing Perl with Notepad <gellyfish@btinternet.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Dec 1998 12:45:51 -0800
From: syran@shell1.ncal.verio.com (Jim Matzdorff)
Subject: $&, $', and $` and parens....
Message-Id: <75bqhv$o14$1@shell1.ncal.verio.com>
After reading an article here about how using the $ forces all matches to hold those variables
(thereby slowing down your program), i went to look in the perlfaq. Finding and reading the
explanation, I am unclear on one thing.
Getting those values slows down perl just as much as aquiring any variables in $1...etc. That
I got. But is it saying that using parens slows it down on a case-by-case basis, or it also
slows down every pattern match?
And what's a good substitute for using the $'s? Using parens everywhere you need to capture
pre/match/post match?
--curious jim
------------------------------
Date: Thu, 17 Dec 1998 14:48:45 -0500
From: "E. Preble" <preble@ipass.net>
Subject: ANNOUNCE: Countdown Lite v1.0
Message-Id: <rfde2.1050$kx1.1700@news.ipass.net>
I'd like to announce a new free script that acts like a counter
for file downloads. When linked to, Countdown Lite will update a
counter file, and then autoforward the user to the download file.
It's a seamless process, so the user doesn't have to enter
information. It's fast, and stable.
Code details:
PERL script.
Written on Unix.
Free.
See: http://www.datatrendsoftware.com/cgi.html for details.
E. Preble
--
Datatrend Software
http://www.datatrendsoftware.com
mailto:info@datatrendsoftware.com
Grab It! software for Excel 97
Digitizes data from charts and graphs
-----------------------------------------------------------------
------------------------------
Date: Thu, 17 Dec 1998 14:12:51 -0600
From: "BenJamin Prater" <bprater@jipes.com>
Subject: Re: ANNOUNCE: Countdown Lite v1.0
Message-Id: <367965a6.0@news.mediacity.com>
How nice.
E. Preble wrote in message ...
>I'd like to announce a new free script that acts like a counter
>for file downloads. When linked to, Countdown Lite will update a
>counter file, and then autoforward the user to the download file.
>It's a seamless process, so the user doesn't have to enter
>information. It's fast, and stable.
>
>Code details:
>PERL script.
>Written on Unix.
>Free.
>
>See: http://www.datatrendsoftware.com/cgi.html for details.
>
>E. Preble
>
>--
>Datatrend Software
>http://www.datatrendsoftware.com
>mailto:info@datatrendsoftware.com
>
>Grab It! software for Excel 97
>Digitizes data from charts and graphs
>-----------------------------------------------------------------
>
------------------------------
Date: 17 Dec 1998 13:28:46 -0700
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: array initialisation
Message-Id: <m367basebl.fsf@moiraine.dimensional.com>
jwl@worldmusic.de (Joergen W. Lang) writes:
> Yep - but they do it on purpose. I still have an unfinished japh on my
> machine that - when it's finished - is supposed to do an acoustic
> version via Morse Code. I thought of using \a but I can't get it
> changing the length of the sound to produce the .--..-'s
> Any ideas ;-)
Don't make sounds based on .s or -s, make silences.
Beep
short pause (dot)
Beep
long pause (dash)
Beep
etc.
:-)
dgris
- I actually read once that this is how it was done by telegraphers,
but I have no idea if that is accurate, and am too lazy to go
find out :-)
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: 17 Dec 1998 14:01:44 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: Complicated sorting problem
Message-Id: <39u2yu4mp3.fsf@ibnets.com>
>>>>> "BL" == Bart Lateur <bart.lateur@skynet.be> writes:
BL> I propose the operators ||| (triple vertical bar), in line with the
BL> tradition of "|" and "||".
BL> $cache{$a} |||= -M $a
BL> $one = shift ||| 1;
BL> It would keep the left side value value, if it is defined (even if
BL> "false"). Otherwise, the right side is evaluated. Mmmm... *I* like it.
oh, you don't know what worms you may be eating from the large can!!
there was a long and vicious thread on that very operator in p5p just a
month or so ago. the fights were over whether it is needed and what
operator to use. neither was settled from what i can tell but the thread
finally died. the most popular operator was ??. ||| was proposed to but
was to hard to see for many. this might get into 5.006 if it ever gets
done. it still is controversial. tom c is on the side of just use
defined in an expression.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Thu, 17 Dec 1998 20:26:08 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Complicated sorting problem
Message-Id: <367e6524.1568053@news.skynet.be>
Uri Guttman wrote:
> tom c is on the side of just use
>defined in an expression.
That sometimes makes life more complicated than needed.
Example: suppose you have a function that returns a value (even 0) or
undef. You need to assign this to some complicated lvalue, or use a
default.
$some::elaborate::lvalue{whatyasay()} = &function(a,b,c) ||| 1;
which is minimal, vs.
defined( $some::elaborate::lvalue{whatyasay()} =
&function(a,b,c)) or $some::elaborate::lvalue{whatyasay()} = 1;
Supposed the assignment has side effects. This variant will then
effectively do two assignments. Tsk... tsk.
Or (currently best?):
$some::elaborate::lvalue{whatyasay()} =
defined($temp = &function(a,b,c))?$temp:1;
This uses an otherwise unnecessary temporary variable. If you think
that's just fine, then why would we need a shortcircuiting || *at all*?
Note that Perl programmers typically prefer the short-circuit, which
requires some thought: could we possibly ever get a false value that
ought to be accepted? If so, don't use it. Just throw all of your code
upside down.
Bart.
------------------------------
Date: 17 Dec 1998 20:23:12 GMT
From: scott@softbase.com
Subject: Re: Decent Editor
Message-Id: <36796830.0@news.new-era.net>
Matt Schuette (schuette@umr.edu) wrote:
> Can't we all just get along? The only descent editor for Person X
> is the one that Person X writes from scratch. No doubt everyone has a
> gripe with their favorite editor, no matter what it is. THERE IS NO
> PERFECT EDITOR!!
Yes there is. If you don't like Emacs, that's *YOUR* problem,
not the editor's!
Scott
PS: :^)
------------------------------
Date: Thu, 17 Dec 1998 12:02:33 -0800
From: Stewart Eastham <sme@planetpod.com>
Subject: Dynamic PERL Pages in Search Engines?
Message-Id: <36796359.64A81BEE@planetpod.com>
We are creating a database driven website using HTML templates, PERL and
mySQL. The content for many pages does not physically live on any
particular page, and is filled in by a PERL script upon request. What is
the process for ensuring that sites like this get indexed in search
engines, if at all possible? Additionally, we recently reorganized our
site's structure and many search engines on the net have the links
wrong,
and we'd like to reindex. Is there an easy way to do this, like a meta
index which reindexes many (or all) other engines? Or is there something
like a script which we may install on our server which can broadcasting
to
search engines when our site's content or structure changes?
Thanks in advance.
stewart
sme@planetpod.com
------------------------------
Date: 17 Dec 1998 20:34:32 GMT
From: groovy94@aol.com (Groovy94)
Subject: Re: Dynamic PERL Pages in Search Engines?
Message-Id: <19981217153432.04524.00000592@ng-ca1.aol.com>
You should make a static index page so the search engines can find it. There
are no meta tags, or anything similar that will resubmit you to the search
engines, but I do know of a very good script at
http://cgiscripts.webmaster-tools.com
that registers or re-registers you with search engines whenever you like.
Regards,
GIl Hildebrand, Jr.
------------------------------
Date: 17 Dec 1998 18:42:14 GMT
From: slidge@tugger.net ()
Subject: extracting domain names
Message-Id: <slrn77ik8q.2u0.slidge@fz.appliedtheory.com>
--
slidge
slidge@tugger.net
See http://tugger.net/slidge for the fee schedule to use my email address.
------------------------------
Date: 17 Dec 1998 20:24:07 GMT
From: scott@softbase.com
Subject: Re: Favourite Editor for NT Perl
Message-Id: <36796867.0@news.new-era.net>
Kirby James (kirby@jamesk.REMOVE.freeserve.co.uk) wrote:
> After using Notepad for some time I've decided to treat myself....
> ... Anyone like to suggest the 'best' editor for Perl under Windows NT.
> I've tried MultiEdit which 'understands' Perl out-of-the box, takes you
> to the lines with errors (if you make any), and shows you programme
> output.
I like Multi-Edit a lot, and it has good Perl support.
Emacs is obviously the best, but it might take a while to learn.
Scott
------------------------------
Date: Thu, 17 Dec 1998 12:51:37 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: FMTEYEWTK on open
Message-Id: <MPG.10e30eb3dee3ffd89898d2@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <758g4b$p4m$1@csnews.cs.colorado.edu> on 16 Dec 1998 14:29:31
GMT, Tom Christiansen <tchrist@mox.perl.com> says...
...
> sysopen HANDLE, PATH, FLAGS, [MASK]
>
> The HANDLE argument is a filehandle just as with open. The PATH is a
> literal path, one that doesn't pay attention to any greater-thans or
> less-thans or pipes or minuses. If it's there, it's part of the path.
...
> It's often enough to open them carefully:
>
> sysopen(TTYIN, "+</dev/ttyS1", O_RDWR | O_NDELAY | O_NOCTTY)
> or die "can't open /dev/ttyS1: $!";
> sysopen(TTYOUT, "+>&TTYIN)
> or die "can't dup TTYIN: $!";
This is a very fine article! However...
According to your description of sysopen(), there are two brainos in the
above code -- unless you really want to open a file named '+</dev/ttyS1'
and (assuming the string got a closing quote), '+>&TTYIN'. Then you
have indeed opened them carefully. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 17 Dec 1998 20:52:57 +0100
From: Glad Deschrijver <gdschrij@eduserv2.rug.ac.be>
Subject: Re: Help needed!
Message-Id: <Pine.GSO.3.96.981217204619.22597A-100000@eduserv2.rug.ac.be>
On Thu, 17 Dec 1998, Tuomas Angervuori wrote:
> I have a string, for example "> > Blaah blaah". How can I count, how
> many ">" characters there are in the string?
$s = '> > Blaah blaah';
$i = $s =~ tr/>/>/;
print $i;
This translates > into > and counts the number of translations, that
number i put in the variable $i.
> Thanks in advance,
You're welcome.
---------------------------------------------------------------------------
Glad Deschrijver gdschrij_AT_eduserv2_DOT_rug_DOT_ac_DOT_be
http://studwww.rug.ac.be/~gdschrij
---------------------------------------------------------------------------
Tonight our bed is cold
I'm lost in the darkness of our love
God have mercy on the man
Who doubts what he is sure of
------------------------------
Date: Thu, 17 Dec 1998 12:05:50 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Help needed!
Message-Id: <MPG.10e303fe8ee300e69898d0@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <Un3NuHgI1diW-pn2-6DyTyh2Dt5fl@aada.dyn.icon.fi> on Thu, 17
Dec 1998 18:52:29 GMT, Tuomas Angervuori <tumppi@icon.fi> says...
> I have a string, for example "> > Blaah blaah". How can I count, how
> many ">" characters there are in the string?
You read perlfaq4: "How can I count the number of occurrences of a
substring within a string?"
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 17 Dec 1998 13:45:29 -0600
From: "Mark Wright" <markscottwright@hotmail.com>
Subject: HTML stripping scripts result in strange error
Message-Id: <36795f5f.0@news3.uswest.net>
I'm trying to convert from HTML to text. perlfaq9 lists the following
two resources:
s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
and
http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/striphtml.gz
Both of these scripts give me a strange (well, strange to me) error
when I try to run them:
d:\> perl -p d:\bin\striphtml.pl d:\t.txt
(where striphtml.pl is the s/// command above. Tom Christiansen's
striphtml gives the same error)
results in the following error:
/<(?:[^>'"]*|(['"]).*?\1)*>/: regexp *+ operand could be empty at
d:\bin\striphtml.pl line 2.
What the heck does this mean?
--
---
Mark Wright
Blue Frog Software, Inc
mwright@pro-ns.net
------------------------------
Date: Thu, 17 Dec 1998 19:27:17 GMT
From: mwas@my-dejanews.com
Subject: Re: Installing C++ compiler after perl on WindowsNT
Message-Id: <75bluh$6c5$1@nnrp1.dejanews.com>
In article <slrn75p4i7.m5d.randy@theory.uwinnipeg.ca>,
randy@theory.uwinnipeg.ca (Randy Kobes) wrote:
...
> Look for a file Config.pm on your system which holds the
> system information of your setup. In that there's lines like
> cc=...
> ccflags=...
> libpth=...
> libs=...
> incpath=...
> make=...
...ActiveState's perl
> (www.activestate.com), which as well as being based on a newer
> perl (5.005_02), also uses VC stuff by default (I believe, for the
> most part).
I have installed Visual C++ 4.0 on WinNT (yes, that's a rather old VC++ Win32
version but it's all I've got) AFTER having installed the pre-compiled
PERL5.005_02 from ActiveState.
I'll need VC++ to compile modules such as Time-Hires because ActiveState
doesn't provide these binary form (they DO provide binaries for the more
common CPAN modules).
I've checked the settings in Config.pm that Randy mentioned and they seem to
be allright. However when running nmake I get the following Warning: Command
line warning D4002 : ignoring unknown option '-TP'
Then CL.EXE gives me a long list of errors that all originate in *.h files
example: D:\Perl\lib\CORE\perl.h(102) : error C2282: 'class' is followed by
'CPerlObj' (m issing ','?)
Anyone know what the -TP option means in the newer releaes of VC++ ?? Could
this be the reason that compilation fails? Anyone out there who has
successfully compiled modules using VC++ 4.0 ?
Thanks,
Michael Wasmeier
mwas1@t-online.de
(Consultant, Munich, Germany)
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 17 Dec 1998 20:41:59 GMT
From: jcomeau@world.std.com (John O Comeau)
Subject: Re: interpreting binary?/hex?/cryptic? socket data
Message-Id: <F44Mu0.LM5@world.std.com>
Keith, it looks like there are some escape sequences in the binary data which
are causing your xterm to barf. Use the routines in the 'xdump' sample program
to dump the data as hex to the screen. - jc
Keith Kaple (kak@cisco.com) wrote:
: Thanks to Greg, Erik and Andrew for the answer to my child pid question.
: My perl script plays man-in-the-middle between some networking devices,
: listens to socket data coming from one device, tweaks it, and send it to
: a socket on another networking device. When I go to "look" at the data
: recieved on the socket with:
: while (defined ($buf = <$new_sock>)) {
: #$buf=~s/2222/5555/;
: print $sock "$buf";
: print "Sent: $buf to otherside";
: }
: It looks something like this --->
: (cb?@#le?+1111pe?+2222~|?J`a%3~Mc&c\Tb?o~xtermxterm term
: What seems even more strange (to me) is that the above is different in
: the xterm that I pasted it from ! I'm sure it's a clue to what is going
: on, but right now, I'm CLUELESS.
: Anybody know what's going on here? I just want to know how to code so
: when I see "#le?", I can say, "oh, that was 00011010110101, or
: whateever it really was when it came in on the socket before my xfont
: map or whatever got a hold of it...
: Any advice is muchly appreciated.
: BTW, I'm using linux and perl 5.004_04
: --
: Keith Kaple x25759 -----------------------
: | New distribution, $40. Linux compatible
: | sound card, $89. Three button mouse, $18.
: | Nuking windows partitions....priceless.
--
jcomeau@world.std.com aka John Otis Lene Comeau
Home page: http://world.std.com/~jcomeau/
Disclaimer: Don't risk anything of value based on free advice.
"Anybody can do the difficult stuff. Call me when it's impossible."
------------------------------
Date: Thu, 17 Dec 1998 10:57:25 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Larry Wall sayings (was Re: ($e_mail !~ /\w+[-\w]*\@\w+[-\w]*\.\w+/)
Message-Id: <l5db57.qao.ln@magna.metronet.com>
birgitt@my-dejanews.com wrote:
: In article <8cd85nqy4n.fsf@gadget.cscaper.com>,
: Randal Schwartz <merlyn@stonehenge.com> wrote:
: >
: > I encourage new users, but I also expect new users to QUICKLY
: > understand that there are FAQs and Dejanews available for first-line
: > research before posting worn-out questions word-for-word and wasting
: > *all* our time with it.
: Pardon me for abusing freely a saying by Larry Wall:
: While someone obviously is expecting something to happen, it's not
: obviously expected to happen.
OK, here's another one then:
In article <1995Nov9.193745.13694@netlabs.com>, lwall@netlabs.com (Larry
Wall) wrote: ...
<Larry> [snip] I view a programming language as a place to be
<Larry> explored, like Disneyland. You don't need to have a lot of preparation
<Larry> to explore a theme park. You do have to go along with the crowd
<Larry> control measures, though. In a sense, each ride has its own
<Larry> prerequisites--if you cut in line, you risk getting tossed out of the
<Larry> park.
<Larry>
<Larry> What we have here in this newsgroup is a failure in crowd control.
<Larry> Reading the FAQ is like staying in line--it's something you should
<Larry> learn in kindergarten. Usenet needs a better kindergarten.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 17 Dec 1998 12:43:11 -0800
From: hermit@cats.ucsc.edu (William R. Ward)
Subject: Re: New module Net::RawIP
Message-Id: <waapv9iv6sg.fsf@ese.UCSC.EDU>
"Sergey V. Kolychev" <ksv@gw.al.lg.ua> writes:
> I'm writing module for easy manipulating raw ip packets in perl
> May be somebody find my work interesting.
> Latest version 0.02a available from
> http://www.ic.al.lg.ua/~ksv/Net-RawIP-0.02a.tar.gz
> version 0.01 available from CPAN
Why not just Net::IP?
--Bill.
--
William R Ward Bay View Consulting http://www.bayview.com/~hermit/
hermit@bayview.com 1803 Mission St. #339 voicemail +1 408/479-4072
hermit@cats.ucsc.edu Santa Cruz CA 95060 USA pager +1 408/458-8862
PGP Key 0x2BD331E5; Public key at http://www.bayview.com/~hermit/pubkey.txt
-----------------------------------------------------------------------------
UNIX is the worst form of operating system ever attempted in the world. The
only exceptions to this are all the other ones tried.
--Winston Churchill, paraphrased.
------------------------------
Date: Thu, 17 Dec 1998 18:44:55 GMT
From: paulwade@my-dejanews.com
Subject: Re: Perl Cookbook
Message-Id: <75bjf7$455$1@nnrp1.dejanews.com>
In article <366bfbcf.0@news.redrose.net>,
kreed@franklin.silcpa.org (Kevin W. Reed) wrote:
> The Perl Cookbook from O'Reilly is pretty good. Just got it for a
> B-Day... Lots of solutions in it....
>
I found an excerpt from this book, as well as reviews,etc at the following
page: http://www.amazon.com/exec/obidos/ASIN/1565922433/bibs
Hope this is helpful,
Paul.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 17 Dec 1998 14:25:40 -0500
From: Tom Lynch <tlynch@cisco.com>
Subject: Problem with printf
Message-Id: <36795AB4.67A8A844@cisco.com>
Greetings:
I can't seem to get the output of this Hex
counter correct with printf or sprintf:
for ( $cnt = 0 ; $cnt <= $total ; $cnt = $cnt + $increment) {
$hex = unpack("H*", pack("N", $cnt));
printf("%5d %5lx\n", $cnt, $hex);
}
I get:
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 0
11 0
12 0
13 0
14 0
15 0
What am I doing wrong? I would really like to pack
Zero's in front of the hex number and get it to
print out correctly.
Thanks in Advance
Tom
--
#-----------------------+--------------------------+
# Tom Lynch | Email: tlynch@cisco.com |
# Cisco Systems | Phone: 978-244-8765 |
# 250 Apollo Drive | FAX: 978-244-8039 |
# Chelmsford MA 01824 | MS: CH1-2LF |
#-----------------------+--------------------------+
------------------------------
Date: 17 Dec 1998 20:55:27 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Problem with printf
Message-Id: <83ww3qh7bk.fsf@vcpc.univie.ac.at>
Re: Problem with printf, Tom <tlynch@cisco.com>
said:
Tom> Greetings: I can't seem to get the output of
Tom> this Hex counter correct with printf or
Tom> sprintf:
Tom> for ( $cnt = 0 ; $cnt <= $total ; $cnt = $cnt +
Tom> $increment) { $hex = unpack("H*", pack("N",
$cnt += $increment is more normal...
Tom> to pack Zero's in front of the hex number and
Tom> get it to print out correctly.
If I understand you correctly, do you want to do
something like:
printf "0x%04x\n", 12;
==> 0x000c
?
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Thu, 17 Dec 1998 12:16:44 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Problem with printf
Message-Id: <MPG.10e3068a6ad85fdb9898d1@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <36795AB4.67A8A844@cisco.com> on Thu, 17 Dec 1998 14:25:40 -
0500, Tom Lynch <tlynch@cisco.com> says...
...
+ for ( $cnt = 0 ; $cnt <= $total ; $cnt = $cnt + $increment) {
+ $hex = unpack("H*", pack("N", $cnt));
+ printf("%5d %5lx\n", $cnt, $hex);
+ }
+
+ 0 0
+ 1 1
+ 2 2
+ 3 3
+ 4 4
+ 5 5
+ 6 6
+ 7 7
+ 8 8
+ 9 9
+ 10 0
+ 11 0
+ 12 0
+ 13 0
+ 14 0
+ 15 0
+
+ What am I doing wrong?
For one thing, you are not using the '-w' flag (and you SHOULD). You
would have received an informative diagnostic on each of those six bad
lines.
+ I would really like to pack
+ Zero's in front of the hex number and get it to
+ print out correctly.
Then let printf to the work. Drop the unpack statement, and use this:
printf("%5d %02x\n", $cnt, $cnt);
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 17 Dec 1998 14:18:56 -0600
From: "BenJamin Prater" <jipes@ispchannel.com>
Subject: Re: Problems with 'unpack' .. (This has to be in the FAQ somewhere?)
Message-Id: <36796710.0@news.mediacity.com>
Test
Greg Wickham wrote in message <3674BB2B.C07466BC@deakin.edu.au>...
>
>Hi,
>
>I'm unpacking an IP header, and am having troubles with 'unpack'.
>
>For those that don't know, the first 32 bits of an IP header
>are: 4 bits. 4bits. 8bits. 16bits.
>
>I would have thought that:
>
>my ( $version, $ihl, $tos, $len ) = unpack( 'H1 H1 H2 H4', $data );
>
>would do the trick, but it doesn't.
>
>What happens is after the first 'H1', it 8bit aligns the next match.
>This means that I loose 4 bits (between the first H1 and the H2).
>
>I must admit that I'm having trouble picking up pack/unpack,
>as I keep thinking data is binary when it isn't and vice versa.
>
>But this problem has me stumped.
>
>I'm using perl 5.005_02 built for sun4-solaris-thread.
>
>Any pointers gratefully appreciated,
>
>-Greg
>NOC Manager
>G.Wickham@deakin.edu.au
>
>
>
------------------------------
Date: 17 Dec 1998 21:47:21 +0100
From: Marek.Rouchal@hl.siemens.de (Marek Rouchal)
Subject: Q: extend searchstring during matching?
Message-Id: <75bqkp$8u5@laerche.HL.Siemens.DE>
Keywords: balanced pair matching, regular expressions
I have a question/suggestion wrt. regular expressions. I'm using
perl 5.00502/Solaris2.5.1 and came across the following problem:
Consider a *huge* file that cannot be slurped into memory as a
whole. But it is divided into handable parts that are enclosed in
braces "(" and ")". But one needs balanced pair matching to find
these two as there may be arbitrary nestings of sub-braces etc.
I took some existing code using the (?{}) and (?()|) operators to
do the balanced pair matching on a small example file. Then I had
the idea to include code that just reads another line of input from
the file and adds it to the search string if the match hits the
end of the string and did not find the closing brace. This code
works, i.e. one additional line is read and appended to the
string, but it seems that the regular expression fails to notice
that now there are additional charcters to be matched. Is that
true or did I write wrong code? Would it be too big a change to
make the pattern matching routine notice that the search string has
grown? Any hints are appreciated!
Cheers,
Marek
PS. Please reply by email too, if you don't mind. Thanks.
PPS. I have a workaround that reads line by line as long as the
balanced pair match fails. This works in principle, but seems to
be rather slow, because the opening/closing braces are several 100
lines apart.
#!/opt/perl_5.005.02/bin/perl -w
use strict;
die unless(@ARGV && -s $ARGV[0]);
open(IN,"<$ARGV[0]") || die;
my $file = '';
use vars '$cnt';
my $line;
while(defined($line = <IN>)) {
$file .= $line;
if($file =~ s:
\( (?{$cnt=1}) # opening brace, set counter to 1
( # open scope for return value
( # start of alternatives
$(?{$file.=<IN>}) # read additional line if end of string
|
(?>[^()]+) # match any non-brace chars
|
\((?{$cnt++}) # increase counter on opening brace
|
\)(?{$cnt--}) # decrease counter on closing brace
)+? # end alternative; check counter after each match
)
(?(?{$cnt==1})\)|(?!)) # force backtrack if count is not 1 and scope closes
::gsx) {
print "got: $1\n";
}
}
close(IN);
------------------------------
Date: Thu, 17 Dec 1998 14:36:38 -0600
From: "BenJamin Prater" <jipes@ispchannel.com>
Subject: Recursion Hell
Message-Id: <36796b37.0@news.mediacity.com>
For the last week (literally), I've been banging my head against a wall. I'm
attempting what should be a fairly easy recursive sequence that Perl
absoultely refuses to do correctly.
The module is called 'TemplateAgent' and what is does is parses a HTML
template searching for a set of tags ($tagset) and replacing them with the
corresponding anonymous sub that also rides in with the $tagset hash.
My goal is to not use three methods that look exactly alike: currently
parse, reparse and rereparse. I've attempted over and over to use only parse
which will correctly parse the HTML. When it encounters a handler that
requests it go to a subroutine that reparses (or recurses) back to the parse
method. It does successful reparse as many levels deep as necessary.
However, when returning back one level to the parse method, it 'locks up',
throwing exceptions, etc. I'm not sure why, perhaps someone else has some
incite.
The following is the code that works successfully. Eliminating the 'reparse'
and 'rereparse' methods will take the code back to the point where it's
'breaking'. At the bottom is an example of the $handler as well.
Thanks everyone,
BenJamin Prater
http://www.jipes.com
package TemplateAgent;
use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw/Exporter/;
@EXPORT = qw/parse_file rereparse reparse parse/;
$VERSION = '1.00';
sub parse_file {
my ($file, $tagset, $extra_data) = @_;
open FILE, $file or die $!;
my $buf = parse( (join '', <FILE>), $tagset, $extra_data );
close FILE or die $!;
return $buf;
}
sub parse {
my ($in_data, $tagset, $extra_data) = @_;
my $cur_tag;
for $cur_tag (keys %$tagset) {
while( $in_data =~ s/
<($cur_tag)\s*([^>]+)?>(?:(.*?)<\/\1>)?/
ref($tagset->{$cur_tag}) eq 'SCALAR' ?
${ $tagset->{$cur_tag} } :
$tagset->{$cur_tag}->
($1, $2 ? _pairs($2) : undef, $3, $extra_data)
/gisex ) { } ;
}
return $in_data;
}
sub reparse {
my ($in_data, $tagset, $extra_data) = @_;
my $cur_tag;
for $cur_tag (keys %$tagset) {
while( $in_data =~ s/
<($cur_tag)\s*([^>]+)?>(?:(.*?)<\/\1>)?/
ref($tagset->{$cur_tag}) eq 'SCALAR' ?
${ $tagset->{$cur_tag} } :
$tagset->{$cur_tag}->
($1, $2 ? _pairs($2) : undef, $3, $extra_data)
/gisex ) { } ;
}
return $in_data;
}
sub rereparse {
my ($in_data, $tagset, $extra_data) = @_;
my $cur_tag;
for $cur_tag (keys %$tagset) {
while( $in_data =~ s/
<($cur_tag)\s*([^>]+)?>(?:(.*?)<\/\1>)?/
ref($tagset->{$cur_tag}) eq 'SCALAR' ?
${ $tagset->{$cur_tag} } :
$tagset->{$cur_tag}->
($1, $2 ? _pairs($2) : undef, $3, $extra_data)
/gisex ) { } ;
}
return $in_data;
}
sub _pairs {
my ($in_data) = @_;
my %key;
$key{lc $1} = $2 while $in_data =~
m/(\w+)\s*=\s*['"]?(.*?)(?:['"])?(?=(\s+\w+\s*=|\s*$))/gs;
return \%key;
}
1;
__END__
Example of $handler that is passed to the parse subs in $tagset:
my $handler = {
main => {
cur_file => sub { '' },
itemloop => \&itemloop,
html_code => sub { '' },
cur_no => sub { '' },
value => sub { '' },
},
shows => {
itemno => sub { 'he' },
itemdata => \&poke,
},
poke => {
line1 => sub { 'line1' },
line2 => sub { 'line2' },
line3 => sub { 'line3' }
}
};
------------------------------
Date: Thu, 17 Dec 1998 11:39:38 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: recursive dir in perl
Message-Id: <MPG.10e2f826af06d9b59898cf@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <3678C689.AABA5FDC@bangornews.infi.net> on Thu, 17 Dec 1998
03:53:29 -0500, Bulls_Fan <dsfamily@bangornews.infi.net> says...
...
> # This function looks for all the files that can be edited and returns
> an array of names.
> # It takes one argument : what directory to start searching through
> sub getAllFilenames{
> local( $fod ) = $_[0]; # localize where to look
You mean to use 'my', not 'local'.
> print "Current directory:\n$fod\n";
> opendir( DIR , $fod ) or die "\nCan`t open directory, $fod \.\n"; #
> open the directory or die
The diagnostic should include the reason for failure, which is in $!.
> foreach $_ (readdir DIR ){ # for each file in this directory
$_ is the default for 'foreach' and needn't be named here.
> if( -r $_ and -w $_ ){ # if it is readable and
> writeable
These file tests will not work. The readdir function returns a simple
name, but the file-test operators require a path (relative to the
current directory, or absolute).
After one file test, succeeding tests on the same file should use the
operand _ (just one character, the underscore) for efficiency, because
the data from the most recent stat() are cached.
...
> # BTW, if you do actually use this please tell me `twould be the first
> time someone else had used some of my code. HTH
Leave out the 'someone else'. Evidently you yourself have not used this
code, because it simply doesn't work. (It does work if the file tests
are on "$fod/$_".)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 17 Dec 1998 14:06:09 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: Searching through a 10MB file
Message-Id: <39soee4mhq.fsf@ibnets.com>
>>>>> "CMA" == Christian M Aranda <christian.aranda@iiginc.com> writes:
CMA> if (index($_, $start) == 0) { $BugIdFound = 1; }
CMA> if (index($_, "History") == 0 && $BugIdFound) { $GetData = 1; }
CMA> if (index($_, $end_record) == 0 && $BugIdFound) { $GetData = 0;
CMA> $Done = 1; }
at least format this code better. don't put code blocks on same line as
the if. you do it correctly below here, so do it that way above.
CMA> if ($GetData &&! $Done) {
CMA> $attached_record .= "$_\n";
CMA> }
i still don't like the loop variables. my version had none but it's your
code. but once you have decided what kind of line it is, why check the
others too? put a 'next' in the if blocks and it will save you the extra checks.
hth,
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Thu, 17 Dec 1998 20:40:13 GMT
From: christian.aranda@iiginc.com (Christian M. Aranda)
Subject: Re: Searching through a 10MB file
Message-Id: <75bqdn$6km$1@news-2.news.gte.net>
On 17 Dec 1998 14:06:09 -0500, Uri Guttman <uri@ibnets.com> wrote:
>i still don't like the loop variables. my version had none but it's your
>code. but once you have decided what kind of line it is, why check the
>others too?
I don't think I understand your statement. I'm trying to understand
because understanding is learning.
I keep searching the lines to make sure it's not the "End:" line.
Christian M. Aranda
Impact Innovations Group
------------------------
Decide what you want then decide
what you'll give up for it. Me?
I'll give up sleep.
------------------------------
Date: Thu, 17 Dec 1998 13:41:06 -0600
From: Ken Collier <kcollier@soli.inav.net>
Subject: Segmentation Fault on 5.00502
Message-Id: <36795E52.53B617C4@soli.inav.net>
I am a relative beginner in PERL and am not sure where to turn. My
program runs continuously servicing Web requests ( when working ).
I am getting consistent segmentation faults in PERL 5.00502 on a RS6000
box.
The program dies after it has been running a long time, anywhere from
four hours to four days. I don't know if the time difference is related
to load. And I don't know what code is executing when it dies.
Excuse my ignorance, but is there a way to find out where it is dying
after such a long time? And any other clues on how to proceed would be
appreciated. Thank you.
Ken Collier
------------------------------
Date: Thu, 17 Dec 1998 14:34:32 -0600
From: Steven Ford <steven.m.ford@vanderbilt.edu>
Subject: string to float
Message-Id: <36796AD8.C914037@vanderbilt.edu>
This is a multi-part message in MIME format.
--------------31584DD2B3D5CDFD3CD43492
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I am getting a number from a text file in the format 9(9)v99 (for you
old cobol guys) and need to convert that to a float and display in a
currency format.
ie
$line = "*99880060288399999999990100000309200104315876"
$amount = substr ($line,35,11); # $line = "0104315876"
$amount =~ s/^0+//; # Strip leading zeros $line = "104315876"
I need to display $line as: $1043158.76
I used printf with %8.2f but it did not place the decimal for me,
instead it did 104315876.00
Does anyone have a suggestion on how to display this data?
--------------31584DD2B3D5CDFD3CD43492
Content-Type: text/x-vcard; charset=us-ascii;
name="steven.m.ford.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Steven Ford
Content-Disposition: attachment;
filename="steven.m.ford.vcf"
begin:vcard
n:Ford;Steven
x-mozilla-html:TRUE
org:Vanderbilt University
version:2.1
email;internet:steven.m.ford@vanderbilt.edu
x-mozilla-cpt:;0
tel;work:(615) 343-7358
fn:Steven Ford
end:vcard
--------------31584DD2B3D5CDFD3CD43492--
------------------------------
Date: 17 Dec 1998 20:39:06 GMT
From: groovy94@aol.com (Groovy94)
Subject: Syntax Error...Not able to find.
Message-Id: <19981217153906.04524.00000593@ng-ca1.aol.com>
I have been battling with a problem in a reseller/commision program I am
making. My error log gives me a line for the error, but does not tell me
specifics, and I have been debugging for hours..with no success. I see no
apparent errors in the syntax, however, there must be something wrong. My error
is somewhere in this snippet of code:
While(-f resellers.lock) {
select(undef,undef,undef,0.1);
}
open(RESELLERS,">resellers.lock") || &error("Unable to write to
resellers.dat");
dbmopen(%resellers, $real_path/resellers, 0666);
unless($resellers{'number_resellers'}) {
$resellers{'number_resellers'}=0;
}
$resellers{'number_resellers'}++;
$resellers{'reseller$number_resellers'}=$INPUT{'name'},$INPUT{'email'},
$INPUT{'url'}, $INPUT{'username'}, $pass;
dbmclose (resellers);
close(RESELLERS);
unlink (resellers.lock);
If you can help me, thank you very much. I have had problems with this for the
past 2 days.
Regards,
GIl Hildebrand, Jr.
Email: groovy94@aol.com
ICQ UIN: 16678754
------------------------------
Date: 17 Dec 1998 14:02:31 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: telnet by perl
Message-Id: <75bkg7$gog@panix.com>
In <MPG.10e2ecce22aa267b9896c2@news.sonic.net> samc@empirewest.com (Sam Curren) writes:
>I'm attempting to open a telnet session to a server on a specific port,
>wait for the init string, then send it one line of text and disconnect.
>All servers being linux.
>Being able to save all the output of the other server would be a plus.
>I can do all the work, but does anyone have a general place to start? I'd
>rather use a module then a system call, but a system call can be made.
Hmmm? Maybe a module like Net::Telnet, perhaps?
Net::Telnet
http://www.perl.com/CPAN/modules/by-module/Net
Net::Telnet allows you to make client connections to a TCP port
and do network I/O, especially with a port using the TELNET
protocol. Simple I/O methods such as print, get, and getline are
provided. More sophisticated interactive features are provided
because connecting to a TELNET port ultimately means communicating
with a program designed for human interaction. Some interactive
features include the ability to specify a timeout and to wait for
patterns to appear in the input stream, such as the prompt from a
command interpreter.
This example prints who's logged-on to the remote host sparky:
$sparky = new Net::Telnet (Host => "sparky",
Timeout => 10,
Prompt => '/[$%#>] $/');
$sparky->login($username, $passwd);
@lines = $sparky->cmd("/usr/bin/who");
print @lines;
$sparky->close;
--
Clay Irving
clay@panix.com
------------------------------
Date: 15 Dec 1998 23:07:01 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Writing Perl with Notepad
Message-Id: <756q2l$co$1@gellyfish.btinternet.com>
On Tue, 15 Dec 1998 15:52:02 GMT ptimmins@netserv.unmc.edu wrote:
> In article <367815c6.2053261@news.skynet.be>,
> bart.lateur@skynet.be (Bart Lateur) wrote:
>
>> Thomas Brian Holdren wrote:
>>
>> >Hate Windows becuase you can't
>> >"Esc:w" to save a file?
>>
>> Now *that* makes sense.
>>
>> Bart.
>
> I currently have to read and post from DejaNews (blech!), and
> I'm constantly having to backspace and delete out "dw", "dd", "j",
> "0", etc, that I erroneously type after hitting my escape key ...
> thinking it will respond properly ... a brain-stem, muscle wisdom
> sort of thing, I guess.
I have viw (from Watcom) that is a windows app that is vi ... I figure that
is alright.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 15 Dec 1998 23:12:31 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Writing Perl with Notepad
Message-Id: <756qcv$cs$1@gellyfish.btinternet.com>
On Sat, 12 Dec 1998 19:37:32 -0500 Evan Panagiotopoulos <evanp@technologist.com> wrote:
> This is a multi-part message in MIME format.
> --------------31C935D452E45C802F4A6D88
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
>
Eeh hehe...
> I have no problems writing Perl scripts with vi. Yesterday though, I
> tried to write a script with Notepad but after I saved it on Linux and
> tried to execute it gave me an error complaining about linefeeds or
> something like that. Can I use Notepad or different windows editor
> for script writing? I have a class of high school students and using
> vi is like pulling teeth.
>
This is not a Perl thing but if you are using samba then I think that you can
cause certain types of files to be converted appropriately.
If you want to ask questions about Samba then you should do so in a more
appropriate neswsgroup.
>
> begin:vcard
> n:Panagiotopoulos;Evan
> tel;fax:(914) 457-4056
> tel;home:Home Sweet Home
> tel;work:Valley Central High School (914) 457-3122
> x-mozilla-html:TRUE
> org:Valley Central High School;Mathematics Department
> adr:;;;;;;
> version:2.1
> email;internet:evanp@technologist.com
> title:Computer Teacher
> fn:Evan Panagiotopoulos
> end:vcard
>
Now the spammers have got your telephone number as well ... ;-}
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4448
**************************************
