[6494] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 119 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 14 17:27:20 1997

Date: Fri, 14 Mar 97 14:00:22 -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           Fri, 14 Mar 1997     Volume: 8 Number: 119

Today's topics:
     [HELP] !@#$% sort subroutines... mblase@ncsa.uiuc.edu
     Re: [Q]:  Problems with .pag files <rootbeer@teleport.com>
     Re: basic documentation <msusips1.jthompso@eds.com>
     Re: can $_ be dissociated from its contents? (Ilya Zakharevich)
     Re: CGI & sendmail <rra@cs.stanford.edu>
     Re: Counter help me peez >:P <dhodgson@incyte.com>
     Re: Elegant way to strip spaces off the ^ and $ of a va (Abigail)
     eval prematurely exitting on syntatically correct code rhills@leupstv.com
     filter::decrypt on win32 <mg@obd.com>
     Re: HELP!! Urgent assistance required please! (Tad McClellan)
     Re: how to delete last line in .txt.file (Joel Graber)
     Installing perl on Sun (Hammelman)
     Re: newbie question: how to pick a particular line in p (Chip Salzenberg)
     Re: Numeric function (Jan Schipmolder)
     Re: Perl and ypcat (Gerben Vos)
     Re: PERL on a local PC <davidw@efn.org>
     PERL Programmer needed (Gloria Z. Smith)
     Re: Perl-style regular expressions for C/C++? <jvenu@ctp.com>
     Re: RFC821Header Decoder (M.J.T. Guy)
     Searching for a graphical counter that can use differen <webmaster@nykoping.com>
     Sockets Question <rwilson@eh.net>
     sort large array <jims@ss5mth44.franklin.com>
     Re: Unix and ease of use  (WAS: Who makes more ...) <wkuhn@uconect.net>
     Re: What's wrong with "an email" (was: How to spam - le (Markus Laker)
     Re: Who makes more $$ - Windows vs. Unix programmers? (Roger Lin)
     Win32: How to use a MessageBox or Dialog <ea1217@fen.baynet.de>
     Win32: How to use a MessageBox or Dialog <ea1217@fen.baynet.de>
     Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

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

Date: Fri, 14 Mar 1997 13:41:34 -0600
From: mblase@ncsa.uiuc.edu
Subject: [HELP] !@#$% sort subroutines...
Message-Id: <858367460.31716@dejanews.com>

I know I have the syntax right, because the thing runs. It even runs
in the debugger. The only thing it doesn't do is sort the array
it's given. Could some kind soul glance through this and tell me
what I'm doing wrong?

Thanks in advance --

-- Marty Blase
   mblase@ncsa.uiuc.edu


sub AlphaSort {
  local(@array) = @_;
  return sort Alphabetical @array;     # return the sorted array
}

sub Alphabetical {
  local($a,$b) = @_;
  foreach($a,$b) {
    tr/A-Z/a-z/;
    s/^\s+//;                           # remove any leading whitespace
    s/^the\s+//;
    s/^a?\s+//;                         # remove either 'a' or 'an'
  }
  return $a cmp $b;
}

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet


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

Date: Fri, 14 Mar 1997 11:12:48 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Thomas Valley; (Consultant - Murphy 97)" <mystery@itis.com>
Subject: Re: [Q]:  Problems with .pag files
Message-Id: <Pine.GSO.3.96.970314111123.28180C-100000@kelly.teleport.com>

On Fri, 14 Mar 1997, Thomas Valley; (Consultant - Murphy 97) wrote:

> I've got a problem.  I've got a block of code that is saving a bunch of
> data (115 records) to a database.  I'm using dbmopen/dbmclose (yea, I
> know, use tie/untie...I will, if it solves my problem) to access the
> hash of records.
> 
> Unfortunately, even though these 115 records each never go above 900
> characters in length (total length = combo length of key and value), the
> file size has erupted into 20MB-30MB.  Given that records cannot exceed
> the 1024 ndbm barrier, this is implying that I have at least 20000
> records.  

dbm files (at least on some machines) can have "holes" in them, so they
seem to be _far_ larger than they truly are. That sounds like what's
happening here. Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:     http://www.lightlink.com/fors/



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

Date: Thu, 13 Mar 1997 07:59:57 -0600
From: Jim Thompson <msusips1.jthompso@eds.com>
Subject: Re: basic documentation
Message-Id: <3328085D.29EF@eds.com>

