[7348] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 973 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 4 06:07:12 1997

Date: Thu, 4 Sep 97 03:00:22 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Thu, 4 Sep 1997     Volume: 8 Number: 973

Today's topics:
     "headers" in Perl? <djacobs@gilligan.tsoft.net>
     Re: "Odd number of elements in hash list": So? (Paul Colquhoun)
     Re: Anyone else seeing this core dump in perl5.004_03 o (Rachel Polanskis)
     Re: basic question <s2155678@cse.unsw.EDU.AU>
     Erase line when using print (progres meter) (DeJean)
     formatted reading? (Al)
     Help with a DB file (Michael R Ingenito)
     Re: Help with a DB file (Mike Heins)
     Help with HTML target in perl script (Paul Scott)
     Re: Help with HTML target in perl script <eike.grote@theo.phy.uni-bayreuth.de>
     Re: How to kill a child? <qdtcall@esb.ericsson.se>
     Re: How to open a file for both read and write (Tad McClellan)
     I seem to be missing something obvious with packages <usenet-tag@qz.little-neck.ny.us>
     Re: Is Perl for Win32 really as brain damaged as it see (Bart Lateur)
     Re: Making a Swiss-Army Knife HTML tool in Perl (T. Wheeler)
     Re: multidimensional arrays ? (Jason Gloudon)
     Re: multidimensional arrays ? <qdtcall@esb.ericsson.se>
     Re: NT Mail Question (Jeremy D. Zawodny)
     Objects from one server to another <wmoir@teis.mur.csu.edu.au>
     Re: perl and XEmacs <pcunnell@csfp.co.uk>
     Re: Putting function names in variables (Jason Gloudon)
     Randal Schwartz case. Look into it. Sign and support.. <chatmaster@spam_will_bounce_nstate.net>
     Re: shell command "more" <seay@absyss.fr>
     Re: Web Form: Fields with Multiple values <Marc_Filthaut@HP.com>
     Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: 4 Sep 97 05:08:59 GMT
From: Doug Jacobs <djacobs@gilligan.tsoft.net>
Subject: "headers" in Perl?
Message-Id: <340e426b.0@news.tsoft.net>


I'm developing an application and would like to have something analagous
to headers from C/C++.  I'd like to stick things like extended paths for
custom packages, envrionmental variables, etc. into this file.

So far, I've determined that I can do:

require 'My_Header.pl';

Where My_Header.pl is the "header" file in question.

For some reason when the apllication is called in certain environments, the 
header file doesn't seem to impart its information properly :(

It doesn't seem to do the path thing properly - yet it doesn't complain, it
just doesn't work :(  Very annoying.  I really don't want to have the same
5 to 10 lines in every file as updating them will be annoying.

Ideas, clue-by-fours, and pointers welcome.  

Thanks,
Doug

Ps. I know it'd be clever, but I really don't want to write my own 
"pre-processor"...interesting as it may sound. ;)


------------------------------

Date: Thu, 04 Sep 1997 17:54:53 +1100
From: paulcol+usenet@andor.dropbear.id.au (Paul Colquhoun)
Subject: Re: "Odd number of elements in hash list": So?
Message-Id: <paulcol+usenet-ya02408000R0409971754530001@linux.andor.dropbear.id.au>

In article <5uicp2$rt4$1@ocean.cup.hp.com>, doug_claar@hp.cNoSPAm wrote:

|With -w and strict turned on, perl 5.004 warns me that I have an
|"Odd number of elements in hash list". Why does it care, and should
|I care? Seems like a fairly useless error message, in that--if there
|is a reason that this is bad, it certainly doesn't tell you what it
|is, and if it isn't, why print it?


I assume that the lines referenced look something like this

%hash = ( 1, 2, 3, 4, 5, 6, 7 );

Since a hash is supposed to be a list of ( key, value ) *pairs*, having an
odd number of entries is unusual. If you use the '=>' comma equivalent, the
above line becomes

%hash = ( 1 => 2, 3 => 4, 5 => 6, 7 => );

Which, in turn, is shorthand for

$hash{1} = 2;
$hash{3} = 4;
$hash{5} = 6;
$hash{7} =  ;

This makes it a little more obvious what the interpreter is expecting.

-- 
Reverend Paul Colquhoun,   paulcol+sig@andor.dropbear.id.au
Universal Life Church  http://andor.dropbear.id.au/~paulcol
          "Say, can I use that quote in my book?"
                                     -- Bartlett


