[7054] in Perl-Users-Digest
Perl-Users Digest, Issue: 679 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 28 22:07:19 1997
Date: Sat, 28 Jun 97 19: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 Sat, 28 Jun 1997 Volume: 8 Number: 679
Today's topics:
Re: Creating directories? <los94@neosoft.com>
Re: FLY...I'm New please Help! (Simon Hyde (aka Jeckyll))
Help with du called from Email or CGI; doubled? charlie@lofcom.com
Re: Help with getting file contents <sveerara@cisco.com>
Re: Help with getting file contents (Shelle)
Re: How do I decipher Time format? (Lloyd Zusman)
Re: How do I read password when using basic authenticat (PsyTours)
I DID IT! I DID IT! I DID IT! (Shelle)
Re: I DID IT! I DID IT! I DID IT! (I R A Aggie)
Re: It slices, It dices (what is a glog) (Jahwan Kim)
lastIndexOf ( String, SubStringRegex ) <mehta@mama.indstate.edu>
Multi-Line Record into One line (Neil Moore)
Re: Need PID of qx{command} (Andrew M. Langmead)
Re: no. of days between two dates ? <bromberek@cems.umn.edu>
Pointer to "dm" <jlowens@ptconnect.infi.net>
Re: Problems compiling module (David Bonner)
Re: RFC: Xlib.pm (Stephen McCamant)
Re: Source code comparison - know of a tool? (Nathan Neulinger)
Telnet client in PERL <snaider@galcom.co.il>
Re: Telnet client in PERL (I R A Aggie)
Turbo Charge Your Pager!!!! lj@sdfsdfwuy.com
Re: What does "UNIX" stand for.. <jmclark1@pacbell.net>
Where is Perl 5.004? (John Perry)
while(<INFILE>) fails to read to EOF? (CARMAN)
Re: Y2K problems?? (Jeffrey Hobbs)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 28 Jun 1997 16:33:47 -0500
From: Larry Simmons <los94@neosoft.com>
Subject: Re: Creating directories?
Message-Id: <33B5833B.6E45@neosoft.com>
Rei Baker wrote:
>
> Is there any way I can create new directories with Perl?
>
> Rei
The command is mkdir();
The usage is mkdir("dirname",MODE);
Note, however, that in order to set the permissions for said directory
under NT is to use the filesecurity.pm module. The mode (0777, for
instance) does nothing for NT.
------------------------------
Date: Sat, 28 Jun 1997 21:00:36 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: FLY...I'm New please Help!
Message-Id: <33b57b57.5809921@news>
You want to add a binmode(STDOUT) after the Content-type: image/gif\n\n is printed
------------------------------
Date: Sat, 28 Jun 1997 14:02:59 -0600
From: charlie@lofcom.com
Subject: Help with du called from Email or CGI; doubled?
Message-Id: <867524011.13100@dejanews.com>
Folks;
I _really_ hate to post this, but I've been searching for an answer for
two days now, and can't find it; checked the FAQ, did a DejaNews search
and read through available articles, and even searched the Web to no
avail. I sure hope this isn't covered somewhere I didn't look; if so,
chastise me gently.
I have a test script that uses "du -s" two different ways:
@SPACEUSED = `/usr/bin/du -s /full/path/to/dir` ;
open (PIPEFROM, "/usr/bin/du -s /full/path/to/dir |") ;
I collect the data from both in a var.
If I run it from the command line, works fine. So I stuck in a mail
routine to email me the results. Again, if I run it from the command line,
works fine.
Now I set up procmail to run the script when mail arrives to a specific
address on my virtual server. Suddenly, the values are _doubled_.
Huh?
It _has_ to be something underneath perl, and I'll be danged if I can
figure out what (not being a unix guru). The same doubled results are
displayed if I run a modified version as a CGI printing an HTML document
to STDOUT. But if I run it from the command line, everything is just fine.
Can someone with more knowledge than I have patiently explain to me why
the du -s results would double? If responses are sent directly to me, I
will summarize for the newsgroup.
Charlie Summers
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 28 Jun 1997 11:37:13 -0700
From: ranga <sveerara@cisco.com>
Subject: Re: Help with getting file contents
Message-Id: <ls3zpsavajq.fsf@sveerara-ultra.cisco.com>
In article
<Pine.SGI.3.96.970627152815.17057C-100000@davinci.bergen.org>
TechMaster Pinyan <jefpin@bergen.org> writes:
> >> How do you get read the contents of a file into a scalar variable?
>
> How 'bout:
>
> open (FILE, "/what/ever/file") || die "Error: $!\n";
> while (<FILE>){ $filestring .= <FILE>; }
> close (FILE);
>
Way to much work. Try:
undef $/;
open(FILE,"/foo/bar/blatz") or die "Error: $!\n";
$file=<FILE>;
----ranga <sveerara@cisco.com>
------------------------------
Date: Sun, 29 Jun 1997 00:39:09 GMT
From: shelle@interaccess.com (Shelle)
Subject: Re: Help with getting file contents
Message-Id: <5p4ard$1pk_002@interaccess.interaccess.com>
perrella andrew c <perrella@ehsn6.cen.uiuc.edu> wrote:
>
>How do you get read the contents of a file into a scalar variable?
>
>This has me stumped. I'd like to take a file in the same directory as my
>script and end up with a scalar, for example $file_contents, that contains
>the contents of the file I want.
>
>any ideas?
Andrew:
I just had the same problem puzzling me for 12 hours (Including sleep time of
course!) while on my way to building my first script from scratch. The
following is what I used to make it work:
open (TEXT_FILE, "path/$text_file");
while (<TEXT_FILE>) {
print "$_";
}
The "path" should be the path to the directory that contains your text files,
(either hard-coded in or as a variable). The script will have assigned the
desired file name to the variable "$text_file" (Or whatever you name
the variable for the file).
Michelle ----,-'-(@
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Michelle Feigen ----,-'-(@ shelle@interaccess.com
MEAN PEOPLE SUCK!
http://homepage.interaccess.com/~shelle/
http://homepage.interaccess.com/~shelle/grafx/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 28 Jun 1997 20:14:11 GMT
From: asfast@asfast.com (Lloyd Zusman)
Subject: Re: How do I decipher Time format?
Message-Id: <slrn5rarrc.g1.asfast@ljz.asfast.net>
On 27 Jun 1997 14:34:45 GMT, mashfiel <ashfield.matthew@miti.nb.ca> wrote:
> Hi,
> I have what I think to be a rather difficult question. I have a log of
> occurences of things, the log being updated every 5 minutes for 24 hours.
> Each entry in the log has a time entry given in the time() format ( ie.
> 866575492, which would translate somewhow into Tue Jun 17 16:24:42 97). My
> question is how does Perl do this translation. I used the localtime()
> function to do it for me, but I think I need to know how it did this. This
> is because as mentioned before, my log polls every 5 minutes. However if I
> only want to extract the entries from say 8:30 am to 4:30 pm, I must have
> to figure out how the localtime() function deciphers hours, minutes and
> seconds. My program has to work for different days, so my extract has to be
> able to only extract based on hours minutes and seconds, not days or years.
> Any help/advice would be greatly appreciated. Note: I looked in the man
> page and it said that the time() function got broken down into:
> "9-element array" set up as
> "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst"
> but how does 866575492 get broken into these 9 elements. Going by this,
> then $sec couldn't be bigger than 9 could it?
> Anyway this is probably all very confusing, but any help/advice would be
> greatly appreciated, preferably via email.
The time() function returns the number of seconds since the beginning
of Jan. 1, 1970. If you're looking for the hours, minutes, and seconds
since the beginning of the given day that this time() entry refers to,
you can do the following simple arithmetic [assume that the time()
result is stored in a variable called "$time"]:
$secondsPerDay = 86400;
$secondsPerHour = 3600;
$secondsPerMinute = 60;
$secondsSinceMidnight = ($time % $secondsPerDay);
$hoursSinceMidnight = int($secondsSinceMidnight / $secondsPerHour);
$secondsSinceHourBegan = ($secondsSinceMidnight % $secondsPerHour);
$minutesSinceHourBegan = int($secondsSinceHourBegan / $minutesPerSecond);
$secondsSinceMinuteBegan = ($minutesSinceHourBegan % $secondsPerMinute);
Or once you calculate "$secondsSinceMidnight", you can simply test
this value to see if the time falls between 8:00 AM and 4:30 PM, as
follows:
$eightAM = 8 * $secondsPerHour;
$fourThirtyPM = 16 * $secondsPerHour + 30 * $secondsPerMinute;
if ($secondsPerMidnight >= $eightAM &&
$secondsPerMidnight <= $fourThirtyPM) {
# do whatever
}
Of course, there's another way to do this, in case you haven't thought
of it:
-- Write a Perl script to read your log and to parse each line
into its elements. Call the element that contains your time()
entry "$time" (this would contain, for example, your
866575492 value).
-- Then, do this:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($time);
$secondsSinceMidnight = $hour * $secondsPerHour +
$min * $secondsPerMinute +
$sec;
... and do the rest of the testing here
I hope this helps.
--
Lloyd Zusman
ljz@asfast.com
------------------------------
Date: Sat, 28 Jun 1997 19:38:31 GMT
From: psycler@netcom.com (PsyTours)
Subject: Re: How do I read password when using basic authentication?
Message-Id: <psyclerECI3w8.BuC@netcom.com>
Gangadhar (gangadhar_vaddepalli@dbna.com) wrote:
: Can any body out there know how to read the password entered in the
: dialog box when using HTACCESS basic authentication?
: I am using Apache web server.
If you have APACHE, you have a program called htpasswd (if it
does not compile with APACHE, the source code is included
with APACHE). You will find the binary executable, otherwise,
in your conf directory. Copy it to somewhere in your path -
like: cp htpasswd /usr/bin/htpasswd
chmod a+x /usr/bin/htpasswd
Then you have to preset the passwords using this program:
htpasswd -c passfile username
it runs interactively. Then create an .htaccess file in the
dir that you want to password-protect. It should look
something like this, depending on your needs:
AuthUserFile /usr/web/host/xxx/passfile
AuthGroupFile /dev/null
AuthName ByPassword
AuthType Basic
<Limit GET>
require valid-user
</Limit>
__________________________________end passfile contents
The LIMIT tag is not required - and often not recommended as
it does not restrict POST requests or HEAD requests.
Hope this helps - email me with other questions...I'll answer
time permitting...
------------------------------
Date: Sat, 28 Jun 1997 19:42:46 GMT
From: shelle@interaccess.com (Shelle)
Subject: I DID IT! I DID IT! I DID IT!
Message-Id: <5p3pfm$3bc_002@interaccess.interaccess.com>
YES! I do realize this newsgroup is not a place for being frivolous, but I
DID IT! I wrote my first program from scratch and it worked!
It gets the day of the week from the server, and inserts one of two ASCII text
files (Which each contain the formatted HTML coding necessary for placement
within the static document). Calling the script as an SSI from the static
document does all the work!
I'll probably post the code later for optimization tips, but right now I don't
want anyone bashing on it...I DID IT AND IT WORKS!!!
OK, sorry for taking up bandwidth. :)
Michelle ----,-'-(@
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I'm just a beginner with Perl but I read TFM....
Michelle Feigen ----,-'-(@ shelle@interaccess.com
http://homepage.interaccess.com/~shelle/
http://homepage.interaccess.com/~shelle/grafx/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Sat, 28 Jun 1997 19:15:33 -0500
From: fl_aggie@hotmail.com (I R A Aggie)
Subject: Re: I DID IT! I DID IT! I DID IT!
Message-Id: <fl_aggie-ya02408000R2806971915330001@news.fsu.edu>
In article <5p3pfm$3bc_002@interaccess.interaccess.com>,
shelle@interaccess.com (Shelle) wrote:
+ YES! I do realize this newsgroup is not a place for being frivolous, but I
+ DID IT! I wrote my first program from scratch and it worked!
Bully!
James
--
Consulting Minister for Consultants, DNRC
Support the anti-Spam amendment <url:http://www.cauce.org/>
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: 29 Jun 1997 01:03:25 GMT
From: jahwan@yunt.math.lsa.umich.edu (Jahwan Kim)
Subject: Re: It slices, It dices (what is a glog)
Message-Id: <slrn5rbd2t.mqj.jahwan@yunt.math.lsa.umich.edu>
On Sat, 28 Jun 1997 00:22:08 -0400, Larry D'Anna <ldanna@ix.netcom.com> wrote:
> Can somebody explain what the expression " *glob "
> really means?
[question on anonymous glob snipped 'cause I can't answer that question]
I'm a beginner in perl myself, and this is an attempt to solve a
question as a learner. In other words, the answer to the first question
I'm going to give is mine, not a true one.
*glob is not a scalar, not a hash, but a *typeglob*.
I understand typeglob is a special data type, and the only thing that can be
of this type is the value part of a special hash, i.e., the symbol table.
This hash contains the info on perl's variables. Its key is the name of a
variable and its value a glob. And I understand a typeglob contains where
the variable is stored, etc.
Thus
*glob1 = *glob2
makes $glob1 *identical* to $glob2, @glob1 to @glob2, etc. That is, $glob1
and $glob2 are stored in the same place.
An assignment like
*glob =\$f
copies only the scalar part of *f to the corresponding part of *glob.
Finally a glob itself can be viewed as a special hash itself. The last
assignment can be written as
*::glob{SCALAR} = *::f{SCALAR};
assuming main is the current package.
Please let me know if my understanding is correct. TIA.
Jahwan
------------------------------
Date: Sun, 29 Jun 1997 00:43:16 GMT
From: Miten S Mehta <mehta@mama.indstate.edu>
To: Chipmunk <Ronald.J.Kimball@dartmouth.edu>
Subject: lastIndexOf ( String, SubStringRegex )
Message-Id: <Pine.LNX.3.93.970628194138.19869A-100000@mama.indstate.edu>
6/28/97
I need to get the last match to end of file. any hint?
Have a good day !!!
Best Regards,
Miten Mehta.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
Res: |
Miten S Mehta |
311 S Lasalle St, 39E, |
Durham, NC 27705 |
Tel: 919 416 3889 |
e-mail: mehta@mama.indstate.edu |
resume url: |
ftp://mama.indstate.edu/users/mehta/resume.html |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Sun, 29 Jun 1997 00:04:24 GMT
From: neil_@droopy.com (Neil Moore)
Subject: Multi-Line Record into One line
Message-Id: <33b5a5d0.67339012@news.ocslink.com>
open ( INPUT, "<input.tfile" ) || die "Could Not OpenFile :$!\n";
while (<INPUT>)
{
# chop;
(@tmp_name) = split(',',$_);
chop(@tmp_name[6]);
if ($tmp_name[0] == "NEW")
{
printf("%s,$s,%s,%s,$s,%s,%s,",$tmp_name[0],$tmp_name[1],$tmp_name[2],$tmp_name[3],$tmp_name[4],$tmp_name[5],$tmp_name[6]);
}
if ($tmp_name[0] == "OLD")
{
printf("%s,$s,%s,%s,$s,%s,%s\n",$tmp_name[0],$tmp_name[1],$tmp_name[2],$tmp_name[3],$tmp_name[4],$tmp_name[5],$tmp_name[6]);
}
}
close (INPUT);
--------------------------
Results in the same line coming into the array twice
What am I doing wrong?
Please remove the _ from the email address to reply
Thanks
Neil
------------------------------
Date: Sat, 28 Jun 1997 22:38:18 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Need PID of qx{command}
Message-Id: <ECIC7u.259@world.std.com>
stabro@almatel.net writes:
>I need to capture output of an external program:
> $stuff=`ProgName args`;
One idea is to do your own explicit pipe/fork/exec instead of relying
on the ones built into backtick operator. You're parent process will
get the pid from the fork call.
Another option would be to use the piped open form of open():
$pid = open STUFF, 'ProgName args |' or die;
--
Andrew Langmead
------------------------------
Date: Sat, 28 Jun 1997 19:54:16 -0500
From: Bruce Bromberek <bromberek@cems.umn.edu>
Subject: Re: no. of days between two dates ?
Message-Id: <33B5B238.41C6@cems.umn.edu>
*/chebs wrote:
>
> Hi
> can anyone help me with this one I have been trying to
> calculate the difference in days between two dates in a form
> with out much success.
I've used Date::Manip from the CPAN archives with great success.
------------------------------
Date: Sat, 28 Jun 1997 16:25:36 -0700
From: "Jack L. Owens" <jlowens@ptconnect.infi.net>
Subject: Pointer to "dm"
Message-Id: <33B59D70.3266FAFC@ptconnect.infi.net>
While looking through the web on calculator information, I found
information on the unix commands "bc", and "dm". The "dm" command
manipulates columnar data in a file, performing whatever mathematical
functions on the various columns and outputing new columnar data. I am
using Linux RedHat 4.1 which has no information on this command.
I would appreciate any information on a pointer to the source file for
this command.
--
Jack L. Owens jowens@csulb.edu
4421 Myrtle Avenue K6PWY
Long Beach, California 90807 (562)989-9413
------------------------------
Date: 28 Jun 1997 20:33:01 GMT
From: dbonner@cs.bu.edu (David Bonner)
Subject: Re: Problems compiling module
Message-Id: <5p3sdu$8tk@news.bu.edu>
Wishwesh Gandhi - PCD ~ (wgandhi@pcocd2.intel.com) wrote:
: ###############Module file
: package readin;
: BEGIN {
<big snip>
: }
: END { } # module clean-up code here (global destructor)
: #################### Error Message
: readin.pm did not return a true value at /usr/perl/tmp3.pl line 7.
: BEGIN failed--compilation aborted at /usr/perl/tmp3.pl line 7.
: I dont seem to be able to get the simple script above to work.
: Can anyone please help me with this problem?..
If it wants readin.pm to return a true value, then let it return
a true value. Try putting the following line right before END{}
1;
That should clear it up.
--
------------------------------------------------------------------------
"it's the word's suppression that gives it the power, the violence,
the viciousness." -lenny bruce
------------------------------------------------------------------------
david bonner - dbonner@cs.bu.edu - http://www.cs.bu.edu/staff/TA/dbonner
------------------------------
Date: 29 Jun 1997 01:22:06 GMT
From: stephen@alias-2.pr.mcs.net (Stephen McCamant)
Subject: Re: RFC: Xlib.pm
Message-Id: <slrn5rbe3i.7e4.stephen@alias-2.pr.mcs.net>
On 27 Jun 1997, Randy J. Ray <rjray@tremere.ecte.uswc.uswest.com> wrote:
>stephen@alias-2.pr.mcs.net (Stephen McCamant) writes:
>> On 24 Jun 1997 20:17:23 -0600, Randy J. Ray
>> <rjray@tremere.ecte.uswc.uswest.com> wrote:
>> >* Why avoid using Xlib (or any of the X link libs)? Is there a reason to not
>> > write the XS code as wrappers over the known Xlib?
>>
>> Conceptual difficulty. Writing XS is a complicated task. Xlib has hundreds
>> of calls, with lots of callbacks and structures that would require more code
>> to interface with. On my old computer, all the interface code generated
>> would take several minutes to compile.
>
>Well, the original poster noted that you would not even have to *link* with
>Xlib-- what is the alternative, re-writing Xlib (or at least the X protocol)
>from scratch?
Yup.
This mainly involves copying pack() formats out of the protocol
specification. It's probably more typing, but easier than XS, and it leads
to a cleaner interface. The short list of things in Xlib missing from a
simple X protocol implementation looks like:
Your platform's proprietary network and authorization types
Device-independent color (CMS)
Internationalization (XIM*, Xwc*, Xmb*)
Image format conversion
There's certainly a place for an XS interface to Xlib, but no one (as far as
I know) has done the work yet.
--
____________________________________________________________
Stephen McCamant ======== alias@mcs.com (finger for PGP key)
------------------------------
Date: Sat, 28 Jun 1997 18:16:16 -0500
From: nneul@umr.edu (Nathan Neulinger)
Subject: Re: Source code comparison - know of a tool?
Message-Id: <nneul-2806971816160001@dialup-pkr-10-16.network.umr.edu>
For a minimalist approach, you could use 'diff'.
Just run through each pair of programs, do a diff, and check the size of
the output. Then just look at the ones above a certain threshold.
You could get fancier and run the programs through the preprocessor for C
first to strip out comments, etc.
You sortof have to figure that if you make your students aware that you
have a tool, it will cut down on most of the offenses.
What you almost need is something that gets past the first stage of
compilation, and compare the intermediate form. That would get past the
variable naming, etc.
-- Nathan
In article <33B2B319.1806@mda.ca>, sg@mda.ca wrote:
| Hi,
|
| I am looking for a tool/utility/script (partial or complete) that will
| compare various programs in C/C++/Java and tell me how closely they
| resemble each other. I teach these programming courses, and would like
| to get an accurate estimate of "program resemblance" when checking the
| assignments of my students... because some programs look way too similar
| to each other. The good-old "hhmmm, I have just seen almost exactly the
| same program..." method works OK on small programs, but on large ones,
| having over 60 students, it is not too accurate any more.
|
| I know I can spend some time (or maybe a bit more... ;-) writing such a
| utility, which will compare two source files and tell me how identical
| these are. For example, if the only thing changed is the names of the
| variables, and the rest is the same, etc... . And it makes sense to
| write something like that in Perl. I just don't want to reinvent the
| wheel, and assume that at least parts of it were invented already.
| Ideally many parts...
|
| So if you know of something that might be of help, in Perl or not, I
| would appreciate any tips. And perhaps you can email me directly as
| well.
|
| Thanks,
|
| --
| [ Simon Goland B-)> sg@mda.ca ]
| [ Without action there is no change ]
------------------------------------------------------------
Nathan Neulinger Univ. of Missouri - Rolla
EMail: nneul@umr.edu Computing Services
WWW: http://www.umr.edu/~nneul SysAdmin: rollanet.org
------------------------------
Date: Sat, 28 Jun 1997 20:37:46 +0300
From: Daniel Schnaider <snaider@galcom.co.il>
Subject: Telnet client in PERL
Message-Id: <33B54BE9.A2AD32B2@galcom.co.il>
I am looking for a Telnet client written in Perl for Unix/NT whatever!
Thank you,
Daniel
------------------------------
Date: Sat, 28 Jun 1997 19:16:13 -0500
From: fl_aggie@hotmail.com (I R A Aggie)
Subject: Re: Telnet client in PERL
Message-Id: <fl_aggie-ya02408000R2806971916130001@news.fsu.edu>
In article <33B54BE9.A2AD32B2@galcom.co.il>, Daniel Schnaider
<snaider@galcom.co.il> wrote:
+ I am looking for a Telnet client written in Perl for Unix/NT whatever!
Net::Telnet module, v3.something. Check CPAN.
James
--
Consulting Minister for Consultants, DNRC
Support the anti-Spam amendment <url:http://www.cauce.org/>
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: 28 Jun 1997 20:53:32 GMT
From: lj@sdfsdfwuy.com
Subject: Turbo Charge Your Pager!!!!
Message-Id: <5p3tkc$hdt$2@usenet89.supernews.com>
ONLY AVAILABLE IN THE:
U.S.A, VIRGIN ISLANDS, AND PUERTO RICO CANADA*
BE SURE TO GO TO OUR SITE AND CHECK OUT OUR FREE TRIAL.
Call everyone and tell them to throw away all of your old home, office, fax,
pager, voice-mail, and cellular numbers and give them your New "Virtual Office"
800/888 number! The only number any one will ever need.
Are you tired of giving out all of your different phone numbers to everyone?
Wouldnt it be nice to be able to give everyone just ONE phone number that
will find you anywhere you are? Even out of town, or in a restaurant, or even
on the golf course.
Now you can.
We have the answer to all your communication needs. Its called the "Virtual Office".
And this new service is loaded. It comes with features like:
An automated Call Attendant, Live Call Connect (in real time), Fax Sending, Fax Receiving,
Even without a fax machine! E-Mail Notification and Delivery, Without a PC!,
Outbound calling, Low Cost Long Distance Service, Inbound/Outbound 800/888
Number, Worldwide Call Transfer, Call Forwarding, Call Screening, Full Service Voice
Mail, Nation Wide Pager Notification, Conference Calling, Speed Dialing, Auto Dial,
Auto Messaging, Temporary Greeting, Unavailable Greeting, Password Protection,
Pager Notification, and No Equipment or Software to buy, "Ever".
Priced from $9.95* per month, Plus 10.9 cents per minute per event.
Thats less than one phone line would cost per month.
For more information please visit our web site:
http://www.mynumber.com
* Based on our best priced plan.
* Canada has a higher per minute rate.
------------------------------
Date: Sat, 28 Jun 1997 14:12:05 -0700
From: The Unix Godfather <jmclark1@pacbell.net>
To: Kaz Kylheku <kaz@vision.crest.nt.com>
Subject: Re: What does "UNIX" stand for..
Message-Id: <33B57E25.719F9968@pacbell.net>
Kaz Kylheku wrote:
>
> In article <5ol5mq$873$1@tsunami.wavetech.net>,
> Ron McFarland <ronmcf@wavetech.net> wrote:
> >In article <33A562FC.3126@cs.odu.edu>, eddie@cs.odu.edu says...
> >>If operating systems were programming languages UNIX would be C
> >>and Win95 would be BASIC with line numbers. :)
> >
> >Naw. Win95 would be like C++. ;)
>
> Granted, but an incompatible C++ with line numbers. Templates and virtual would
> be available in some promised future upgrade, of course. And no program
> written before August 1995 would compile.
If a frog had wings, it would'NT bounce its ass off the ground so much.
Please... Just the facts on UNIX or NT.
====================================================
JAMES CLARK
jmclark@pacbell.net
(-C-I-S-)-Crystal Information Soulutions-(-C-I-S-)
====================================================
The World has Moved !!
------------------------------
Date: 29 Jun 1997 01:33:55 GMT
From: perry@alpha.jpunix.com (John Perry)
Subject: Where is Perl 5.004?
Message-Id: <5p4e23$eu0$1@grapevine.lcs.mit.edu>
-----BEGIN PGP SIGNED MESSAGE-----
The subject pretty much says it all. All of the FTP sites
mentioned in the FAQ didn't seem to have it and prep.ai.mit.edu doesn't
seem to be responding at this time. Where can I get Perl 5.004?
- --
John Perry KG5RG perry@alpha.jpunix.com PGP-encrypted e-mail welcome!
Amateur Radio Address: kg5rg@kg5rg.ampr.org
WWW - http://www.jpunix.com
PGP 2.62 key for perry@jpunix.com is on the keyservers.
-----BEGIN PGP SIGNATURE-----
Version: 2.6.2
iQCVAwUBM7W7eFOTpEThrthvAQEZrAP6AtSmsrOFJAIhlmXsHjtrteYQUYCKRm7B
yWtTXdiN27a9BO/v+O3Tb5TINmpUEVzDcCojPnMkH4mCHOy4j7FcBsmzMMuVlxKw
w3WJgq3wXNHBBEawZ8Wi/3EvziRIADoNzXLB6ZTGzzb9hUWxGAP+rsKVRHmvDz7y
OAIK9yP34Gg=
=gCqr
-----END PGP SIGNATURE-----
------------------------------
Date: 29 Jun 97 01:01:45 GMT
From: Carman@cris.com (CARMAN)
Subject: while(<INFILE>) fails to read to EOF?
Message-Id: <Carman.867546105@voyager>
Keywords: perl,eof,input
I've written a perl script (my first) that contains two while() loops.
The first reads a logfile and creates a tempfile that is then
read by the second to create the final output.
The problem I've discovered, is that the second while() loop
is not reading all the way through the input file. The input
file is 500 lines, but the loop stops reading after 454.
I would greatly appreciate it if anyone who knows would tell
me how this might happen.
Ron Carman
p.s. Code included below for reference...
## Begin inclusion ##
#!/usr/bin/perl
$INFILE = "www_transfers";
open INFILE or die "Can't open file $INFILE: $!\n";
$OUT1 = ">Queries.tmp";
open OUT1 or die "Can't open file $OUT1: $!\n";
while(<INFILE>)
{
# code omitted...
}
close($OUT1);
$INFILE = "Queries.tmp";
open INFILE or die "Can't open file $INFILE: $!\n";
while(<INFILE>)
{
push @QArray, [ split /\Q&/ ];
}
for $i (0 .. $#QArray)
{
for $j ( 0 .. $#{$QArray[$i]} )
{
print "element $i $j is $QArray[$i][$j]\n";
}
}
## End inclusion ##
------------------------------
Date: 28 Jun 1997 12:08:22 -0700
From: jhobbs@cs.uoregon.edu (Jeffrey Hobbs)
Subject: Re: Y2K problems??
Message-Id: <5p3nf6$1b4@psychotix.cs.uoregon.edu>
In article <33B2FC0E.77C8@net.com>, Jyoti Patel <jyoti@net.com> wrote:
>Tcl7.6/Tk4.2 scotty-2.1.5 expect-5.21 perl5.003 ucd-snmp-3.1.3 SNMP-1.6
>Do any of the above mentioned packages have a Y2K problem?
It's not quite accurate to blame a language for a year 2000 problem.
Tcl did have some clock problems in scanning odd dates (mostly boundary
problems), and has added some further intelligence to compensate for using
2 digit years - all of these fixes are in Tcl8.
Of course, if you always use 4 digits for the year, then you would never
experience these problems, as is true with most any other language (perl
included). Since these are just languages, they really aren't the core of
your problem - it is the software that is written in it that translates what
your stored date representation means. It's not fair to blame the language
for assuming "01 Jan 00" means 1900 because maybe that is what you intended.
Tcl8 will assume that the above is actually 2000, whereas Tcl7 complains
thinking it's 1900 (remember that world began on 01 Jan 1970 GMT for some
short-sighted reason, so limiting yourself to whatever C time() handles
isn't a good idea for all apps).
If the software used 2 digit years, you may have some problems, if it used a
conservative 4, then congrats on saving yourself a lot of reengineering
effort.
--
Jeffrey Hobbs jeff.hobbs@acm.org|jhobbs@or.cadix.com
Software Engineer, Oregon R&D office: 541.683.7891
CADIX International, Inc. fax: 541.683.8325
URL: http://www.cs.uoregon.edu/~jhobbs/
------------------------------
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 679
*************************************