Alfredo Campos wrote:
> 
> hey! i need some help please!
> i'm a neewbie in perl... in fact i don't know how to use it ... i have it
> in my unix account...
> Where could i find some basic guide to use this lenguage???

Search for CPAN (consolidate Perl Archives) in Yahoo, that will direct
you to the nearest mirror site.  You can download docs, sample code, etc
for various platforms.

Jim


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

Date: 14 Mar 1997 20:46:03 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: can $_ be dissociated from its contents?
Message-Id: <5gcdeb$kir$1@mathserv.mps.ohio-state.edu>

[A complimentary Cc of this posting was sent to Chip Salzenberg
<chip@rio.atlantic.net>],
who wrote in article <5gbunr$fo@news.atlantic.net>:
> Oh, I see; I answered the wrong question.  Do this instead:
> 
>    $x = \$_;		# get reference to original value
>    *_ = \ eval { '' };	# make $_ refer to a new empty string

Why not do it the Perl way (as opposed to the perl way)
	{
	  local $_ = 'a' x 3000;
	  $x = \$_;
	}

Ilya


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

Date: 14 Mar 1997 12:10:41 -0800
From: Russ Allbery <rra@cs.stanford.edu>
To: tchrist@mox.perl.com (Tom Christiansen)
Subject: Re: CGI & sendmail
Message-Id: <qumbu8mnsji.fsf@cyclone.stanford.edu>

[ Posted and mailed. ]

Tom Christiansen <tchrist@mox.perl.com> writes:
> In comp.infosystems.www.authoring.cgi, Alain.Deckers@man.ac.uk writes:

>> Also make sure you set the right flags for sendmail.

> Indeed: "sendmail -oi -t -odq" are probably good.  The -odq will save
> your machine a lot of headaches.

Although people should be aware that adding -odq may not be what they want
if they want the mail to go through reasonably quickly, since some systems
only run the mail queue every hour or so.

The other flag that you almost certainly want to add to sendmail is -oem,
which tells it to send any error messages via e-mail as a bounce message
rather than trying to save to ~/dead.letter.  99% of all scripts will want
that behavior.

-- 
Russ Allbery (rra@cs.stanford.edu)      <URL:http://www.eyrie.org/~eagle/>


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

Date: Fri, 14 Mar 1997 12:53:22 -0800
From: Dave <dhodgson@incyte.com>
To: Brian Lorraine <lorraine@ait.nrl.navy.mil>
Subject: Re: Counter help me peez >:P
Message-Id: <3329BAC2.44CD@incyte.com>


You are attempting to both read from and write the same file handle. I
don't think
Perl allows you to do this. So open the file and read the value. Then
close it and
reopen it for writing thus:

################################################
#!/usr/bin/perl

open(COUNTFILE, "testct");
$numero = <COUNTFILE>;
close (COUNTFILE);

print "Content type: text/html\n\n";

print "You are visitor number $numero\n" || print "Can't open the
file\n";

$numeronext = $numero + 1;

open (COUNTFILE, ">$testct");
print COUNTFILE "$numeronext\n";
close(COUNTFILE);
################################################

Cheers,

    Dave



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

Date: Fri, 14 Mar 1997 19:06:13 GMT
From: abigail@ny.fnx.com (Abigail)
Subject: Re: Elegant way to strip spaces off the ^ and $ of a variable containing a sentence.
Message-Id: <E71rqD.CqI@nonexistent.com>

On 14 Mar 1997 15:55:48 GMT, Tom Christiansen wrote in comp.lang.perl.misc:
++  [courtesy cc of this posting sent to cited author via email]
++ 
++ In comp.lang.perl.misc, 
++     abigail@ny.fnx.com writes:
++ :And why set $_ to the element of the array in stead of a copy if we
++ :aren't supposed to use the side effects?
++ 
++ Why?  I can tell you that: Because it was an accident the first time, and
++ people started using it, so Larry doc'ed it.  As far as I'm concerned,
++ it's kinda dodgy and mystifying.  This first came up with grep(), and
++ the grep name is too strongly associated with a filter function to mean
++ a munge one to most people, including me.  Thus it's deceptive.  On the
++ other hand, map() invokes thoughts of the LISP mapcar function, which
++ is rather different.  Still, an "apply" -- or simply postfix foreach --
++ would have been more understandable.
++ 
++     map { $_ += 7 } @foo;		# grrr
++     foreach (@foo) { $_ += 7 }		# clear to non lisper