------------------------------

Date: 3 Sep 1997 08:24:54 GMT
From: rachel@virago.org.au (Rachel Polanskis)
Subject: Re: Anyone else seeing this core dump in perl5.004_03 on solaris 2.5.1 [Was: Re: Compiling perl5.004.01 on solaris 2.5.1
Message-Id: <5uj6sm$5o4@janis.virago.org.au>

Hi,
I have *never* got any perl version I have compiled to work 
100% properly with a lot of optimisations on Solaris or Linux!
This is using gcc, mind you.  It looks like you are using 
Sun's compiler?

Try recompiling with a reduced set of optimisations....
just a thought!

rachel

--
Rachel Polanskis                 Kingswood, Greater Western Sydney, Australia 
grove@zeta.org.au                http://www.zeta.org.au/~grove/grove.html
r.polanskis@nepean.uws.edu.au    http://www.nepean.uws.edu.au/ccd/
 "Yow!  Am I having fun yet?!" - John Howard^H^H^H^H^H^H^H^H Zippy the Pinhead


------------------------------

Date: Thu, 4 Sep 1997 15:05:46 +1000
From: Anthony Mak <s2155678@cse.unsw.EDU.AU>
To: Liviu Chiriac <lchiriac@sarnoff.com>
Subject: Re: basic question
Message-Id: <Pine.GSO.3.95.970904150426.2010B-100000@flute03.orchestra.cse.unsw.EDU.AU>

On Wed, 27 Aug 1997, Liviu Chiriac wrote:

> I have a cgi program written in perl, to which I pass parameters when
> calling it from an HTML page like this:
> 
> "myprogram.cgi?parameter1=1+parameter2=2" ... for example.
> 
> how do I run the perl script from a terminal window passing the same
> parameters?
> 
> "myprogram parameter 1 parameter2=2"  ?
> 
> Liviu
> 
> 
This is what you need to type:

myprogram.cgi parameter1=1+parameter2=2

Anthony ^_^

+----------------------------------+----------------------------------------+
|AnthonyMak(shadow@jolt.mpx.com.au)|                                  ^   ^ |
|4 th year computer engineering    |  "NICE TO MEET U"          O O    | |  |
|student in university of new south|                             _    = Y = |
|wales.                            |                                        |
|                                  |                            Me & Michael| 
+----------------------------------+----------------------------------------+
My homepage: http://www.cse.unsw.edu.au/~s2155678/




------------------------------

Date: 4 Sep 1997 09:07:43 GMT
From: Jan_Doumen@imol2.vub.ac.be (DeJean)
Subject: Erase line when using print (progres meter)
Message-Id: <5ultov$j3d@imol2.vub.ac.be>
Keywords: erase erasing line using print printf progres meter

Hi,

I would like to have a kind of progress meter for perl
I'm printing info to the screen like

  doing 1 of 10
  doing 2 of 10
  ...

This doesn't look nice when you are doing 729 items. There for I would
like the second line to overwrite the first one. Anybody around who
can help with this? I tried numerous things and none fo them seems to
work e.g.

  print "Erase line ...";
  for($i=0;$i<=100000;$i++) {
  }
  print "... now";

prints both items at the same time. (No explicit clearing of buffer)

  print "Erase line ...";
  for($i=0;$i<=100000;$i++) {
  }
  print "\015... now";

same problem

 ...

Thanks in advance,

Greetings,


-- 
DeJean                                             http://ultr.vub.ac.be/~jan
   If you know _all_ of the following keywords, please contact me, you are
                     probably my lost twin brother.
    Bosendorfer, Castagnari, Klaus Gutjhar, Alfred Arnold, Ribonuclease T1
      Modified Mono/Di-nucleotides, Ginder-Ale, Hanssens, De Garre, Tofu
                       Spegelaere, UNIX, Sodade


------------------------------

Date: Thu, 04 Sep 1997 08:35:27 +0200
From: "(Al)fred Heller" <ajh@ibe.dtu.dk>
Subject: formatted reading?
Message-Id: <340E56AF.539E@ibe.dtu.dk>

Hei all

I would like to do a very simple thing - to read formatted lines from a
file: e.g. position 1 is string1, from 2-5 is real number1, and so on..
How can I achieve this goal?

Thank you

Fred 

-- 
Alfred Heller
Department of Buildings and Energy
Build. 118, DTU
DK- 2800 Lyngby
Tel: +45 45 25 18 59
Fax: +45 45 93 44 30
e-mail: ajh@ibe.dtu.dk


------------------------------

Date: 4 Sep 1997 05:55:40 GMT
From: ingenito@acsu.buffalo.edu (Michael R Ingenito)
Subject: Help with a DB file
Message-Id: <5uligs$djh$1@prometheus.acsu.buffalo.edu>

Hi,

   I have a script which opens and accesses a DBM database.  It works fine on
Linux, but when I try to run it on Win95 it bugs out and gives me these errors:

Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
pm line 18.
Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
pm line 28.
Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
pm line 36.
Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
pm line 47.
Modification of a read-only value attempted at D:\PERL5\lib/DB_File.pm line 66.
BEGIN failed--compilation aborted at D:\PERL5\lib/DB_File.pm line 66.

Can someone please help??

Mike



------------------------------

Date: 4 Sep 1997 06:30:05 GMT
From: mheins@prairienet.org (Mike Heins)
Subject: Re: Help with a DB file
Message-Id: <5ulkhd$5ot$1@vixen.cso.uiuc.edu>


Michael R Ingenito (ingenito@acsu.buffalo.edu) wrote:
: Hi,
: 
:    I have a script which opens and accesses a DBM database.  It works fine on
: Linux, but when I try to run it on Win95 it bugs out and gives me these errors:
: 
: Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
: pm line 18.
: Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
: pm line 28.
: Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
: pm line 36.
: Global symbol "elements" requires explicit package name at D:\PERL5\lib/DB_File.
: pm line 47.
: Modification of a read-only value attempted at D:\PERL5\lib/DB_File.pm line 66.
: BEGIN failed--compilation aborted at D:\PERL5\lib/DB_File.pm line 66.
: 
: Can someone please help??

Probably not. You need to post code to get help..

DB_File is not ported to windows, so you will have to use SDBM_File.
Good luck.

-- 
Regards,
Mike Heins

This post reflects the
opinion of my employer.


------------------------------

Date: Wed, 03 Sep 1997 08:12:02 GMT
From: page@page-group.co.uk (Paul Scott)
Subject: Help with HTML target in perl script
Message-Id: <34101bc3.1884678@news.demon.co.uk>

Hi all, 
I have a perl script that read from input, emails it and returns an
HTML page with a link in it. This link needs to have the target _top,
but I can't make perl recognise the tag. The lines below are the link
from the perl script with the _top target.

Return to the <A HREF=\"$FORM{'HomePage'}\"
target="_top">$FORM{'CompanyRecipient'} Home Page.</a>


------------------------------

Date: Thu, 04 Sep 1997 10:55:39 +0200
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: Help with HTML target in perl script
Message-Id: <340E778B.794B@theo.phy.uni-bayreuth.de>


Hi,

Paul Scott wrote:
> 
> Hi all,
> I have a perl script that read from input, emails it and returns an
> HTML page with a link in it. This link needs to have the target _top,
> but I can't make perl recognise the tag. The lines below are the link
> from the perl script with the _top target.
> 
> Return to the <A HREF=\"$FORM{'HomePage'}\"
> target="_top">$FORM{'CompanyRecipient'} Home Page.</a>
         ^    ^
     these should be \", too

Bye, Eike
-- 
======================================================================
 Eike Grote, Theoretical Physics IV, University of Bayreuth, Germany
----------------------------------------------------------------------
 e-mail -> eike.grote@theo.phy.uni-bayreuth.de
 WWW    -> http://www.phy.uni-bayreuth.de/theo/tp4/members/grote.html 
           http://www.phy.uni-bayreuth.de/~btpa25/
======================================================================


------------------------------

Date: 04 Sep 1997 09:41:06 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: How to kill a child?
Message-Id: <isd8mpplv1.fsf@godzilla.kiere.ericsson.se>

jzhuang@ringer.cs.utsa.edu (Jun Zhuang) writes:

>  I tried to kill a child process after a fork(), but I find out
> it ALWAYS ovewrwrite my printf in the parent process.
>  The code is:
[code snipped]

The code you posted doesn't even compile, and if one fixes it to do so
it works as you want it to. If you still need help, post a short piece
of code which you have *verified* displays the problem.

-- 
		    Calle Dybedahl, UNIX Sysadmin
      qdtcall@esb.ericsson.se  http://www.lysator.liu.se/~calle/


------------------------------

Date: Wed, 3 Sep 1997 18:56:28 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How to open a file for both read and write
Message-Id: <dftku5.gq6.ln@localhost>

Songtao Chen (songtao@nortel.ca) wrote:

: Could anyone tell me how to open a file for both
                              ^^^^^^^^^^^
                              ^^^^^^^^^^^
: read and write ?

Yes. The free documentation that is included with the perl 
distribution can tell you how to do that.


: I am new to Perl.

Do you have the perl distribution yet?

If so then you have hundreds of "pages" worth of documentation
sitting there waiting for you to use it.

So use it ;-)


