[7903] in Perl-Users-Digest
Perl-Users Digest, Issue: 1528 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 23 11:17:24 1997
Date: Tue, 23 Dec 97 08:00:21 -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 Tue, 23 Dec 1997 Volume: 8 Number: 1528
Today's topics:
Re: $* warning even though I didn't use it (M.J.T. Guy)
Error Compiling JPL Sample on IRIX <bugaj@bell-labs.com>
Re: Extensible File Handle Objects (M.J.T. Guy)
Re: Help needed <jdporter@min.net>
Re: HELP! Bitwise XOR (^) doesn't work on strings? <merlyn@stonehenge.com>
HELP! using a while statement <gossfam@wolfenet.com>
Re: HELP! using a while statement <real@earthling.net>
Re: HELP! using a while statement (john towell)
Re: HELP! using a while statement (M.J.T. Guy)
Re: HELP! using a while statement (Mike Stok)
Re: HELP! using a while statement <inet.admin@bridge.bellsouth.com>
Looking for ftp filelist manager <andy@sympad.moldnet.md>
Re: Mod Perl msaiju@giasbga.vsnl.net.in
Re: next == continue?? <earlw@kodak.com>
Re: Perl compiler (Jeroen Kustermans)
Perl Dbase Access <mrlock@flash.net>
Perl Module <arunag@twisto.compaq.com>
Re: Perl5 for DEC Alpha NT <earlw@kodak.com>
PERL: Base64 Decoder <rippo@kc3.co.uk>
Re: PERL: Base64 Decoder (Mike Stok)
Re: PERL: Base64 Decoder (Honza Pazdziora)
Re: thanks a lot!... <ptimmins@netserv.unmc.edu>
Re: Which language pays most 17457 -- C++ vs. Java? (Tim Oxler)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Dec 1997 13:08:04 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: $* warning even though I didn't use it
Message-Id: <67od3k$hsc$1@lyra.csx.cam.ac.uk>
Tom Phoenix <rootbeer@teleport.com> wrote:
>
>Somehow, perl thinks it is being used, or at least referenced. Since
>you're interpolating, I'd look closely at any dollar signs within the
>here-document to see whether one of them might be in front of an asterisk.
>Hope this helps!
And to expand on Tom's comment, it may be less than self-evident to you
that
print <<"PROG_USAGE";
$
*
PROG_USAGE
will generate the above message.
If you don't need any variable substitution in your here stream, it's
safer to use single quotes 'PROG_USAGE'.
Mike Guy
------------------------------
Date: Tue, 23 Dec 1997 08:41:59 -0500
From: Stephan Vladimir Bugaj <bugaj@bell-labs.com>
Subject: Error Compiling JPL Sample on IRIX
Message-Id: <349FBFA7.167E@bell-labs.com>
Hi. I'm getting this:
---
Installing Sample JPL program
+ cd Sample
+ perl Makefile.PL
+ make clean
rm -f Sample.c Sample.h \
Sample*.class Sample*.pl libSample.so Sample*.java
+ perl Makefile.PL
+ make install
perl5.00404 -MJPL::Compile -e "file('Sample.jpl')"
javac Sample.java
javah -jni Sample
javap -s Sample
perl -c Sample.pl
Can't load '/usr/freeware/lib/perl5/site_perl/IP32-irix/auto/JNI/JNI.so'
for module JNI: 28106:perl: rld: Fatal Error: cannot successfully map
soname '/usr/freeware/lib/perl5/site_perl/IP32-irix/auto/JNI/JNI.so'
under any of the filenames
/usr/freeware/lib/perl5/site_perl/IP32-irix/auto/JNI/JNI.so at
/usr/freeware/lib/perl5/IP32-irix/5.00404/DynaLoader.pm line 166.
at /usr/local/jpl/perl/JPL/AutoLoader.pm line 53
BEGIN failed--compilation aborted at
/usr/local/jpl/perl/JPL/AutoLoader.pm line 53.
BEGIN failed--compilation aborted at /usr/local/jpl/perl/JPL/Class.pm
line 2.
BEGIN failed--compilation aborted at Sample.pl line 3.
jpl stopped
---
when trying to install the JPL under IRIX.
Has anyone successfully used the JPL on IRIX?
I had to edit the Makefile for the JNI by hand to use -n32 instead
of -32, and since there is no -R switch for IRIX cc and nothing in the
man page that seemed to be a proper substitute I had to take the two
-R switches out of Makefile.PL (I ran that, then hand-edited the
result), but the compile did not fail and it installed the library.
I subsequently just commented out the part of install-jpl where it tried
to make the JNI which I had just done, and the install went well until
Sample.pl...
The file /usr/freeware/lib/perl5/site_perl/IP32-irix/auto/JNI/JNI.so
does exist, and I stuck that directory in every path variable I could
think of just for kicks...
The lines the compile fails at above are the use statements in
Perl for importing the JNI(AutoLoader53), the AutoLoader(Class.pm2),
and JPL::Class(Sample.pl3), respectively, which makes sense.
LL+P,
Stephan
--
"Do computers think?"
---------------------------------------------------------------
Stephan Vladimir Bugaj, Multimedia Communication Research Dept.
Departmental Website: http://www.multimedia.bell-labs.com
PGPkey from http://www.pgp.net/wwwkeys.html or other keyservers
Non-Lucent website: http://www.cthulhu-dynamics.com/stephan
FAQs: http://www.cthulhu-dynamics.com/tech/metametafaq.html
---------------------------------------------------------------
STANDARD DISCLAIMER:My opinions are NOT those of LUCENT
---------------------------------------------------------------
"Do submarines swim?" - E.W. Dijkstra
------------------------------
Date: 23 Dec 1997 13:56:52 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Extensible File Handle Objects
Message-Id: <67ofv4$j56$1@lyra.csx.cam.ac.uk>
Yitzchak Gale <gale@LiveLink.Com> wrote:
>>> Why not let <$fh> call the getline or getlines method whenever $fh is
>>> any kind of blessed reference? ...
>>> Is this hard to implement? Is it / was it already done?
>
>> See the section "Tying FileHandles" in the perltie man page.
>
>First of all, for those of you who missed Mike's reference, I quote
>that man page section in its entirety:
>
> This isn't implemented yet. Sorry; maybe someday.
That isn't what I referenced. Why would I refer to ancient
documentation when more modern stuff is available? Current Perl has
Tying FileHandles
This is partially implemented now.
A class implementing a tied filehandle should define the
following methods: TIEHANDLE, at least one of PRINT, PRINTF,
READLINE, GETC, or READ, and possibly DESTROY.
which, although incomplete, does enough for what you want.
Mike Guy
------------------------------
Date: Tue, 23 Dec 1997 08:47:56 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Help needed
Message-Id: <349FC10C.BAC@min.net>
Answer: use awk.
% nawk '/startstring/,/stopstring/' <infile >outfile
John Porter
jporter@logicon.com
Katalin Nadassy wrote:
>
> Hello,
>
> I'm new here in this newsgroup and also new in using Perl. I would like
> to ask you for your help in the following problem: I would like to open
> a file search for a certain string and then from that point where the
> string is found extract the content of the file until another string
> found and write it to a file.
> I know that is probably a very easy problem, but I would appreciate any
> suggestions and help.
>
> Thank you very much !
>
> Best regards,
>
> Kati
------------------------------
Date: 23 Dec 1997 08:43:42 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: HELP! Bitwise XOR (^) doesn't work on strings?
Message-Id: <8cu3c0m5e9.fsf@gadget.cscaper.com>
>>>>> "Bart" == Bart Lateur <bart.mediamind@tornado.be> writes:
Bart> Randal Schwartz <merlyn@stonehenge.com> wrote:
>> The number 0 and the string "0" are equivalent.
Bart> Either you're lying (to use Tom's words), or I'm right. If "0"
Bart> and 0 are indistinguishable, there is no way that { 0 ^ 1 } and
Bart> { "0" ^ "1" } may give different results.
Sorry... I meant "from the perspective of testing true/false", not
"from the perspective of bitwise ops". Bitwise ops have their own
idea of string v. number, big v. little, etc etc.
I think I forgot to pay more attention to the context of the thread.
That'll happen when you try to read hundreds of articles in a dozen
newsgroups. :-)
So, in summary:
0 and "0" don't matter to testing true/false (?: && || ! if etc.)
0 and "0" *definitely* matter to the bitwise ops (& | ~ ^ << >>)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 252 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Tue, 23 Dec 1997 06:56:28 -0500
From: henry goss <gossfam@wolfenet.com>
Subject: HELP! using a while statement
Message-Id: <349FA6EC.2C18@wolfenet.com>
I am having trouble with the following code
i am trying to get my program to loop more than once, but it wont loop a
second time no matter what i do. If i change the "eq" to ==, it forces
me too loop forever.
what should i do to get this otherwise SIMPLE program to work? I have
also tried changing the $yeah into a boolean value, but i am still
having the same prob.
Any help is greatly appreciated
#!/usr/bin/perl
#---------------------------------------------------------------------------
#Henry Goss
#12/23/97
#this program takes in a list of strings and then prints them out in
#reverse order without using the reverse function.
#---------------------------------------------------------------------------
#Variable Declaration----------------
$yeah = 'y'; #while y loop
$my_array = ""; #init of my array, which holds the strings
$count = 0; #keeps track of which elements have been used
#------------------------------------
while ($yeah eq 'y') {
print ("\nPlease enter a string>");
$my_array[$count] = <STDIN>;
$count++;
print ("\n" . "Want to add another string(y or n)?>");
$yeah = <STDIN>;
print ("$yeah" . "\n"); #some debugging, tells me if i did anything
to $yeah
}
for ( ; ($count - 1) >= 0 ; $count--) {
print ($my_array[$count - 1]);
}
exit(0);
------------------------------
Date: 23 Dec 1997 15:16:18 GMT
From: "Real" <real@earthling.net>
Subject: Re: HELP! using a while statement
Message-Id: <01bd0fb5$a819c400$822c57c0@pc0130.pica.nl>
Hay Henry,
Use chomp() or chop() to remove the newline character from $yeah before
testing it. According to a Perl reference guide;
chomp() (perl5) removes a newline if one is there. The chop() (perl4)
removes any last character.
Real
henry goss <gossfam@wolfenet.com> wrote in article
<349FA6EC.2C18@wolfenet.com>...
> I am having trouble with the following code
> i am trying to get my program to loop more than once, but it wont loop a
> second time no matter what i do. If i change the "eq" to ==, it forces
> me too loop forever.
> what should i do to get this otherwise SIMPLE program to work? I have
> also tried changing the $yeah into a boolean value, but i am still
> having the same prob.
> Any help is greatly appreciated
>
>
> #!/usr/bin/perl
>
>
#---------------------------------------------------------------------------
> #Henry Goss
> #12/23/97
> #this program takes in a list of strings and then prints them out in
> #reverse order without using the reverse function.
>
#---------------------------------------------------------------------------
>
> #Variable Declaration----------------
> $yeah = 'y'; #while y loop
> $my_array = ""; #init of my array, which holds the strings
> $count = 0; #keeps track of which elements have been used
> #------------------------------------
>
> while ($yeah eq 'y') {
> print ("\nPlease enter a string>");
> $my_array[$count] = <STDIN>;
> $count++;
> print ("\n" . "Want to add another string(y or n)?>");
> $yeah = <STDIN>;
> print ("$yeah" . "\n"); #some debugging, tells me if i did anything
> to $yeah
> }
>
> for ( ; ($count - 1) >= 0 ; $count--) {
> print ($my_array[$count - 1]);
> }
>
> exit(0);
>
------------------------------
Date: 23 Dec 1997 15:15:16 GMT
From: m50jft1@choice.cob.niu.edu (john towell)
Subject: Re: HELP! using a while statement
Message-Id: <67oki4$son@corn.cso.niu.edu>
In article <349FA6EC.2C18@wolfenet.com>,
henry goss <gossfam@wolfenet.com> wrote:
>I am having trouble with the following code
>i am trying to get my program to loop more than once, but it wont loop a
>second time no matter what i do. If i change the "eq" to ==, it forces
>me too loop forever.
>what should i do to get this otherwise SIMPLE program to work? I have
>also tried changing the $yeah into a boolean value, but i am still
>having the same prob.
>Any help is greatly appreciated
>
>
>#!/usr/bin/perl
>
>#---------------------------------------------------------------------------
>#Henry Goss
>#12/23/97
>#this program takes in a list of strings and then prints them out in
>#reverse order without using the reverse function.
>#---------------------------------------------------------------------------
>
> #Variable Declaration----------------
> $yeah = 'y'; #while y loop
> $my_array = ""; #init of my array, which holds the strings
> $count = 0; #keeps track of which elements have been used
> #------------------------------------
>
> while ($yeah eq 'y') {
> print ("\nPlease enter a string>");
> $my_array[$count] = <STDIN>;
> $count++;
> print ("\n" . "Want to add another string(y or n)?>");
> $yeah = <STDIN>;
The problem is here. $yeah also has a linefeed tacked onto it
Add the following line and it works OK.
chomp $yeah;
Cheers!
John :)
------------------------------
Date: 23 Dec 1997 15:21:23 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: HELP! using a while statement
Message-Id: <67oktj$lko$1@lyra.csx.cam.ac.uk>
henry goss <gossfam@wolfenet.com> wrote:
>i am trying to get my program to loop more than once, but it wont loop a
>second time no matter what i do. If i change the "eq" to ==, it forces
>me too loop forever.
>what should i do to get this otherwise SIMPLE program to work? I have
>also tried changing the $yeah into a boolean value, but i am still
>having the same prob.
You aren't allowing for newlines in your input.
> $yeah = <STDIN>;
I would expect that to leave "y\n" in $yeah, not "y"
> print ("$yeah" . "\n"); #some debugging, tells me if i did anything
>to $yeah
... so that extra newline isn't needed.
See chomp in the perlfunc man page for the easiest way of dealing with
this.
Mike Guy
------------------------------
Date: 23 Dec 1997 15:23:01 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: HELP! using a while statement
Message-Id: <slrn69vlvo.tl.mike@stok.co.uk>
On Tue, 23 Dec 1997 06:56:28 -0500, henry goss <gossfam@wolfenet.com> wrote:
>I am having trouble with the following code
>i am trying to get my program to loop more than once, but it wont loop a
>second time no matter what i do. If i change the "eq" to ==, it forces
>me too loop forever.
>what should i do to get this otherwise SIMPLE program to work? I have
>also tried changing the $yeah into a boolean value, but i am still
>having the same prob.
>Any help is greatly appreciated
> #Variable Declaration----------------
> $yeah = 'y'; #while y loop
> $my_array = ""; #init of my array, which holds the strings
$my_array is a scalar, you might have meant
@my_array = ();
which is an array in which $my_array[0] would be the first element when
it's added - in perl you need to look both at the prefic character ($
indicates a single value, @ indicates a list of values) and any subscripts
e.g.
$foo is the scalar $foo
$foo[1] is the scalar which is the second element of the array
@foo
@foo[1, 3] is a list comprising the elements $foo[1] and $foo[3]
@foo{'x', 'y'} is a list comprising the elements of the hash %foo with
keys 'x' and 'y'
Programming perl and Learning perl (both published by O'Reilly) both cover
this to varying degrees.
> $count = 0; #keeps track of which elements have been used
> #------------------------------------
>
> while ($yeah eq 'y') {
> print ("\nPlease enter a string>");
> $my_array[$count] = <STDIN>;
> $count++;
> print ("\n" . "Want to add another string(y or n)?>");
> $yeah = <STDIN>;
$yeah now contains whatever you typed on stdin plus the end of line
sequence you may want to say
chomp $yeah;
here to remove (safely) the end of line sequence, and then your while test
mightwork as you expect as "y" eq "y" ut it doesn't eq "y\n"
I hope that I haven't been too sloppy with the truth, the books and
on-line docs are likely to be more accurate than me, but that the intent
of this posting is clear to you and helps with your problem.
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 23 Dec 1997 09:21:38 -0600
From: Inet Admin <inet.admin@bridge.bellsouth.com>
To: gossfam@wolfenet.com
Subject: Re: HELP! using a while statement
Message-Id: <349FD701.BEF23314@bridge.bellsouth.com>
> i am trying to get my program to loop more than once, but it wont loop a
> second time no matter what i do. If i change the "eq" to ==, it forces
> me too loop forever.
> #!/usr/bin/perl -wT # A VERY good idea to use these checks
>
> #Variable Declaration----------------
# You should always declare your vars with the my tag, for scope.
> my $yeah = 'y'; #while y loop
> my $my_array = ""; #init of my array, which holds the strings
> my $count = 0; #keeps track of which elements have been used
> #------------------------------------
>
> while ($yeah eq 'y') {
> print ("\nPlease enter a string>");
> $my_array[$count] = <STDIN>;
> $count++;
> print ("\n" . "Want to add another string(y or n)?>");
> $yeah = <STDIN>;
____chomp($yeah);_____
# This chomp removes any triling whitespace character from you input. In this
case, the \n
# character, which is foiling your eq compare at the start of the while loop.
<Some code snipped>
This should get you back on track in your PERL coding. Many of the questions are
answered in the first chapters of the 2nd edition Camel book. You'll need it for
any serious coding.
HTH,
Brad Bradley
------------------------------
Date: 23 Dec 1997 13:54:26 GMT
From: Andrey Tchoritch <andy@sympad.moldnet.md>
Subject: Looking for ftp filelist manager
Message-Id: <67ofqi$3t2$1@sympad.moldnet.md>
Hi
I'm looking for good ftp archive filelist creator/manager in Perl.
It should create listing of files with multiline descriptions
(bbs style), also it should
track new files, generate html and ...
Please help me
andy
p.s. please! replay by email
------------------------------
Date: Tue, 23 Dec 1997 08:01:27 -0600
From: msaiju@giasbga.vsnl.net.in
To: nvp@shore.net
Subject: Re: Mod Perl
Message-Id: <882885456.865533963@dejanews.com>
In article <67md8k$d2b@fridge.shore.net>,
nvp@shore.net (Nathan V. Patwardhan) wrote:
>
> msaiju@giasbga.vsnl.net.in wrote:
>
> : I then tried to "Run" the scipt by giving http://localhost/mod/test.mod
>
> Isn't your alias for "perl-bin" /perl, not /mod?
>
> --
> Nathan V. Patwardhan
> please don't send spam to president@whitehouse.gov
Thanks for your help.
I tried http://localhost/perl/test.mod
I got a 500 Internal Server Error Message
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Tue, 23 Dec 1997 08:18:13 -0500
From: Earl Westerlund <earlw@kodak.com>
Subject: Re: next == continue??
Message-Id: <349FBA15.28CB8ED8@kodak.com>
Steve Evans wrote:
> I have a good background in C and ksh, and am
> just starting to learn perl. I like that it
> looks so much like C, but find it annoying that
> some key words are different. Does anyone know
> why "break" in C is "last" in perl, and likewise
> "continue" is "next"?? Was there some actual reason,
> or is this just an arbitrary thing?
<snip>
Maybe it's for the same reason that one refers to a sequence of SAS variables with a hyphen in the
DATA step (e.g. X1-X5), but with a colon in IML (e.g. 'X1':'X5'). That's in the same language, and
that's *really* annoying.
People who work for glass software companies shouldn't throw stones... ;-)
--
+-----------------+----------------------------------------+
| Earl Westerlund | Kodak's Homepage: http://www.kodak.com |
+-----------------+----------------------------------------+
| The opinions expressed herein are mine and mine alone |
| (most people don't seem to want them anyway) |
+----------------------------------------------------------+
------------------------------
Date: Tue, 23 Dec 1997 15:00:54 GMT
From: NightLight@webcity.nl.WEGSPAM!!!!!! (Jeroen Kustermans)
Subject: Re: Perl compiler
Message-Id: <349fcea7.10281834@news.xs4all.nl>
On 23 Dec 1997 02:52:53 GMT, Tom Christiansen <tchrist@mox.perl.com>
wrote:
: [courtesy cc of this posting sent to cited author via email]
:
: In comp.lang.perl.misc, clay@panix.com (Clay Irving) writes:
: :Like:
: : Perl2exe
:
: I think it's time that someone explain just exactly what this thing is
: really doing.
:
: --tom
Hm, I tested it, and it works perfect (except that
NON-perl-developer-like message at the bottom of each compiled
script).
I looked to the sizes of the compiled versions.
. <DIR> 12-23-97 10:36a .
.. <DIR> 12-23-97 10:36a ..
PERL2EXE EXE 594,267 12-04-97 10:39a perl2exe.exe
DYNALO~1 PM 20,137 08-27-97 6:49p dynaloader.pm
README TXT 84 10-13-97 9:42p readme.txt
PXMAN HTM 10,090 12-04-97 10:39a pxman.htm
SAMPLE PL 294 11-24-97 11:07p sample.pl
TOPSEL~1 PL 16,953 12-22-97 5:24p topselectiemoduleEditFinal.pl
HTMLTO~1 PL 4,031 12-22-97 5:24p HTMLtopselectieEdit.pl
NIEUWS~1 PL 32,162 12-10-97 7:52p nieuwsbriefmodule.pl
SAMPLE EXE 571,968 12-23-97 10:49a sample.exe
NIEUWS~1 EXE 603,860 12-23-97 10:49a nieuwsbriefmodule.exe
TOPSEL~1 EXE 588,669 12-23-97 10:49a topselectiemoduleEditFinal.exe
I compiled 2 scripts with a size of 16KB and 32KB.
When you look to the sizes of the executables, it seems that the
executable-size is the sum of standart 570KB and the original
script-size.
If you look to the original perl-interpreter, you see:
PERL.DLL is 561KB and PERL.EXE is 8KB = +/- 570KB
So, my opinion is, that this perl-compiler is a simple trick of a kind
of C-project with the perl-compiler and the script included.
Can anybody make a same program which is for free?
Greets,
Jeroen
P.S.: for email-reply, remove ".WEGSPAM!!!!" from the email-address.
------------------------------
Date: Tue, 23 Dec 1997 09:34:29 -0800
From: Steve <mrlock@flash.net>
Subject: Perl Dbase Access
Message-Id: <349FF625.1945@flash.net>
Is there a Dbase access Module for Perl 5.x?
Thanks, Steve Graham
------------------------------
Date: Tue, 23 Dec 1997 15:06:39 GMT
From: Aruna Gorantla <arunag@twisto.compaq.com>
Subject: Perl Module
Message-Id: <349FD37F.41C67EA6@twisto.compaq.com>
-- Hi,
Does anybody know if there is a perl module POSIX.pm available for NT.
If yes, where can I find it. Thanks in advance.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Aruna Gorantla
phone: (281)514-7500
email: arunag@twisto.compaq.com
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: Tue, 23 Dec 1997 08:21:42 -0500
From: Earl Westerlund <earlw@kodak.com>
Subject: Re: Perl5 for DEC Alpha NT
Message-Id: <349FBAE6.75191606@kodak.com>
Kwok Fong wrote:
> Is there already a binary distribution of Perl5 for Dec Alpha NT?
>
> If not, how difficult is it to build it myself?
>
> Thanks for any info you can shed on this subject.
>From what I see at http://www.perl.com, there are two of them?
--
+-----------------+----------------------------------------+
| Earl Westerlund | Kodak's Homepage: http://www.kodak.com |
+-----------------+----------------------------------------+
| The opinions expressed herein are mine and mine alone |
| (most people don't seem to want them anyway) |
+----------------------------------------------------------+
------------------------------
Date: Tue, 23 Dec 1997 13:53:07 +0000
From: Richard Wilde <rippo@kc3.co.uk>
Subject: PERL: Base64 Decoder
Message-Id: <349FC22B.C93@kc3.co.uk>
Please help
Can you tell me where I can get a perl script which will at least decode
Base64 or preferbly other MIME types as well.
Any help will be appreciated.
Rippo
KC3
------------------------------
Date: 23 Dec 1997 15:37:51 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: PERL: Base64 Decoder
Message-Id: <slrn69vmri.tl.mike@stok.co.uk>
On Tue, 23 Dec 1997 13:53:07 +0000, Richard Wilde <rippo@kc3.co.uk> wrote:
>Can you tell me where I can get a perl script which will at least decode
>Base64 or preferbly other MIME types as well.
If you point a web browser at http://www.perl.com/ and follow the CPAN
(comprehensive perl archive network) links then you should find the
MIME::Base64 module which can be installed on a machine with a recent perl
5 distribution and uses a C implementation of Base64 and Quoted Printable
encoding and decoding. If you want to stick to perl then
tr#A-Za-z0-9+/##cd; # remove non-base64 chars
tr#A-Za-z0-9+/# -_#; # convert to uuencoded format
$len = pack("c", 32 + 0.75*length); # compute length byte
print unpack("u", $len . $_); # uudecode and print
might be of some use.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 23 Dec 1997 15:46:52 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: PERL: Base64 Decoder
Message-Id: <adelton.882892012@aisa.fi.muni.cz>
Richard Wilde <rippo@kc3.co.uk> writes:
> Please help
>
> Can you tell me where I can get a perl script which will at least decode
> Base64 or preferbly other MIME types as well.
>
> Any help will be appreciated.
Go to your nearest CPAN site. If you are not sure which one is is,
start with http://www.perl.com/ and select Nearest CPAN site. Then go
for CPAN.html, look for MIME and then it's gonna be easy.
By the way, the road to CPAN is also described in the FAQ, sent to
this newsgroup twice weekly.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Tue, 23 Dec 1997 08:48:20 -0600
From: Patrick Timmins <ptimmins@netserv.unmc.edu>
Subject: Re: thanks a lot!...
Message-Id: <349FCF34.4F79@netserv.unmc.edu>
MrPc wrote:
> >
> > If you don't know how to use a search engine, just what do you
> > think you are going to do with the source?
> >
> > Elijah
>
> what kind of smart ass answer is this?!? i ask for help and what i get
> is shit! i didn't mean to phrase my question like that, but that gave
> you no right to give me such a lame response. i'm a beginner in perl,
> and if i ask for help i don't expect caustic answers instead of a polite
> explanation which i think i deserve (as any newbie does). chances are,
> you're not as good of a visual basic programmer as i am, and if someone
> asked you how subclassing in the win32s api is performed or what
> interface polymorphism is, you wouldn't know where to begin! i advise
> you to keep your hole shut unless you have something nice to say!
On the Twelve Days of Christmas I refer twelve times to "me":
i ask for help
i get is shit
i didn't mean to
my question like that
give me ... lame response
i'm a beginner
i ask for help
i don't expect
i think
i deserve
i am
i advise
Merry Christmas and Happy Hanukkah to all.
Patrick Timmins
ptimmins@netserv.unmc.edu
------------------------------
Date: Tue, 23 Dec 1997 17:47:31 GMT
From: troxler.nospam@i1.net (Tim Oxler)
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <349ff5b7.3796783@news1.i1.net>
steve <steve@seasoned-software.com> wrote:
>
>David Grove wrote:
>
>> I should point out that these languages pay more because it's hard to
>> find people who would stoop so low as to work with them. :)
>>
>> >Craig A. Johnston wrote:
>> >>
>> >> COBOL. COBOL pays the most. Get to it, son.
>> >
>
>Some people programming PB,VB,VC,C,C++ make a LOT more than the average
>COBOL programmer, and some make less!
>
Some COBOL programmers are competent, some aren't. Some
PB,VB,VC,C,C++ programmers are competent, some aren't.
Rates are very important, but so are hours. $100/hr is great, but if
you only bill 500 hours for the year, the fact is, you're making the
same money as the guy with steady work at $25/hr.
Personally, most of my work is in COBOL, and I haven't billed under
2000 hrs since 1985 (my first year in consulting).
This year will be in the 2300 hr range, and that doesn't include the
two other people I have working for me. None of it is Y2k, and almost
all of it is new development.
Tim Oxler
TEO Computer Technologies Inc.
http://www.i1.net/~troxler
http://users.aol.com/TEOcorp
------------------------------
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 1528
**************************************