What is more understandable varies from person to person.
I find the foreach example less clear than the map.

Maybe it's because I'm used to the map_array () of LPC, which
would always replace the elements of the array:

Displaying /doc/efun/arrays/map_array:
 
 
map_array(3)          LPC Library Functions          map_array(3)
 
NAME
     map_array() - modify an array of elements via application of
     a function
 
SYNOPSIS
     mixed *map_array( mixed *arr, string fun, object ob,
                       mixed extra );
 
DESCRIPTION
     Returns an array holding the items of `arr'  mapped  through
     `ob->fun()'.   The function `fun' in `ob' is called for each
     element in `arr' with that element as  parameter.  A  second
     parameter  `extra'  is sent in each call if given. Principal
     function:
 
          foreach (index) arr[index] = ob->fun(arr[index],extra);
 
     The value returned by `ob->fun(arr[.index.], extra)' replaces
     the existing element in the array.  If `arr' is not an array,
     then 0 will be returned.
 

++ These are illegal, but follow the intent, and were once contemplated:
++ 
++     $_ += 7 foreach @foo
++     { $_ += 7 } foreach @foo
++     do { $_ += 7 } foreach @foo;
++ 
++ On the other, this is cool:
++ 
++     @remainders = map { $_ % 7 } @foo;
++ 
++ because the retval is used.
++ 

And @bar = map {$_ += 7;} @foo; is both evil and cool?


Abigail



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

Date: Fri, 14 Mar 1997 13:21:30 -0600
From: rhills@leupstv.com
Subject: eval prematurely exitting on syntatically correct code
Message-Id: <858366070.30661@dejanews.com>

I am attempting to implement PLEXUS on a HPUX 9.04 system running
perl 5.001. The following eval statement (located in sub get.pl)
causes the child process to exit.

  eval '&retrieve($path,$query)';

Now if I replace that statement with either one of the two following,
it works ok.

  eval '&retrieve()';       # Note no argument
  &retrieve($path,$query);  # Note no "eval"

This statement is in a child process and I know the retrieve sub is not
being called because I put a "print STDERR" as the first statement.

Anyone have ideas on what situation can cause the syntatically correct
statement above to crash the child process?
above to

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet


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

Date: Fri, 14 Mar 1997 15:13:10 -0500
From: Morris Goldstein <mg@obd.com>
Subject: filter::decrypt on win32
Message-Id: <3329B156.114@obd.com>

Has anyone gottone the filter::decrypt stuff to work with
the activeware port (the 303 release) of perl on win32?

I have it working on unix just fine, but only almost
working on win32.  It has parse problems with programs that
have "{" on a seperate line.  

Getting the decrypt.xs to compile with the activeware port was
no picnic so perhaps I am doing something wrong in there?

Any ideas?

	-Morris (mg@obd.com)


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

Date: Fri, 14 Mar 1997 14:00:33 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: HELP!! Urgent assistance required please!
Message-Id: <1pacg5.7e2.ln@localhost>

Jamie Fojut (Jamief@btinternet.com) wrote:

: I'd appreciate any ideas.

One Really Good Idea would be to put a subject in your Subject: ...


--
    Tad McClellan                          SGML Consulting
    Tag And Document Consulting            Perl programming
    tadmc@flash.net


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

Date: 14 Mar 1997 18:59:59 GMT
From: jgraber@daldd.sc.ti.com (Joel Graber)
Subject: Re: how to delete last line in .txt.file
Message-Id: <JGRABER.97Mar14125959@sun_7407>


 [courtesy cc of this posting sent to cited author via email]

In comp.lang.perl.misc, 
 Tom Christiansen <tchrist@mox.perl.com> quotes the FAQ:

> From section 5 of the (new) Perl FAQ:
> 
> =head2 How do I change one line in a file/delete a line in a file/insert
>        a line in the middle of a file/append to the beginning of a file?
> 
>     Although humans have an easy time thinking of a text file as being a
>     sequence of lines that operates much like a stack of playing cards --
>     or punch cards -- computers usually see the text file as a sequence
>     of bytes.  In general, there's no direct way for Perl to seek to a
>     particular line of a file, insert text into a file, or remove text
>     from a file.

Ok, what about ways that are not general?  
Ah, here come the specific cases where there is a direct way.

>     (There are exceptions in special circumstances.  Replacing a sequence
>     of bytes with another sequence of the same length is one.  Another is
>     using the C<$DB_RECNO> array bindings as documented in L<DB_File>.
>     Yet another is manipulating files with all lines the same length.)

Is there "yet another" case where the lines are all the same length,
or is this the same as the first case?

Yet another is removing the last part of a file by truncation,
(which should probably be added to the FAQ entry as a special circumstance)
as Tom Christiansen describes in a following post.

Should "the end of the file" case be generalized to all three of
seeking, inserting, or removing?

These specific ways can sometimes apply in ways not readily apparent,
especially if the order of the lines in the file is not important.
Sometimes you can remove a line by writing over it with a line of
the same length (or padded to the same length) taken from the 
end of a file, then remove the last line only.

Now that you've covered the direct special cases, 
what about the _indirect_ general cases?
In particular, why is there no discussion of the 
"slurp whole, modify, rewrite" method, 
or the double file pointer method?

This is very handy for gzipping files on a completely full disk,
or other cases where a large memory and disk space is not available.

Joel Graber


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

Date: 14 Mar 1997 16:03:07 -0500
From: rwhammel@mtu.edu (Hammelman)
Subject: Installing perl on Sun
Message-Id: <5gceeb$83e@kirchhoff2.ee>

I am trying to install Perl on my a Sun running Solaris and I am running
into a few problems.

First, When I run `make' it likes to write files that are stamped 3 minutes
ahead in time. This causes it to fail when it wants to read a file it 
recently edited. If anyone can give me a suggestion on how to fix or get
around this, I would appriciate it. 