A word search for the underlined phrase above finds nine matches...

Or, just read about open() in the perlfunc man page.


--
    Tad McClellan                          SGML Consulting
    tadmc@flash.net                        Perl programming
    Fort Worth, Texas


------------------------------

Date: 4 Sep 1997 03:58:55 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: I seem to be missing something obvious with packages
Message-Id: <eli$9709032354@qz.little-neck.ny.us>


[I tried sending this earlier but I don't think that worked, sorry
if you see this twice.]

I decided I wanted to move a bunch of variable declarations
out of a script and into a package.

Basically I had a script that had several things like:

	@list=( "item", "ietm", "etim" );
	@slit=( "mite", "time", "emti" );
	...
	foreach $item (@list) { ... }
	foreach $item (@slit) { ... }
	...

Now I have a file MyLists.pm which contains

	package MyLists;
	@list=( "item", "ietm", "etim" );
	@slit=( "mite", "time", "emti" );
	...

and my script contains

	require MyLists;
	...
	foreach $item (@MyLists::list) { ... }
	foreach $item (@MyLists::slit) { ... }
	...

This (seems to) work fine, except that '-w' gives me warnings
that @MyLists::list, et al, is referenced only once from main.
What am I overlooking?

Elijah
------
attempting to isolate frequently changed stuff from the rest of the script


