[7743] in Perl-Users-Digest
Perl-Users Digest, Issue: 1368 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 26 11:12:15 1997
Date: Wed, 26 Nov 97 08:00:25 -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 Wed, 26 Nov 1997 Volume: 8 Number: 1368
Today's topics:
Re: [Q] Why does this behave this way? (Keith Willis)
Re: Bug ? ( s/// <-> \. ) *2 (Patrick)
Re: Executing an external command from a Perl CGI (Jeremy D. Zawodny)
Re: How can I hide the Query string in the URL? (Tina Marie Holmboe)
Re: How i leave HTML tags alone ? (Patrick)
Re: How to directly call a POST method <leon@staff.netchannel.co.uk>
Re: How to: GD-1.14, Perl 5.004.01 & OS/2? <koos_pol@bigfoot.com>
Re: interpreted languages (Martin Rodgers)
Re: interpreted languages lvirden@cas.org
Re: launch a child process in a cgi (Jeremy D. Zawodny)
Re: maintain unique elements in an array? no duplicates (Mick Farmer)
Re: Message Board Scripts Help <leon@staff.netchannel.co.uk>
Re: Moving/Renaming files (Tad McClellan)
old regular expression question <nygsi@ny.ubs.com>
Re: old regular expression question <ckc@dmi.dk>
Re: Perl - Date Compare (Clay Irving)
Perl bug? Child modifies parents file descriptor? (Rune Frxysa)
Re: PERL Hourly Rates (Jeremy D. Zawodny)
Re: PERL Hourly Rates <Jacqui.Caren@ig.co.uk>
Problem with eval and interpolating variable names (Paddy Spencer)
Re: read from end of file (by line) (Scott Anthony Hamilton)
Re: Sorting an 'almost but not really' complicated data (Hans Juergen von Lengerke)
SUPER-PC kelly@superpsm1.com
Re: Tk/Motif/Embedded Perl question (Frank Korf)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 25 Nov 1997 12:27:06 GMT
From: keith_willis.junk@non-hp-unitedkingdom-om1.om.hp.com (Keith Willis)
Subject: Re: [Q] Why does this behave this way?
Message-Id: <347cc310.348404348@elf.bri.hp.com>
On Fri, 21 Nov 1997 21:23:44 GMT, lm@binary9.net wrote:
>I've reduced it down to this example:
>
>#!/usr/bin/perl
>
>@a=qw ( Hello );
>$a=sprintf @a;
>
>print "sprintf: $a\n";
>print "printf : "; printf @a; print "\n";
>
>Now, when I run this, I get:
>
>sprintf: 1
>print : Hello
>
>Shouldn't they produce the same result? Am I missing something
>incredibly stupid and easy?
Yup!
>From the Blue Camel, p47:
"An array variable .... in a list context .... would return its entire
contents, but in a scalar context it returns only the the length of
the array"
----------------------------------------------------------------------
The above message reflects my own views, not those of Hewlett Packard.
When emailing me, please note that there is no '.junk' in my address.
------------------------------
Date: Tue, 25 Nov 1997 19:41:39 GMT
From: Venice @ euronet.nl (Patrick)
Subject: Re: Bug ? ( s/// <-> \. ) *2
Message-Id: <65ea4t$kur$1@news.NL.net>
Ty Cage Warren <tycage@infi.net> wrote:
>If you can't do the work to read the group, why should I do the work to
>help you out?
Squeeze me, but i didnt say i wouldn't read the newsgroup.
The power of newsgroups like these is that EVERYONE can read and learn
and write. But i have access to email whole day and newsgroups just
once a day at max.
>I think that is what you wanted. I might help if you gave us an actual
>snippit of code for us to look at. Your problem might be somewhere
>else.
Darn... Back to the drawing table :-)
Sorry to bother you.
Thanx all.
------------------------------
Date: Tue, 25 Nov 1997 13:45:46 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Executing an external command from a Perl CGI
Message-Id: <347dd620.426190459@igate.hst.moc.com>
[original author automagically cc'd via e-mail]
On Tue, 25 Nov 1997 02:04:07 -0800, Billy Glenn <bdg3@pge.com> wrote:
>Now, my newest effort (since discovering the JOYS of CGI.pm!!)
>incorporates many of the previous functions, and needs to invoke several
>external commands. I've tried using system like this:
>
> system ("/usr/local/db2file.pl");
>
>as well as the previously shown 'backtick' method. Obviously I don't
>want to 'exec', as I want to retain control of the flow of execution.
>Ideally, I would like the invocation to return the output of the called
>script (i.e. $output = `/usr/local/db2file.pl`;) so that I could later
>use this output in my HTML.
Hm. Though it doesn't specifically address your problem, you may want
to see the question "How can I capture STDERR from an external
command?" in the Perl FAQ.
Other than that, the only thing I can think of might be a permissions
problem, given that the HTTP server is unlikely to be running the
script(s) with the same permissions as you do at the shell prompt.
Good Luck,
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: 25 Nov 1997 13:52:17 GMT
From: tina@scandinaviaonline.se (Tina Marie Holmboe)
Subject: Re: How can I hide the Query string in the URL?
Message-Id: <65el6h$648$4@news1.sol.no>
In article <7qvb56.or.ln@localhost>,
tadmc@flash.net (Tad McClellan) writes:
> This would be a Natural Language Processing application. Those are
> non-trivial to implement. That's probably why someone hasn't already
> done it ;-)
Well - someone *has* done it; but perhaps not in the fashion you meant :)
There are atleast one, probably more, such applications available as
frontends to SQL.
Given, then, a good SQL-to-Perl translator, we'd be ready for the Nobel
price methinks...
--
Tina Marie Holmboe tina@mail.scandinaviaonline.se
The opinions expressed above are mine, and should in no way or under any
circumstances be associated with Scandinavia Online AB unless this disclaimer
is explicitly revoked. And that ain't probable >:)
------------------------------
Date: Tue, 25 Nov 1997 19:42:13 GMT
From: Venice @ euronet.nl (Patrick)
Subject: Re: How i leave HTML tags alone ?
Message-Id: <65ea5v$kur$2@news.NL.net>
Venice@ euronet.nl (Patrick, http://www.fictional.net) wrote:
>I want to replace the text in a HTML document...
>but i don't want to change the HTML code...
Anyone ???
help ?
------------------------------
Date: Tue, 25 Nov 1997 12:54:21 +0000
From: Leon Andrews <leon@staff.netchannel.co.uk>
Subject: Re: How to directly call a POST method
Message-Id: <347ACA7C.20EA0B60@staff.netchannel.co.uk>
sounds like you want to run the script as a server side include...
SveN wrote:
> Help,
>
> I have a HTML Dokument that uses:
>
> <form method=POST action="http://www.domain.com/cgi-bin/test.pl">
> <input type=text name=var size=6><BR><BR>
> <input type=submit>
> </form>
>
> Now I want to call test.pl directly without any user action
> (no klicking on the submit button) with a specified value for
> var. How can I do this?
>
> Greeting from SveN, Germany
--
..................
Leon Andrews
NetChannel UK Ltd.
------------------------------
Date: Tue, 25 Nov 1997 11:49:14 +0100
From: Koos Pol <koos_pol@bigfoot.com>
Subject: Re: How to: GD-1.14, Perl 5.004.01 & OS/2?
Message-Id: <347AAD2A.2851@bigfoot.com>
samdie@ibm.net wrote:
>
> In <347413D5.10B5@bigfoot.com>, on 11/20/97
> at 11:41 AM, Koos Pol <koos_pol@bigfoot.com> said:
>
> > samdie@ibm.net wrote:
> > >
> > > Has anyone managed to install GD under os/2?
>
> > I never have succeeded installing modules using the install makefile under
> > OS/2.
> > I always just copy the module to the /perl/lib directory. I has never failed
> > me.
>
> Very hartening (sigh).
>
> Do you mean that "make install" fails or the initial "make"?
> If the latter, I suppose that only means copying/moving some files around. But
> if it's the basic make that fails (as it usually does for me), then one has to
> hack the compiles, links, library maintenance, etc.
>
After some more unexplainable errors with my setup (e.g.: s///
statements crashing the script and dumping core, etc) someone -was it
you?- suggested that the locations of the final directories might be
generating problems, as Perl has some hardcoded directories in the dll's
(I use Ilya's ported binaries). I will try setting up TVFS to make sure
I have the identical paths as the installer likes to see. Maybe this
will help. If this also fails I will try rebuilding Perl my self. But
this is last resort, as I never ever compiled stuff at all (I am not a
developper/programmer) and emx+gcc frightens the daylights out of me...
--
Koos Pol
----------------------------------------------------------------------
S.C. Pol tel: +31 20 3116122
PC Systems Administrator email: Koos_Pol@bigfoot.com
Compuware Europe PGP public key available upon request
A little inaccuracy sometimes saves tons of explanation.
-- H. H. Munroe
------------------------------
Date: Tue, 25 Nov 1997 11:59:39 -0000
From: mcr@this_email_address_intentionally_left_crap_wildcard.demon.co.uk (Martin Rodgers)
Subject: Re: interpreted languages
Message-Id: <MPG.ee4cdc2de6868aa989787@news.demon.co.uk>
Donal K. Fellows wheezed these wise words:
> They probably included compiled C because it was easy to do, providing
> something against which to compare the rest of the figures. Not
> everyone has a C interpreter installed conveniently, but C compilers
> are ubiquitous in the programming community...
Most certainly. VC++ can compile to interpreted bytecodes. I've never
tried this myself, but apparently that feature is there. I've not yet
seen any benchmarks for such code, either.
--
Please note: my email address is munged; You can never browse enough
"There are no limits." -- ad copy for Hellraiser
------------------------------
Date: 25 Nov 1997 13:36:49 GMT
From: lvirden@cas.org
Subject: Re: interpreted languages
Message-Id: <65ek9h$1al$1@srv38s4u.cas.org>
According to JRM <emergent@cape.com>:
:
:schwartz+%!usenet! @ finch.cse.psu. ((no.)spam) edu (Scott Schwartz) wrote
:in message <8g2007kt36.fsf@finch.cse.psu.edu>...
:>Dima Pasechnik <dima@duti515a.twi.tudelft.nl> writes:
:>| I found this paper not too accurate as far as Scheme is concerned.
:>| Apparently they didn't use a good implentation.
:>
:>They used MIT scheme.
:
:
:But they forgot to either ``SF'' or compile it.
:They weren't benchmarking
:compilers, so you might argue that they shouldn't have used the
:compiler (but why did they include compiled C?), but neglecting
compiled C is typically used in these types of comparisons to provide a
'baseline' of what the best one might expect to reach is.
:(For those unfamiliar with MIT Scheme, there is a program called
:SF that is essentially a source->source translator that can be used
:to perform certain optimizations. The most used optimization is to
:replace certain variables with their actual values -- in effect,
:declaring common built-in procedures as constant.)
Curious that the interpreter just doesn't 'run SF' itself when ever the
code is run - or does it modify the original source?
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
Date: Tue, 25 Nov 1997 13:15:43 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: launch a child process in a cgi
Message-Id: <347acf62.424464457@igate.hst.moc.com>
[original author automagically cc'd via e-mail]
On Tue, 25 Nov 1997 10:55:26 +0100, xavier <delaval@cedocar.fr> wrote:
>Hello everybody,
>
>In one of my perl cgi script I have to read a form, execute a child
>process and return a information page on the browser.
>I'm using : system("the command to run"); and my script wait for this
>child process to terminate and display the information page. But I don't
>want to wait for the child. I want to execute the process in background
>and display the information page before the end of this process. I tried
>: system("command to run &") but it doesn't change anything.
If I'm understanding what you're trying to do, I think that fork() is
what you're looking for--unless your OS doesn't support it.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Tue, 25 Nov 1997 11:29:12 GMT
From: mick@picus.dcs.bbk.ac.uk (Mick Farmer)
Subject: Re: maintain unique elements in an array? no duplicates?
Message-Id: <EK798o.1M1@mail2.ccs.bbk.ac.uk>
Dear JT,
Why not use a hash? The keys are unique and you don't
need the values, though you might later.
Regards,
Mick
------------------------------
Date: Tue, 25 Nov 1997 12:51:57 +0000
From: Leon Andrews <leon@staff.netchannel.co.uk>
Subject: Re: Message Board Scripts Help
Message-Id: <347AC9EC.38F19FB9@staff.netchannel.co.uk>
> I am a Web Designer who has undertaken the task of adding Matt's Script
> Archive Message Board.....
>
>
I've played with that script before in my time... Give me a shout if you
like - after you've checked the permissions of the script, the data file,
etc etc. The version I used had a few bugs in it, i seem to remember.
Evan Connor wrote:
--
..................
Leon Andrews
NetChannel UK Ltd.
------------------------------
Date: Mon, 24 Nov 1997 22:44:54 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Moving/Renaming files
Message-Id: <64ld56.cb1.ln@localhost>
J. Paul Reed (preed@psd.k12.co.us) wrote:
: This may sound like a really stupid question (yeah, I even feel dumb
: asking it), but what's the best way to manipulate files?
(shhh. It's best if they don't even realize that you are manipulating them ;-)
: Specifically, I'm trying to do renames and moves and things like that, and
^^^^^^ ^^^^
Those are the same thing, I think. Do they mean different things
to you?
: often times, rename() fails for some reason or another (I'm probably
^^^^^^^^^^^^^^^^^^^^^^
If you tell us the reason, we might be able to help.
: feeding it the wrong variables,
GIGO ya know.
: but OTOH I was reading about some
^^^^^^^^^^^^^
Where?
: limitations of rename())
Like what?
: and I hate to do a system("/bin/mv ...") call,
Me too.
: for numerous reason.
Me too.
: Is there some great perl module
Yes. There are many great perl modules ;-)
: that will help?
Oh... I don't know, because after carefully reading everything you wrote,
I still don't know what problem you are trying to overcome. Sorry.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 25 Nov 1997 08:02:30 -0500
From: Ian Goldstein <nygsi@ny.ubs.com>
Subject: old regular expression question
Message-Id: <347ACC65.FE2B5FB6@ny.ubs.com>
I know this was covered before... but it escapes me.
I have a variable with 6 digits . I want to split this into 2 variables
of 3 digits each.
$var=123456;
($var1,$var2) = split(/\(\d\d\d\)\(\d\d\d\)/, $var);
This does not seem to work. What am I missing.
Thanks in advance.
--
Ian
======================================================================
Ian Goldstein | E-Mail nnygsi@ny.ubs.com
Enterprise Systems Management |
On assignment at Union Bank of Switzerland |
======================================================================
------------------------------
Date: 25 Nov 1997 14:53:20 +0100
From: Casper Kvan Clausen <ckc@dmi.dk>
Subject: Re: old regular expression question
Message-Id: <wvpzpmt84hb.fsf@hobbes.ejoper.dmi.min.dk>
Ian Goldstein <nygsi@ny.ubs.com> writes:
> I have a variable with 6 digits . I want to split this into 2 variables
> of 3 digits each.
> $var=123456;
> ($var1,$var2) = split(/\(\d\d\d\)\(\d\d\d\)/, $var);
What you're doing is splitting the string '123456' on six consecutive
digits, resulting in two empty strings (before and after the six
digits).
split is not what you want. You want the ordinary match operator, as
in:
$var =~ /(\d\d\d)(\d\d\d)/; $var1 = $1; $var2 = $2;
or the shorter
$_ = $var;
($var1, $var2) = /(\d\d\d)(\d\d\d)/;
Regards,
Kvan.
--
-------Casper Kvan Clausen------ | 'Ah, Warmark, everything that passes
----------<ckc@dmi.dk>---------- | unattempted is impossible.'
Lokal 544 |
I do not speak for DMI, just me. | - Lord Mhoram, Son of Variol.
------------------------------
Date: 25 Nov 1997 08:20:40 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Perl - Date Compare
Message-Id: <65ejb8$ise@panix.com>
In <comdog-ya02408000R2411971533360001@news.panix.com> comdog@computerdog.com (brian d foy) writes:
>In article <3479D2DB.6D71@ford.com>, teo <cteo@ford.com> wrote:
>>Could someone tells me how to perform
>>a date compare in Perl? Thanks.
>sorta depends on the date format, doesn't it?
Some of the Perl Modules are very friendly. Date::Manip, for example,
recognizes "tomorrow", "next Thursday" and "Monday in 2 weeks".
>take a look at the Date modules on CPAN [1]
>[1]
>Comprehensive Perl Archive Network
>find one near you at <URL:http://www.perl.com>
Yes. Perl Modules are your friend.
I'd suggest Date::DateCalc or Date::Manip -- The man pages for both can
be viewed at:
http://reference.perl.com/module.cgi?Date::Manip
http://reference.perl.com/module.cgi?Date::DateCalc
--
Clay Irving <clay@panix.com> http://www.panix.com/~clay/
------------------------------
Date: 25 Nov 1997 14:48:54 +0100
From: runefr@gyda.ifi.uio.no (Rune Frxysa)
Subject: Perl bug? Child modifies parents file descriptor?
Message-Id: <w6867ph9j95.fsf@levding.ifi.uio.no>
With perl5.004_04/perl4.0036 the enclosed script reads the same line
more than once under Solaris, but not under linux, irix & others. The
script runs fine for a number of lines, but then suddenly jumps
several lines back in the file. '$.' is not reduced when this
happends.
$| = 1;
open(IN, $filename) || die("Unable to open file '$filename'");
$ch = 0;
while(!eof(IN)){
if($ch < 2){
undef(@jobs);
for($a=0; $a<10;$a++){
$_ = <IN>; chop;
print "Line $.: '$_'\n";
push(@jobs, $_);
}
if($kid = fork){ print "Launched '$kid' ($^F)\n"; }else{
for(@jobs){ print " $$ doing job $$ = $_\n"; }
sleep(rand(2)+1);
exit(0);
}
$ch++;
}else{
$kid = wait; $ch--;
}
}
close(IN);
--
Rune Frxysa Private e-mail: runefr@ifi.uio.no
WWW: http://www.ifi.uio.no/%7Erunefr/ Analog VLSI student
------------------------------
Date: Tue, 25 Nov 1997 13:29:05 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: PERL Hourly Rates
Message-Id: <347ccfd9.424583859@igate.hst.moc.com>
[original author automagically cc'd via e-mail]
On 25 Nov 1997 03:22:09 GMT, toutatis@no.mail.please (Toutatis) wrote:
>I'm only programming CGI in perl for about one and a half year, and to be
>frank not made a single dime with it _yet_, but dare to say: I disagree.
Fair enough.
>Note that the question was about CGI *scripting*.I translate that as:
>creating server side applications that interact with a user through a
>browser using the Common Gateway Interface.
And the notion of "scripting" is certainly open to interpretation.
IMHO, it's a matter of scale in may cases. Your description sounds
like what I'd think of as a larger application which makes use of the
CGI.
However, there is a whole spectrum of CGI scripts that folks need to
develop. Some large, some small, and some in-between.
>When developing an application
>under CGI there are a *lot* of very specific conditions.
What you've said is true in *every* environment.
I submit that there is nothing *fundamentally different* about CGI
that makes it harder than any other API or environment.
>Being the
>stateless character the most notorious problem (and benefit), the
>programmer also needs to deal with performance (mod-perl!), security(!),
>features *and* 'bugs' of popular browsers(pragma: no-cache in Netscape, to
>name one), robots - that you need to bring traffic -, proxy behaviour -
>that you need to minimize traffic. Let alone the quite unpredictable way
>outputted data will be displayed on the client screen. All of which will
>result in quite specific code, and even a different *style* of programming.
Again, true in virtually every situation. You'll have to deal with
performance, bugs, security, and the particular quirks of your
development tools. That same could be said [and has] of Java, C++,
Python, etc.
>UNLESS you think of CGI as the ability to enter some input fields and
>clicking a submit button for getting some dull page returned, creating
>dynamic and interactive webcontent using CGI and server side scripting is a
>hell of a job.
Not as hard as most others. At least the standards are published, easy
to find, and usually accurate. There are multiple vendors which
deliver decent tools, so you're not locked in to one vendor's
brain-dead implementation, etc.
Your deployment concerns are typically less, because the client
software already exists, is semi-well understood, and is relatively
cheap (or free in many cases).
>If you take that job serious. Wich most webdesigners don't.
Why should they?
That's like expecting my painter to take the construction of my new
house seriously. All he needs to know is when the drywall is going to
be up. The builders [programmers] worry about the infrastructure.
My 3 cents.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Tue, 25 Nov 1997 13:22:00 GMT
From: Jacqui Caren <Jacqui.Caren@ig.co.uk>
Subject: Re: PERL Hourly Rates
Message-Id: <EK7EGp.4qr@ig.co.uk>
In article <comdog-ya02408000R2411972104240001@news.panix.com>,
brian d foy <comdog@computerdog.com> wrote:
>>comdog@computerdog.com (brian d foy) wrote:
>>
>>> In article <3475A7B3.819F9C2E@bridge.bellsouth.com>, Matthew Bonvicin
>><Matthew.Bonvicin@bridge.bellsouth.com> wrote:
>>>
>>> >Could someone please provide for me an approximate hourly rate for
>>> >advanced PERL CGI scripting. I may have the need shortly to outsource
>>> >some development but am unsure what to expect.
>>>
>>> CGI scripting is trivial. if the programmer has other skills, then
>>> you may have to pay more than minimum wage.
>>
>>Don't think I would hire a programmer who labels CGI programming as
>>trivial. Likely his output would be trivial too. But maybe I am missing
>>your point.
>
>CGI scripting is trivial. you output an HTTP header and some data. all
>of my interns pick it up the same day that i teach it to them. remember
>that CGI programming is just another skill set - it's not a job
>description.
But advanced perl programming requires a level of skill that takes
many years to obtain. And given the short life of perl(5) the demand
for *very good* perl5 programmers far outstrips supply (in the UK).
Regarding hourly rates, a professional will cost a lot but then they
can usually cost a project very well and will (in many cases) come up
with a very competitive per project fixed price. I know that we do...
CGI is only one way of using perl as part of a web system. Knowledge of
other techniques and tools is always a plus. There are many almost
competent perl progammers out there who write perl that works but
a good perl progammers shudders when they see it - I know I usually
do so when I am asked to "enhance" someones software.
So, until demand outstrips supply, you will have to pay to get the best
or put up with the rest :-)
Jacqui
--
Jacqui Caren Email: Jacqui.Caren@ig.co.uk
Paul Ingram Group Fax: +44 1483 419 419
140A High Street Phone: +44 1483 424 424
Godalming GU7 1AB United Kingdom
------------------------------
Date: Tue, 25 Nov 1997 13:10:29 GMT
From: paddy.spencer@parallax.co.uk (Paddy Spencer)
Subject: Problem with eval and interpolating variable names
Message-Id: <880463392.277016@red.parallax.co.uk>
I'm trying to get getopts.pl to work under RISC OS [1] and it crashes
approximately half the time with an Illegal address exception (eg array wildly
out of bounds) at the following line:
eval "\$opt_$first = 1";
Is this a problem with the version of perl I'm using (I believe it's 5.001, but
I'm not sure -- it might be later) or something specific to the RISC OS port?.
_________________________
[1] Footnote for those on c.l.p.m who don't know what RISC OS is: it's the OS
used on Acorn's ARM based machines. There, that's all clear now isn't it? What?
Still don't know what I'm on about? OK, then. Despite what you might have
gathered from Apple's ad campaign a few years back (for which Acorn successfully
sued them) Acorn (a British computer firm [2]) were the first company to make
32-bit RISC desktop machines, are widely respected [3] in the IT business for
designing and implementing novel and innovative products and solutions, (and
then having them ripped off by larger competitors [4]) and also widely known for
failing to fully capitalise on their machines' potential. They're also the ones
that Bill (of the Gates variety) visited to try and flog them DOS. They turned
him down, having a better OS already [5] and showed him a bunch of networked
Acorn micros, which was the largest PC network in the world at the time. Bill
looked at it for a bit and said "What's a network?" Love him or be like the rest
of the world, you have to admit that he certainly knows how to learn from other
people's mistakes...
[2] Yes, there are still some left.
[3] OK, "widely" might be stretching it a bit.
[4] Ever wondered where the Win95 "task" bar came from? It's been sitting on
Acorn desktops since 1987...
[5] I know, I know, that isn't hard, but get back to the anecdote, you're
missing the good bit reading this note.
--
Paddy Spencer Parallax Solutions Ltd (http://www.parallax.co.uk/)
"The mutant wasn't doing too well, and had started to melt. But I'd had
it up to here and pretended not to notice."
-- Moebius, The Incal, book one.
------------------------------
Date: 25 Nov 97 11:43:39 GMT
From: sah@uow.edu.au (Scott Anthony Hamilton)
Subject: Re: read from end of file (by line)
Message-Id: <sah.880458219@wumpus>
sah@uow.edu.au (Scott Anthony Hamilton) writes:
>I'm in the process of writing a small module for reading from
>the end of the file line by line to the beginning. Much like
>$scalar = <FH> but in reverse.
>Before I go on, is there a perl trick which can accomplish this
>task with ease?
I've had a reply to this from somebody who misinterpreted the
question. I may not have made myself clear enough.
What I am looking to do is open a file, then read the last line,
the the 2nd last line, then the 3rd last line, and so on ...
until I read the first line in the file.
--
Scott Hamilton / sah@uow edu au / KeyID C3107E75
87 FE 1D C3 DE 20 37 FB 6F 30 6A 8A D1 38 9A B5
------------------------------
Date: Tue, 25 Nov 1997 10:43:04 GMT
From: lenkerWEEDS@dircon.co.uk (Hans Juergen von Lengerke)
Subject: Re: Sorting an 'almost but not really' complicated data structure
Message-Id: <347aa94f.1008150@news.dircon.co.uk>
Abigail wrote:
>Uhm, perhaps upgrade? 5.001 is at least 3 years old...
Actually I just tried your suggestion below on Win32 Perl v. 5.003_7.
It still doesn't work. Btw, I had tried your approach before I posted
initially on 5.001. Being a bit desperate, I had also tried the
following formats:
([$b->[0]] <=> [$a->[0]]) ||
etc.
and
([$b[0]] <=> [$a[0]]) ||
etc.
They don't work and are probabley even a foolish approach ;-). I know
there must be a solution - anyone else who can help?
Abigail had suggested:
>Hola! $a and $b are *scalars*. In this case, refs to arrays.
>What you want is something like:
>
> $b -> [0] <=> $a -> [0] ||
> $a -> [1] cmp $b -> [1] ||
> $a -> [2] cmp $b -> [2] ||
> $a -> [3][0] <=> $b -> [3][0] ||
> $a -> [3][1] <=> $b -> [3][1]
Hans
--
To mail me, just pull the WEEDS!
------------------------------
Date: 24 Nov 97 13:03:18 GMT
From: kelly@superpsm1.com
Subject: SUPER-PC
Message-Id: <34797b16.0@news3.uswest.net>
PERSONAL NOTE: I would like to thank the Internet
community for the opportunity to participate in the following
money making program. This program has allowed me to
quit my full time job and pull the kids out of day care. THANKS!
**************** Here's the Opportunity ******************
Work from home with your PC distributing free software and
information reports worldwide via e-mail and the Internet.
Our exclusive software, PC-SUPER-MLM, will give you the
information and tools that you need to start your own
Computer Based Business as an Information & Software
Distributor.
Achieve FINANCIAL INDEPENDENCE working from home
with your computer using our proven method.
Our products are INFO-REPORTS that provide valuable
information that helps you to reach FINANCIAL
INDEPENDENCE.
Our products can be easily duplicated and distributed via
on-line. This gives us the ability to market all over the world
with virtually no distribution cost.
THE REPORTS ARE:
1) Understanding The Real Power Of MLM
2) Everything You Need To Know About The Internet
3) Marketing Your Business On-Line
4) Secrets Of The Richest People In The World
5) The Truth About Downline Building Clubs
6) The Guide To The PC-SUPER-MLM System
THE REPORTS COST $5. U.S. EACH.
BEST OF ALL, PC-SUPER-MLM is affordable to anyone,
and it is the easiest, simplest, and most powerful program
you have ever seen.
This program is a proven MONEY MAKER. Your outlay of
$30. U.S. for SIX information reports could return you a
potential $500,000 plus. Your FREE copy of PC-SUPER-MLM
has an on-line manual which will explain how this could be
achieved.
PC-SUPER-MLM can be downloaded from the following site:
http://www.superpsm1.com
Thank you,
Kelly Johnson
kelly@superpsm1.com
------------------------------
Date: 25 Nov 1997 13:07:12 GMT
From: korf@informatik.uni-koblenz.de (Frank Korf)
Subject: Re: Tk/Motif/Embedded Perl question
Message-Id: <65eii0$m46$1@newshost.uni-koblenz.de>
In article <64vhj6$lh1@eccws1.dearborn.ford.com>,
fox@pt0204.pto.ford.com (Ken Fox) writes:
>Absolutely! I'm working on a Motif module that provides full access
>to the X, Xt and Xm libraries. I'm supporting both C-style and OO-style
>interfaces. I released an alpha about two months back. The system
Where can I find it?
cu
Frank
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 1368
**************************************