Secondly, I want to install Perl into a directory located under my user name,
not the /usr/... that it tries to locate itself in. How do I go about this 
so that all other modules that I install will locate it under my user name?

Third, a copy of Perl is located in the assumed /usr/... directory on my 
network. I want to install a few modules under my account. How do I force 
Perl scripts to find these modules under my account and not look for them
in the assumed location?

Any and all help is appriciated. I have searched all the FAQ's and 
exhausted all other sources. If you can give me some hints, please do.


						Sincerely,
						Randy Hammelman
						rwhammel@mtu.edu

 


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

Date: 14 Mar 1997 19:38:33 GMT
From: chip@rio.atlantic.net (Chip Salzenberg)
Subject: Re: newbie question: how to pick a particular line in perl5 (win32)
Message-Id: <5gc9fp$1l5@news.atlantic.net>

According to brz@hotmail.com:
>In Unix shell I would simply do:
>  head -27 file | tail -1

Better sed than head:

  head -10             ->  sed 10q
  head -10 | tail -1   ->  sed -n 10p    or   sed -n '10{p;q;}'

-- 
Chip Salzenberg          - a.k.a. -          <chip@atlantic.net>
 "Vacation time.  Families travel east, west, north, or south."
 "Some just burrow straight down." -- Crow T. Robot   // MST3K


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

Date: 14 Mar 1997 18:31:26 GMT
From: schip@lmsc.lockheed.com (Jan Schipmolder)
Subject: Re: Numeric function
Message-Id: <5gc5hu$ekh@butch.lmsc.lockheed.com>

Martin Lvnnar (martin.lonnar@edt.ericsson.se) wrote:
: Hello!
: 
: Is there a function in perl to check if a scalar variable is numerical
: only. It should work something like this:

If you really *have* to, you can use the regular expression in this
subroutine:

-----cuthere-----

sub isnum {
   
   # -- NAME: isnum
   #
   # -- PURPOSE: Determine whether the argument is numeric
   #
   # -- CALLING SEQUENCE:
   #
   # #-# $numeric = &isnum ( $x );
   # #-# i -- $x = string or number to be inspected
   # #-# o -- $numeric = 1 if $x is numeric; = 0 otherwise
   #
   # -- DISCUSSION:
   #
   # Uses a rather complicated regexp to determine whether a specified
   # string could be interpreted as a number. Source:
   # Aho, Kernighan, Weinberger, "The AWK Programming Language",
   # Addison Wesley, October 1988, p.30.
   #
   # -- EXAMPLE:
   #
   # $i = &isnum ( '1.ed3' );
   # $j = &isnum ( '1.e+3' );
   # # return $i = 0 and $j = 1
   #
   # -- END
   
   my $x = shift;
   my $s;
   
   if ( $x =~ /^[+-]?(\d+[.]?\d*|[.]\d+)([Ee][+-]?\d+)?$/ ) {
      $s = 1;
   } else {
      $s = 0;
   }

   $s;
   
}