------------------------------

Date: Thu, 04 Sep 1997 09:55:16 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Is Perl for Win32 really as brain damaged as it seems?
Message-Id: <34157307.4561191@news.tornado.be>

jdm@thetics.europa.com (Jessica) wrote:

>I tried using backticks to execute the command and it would run the 
>command correctly and return the correct output to my script, but for
>no apparent reason, _it would access a:\ every time the external command
>was executed_. 

I've seen this once before on a Win95 machine, and Perl had nothing to
do with it.

This behaviour started after he ran WinZip once from the floppy drive.
Apparently, WinZip had installed itself in the registry.

You need to uninstall it (or any other program that did this) properly.

HTH,
Bart.


------------------------------

Date: Thu, 04 Sep 1997 03:37:26 GMT
From: twheeler@m-net.arbornet.org (T. Wheeler)
Subject: Re: Making a Swiss-Army Knife HTML tool in Perl
Message-Id: <340e2b98.784451046@news.stlnet.com>



><
><I am wanting to deelop a do-it-all perl tool that will take plain text
>
><cringe>
>Tom, have you every noticed that Swiss Army Knives are fun to play
>with, but seldom adequate for everyday use in all of their capacities?
>I would hate to use a Swiss Army Knife spoon every morning, for
>example, because a simple spoon (that isn't also trying to be a
>screwdriver and a compass) will do the job better every time.
>

I understand your point.  But rather than create five tools to do the
job, I want to create one tool with five command-line options.  More
efficient, I think.

><files and create decent formatted HTML.  Once it is completed, I will
><post it in th epublic domain for all to use.
>
>This has been done many times, but rarely well.  What do you mean by
>"decent [sic] formatted HTML"?  Do you plan to build in support for the
>full HTML 4.0 DTD?  Or does "decent" simply refer to some subset of
>HTML that you personally find appealing?  Let me be clear: I'm not
>bashing you here, but I am either a) impressed that youwould take on a
>project of this enormity; or b) puzzled by the claim that your personal
>faves would somehow comprise a do-it-all tool suitable for general
>consumption.
>
I mean good old-fashioned middle-of-the-road 3.2ish HTML that can be
viewed by the majority of browsers. I am a big fan of
platform-independence.

>< I warn you now -- I am
><somewhat of a newbie to perl although I have a bit of experience in
><other languages.  
>
>Again, are you sure you know what you're getting into?
>

No.  But that's part of learning something -- biting off more than I
can chew.  Hopefully I will learn quite a bit about perl during this
project.

