[6658] in Perl-Users-Digest
Perl-Users Digest, Issue: 284 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 11 21:17:25 1997
Date: Fri, 11 Apr 97 18:01:50 -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 Fri, 11 Apr 1997 Volume: 8 Number: 284
Today's topics:
Split a line on "^M" (QUN WENG)
Re: Split a line on "^M" (brian d foy)
Re: Split a line on "^M" (Nathan V. Patwardhan)
Re: Splitting Hairs, or strings, rather (Laurel Shimer)
Re: submitting from another frame <rra@stanford.edu>
unable to execute ? <ken@acme-brain.com>
Unique Filename <dloud@erols.com>
Re: Unix and ease of use (WAS: Who makes more ...) <tim@a-sis.com>
Re: Unix and ease of use (WAS: Who makes more ...) (Steve Mading)
Re: Unix and ease of use (WAS: Who makes more ...) <tim@a-sis.com>
where statistic and mathematic function? <Y_Hu@fccc.edu>
Re: Working perl script... not running with HTTP get. (Joel Potischman)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Apr 1997 22:00:17 GMT
From: qxw8184@gamma.uta.edu (QUN WENG)
Subject: Split a line on "^M"
Message-Id: <5imc9h$bjf@news.uta.edu>
Could anybody please tell me how to split a line into an array based on
the "^M" character. "^M" is not visible on stdout. Samples follows:
char mark;^M> >^M> >public:^M> > player( int s, int t)^M> >
I use @result=split(/^M/, $need_to_split_line); but failed.
Any hint is greatly appreciated.
Sincerely
Tom Weng
------------------------------
Date: Fri, 11 Apr 1997 20:16:25 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Split a line on "^M"
Message-Id: <comdog-1104972016250001@nntp.netcruiser>
In article <5imc9h$bjf@news.uta.edu>, qxw8184@gamma.uta.edu (QUN WENG) wrote:
> Could anybody please tell me how to split a line into an array based on
> the "^M" character. "^M" is not visible on stdout. Samples follows:
> char mark;^M> >^M> >public:^M> > player( int s, int t)^M> >
>
> I use @result=split(/^M/, $need_to_split_line); but failed.
are you trying to match a carriage return? there are a couple of ways to
do that...
* just match the carriage return, \r,
m/\r/;
* match the ascii value, in hexadecimal, by preceding the value with
a \x. you could do this for any character, but it is especially
usual for special characters. just find out what their ascii value
is -- by doing a hex dump of the file if necessary.
m/\x0D/;
--
brian d foy <URL:http://computerdog.com>
unsolicited commercial email is not appreciated
------------------------------
Date: 12 Apr 1997 00:27:37 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Split a line on "^M"
Message-Id: <5imktp$h09@fridge-nf0.shore.net>
QUN WENG (qxw8184@gamma.uta.edu) wrote:
: I use @result=split(/^M/, $need_to_split_line); but failed.
Do these lines end in \r\n or just \r?
If they end in just \r, you can do:
@result = split(/\r/, $line_to_split);
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Fri, 11 Apr 1997 17:40:35 -0700
From: autopen@quake.net (Laurel Shimer)
Subject: Re: Splitting Hairs, or strings, rather
Message-Id: <autopen-1104971740350001@l82.d22.quake.net>
Please ignore my previous brain dead posting about 'split' and
'backreference'. I don't know what I was thinking about. I've been away
from perl for a couple of weeks ( I want say what application the contract
was in - but it was legal and it paid American dollars)
Anyway... after consulting the Camel book at the dentist and using my
brain to think of things I'd done before it seemed obvious.
No doubt somebody will say that this is not the most efficient or best method.
Be glad to hear about alternative/better ways to do it.
Joshua asked
"for some efficient code to split strings in to 100
> > character sub strings. I was given some, and have been concocting
> > some of my own, but I have gotten only garbled output. I would like
> > to be able to give the code snippet a string and have it return an
> > array, like so:
> >
> > @arr = &splitter($var)"
Here is what I got to work. Of course I break up the string into chunks of
10 instead of 100.
-------------
shellx 54% perl5
$really_big_string = "Oh me, oh my, love that country pie. Twas brillig and the
slithy toves did gyre";
while (length($really_big_string) > 0) {
$pieces[++$#pieces] = substr $really_big_string, 0, 10;
$len = length($really_big_string);
$really_big_string = substr $really_big_string, 10;
#print "$really_big_string\n";
}
print "- - - -- - - - ";
print "\n";
foreach $piece (@pieces) {
print "$piece\n";
}
- - - -- - - -
Oh me, oh
my, love t
hat countr
y pie. Twa
s brillig
and the
sl
ithy toves
did gyre
--------------------------
In article <autopen-1104971412270001@l94.d22.quake.net>, autopen@quake.net
(Laurel Shimer) wrote:
> Been trying to figure out how to do Joshua's 'break a string into chunks
> of 100' and so far having no luck.
>
> I mucked around with the 'limit' part of split. And I keep getting '10'
> returned (pretending I want strings of length 10 'cause it's easier to
> check) instead of the substring.
>
> Then just thinking logically and not keying in on the word 'split', I
> thought about the concept of breaking apart a a string into substrings. In
> the camel book index- 'substring' refers me to 'backreference strings'.
> Pursued this through the index...The term 'backreference' has me a little
> confused right now. Probably because I have to go to the dentist and am
> trying to figure this out fast. I'll take the book w/ me!
>
> But am I on the right track with this?
>
> Thanks for the good homework problem, Joshua.
>
> Laurel
>
>
> --------
> In article <3346dc89.16327060@news.inreach.com>, jkugler@inreach.com
> (Joshua J. Kugler) wrote:
>
> > Hi. I am looking for some efficient code to split strings in to 100
> > character sub strings. I was given some, and have been concocting
> > some of my own, but I have gotten only garbled output. I would like
> > to be able to give the code snippet a string and have it return an
> > array, like so:
> >
> > @arr = &splitter($var)
> >
> > Any help would be great.
> >
> > Oh, and if post to the news group, please respond via e-mail as well,
> > because my ISP's news server is behaving rather weirdly.
> >
> > Thanks!
> >
> > j----- k-----
> >
> > Joshua J. Kugler
> > Computer Consultant--Web Developer
> > jkugler@inreach.com
--
The Reader's Corner: Mystery, Romance, Fantasy
http://www.autopen.com/index.shtml
Subscribe to our free StoryBytes publication
New: Fashion Challenges for the Time Traveling Heroine http://www.autopen.com/romance.well.dressed.shtml
------------------------------
Date: 11 Apr 1997 17:33:10 -0700
From: Russ Allbery <rra@stanford.edu>
To: yu106779@yorku.ca (Alex Chernyavsky)
Subject: Re: submitting from another frame
Message-Id: <qum4tddhygp.fsf@cyclone.stanford.edu>
[ Posted and mailed. ]
Alex Chernyavsky <yu106779@yorku.ca> writes:
> After pressing submit button in the parent frame, only the form
> variables of the child frame will go to script.
Although I doubt it, I have no firm idea. Perhaps you should try asking
this question in a newsgroup which actually discusses this topic, since
your post has nothing to do with Perl. I'd recommend one of:
comp.infosystems.www.authoring.html
comp.infosystems.www.authoring.cgi
Probably the former, since this is an HTML question.
--
Russ Allbery (rra@stanford.edu) <URL:http://www.eyrie.org/~eagle/>
------------------------------
Date: Fri, 11 Apr 1997 20:34:35 -0400
From: Ken Hodges <ken@acme-brain.com>
Subject: unable to execute ?
Message-Id: <334ED89B.3955@acme-brain.com>
Hi All !
I would be most appreciative for some help with this. I have spent many
long hours trying to figure out why this will not work, and so far have
been unable to resolve it.
I am running: windows NT
Netscape's Enterprise server
Metainfo's "Sendmail for NT"
Perl5
Here is the script I am trying to get to work:
#!/usr/bin/perl
############################################################
# mailto.cgi
# v1.2.5
# Meng Weng Wong
# Thu Feb 22 02:47:49 EST 1996
# $Id: mailto.cgi,v 1.6 1996/05/18 07:10:56 mengwong Exp mengwong $
#
# accepts a form submission and mails all fields to an address
# specified within the form.
#
# requires perl 5, available ftp.netlabs.com
#
# PLEASE READ THE DOCUMENTATION
# http://icg.resnet.upenn.edu/mailto.html
#
# TO DO (planned upgrades)
#
# I have another problem you might be able to help with. My purpose in
# setting up the form is to allow clients of my service bureau to fill
out an
# order form, and then attach a file to the resulting email form. If
# possible, it would be nice if they could click an "Attach" button, get
the
# usual Mac or Windows file dialog, pick a file, and return to the form,
then
# when they click the "Submit" I would receive a form like your
mailto.cgi
# script makes, with the chosen file attached.
#
# Alternatively, after the mailto script sends the form to me, the
following
# html page would provide an opportunity to send another message with
file
# attached, or to send the file via ftp.
#
############################################################
# ----------------------------------------------------------
# initialization
# ----------------------------------------------------------
# if you've downloaded mailto.cgi for use as a local installation,
# you MUST change all the following information.
# who's in charge of this installation of webmail?
$maintainer = 'ken@acme-brain.com';
# what's my local Fully Qualified Domain Name?
$hostname = "ns.acme-brain.com";
# all webmails sent will be BCC'ed to this address
# (typically the maintainer). comment out if you don't want
# such BCCs to be sent.
#$autobcc = 'kevina@computerfinancing.com';
# where's sendmail located?
$mailprog = 'c:\\sendmail\\sendmail -t';
#$sendmail_flags = " -t";
# who's the default From if none is given? this address
# is supposed to bounce.
$default_from = 'sender.did.not.provide.an.email.address@webmail.gateway
(WebMail gateway, no From given)';
# String to prepend to subject of every e-mail message
$subj_prefix = "WebMail: ";
# submissions that don't specify host in the "to" portion
# end up with this default one.
$home_host = "nodomaingiven.com";
$disclaimer = "
# --------------------------------------------------------------
# This message comes to you via a Web-to-Email gateway.
# The person who originated this message may not be provably
# identifiable. The webmail gateway takes no responsibility
# for this message; it even encourages a healthy skepticism on
# your part. Our best guess at the identity of the originator,
# which may or may not reassure you, is:
# real_remote_address
# This experimental gateway is maintained as a public
# service. Please report any abuses to the maintainer,
# $maintainer, who otherwise has and wants
# nothing to do with this message whatsoever.
# You can get more information about the gateway at
# http://icg.resnet.upenn.edu/mailto.html
# --------------------------------------------------------------
";
# the bottom line on the "yes, your mail was sent" page
$credit = "submitted via <A
HREF=\"http://icg.resnet.upenn.edu/mailto.html\">mailto.cgi</A>, a
public service utility written by <A
HREF=\"http://pobox.com/~mengwong/\">Meng Weng Wong</A>";
# what hosts are to be forbidden from posting to mailto.cgi?
@disallowed_regexps = ("saturn.caps.maine.edu", "www.iao.com",
"infonex.com");
# ----------------------------------------------------------
# no user-serviceable parts below this line
# ----------------------------------------------------------
$webmailversion = "v1.2.2";
$ENV{"PATH"} = "";
$ENV{'IFS'} = '';
@specialnames = ("to", "cc", "from", "body", "subject",
"continue_url", "continue_text",
"leading_spaces", "separator",
"required_fields", "sort_order",
"body_bgcolor", "body_background",
"body_link", "body_vlink", "body_text",
"first_line", "mailto_comment");
if (grep ($ENV{REMOTE_HOST} =~ /$_/i, @disallowed_regexps)) {
print "Content-type: text/html\n\nYou are not permitted to use this
page. Sorry.\n";
exit;
}
# Tell WWW that we're an HTML document
&ReadParse;
if (! keys %in) {
print "Location: http://icg.resnet.upenn.edu/mailto.html\n\nPlease
check out <A
HREF=\"http://icg.resnet.upenn.edu/mailto.html\">http://icg.resnet.upenn.edu/mailto.html</A>\n";
}
print "Content-type: text/html\n\n";
$remote_host = $ENV{"REMOTE_HOST"};
$remote_host = "unknown" if ($remote_host =~ /^\s*$/);
$remote_user = $ENV{"REMOTE_IDENT"};
$remote_user = "unknown" if ($remote_user =~ /^\s*$/);
$real_remote_address = substr("$remote_user\@$remote_host", 0, 200);
$disclaimer =~ s/real_remote_address/$real_remote_address/;
# ----------------------------------------------------------
# build the <BODY> tag
# ----------------------------------------------------------
@bodyattributes = grep(/^body_/ && $in{$_} =~ /\S/, @specialnames);
if (@bodyattributes) {
$bodytag = "<BODY";
for (@bodyattributes) {
$tentativetag = $in{$_};
if ($_ =~ /bgcolor|link|vlink|text/ && $tentativetag =~
/^[0-9a-f]{6}$/i) {
$tentativetag = "#$tentativetag";
}
($attributename = uc($_)) =~ s/^BODY_//;
$bodytag .= " $attributename=\"$tentativetag\"";
}
$bodytag .= ">";
}
# ----------------------------------------------------------
# make sure all required fields are present
# ----------------------------------------------------------
@required_fields = ("to", split(/\s*,\s*|\000/,
$in{'required_fields'}));
@missing_fields = grep ($in{$_} !~ /\S/, @required_fields);
if (@missing_fields) {
$errormessage = "You did not provide sufficient information.\nYou
are required to fill out the following:\n\n<UL>";
$errormessage .= join("\n<LI> ", "", @missing_fields);
$errormessage .= "\n</UL>\n\nPlease go back and fill out the form
again.\n";
&Exit("Insufficient Information", $errormessage);
}
# ----------------------------------------------------------
# build the To:
# ----------------------------------------------------------
# Untaint so we don't get nasty shell metacharacters.
$to = $in{"to"};
$to_orig = $to;
$to =~ /^([\w, \.\%\!\@-]*)$/; $to = $1; # Untaint it
$to =~ s/^\s+//; s/\s+$//;
&Exit("Illegal characters found in \"To\" address.") if ($to ne
$to_orig);
$to = "$to\@$home_host" if ($to !~ /\@\S+/);
# ----------------------------------------------------------
# same for cc
# ----------------------------------------------------------
$cc = $in{"cc"};
$cc_orig = $cc;
$cc =~ /^([\w, \.\%\!\@-]*)$/; $cc = $1; # Untaint it
undef $cc if ($cc ne $cc_orig);
undef $cc if ($cc !~ /\@\S+$/);
if (defined($cc)) {
$ccline = "CC: $cc\n";
$cclinehtml = "<EM>CC:</EM> $cc<BR>\n";
}
# ----------------------------------------------------------
# and for mailto_comment
# ----------------------------------------------------------
if ($in{"mailto_comment"} =~ /\S/) {
$mailtocomment = $in{'mailto_comment'};
$mailtocommenthtml = "<EM>X-Mailto-Comment:</EM>
$mailtocomment<BR>\n";
$mailtocomment = "X-Mailto-Comment: $in{'mailto_comment'}\n";
}
# ----------------------------------------------------------
# and for first_line
# ----------------------------------------------------------
if ($in{"first_line"} =~ /\S/) {
$firstline = $in{'first_line'} . "\n\n";
}
# ----------------------------------------------------------
# make up the from
# ----------------------------------------------------------
$from = $in{"from"};
if ($in{'from'} eq "") { $from = $default_from; }
elsif ($from !~ /\@/) { $from = "$real_remote_address ($from)"; }
elsif (defined($in{'name'})) { $in{'name'} = substr($in{'name'}, 0,
200);
$from .= " ($in{'name'})"; }
# ----------------------------------------------------------
# do we get to mention an http_referer?
# ----------------------------------------------------------
if (defined $ENV{'HTTP_REFERER'}) {
$http_referer = "X-HTTP-Referer: $ENV{'HTTP_REFERER'}\n";
}
# ----------------------------------------------------------
# get the body working
# ----------------------------------------------------------
$body = $in{"body"};
# ----------------------------------------------------------
# build the subject
# ----------------------------------------------------------
$subject = $in{"subject"};
$subject = $subj_prefix . $subject;
# ----------------------------------------------------------
# do key/value pairs want leading spaces?
# and how do we separate them?
# and how do we sort them?
# ----------------------------------------------------------
$leading_spaces = $in{"leading_spaces"};
$leadingspaces = " " if (! defined ($leading_spaces) ||
$leading_spaces =~ /^(1|yes|true|y|t|do|want)$/i);
$separator = $in{'separator'};
$separator = " = " unless (defined ($separator));
if ($separator =~ /colon/) { $separator = ": "; }
elsif ($separator =~ /dash/) { $separator = " - "; }
elsif ($separator =~ /hyphen/) { $separator = " -- "; }
elsif ($separator =~ /line/) { $separator = " --- "; }
elsif ($separator =~ /equal/) { $separator = " = "; }
elsif ($separator =~ /space/) { $separator = " "; }
elsif ($separator =~ /tab/) { $separator = "\t"; }
$sort_order = $in{'sort_order'};
if (defined ($sort_order)) {
$sortorder = sub {$a cmp $b} if ($sort_order =~
/alphabetical/i);
$sortorder = sub {lc($a) cmp lc($b)} if ($sort_order =~
/alphabetical, case insensitive/i);
$sortorder = sub {$b cmp $a} if ($sort_order =~ /reverse
alphabetical/i);
$sortorder = sub {lc($b) cmp lc($a)} if ($sort_order =~ /reverse
alphabetical, case insensitive/i);
undef ($sortorder) if ($sort_order =~
/undefined|none|as.?is/i);
}
# sorted_in_keys is predefined in ReadParse, thus sort_order=none by
default
if (defined ($sortorder)) {
@sorted_in_keys = sort { &$sortorder($a, $b) } keys %in;
}
foreach $key (@sorted_in_keys) {
next if (grep($key eq $_, @specialnames));
$pad = " " x length("$leadingspaces$key$separator");
$in{$key} =~ s/[\000\n]/\n$pad/g;
$instuff .= "$leadingspaces$key$separator$in{$key}\n";
}
# ----------------------------------------------------------
# now we're ready to send the mail
# ----------------------------------------------------------
if (($autobcc eq "mengwong+webmail\@pobox.com") && ($hostname eq
"icg.resnet.upenn.edu")) { $realautobcc = $autobcc; }
else { $realautobcc = ""; }
if ($realautobcc) { $realautobccline = "BCC: $realautobcc\n"; }
# print STDERR "opening \"|$sendmailmail $sendmail_flags $to $cc
$realautobcc\"\n";
open(MAIL,"|$sendmail $sendmail_flags") || &Exit("Could not execute
\"$sendmail\"");
print MAIL <<"TAG";
X-Mailer: Meng's mailto.cgi $webmailversion at $hostname
From: $from
X-Ident-From: $real_remote_address
Subject: $subject
To: $to
Precedence: bulk
$realautobccline$ccline$http_referer$mailtocomment
$firstline$instuff
$body
$disclaimer
TAG
close(MAIL);
if (defined($in{'continue_text'}) &&
defined($in{'continue_url'})) {
$continue = "<A
HREF=\"$in{'continue_url'}\">$in{'continue_text'}</A>";
}
# If we are here, then success -- print a happy message
$toprinttostdout = <<TAG;
<TITLE>Submission Receipt</TITLE>
$bodytag
<H1>Your message has been sent!</H1>
$continue
<HR>
<EM>To:</EM> $to<BR>
$mailtocommenthtml$cclinehtml<EM>From:</EM> $from<BR>
<EM>Subject:</EM> $subject<BR>
<EM>Submitted by:</EM> $real_remote_address<P>
<PRE>$firstline$instuff
$body</PRE>
<HR>
$credit
TAG
print $toprinttostdout;
# ----------------------------------------------------------
# functions
# ----------------------------------------------------------
# Exit the script displaying the appropriate error message. (format 2)
sub Exit {
local($errorheader) = shift(@_);
print "<TITLE>Webmail: $errorheader</TITLE>\n";
print $bodytag;
print "<H1>$errorheader</H1>\n";
print @_;
print "<P><HR>Unable to send the message.\n";
exit(2);
}
sub ReadParse {
local (*in) = @_ if @_;
local ($i, $key, $val);
# Read in text
if ($ENV{'REQUEST_METHOD'} eq "GET") { $in =
$ENV{'QUERY_STRING'}; }
elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); }
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
# Convert plus's to spaces
$in[$i] =~ s/\+/ /g;
# Split into key and value.
($key, $val) = split(/=/,$in[$i],2); # splits on the first =.
# Convert %XX from hex numbers to alphanumeric
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
push (@sorted_in_keys, $key) unless defined($in{$key});
# Associate key and value
$in{$key} .= "\000" if (defined($in{$key})); # \0 is the multiple
separator
$in{$key} .= $val;
}
return 1; # just for fun
}
__________________________________-
When I run this script, I get the message :
Unable to execute "c:\sendmail\sendmail.exe"
I have cgi-lib installed, and aparently working properly, and other perl
scripts seem to work ok, but I can't seem to make a perl script send
mail.
Any help would be *MOST* appreciated !
Thanks,
Ken
--
**********************************************************************
ACME BrainWorks
Internet Services
Ken Hodges,
Owner
Rabun County, Georgia
"Where Spring Spends the Summer"
http://www.acme-brain.com
**********************************************************************
------------------------------
Date: Fri, 11 Apr 1997 20:54:59 -0400
From: Dan Louderback <dloud@erols.com>
Subject: Unique Filename
Message-Id: <334EDD63.4AA7@erols.com>
Anyone have ideas on how to generate unique filenames limited to 8.3
notation?
Regards,
Dan
------------------------------
Date: 11 Apr 1997 20:20:39 GMT
From: "Tim Behrendsen" <tim@a-sis.com>
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <01bc46b5$b744de20$87ee6fce@timpent.a-sis.com>
Justin Hickey <jhickey@hpcc.nectec.or.th> wrote in article
<334DC78C.167E@hpcc.nectec.or.th>...
> Tim Behrendsen wrote:
> >
> > But I don't even need to go there. Name one freely available
> > *significant* product that is *clearly* better than *any* commercial
> > product, regardless of price. There are some good programs of limited
> > size that are not worth a commercial entity rewriting (some may
> > say Emacs, but I wouldn't...), but I mean products of significant
> > size and complexity.
>
> How about X Windows? It has been accepted by all UNIX vendors as their
> windowing system (nothing else has challenged it that I know of ie I'm
> talking strictly UNIX here), and I may be wrong and feel free to correct
> me, but I do believe that it is free software. And it certainly is
> significant in size and complexity IMHO.
Well, a couple points about this (and this is a good example of
sufficient complexity)...
1) The X11 protocol is actually pretty good, but that's a design spec,
not really code. The sample X server code is crap, and is almost
always enhanced by vendors.
2) Xt is complete inefficient, slow, buggy, confused, badly designed
crap.
3) Motif is semi-commercial, IOW it has to be licensed from OSF.
In any case, yes -- before you all start with me -- Motif has
some nice features that aren't found elsewhere, but it is
primarily dominant with Unix for the simple reason that there
isn't anything else. It is far inferior to most of the other
commercial Window systems, and in fact, many thought it was
inferior to OpenLook. Don't even mention CDE.
[BTW I've written 100s of K lines of Motif code, so I know the
limitations]
--
==========================================================================
| Tim Behrendsen (tim@a-sis.com) | http://www.cerfnet.com/~timb |
| "Judge all, and be prepared to be judged by all." |
==========================================================================
------------------------------
Date: 11 Apr 1997 18:49:57 -0500
From: madings@earth.execpc.com (Steve Mading)
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <5imin5$7g2$1@earth.execpc.com>
Tim Behrendsen (tim@a-sis.com) wrote:
: 3) Motif is semi-commercial, IOW it has to be licensed from OSF.
: In any case, yes -- before you all start with me -- Motif has
: some nice features that aren't found elsewhere, but it is
: primarily dominant with Unix for the simple reason that there
: isn't anything else. It is far inferior to most of the other
: commercial Window systems, and in fact, many thought it was
: inferior to OpenLook. Don't even mention CDE.
You contradict yourself here. First you say that Motif is popular
only because there is no alternative, then you go on to say that
it was worse than its alternatives (OpenLook, for example).
------------------------------
Date: 11 Apr 1997 20:32:56 GMT
From: "Tim Behrendsen" <tim@a-sis.com>
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <01bc46b7$6f4ce0c0$87ee6fce@timpent.a-sis.com>
Martin Sohnius x24031 <msohnius@novell.co.uk> wrote in article
<E8DtLF.I9D@ukb.novell.com>...
> Alicia Carla Longstreet (carla@ici.net) wrote:
>
> : Actually, exactly the opposite would be true. Socialism has one major
> : flaw, a flaw that will forever make it never more than marginally
> : successful (unlike capitalism, which, over time is always very
> : successful). Socialism fails to take into account the simple fact that
> : any human will work harder and smarter when he/she directly enjoys the
> : fruits of his/her labor. Why should any person work harder than needed
> : to provide for him/herself when everything beyond their needs goes to
> : someone else. Socialism assumes that all people are willing to work for
> : the social good.
>
> And your definition of "successful" as applied to a social and political
> order ignores anything else but material gains. Is it really the
> purpose of society to make everyone work harder? Or rather to provide
> a worthwhile and happy life?
And what makes you think that "hard work" and a "worthwhile and
happy life" are unrelated? Hard work is what *makes* life
worthwhile. The most miserable people I know are the ones who
just float through life without any making any contributions or
doing anything constructive.
--
==========================================================================
| Tim Behrendsen (tim@a-sis.com) | http://www.cerfnet.com/~timb |
| "Judge all, and be prepared to be judged by all." |
==========================================================================
------------------------------
Date: Fri, 11 Apr 1997 17:41:16 -0400
From: Ying Hu <Y_Hu@fccc.edu>
Subject: where statistic and mathematic function?
Message-Id: <334EAFFC.41C6@fccc.edu>
Hello,
Are there statistic (like SAS:ANOVA) and/or mathematic (like Integral
Equation) FUNCTIONs and/or SUBROUTINEs in PERL. If yes, where are they?
Ying
------------------------------
Date: Fri, 11 Apr 1997 19:28:30 GMT
From: joel@zeptosoft.com (Joel Potischman)
Subject: Re: Working perl script... not running with HTTP get.
Message-Id: <334e9050.70858267@news2.cnct.com>
Yep. When you ftp your script to an IRIX webserver (as I do all the
time), be sure to send it in ASCII, not Binary mode and the CR/LF
combo will be converted into a normal CR (or LF, I forget which is
which.)
Whenever I upload a script and it doesn't work (which I also do all
the time), the first thing I check is to make sure I uploaded it in
ASCII mode.
-Joel
>The header was a problem, but there was a less obvious problem... I
>edited the file in a win/dos editor which places ASCII 13,10 at the
>and of the line, in the normal DOS fashion. This causes IRIX to
>mis-interpret the file header and not run PERL.
------------------------------
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 284
*************************************