----- cuthere-----


--
jan.b.schipmolder@lmco.com


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

Date: 14 Mar 1997 20:04:20 GMT
From: gerben@localhost.cs.vu.nl (Gerben Vos)
Subject: Re: Perl and ypcat
Message-Id: <5gcb04$gh3@star.cs.vu.nl>

Bob Maillet writes:

>Is there a command or commands that can invoke ypcat filename  to work
>in perl?

Yes. You can either:

1) Just execute ypcat: system("ypcat passwd");
2) Catch ypcat's output in a string: $output = `ypcat passwd`;
   (that are backquotes, not normal single quotes).
3) Process ypcat's output line by line (note the '|' character in the
   "filename" parameter of "open"):

     open YP, "ypcat passwd |" or die "Cannot open pipe from ypcat: $!";
     while (<YP>)
	 {
	 print "Output from ypcat: ", $_;
	 }
     close YP or die "Error closing pipe from ypcat: $!";

See the perlfunc manual page for info on system, exec, open and close.
See the perlop manual page for info on `` and <>.

-- 
Gerben Vos
 . . . . . . . . . . . . . . . . . . . . . . . . . . . G e r b e n   V o s   <><
mailto:gerben@cs.vu.nl                           http://www.cs.vu.nl/%7Egerben/
Misery is much more serious than pleasure, but it is not more important.
                                        -- Herman Finkers
-- 
Gerben Vos


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

Date: 14 Mar 1997 13:15:40 -0800
From: David Welton <davidw@efn.org>
Subject: Re: PERL on a local PC
Message-Id: <87d8t22n0j.fsf@efn.org>

Adam Cooper <acooper@edelman.com> writes:

> 
> Is anyone aware of a way to run a Web site with PERL scripts locally on
> a PC?  I need to demo a site that is 70% cgi-scripted and really don't
> want to have to devise HTML pathways to compensate.

I set managed to set up apache to use CGI scripts the way I wanted in
about a half hour on my PC with no previous experience.  Of course I
am also using Debian/GNU *Linux* on my PC :-)

-- 
David Welton   
davidw@efn.org  davidw@freenet.hut.fi  http://www.efn.org/~davidw 
Se quest'email e` in Italiano, mi dispiace per gli errori:-) FORZA PANTANI!
				--Linuxista--


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

Date: Fri, 14 Mar 1997 21:10:06 GMT
From: gzsmith@hotmail.com (Gloria Z. Smith)
Subject: PERL Programmer needed
Message-Id: <E71p77.8vt@nonexistent.com>

Please forward your hourly rate if interested.



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

Date: Fri, 14 Mar 1997 14:37:40 -0500
From: "Jagadeesh K. Venugopal" <jvenu@ctp.com>
Subject: Re: Perl-style regular expressions for C/C++?
Message-Id: <3329A904.25@ctp.com>

> recently) Perl. I have found Perl to be utterly brilliant for whipping
> up quick text-processing programs, obligatory CGI apps and the
> occasional interactive program that does not require any sort of fancy
> user interface.
> On returning to C++'s sparse native string handling capabilities, I
> often find myself wishing ...
> Ok, so there are nicer ways of handling the latter case, like with
> standard class libraries... but... if anyone has, or knows where I can
> find, some source for straightforward regular expressions in C/C++, I
> would be very grateful.

While this question is not totally relevant to Perl I am taking refuge
under the 'misc' moniker for this newsgroup.

Good information on regexsources can be had by reading Jeffrey Friedl's
'Mastering Regular Expressions' from O'Reilly Associates
(http://www.ora.com)

There is a well tested and popular C library for regular expressions
by Henry Spencer at ftp://zoo.toronto.edu/pub/bookregexp.shar. This is 
the same NFA implementation that got into a number of scripting
languages
including Perl, Tcl and Python.

This library provides Regular Expressions of the kind that you are most
likely to encounter in Python and Tcl. You do not get the significant 
improvements made by the Perl development team. In fact compared to what
Perl offers in terms of regexes the library is much less convenient. For
example, all regexes are strings. Therefore you have insanities like
having to type 4 backslashes to get one actual backslash into a regex.

Last I heard folks were talking about someday factoring out all of
Perl's
regex goodies into a separate library. I do not know what is being done
about it.

Your two choices are
1. Use Henry Spencer's regex C library (and possibly write a wrapper to 
turn it into a class like I did at work)
2. Look into embedding a Perl interpreter in your application and send
off the regular expressions to be handled by it.
-- 
______________________________________________________________________
Jagadeesh K. Venugopal
Cambridge Technology Partners, 304 Vassar Street Cambridge, MA 02139
Phone: 617.374.2028; Fax: 617.374.8300; E-mail: jvenu@ctp.com
______________________________________________________________________


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