Thanks for your input.  I do understand what you are saying and
appreciate it.  One of my fatal flaws is good old Irish stubborness.

Tom
>
>-- 
>Eric D. Friedman
>friedman@uci.edu



------------------------------

Date: 4 Sep 1997 05:39:13 GMT
From: jgloudon@bbn.com (Jason Gloudon)
Subject: Re: multidimensional arrays ?
Message-Id: <5ulhi1$s6k$1@daily.bbnplanet.com>


In article <340DF3BA.2C78@channels.nl>,
Bas van Reek  <basvreek@channels.nl> wrote:
>Is there a way to create multidimensional
>arrays in perl. (something like a(10,10) in 
>a lot of other languages)
>
>could noy find any docs about it ?
>
>Bas van Reek

You need to get && use Perl5, which supports multidimenional arrays
to say the least. man perllol(1) and perlref(1) for details.

Jason Gloudon


------------------------------

Date: 04 Sep 1997 09:45:35 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: multidimensional arrays ?
Message-Id: <isbu29plnk.fsf@godzilla.kiere.ericsson.se>

Bas van Reek <basvreek@channels.nl> writes:

> Is there a way to create multidimensional arrays in perl. (something
> like a(10,10) in a lot of other languages)

Yes.

> could noy find any docs about it ?

Look harder (particularly at the perlref, preldsc and perllol manpages).

-- 
		    Calle Dybedahl, UNIX Sysadmin
      qdtcall@esb.ericsson.se  http://www.lysator.liu.se/~calle/


------------------------------

Date: Thu, 04 Sep 1997 03:24:00 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: NT Mail Question
Message-Id: <34152945.212886474@news.bgsu.edu>

[original author automagically cc'd via e-mail]

On 3 Sep 1997 21:58:08 GMT, "Ryan" <rmcguigan@ramresearch.com> wrote:

>This has been the biggest pain in the ass for so many people.  You'd think
>Microsoft would do something for little things like this ( I've heard of a
>lot of programmers switching back to UNIX machines for this very reason) 
>That's not entirely necessary though.  First of all, you'll need to
>download or purchase a sendmail program for NT.  You should throw away
>Activeware's port of perl for win32's ( really annoying when trying to use
>pipes ) and get Garusam...some funny name's port of perl from CPAN.  Change
>your scripts, 
>
>$mailprog = 'c:\whatever\whatever.exe';

Or, just bypass external commands altogether, thus making your script
more *portable* and *reliable* and then you can use either Perl port,
and move it back and forth from NT to Unix to Mac to OS/2 to whatever.

Over a year ago I wrote my own simple SMTP library in Perl, and I've
used it over and over and over again. If it wasn't for intellectual
property restrictions, I'd just post it.

In any case, why not have a look at Net::SMTP, which probably does
[most of] what you need.

Jeremy
---
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>

"That's an example of how Perl can bring school yard cruelty to new heights."
    -- Jon Orwant at the 1st Annual Perl Conference


------------------------------

Date: Thu, 04 Sep 1997 17:10:59 +1000
From: Wendy Moir <wmoir@teis.mur.csu.edu.au>
Subject: Objects from one server to another
Message-Id: <340E5F02.A5DF793E@teis.mur.csu.edu.au>

I'm trying to send data in the form of a object to another server,
How do i do this, what is required of the perl script sending the
object.

I know that the receiving server also needs some idea of what the object
is and how to handle it once it gets one,  at the moment i am using the
same server but different locations  to try and get it to work before
implementing it on another server

I have used the LWP User Agent to accept data from a form, append the
data to the url of the other location on the server,  the script of this
server is just a accept the arguments and then a print statement.  I'm
not sure if this is the correct way of testing.  It mustn't be because
it doesn't work.



do you send the object to a particular script (perl) on the server that
will accept the object and then perform certain tasks before returning
the object with the results of any processing undertaken.

Do you send the object using the LWP User Agent perl module, only
allowing one request at a time or is there another way, i have looked at
ParallelUA ( User Agent ).  Because i need to perform multiple requests
at the same time

I need to understand the underlying features of what is involved in the
process of sending requests to remote servers, wait for a response and
then accept the response.  This is the most important issue at the
moment and i need to know this before i can go any further with my
development of a query object and a distributed one at that.

I may not be making any sense to some of you, feel free to ask me to
clarify, i need all the help i can get.  Any web resources that you can
think of would also be much appreciated.



------------------------------

Date: Thu, 04 Sep 1997 09:17:59 +0100
From: Paul Cunnell <pcunnell@csfp.co.uk>
Subject: Re: perl and XEmacs
Message-Id: <340E6EB7.ABD322C@csfp.co.uk>


Gary D. Foster wrote:
> 
> >>>>> "Chris" == Chris Nandor <pudge@pobox.com> writes:
> 
>     Chris> I know this was all supposed to be humourous, but it wasn't
>     Chris> particularly funny.
> 
> Depends on your sense of humor, now doesn't it?  Perhaps you might
> have said "wasn't particularly funny _to me_", if you really want to
> be pedantic about it.
> 
> -- Gary F.

Well it raised a :-) from me. But not quite as funny as this:

> How do I send a query string via a normal URL?
> And you get bonus points if you can tell me what I'm doing wrong.
>
> Please mail me directly, I won't be checking this newsgroup.

Yeah, right.

-- 
Paul Cunnell CSFB RDG (pcunnell@csfp.co.uk) +44 171 888 2946


------------------------------

Date: 4 Sep 1997 04:57:34 GMT
From: jgloudon@bbn.com (Jason Gloudon)
Subject: Re: Putting function names in variables
Message-Id: <5ulf3u$oin$1@daily.bbnplanet.com>

In article <spectranEFy8EH.Kut@netcom.com>,
Tracy Bednar <spectran@netcom.com> wrote:
>
>Is it possible to put function names in a variable, then call the function
>by referencing the variable?
>
>ex:
>
>$func = "print";
>$func "Hello World\n";
>
>
>I've tried this , and the eval statement, but with no luck.
>You can do:
Tried anything like this ?
#!/bin/perl

@list=(apples,oranges,nuts,berries,bananas);
$somecode = rand > 0.5 ? 'sort' : 'reverse';
$somecode .= ' @list';  # either sort @list or @reverse @list
@fast=(eval $somecode); # eval EXPR - execute the code in $somecode
print join(' ',@fast);

Randomly sorts the list or prints the reverse order of the original.

J Gloudon


------------------------------

Date: Wed, 03 Sep 1997 19:55:24 -0700
From: Chat Central <chatmaster@spam_will_bounce_nstate.net>
Subject: Randal Schwartz case. Look into it. Sign and support..
Message-Id: <340E231C.195@spam_will_bounce_nstate.net>

I'm sure no one will bitch about this posting... 

I haven't seen anything lately at all about the Randal Schwartz case.
And I myself finally got around to signing the Open Letter to Intel.  I
think this is very importiant, and you can maybe see why in my comments
I sent, (included below.. keep in mind, this is not factual, only my
comments about the facts *I* have seen, and what *I* believe. I hope
none of my comments are inaccurate, if so, then disregard them, and I
apologize. Feel free to correct me). Every signateure is helpful in this
very infair matter!

Go to:
http://www.lightlink.com/spacenka/fors/us2intel/

To sign the open letter to Intel, and go to:
http://www.lightlink.com/spacenka/fors/
and:
http://www.rahul.net/jeffrey/ovs/

For more information about this. Everyone should be aware...

Randal has helped the perl community tremendously! And what's happened
to him, os so veryu wrong! I want to simply state the very obvious
reasons for why this is so wrong to happen in my comments below!

** here were my 'comments'.. Please don't just read my comment and think
you know what this is about or not about by any means. This is only my
thoughts, with the information I've read. Please do correct me if I've
errored.

--------------------------------

I most strongly believe that it's completely ridiculous to assume that 
someone would be "up to something", because they had "opportunity" to 
do so - Or everyone at Intel would be a suspect of this same type of 
"possible" crime. To me, this entire situation is nothing short of 
paranoia on Intel's part. Randal had no motive, nor real opportunity 
to take advantage of any Intel information (as was stated in the 
reports that he *could* have gotten information and done something 
with it. But as could anyone that is contracted there or employed, 
with any knowlegde or information. So are they all to to suspects? 
Or suspects if they were to have a *very* obvious process running 
under their own name?). 
Sure, I agree that it's a suspicious thing to find, but consider this. 
 ..*why* in the world would anyone leave a PID process going for such 