Date: 14 Mar 1997 20:49:36 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: RFC821Header Decoder
Message-Id: <5gcdl0$jn3@lyra.csx.cam.ac.uk>

In article <3326D239.458B99ED@enteract.com>, Eryq  <eryq@enteract.com> wrote:
>
>(Was that a shameless plug?  I hope not...)  :-) 

I hope so.   We wouldn't want shameful plugs on c.l.p.m.


Mike Guy


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

Date: Fri, 14 Mar 1997 14:11:37 -0600
From: Henrik Larsson <webmaster@nykoping.com>
Subject: Searching for a graphical counter that can use different style of digits for Apache / UNIX server
Message-Id: <858354666.21904@dejanews.com>

Hi,

I am looking for a graphical counter script that can allow multiple users
and different styles of digits. My server runs on a Apache / FreeBSD UNIX
server.

I am also wondering if exe-files can be executed in a UNIX cgi-bin
directory without any permission.
If not, what sort of permission do I have to give to the exe-file?
The reason why I ask this is that I have found some graphical counters but
they are c-files compilated to exe and I am not sure if it possible to run
those on my server.

Help is appreciated.

If you want to help me, please reply to henrik@nykoping.com

Regards,

Henrik Larsson
http://nykoping.com/

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet


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

Date: Fri, 14 Mar 1997 15:21:18 -0500
From: Rob Wilson <rwilson@eh.net>
Subject: Sockets Question
Message-Id: <Pine.OSF.3.95.970314151746.26969A-100000@cs.muohio.edu>

I have been trying, rather unsuccesfully, for some time now to open a
socket using connect() that I can actually print to.  I can use the send()
function to write to a socket, but that adds extra characters on the end.
I have tried using setsockopt() a few times, but I either was using the
wrong options (SO_BROADCAST, SO_ACCEPTCONN, SO_REUSEADDR) or I was not
setting them correctly.  Anyway, does anybody know how I could go about
doing this?  Currently, I can connect to a remote host, read from that
host, but when I try to print to the host, it just ignores me.  Thanks in
advance.

Rob Wilson
EH.Net Systems Administrator
rwilson@eh.net



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

Date: Fri, 14 Mar 1997 18:06:10 GMT
From: Jim Shi <jims@ss5mth44.franklin.com>
Subject: sort large array
Message-Id: <5gc62n$ifh@hideout.emanon.net>


use 
sort by_my_cmp @a

to sort @a. If @a is very large. it's very slow. how can make it fast?

jim_shi@franklin.com


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

Date: Fri, 14 Mar 1997 09:52:16 -0500
From: Bill Kuhn <wkuhn@uconect.net>
Subject: Re: Unix and ease of use  (WAS: Who makes more ...)
Message-Id: <33296620.3B2826DA@uconect.net>

Isn't this thread getting old?

What originally started with the question (anyone remember the original
question???) "who makes more money -- Windows vs. Unix programmers?" has
degraded to the OS holy wars.

In response to the original question:

There was clearly no authoritative answer to the original question since
the market will determine the value of your skills on any given day,
week, month, etc.  If you specialize, you will make a lot of money for a
short time, but you will ultimately face almost certain extinction.  If
you invest some time in continuuing reeducation, you will almost
certainly make good money.  If you have a crystal ball, you can always
be learning the next "hot" skill set so that you are always making good
money.

In response to the emotionally attached OS followers:

Does anybody really think they are going to convert a Unix
user/programmer/administrator/whatever to using Windows NT or vice
versa?  Let's be realistic!


In summary, could everyone at least agree that this discussion doesn't
belong in comp.lang.perl.misc and stop posting there?  I think I speak
on behalf of many who post in comp.lang.perl.misc that this thread
should be taken elsewhere.

Thanks for the cooperation.

-Bill
-- 
Bill Kuhn
Chief Developer
Wired Markets, Inc.
http://www.buyersindex.com


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

Date: Fri, 14 Mar 1997 21:18:54 GMT
From: laker@tcp.co.uk (Markus Laker)
Subject: Re: What's wrong with "an email" (was: How to spam - legitimately)
Message-Id: <332cbbc3.14908447@news.tcp.co.uk>

Tom Christiansen <tchrist@mox.perl.com>:

> What instead we've been complaining about in these parts is the pernicious
> mut(il)ation of "email" into a count noun, much the way many Germans
> (improperly) do with "information" when first learning to speak English.

I've been half-watching this thread for the last few weeks in c.l.p.m,
wondering whether and when it would make its way to a.u.e.  In *these*
parts, the use of 'email' as a count noun is an old controversy, as is
the spelling of the word itself (which has been discussed so often that
it has its own FAQ entry).  There's no point looking for a definitive
answer here.

One argument -- which I favour -- says that 'mail', referring to sheets
of paper, is an uncount (or mass) noun.  You would never say 'I had
three mails this morning', meaning a gas bill, an electricity bill and a
letter from your ex-wife.  Instead, you'd say 'I had three letters' or
'I had three pieces of mail'.  By analogy with the dead-tree variety,
the argument goes, electronic mail (or 'email' for short) should also be
an uncount noun.  If you want to refer to an individual piece of
electronic correspondence, you can say 'message' or 'piece of email'.
One poster even suggested 'e-letter', but no one (thank goodness) took
it up.

On the other hand, people can justifiably point to the conciseness and
convenience of 'emails', and it isn't only illiterates who use it: even
The Times of London uses 'emails' without shame.

The fact is that if enough people use it, 'emails' will become
acceptable English and there isn't a thing we can do about it.  That, I
predict, is what will happen over the next few years.  You leave the
language in the hands of the common people for a couple of thousand
years, and what do they do with it?

> I have come to believe that the linguistic dissonance we're experiencing
> is rooted in this: that the American mass media, a body congenitally
> devoid of all semblance of clue and subtlely, have insistently pushed the
> nontechnical masses on the internet bandwagon, and in so doing, they have
> unknowingly mangled an established term.

Ah, yes: that would be the process that gave us 'microchip', 'surfing
the Net' and '*nf*rm*t**n s*p*rh*ghw*y'.  Hanging's too good.

Markus Laker.

-- 
If you quote me, I would appreciate an email copy of your article.


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

Date: 14 Mar 1997 20:28:10 GMT
From: roger@metcomp.nrl.navy.mil (Roger Lin)
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <5gcccq$cgf$1@ra.nrl.navy.mil>

Rauno Piiroinen (piiroine@hytti.uku.fi) wrote:
: James D. Corder wrote:

: > Mac                     moped
: > Personal Computer       Car
: > Sparc 5                 S10 Pickup Truck
: > Ultra 1                 1ton Pickup
: > Sun 10,000              Mac Truck
: > Ahmdahl                 Freight Train

: No no no forget programming and sell gasoline. All of the above need
: some.

:  =

Then, which chain should I go with. Exxon, Shell, Texco...
Which one has more demand, thus make more money for me.

:-)


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

Date: Fri, 14 Mar 1997 21:50:05 +0100
From: Achim Bursian <ea1217@fen.baynet.de>
Subject: Win32: How to use a MessageBox or Dialog
Message-Id: <3329B9FD.4AA4@fen.baynet.de>

Hi there!

Havn't found anything in 3 hours manual browsing, perhaps someone can 
help?

I'd like to get some userinput through a windows dialog in Perl for 
Win32.
Calling something like a Win32-API MessageBox is not enough (but how 
would I do this, anyway?).

The user should be able to enter a string in this dialog and select an 
OK or Cancel button.

Any way to do this?
Thanks for help,
   Achim


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

Date: Fri, 14 Mar 1997 21:48:52 +0100
From: Achim Bursian <ea1217@fen.baynet.de>
Subject: Win32: How to use a MessageBox or Dialog
Message-Id: <3329B9B4.194B@fen.baynet.de>

Hi there!

Havn't found anything in 3 hours manual browsing, perhaps someone can 
help?

I'd like to get some userinput through a windows dialog in Perl for 
Win32.
Calling something like a Win32-API MessageBox is not enough (but how 
would I do this, anyway?).

The user should be able to enter a string in this dialog and select an 
OK or Cancel button.

Any way to do this?
Thanks for help,
   Achim


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

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

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