a long time under their own (obvious) name of who owned it!? 
Anyone that's been on a Un*x for a day knows that. I certiantly agree 
that it was justified for Intel to end his contract, as that's reason 
enough for them, and I'm sure it was a big part because this made them 
"uncomfortable" to be aware of it. And he did breach the Intel policy 
apparently. But, in actuality, he did not break any laws.  Obviously, 
he wouldn't have been given such access, if he wasn't to be trusted. 
But, simply because he *could* have done something illegal or 
malicious, does *not* by any means, mean he had intended to, and he 
most certianly did not!  If this is because he *could* have and 
because he had "opportunity", then let it be known, that a LOT of 
people have that same access and opportunity I'm sure. He was "assumed" 
to be doing something very wrong, because it could have looked 
bad (I can see why), but most people can see the truth. 
So, how close to actually doing it or not, do you need to have 
reason(s) for assuming they are intending to (break the law). 
He obviosly was not, or he could have long before. Keep in mind 
(as everyone knows), Randal is very well respected, and to even 
assume he would take advantage or do anything illegal (beyond Intel's 
specification(s)), is completely unfounded and insulting to find.
That's too trivial. It's as if giving someone a key to something, and 
if they do something that makes you nervous about them having this 
type of access, even without real proof of anything, to press charges. 
For what really? No *real* law was broken. The termination of his
contract is 
totally justified and understandable in this situation. But to press 
criminal charges for this. This is very wrong, and dissapointing to see.

-----------------------------------------------

again, the URL's are...

Go to:
http://www.lightlink.com/spacenka/fors/us2intel/

To sign the open letter to Intel, and go to:
http://www.lightlink.com/spacenka/fors/
and:
http://www.rahul.net/jeffrey/ovs/

---
Sorry for the length.. But I felt the need to sate the very obvious, in
how easy it is to see how wrong it was of Intel to do!

                Good day,
		 Tim...

Please remove "spam_will_bounce_" from the address if replying via
email, 200 K+ spam a day is enough in my diet!

-- 
                           Chat Central                    

           In the top 5 most accessed sites on WebCrawler 
           since the first week up, and holding strong!!!

       Receiving up to and over 10,000 visitors a day worldwide 

              Administrator - Chat Hub / Chat Central:
         http://www.chathub.com - OR - http://chat.nstate.net
                           E-Mail Contact: 
       chatmaster@chathub.com, webmaster@chathub.com, sales@chathub.com, 
          info@chathub.com, admin@chathub.com, chatmaster@nstate.net  
                        Webmaster Northstate Net:
                          http://www.nstate.net
                            E-Mail Contact: 
                         webmaster@nstate.net


------------------------------

Date: Thu, 04 Sep 1997 11:00:32 +0200
From: Doug Seay <seay@absyss.fr>
Subject: Re: shell command "more"
Message-Id: <340E78B0.212355A5@absyss.fr>


William Wue(2xP)elma(2xN) wrote:
> 

"more" like code deleted

> 
> After all, not every Perl program is a non-interactive run-and-watch
> UNIX script...

Nor is every term is 80x25 either.  Use $ENV{LINES} and $ENV{COLUMNS} to
make some attempt at honoring the reported size of the terminal.

- doug


------------------------------

Date: Thu, 04 Sep 1997 08:57:14 +0200
From: Marc Filthaut <Marc_Filthaut@HP.com>
Subject: Re: Web Form: Fields with Multiple values
Message-Id: <340E5BCA.1B2F@HP.com>

Webwest design wrote:
> 
> I have a perl script that gets input from fields on an HTML form -
> 
> If I have a field with multiple values (ie a SELECT field)
>  it only picks up the last inputed value from the SELECT field
>  and overwrites all previous versions.
> 
> How do I get the other values???

Use the module form-setenv.pm, its smaller and faster as CGI.pm 
(but can not so much).

But form-setenv is at this moment only for Unix avaible.

http://www.student.uni-koeln.de/~mfilthau/scripts/form-setenv


Marc
-- 
___________________________________________________________________
Marc Filthaut                      Hewlett-Packard GmbH
SW Delivery Support Engineering    Berliner Str. 111       _/
                                   40880 Ratingen         _/
Phone  : +49-2102-90-6505          Germany               _/_/_/ _/_/_/
Telnet : 705-6505                                       _/  _/ _/  _/
Fax    : +49-2102-90-6885                              _/  _/ _/_/_/
                                                            _/
eMail  : Marc_Filthaut@HP.com                              _/
_____________________________________________________________________


------------------------------

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 973
*************************************

home help back first fref pref prev next nref lref last post