[11562] in Perl-Users-Digest
Perl-Users Digest, Issue: 5162 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 17 22:17:19 1999
Date: Wed, 17 Mar 99 19:00:19 -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 Wed, 17 Mar 1999 Volume: 8 Number: 5162
Today's topics:
Re: About CGI.pm (Abigail)
Re: argument parsing w/ getopts (Damian Conway)
chdir : how do I pass parameters to this function??? <knataraj@worldnet.att.net>
chdir : how do I pass parameters to this function??? <knataraj@worldnet.att.net>
chdir : how do I pass parameters to this function??? <knataraj@worldnet.att.net>
Re: DUMB Newbie question <nospam_earnold@requisite.com>
Re: echo pwd <cassell@mail.cor.epa.gov>
Envrionment Strings Stay after process finished <bret@bordwell.com>
Re: glob failed (Tad McClellan)
Re: How can I change the 2-dimension array value? (Larry Rosler)
Re: How do I split an list of text into separate lists <aqumsieh@matrox.com>
Re: How to #! in Win95? <paladin@uvic.ca>
Re: How to #! in Win95? <jeff@vpservices.com>
Re: mod_perl DBI error. daniel_zuck@non-hp-sunnyvale-om1.om.hp.com
Re: Newbe here again... (Tad McClellan)
Re: number convert (Abigail)
Re: perlcc vishalb@my-dejanews.com
Re: perlcc vishalb@my-dejanews.com
script or module to convert number to binary and back <newsgroups@kidkaboom.frogspace.net>
Re: Socket problems with 5.005_2 on Solaris 2.7 rob_liberti@my-dejanews.com
Stats Question <zebra@cyberhighway.net>
Re: The truth about the Pentium III chip and ID --- **b <leaper@bigfoot.com>
Re: Unicode/Base64 ? (Michael Kagalenko)
Re: Unicode/Base64 ? (Michael Kagalenko)
Re: Win32 Network problems with ActiveState PERL? <kprice@cardinal.co.nz>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Mar 1999 01:13:23 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: About CGI.pm
Message-Id: <7cpjvj$81d$1@client2.news.psi.net>
Kent Wang (kentwang@mailcity.com) wrote on MMXXIV September MCMXCIII in
<URL:news:36EFFCF3.B4BDE6B6@mailcity.com>:
** Just how efficient is CGI.pm?
7.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: 18 Mar 1999 01:52:52 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: argument parsing w/ getopts
Message-Id: <7cpm9k$40e$1@towncrier.cc.monash.edu.au>
christianarandaOUT@OUTyahoo.com (Christian M. Aranda) writes:
>If anyone has good examples of parsing command line arguments, please
>post them here so I can get some ideas.
You should check out the many other Getopt:: modules available on
the CPAN. Some of them are very sophisticated in their abilities.
My personal favorite is Getopts::Declare :-)
Damian
------------------------------
Date: 18 Mar 1999 02:27:12 GMT
From: knataraj <knataraj@worldnet.att.net>
Subject: chdir : how do I pass parameters to this function???
Message-Id: <36F055AA.D39980AF@worldnet.att.net>
AAAAAAAAAAAAAAHHHHHh!!!!
Here's is the pbm. I'll be grateful if anyone of ou can give me
a solution..
#!/usr/bin/perl
while(<STDIN>) {
$dir=$_;
chdir $dir
or print " Couldn't change dir to $dir reason: $!\n";
print `pwd` ;
}
this script always gives me "directory not found" error
if I define $dir="/root" then the script works fine !!!!! ?????
what's the reason & how do I pass variable values to chdir function.
I have perl 5.002
Kanda
------------------------------
Date: 18 Mar 1999 02:27:56 GMT
From: knataraj <knataraj@worldnet.att.net>
Subject: chdir : how do I pass parameters to this function???
Message-Id: <36F055D7.B4299635@worldnet.att.net>
AAAAAAAAAAAAAAHHHHHh!!!!
Here's is the pbm. I'll be grateful if anyone of ou can give me
a solution..
#!/usr/bin/perl
while(<STDIN>) {
$dir=$_;
chdir $dir
or print " Couldn't change dir to $dir reason: $!\n";
print `pwd` ;
}
this script always gives me "directory not found" error
if I define $dir="/root" then the script works fine !!!!! ?????
what's the reason & how do I pass variable values to chdir function.
I have perl 5.002
Kanda
------------------------------
Date: 18 Mar 1999 02:28:29 GMT
From: knataraj <knataraj@worldnet.att.net>
Subject: chdir : how do I pass parameters to this function???
Message-Id: <36F055F8.A2A65D22@worldnet.att.net>
AAAAAAAAAAAAAAHHHHHh!!!!
Here's is the pbm. I'll be grateful if anyone of ou can give me
a solution..
#!/usr/bin/perl
while(<STDIN>) {
$dir=$_;
chdir $dir
or print " Couldn't change dir to $dir reason: $!\n";
print `pwd` ;
}
this script always gives me "directory not found" error
if I define $dir="/root" then the script works fine !!!!! ?????
what's the reason & how do I pass variable values to chdir function.
I have perl 5.002
Kanda
------------------------------
Date: Wed, 17 Mar 1999 18:23:39 -0700
From: "Eric Arnold" <nospam_earnold@requisite.com>
Subject: Re: DUMB Newbie question
Message-Id: <7cpkkl$4i9$4@news1.rmi.net>
Try using things like "wait" or "waitpid", or maybe even "kill(0, $pid)" to
see whether the child pid is still alive. How you find out what the $pid is
will
depend on the method used to start the child process. Speaking of which,
it's possible that the child process could simply be started a different
way,
i.e. with "system()" or without a "&" in it's invocation string, or
whatever,
and Perl would naturally wait for it to exit.
Anyway, that's a vague answer, illustrating the other followup postings'
request for more detail and/or code fragments.
VisualJP wrote in message <19990316164541.28798.00000152@ng104.aol.com>...
>I am trying to start a perl script on a SGI (irix). It contains a loop
that
>executes a program. The problem is that the perl script doesn't seem to
wait
>until the program finishes, it just keeps going. The result is the same
>program opened several times at once.
>
>Is there a line that I can type in that will tell the computer to wait
until
>the program is finished to go on to the next line? I thought of putting a
for
>loop in there to make it pause, but that seems rather barbaric.
>
>Any help is greatly appreciated!
>Thanks
>John Pollard
>Visual Sciences, Inc.
------------------------------
Date: Wed, 17 Mar 1999 17:32:50 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: echo pwd
Message-Id: <36F057C2.7C9EF00F@mail.cor.epa.gov>
mr_potato_head@my-dejanews.com wrote:
> Hi,
> I need to echo the working directory to the screen and I tried using
>
> $directory = `pwd`;
> print "$directory\n";
This *should* work. It does out of context, anyway. Is this a cut-and-paste
of your code, or is it a re-typing (which might fix a tiny error)? Are there
other pieces of your code which matter here?
Can you post a *complete* (but as small as feasible) program which duplicates
this?
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 17 Mar 1999 20:47:07 -0500
From: Bret Bordwell <bret@bordwell.com>
Subject: Envrionment Strings Stay after process finished
Message-Id: <36F05B1B.410C@bordwell.com>
Hello world!
Does anyone know of problems with the environment strings being kept
and re-used after the process has finished running? (Query String, or
from Stdin.)
I know, that sounds real cryptic... here's my problem:
I'm writing an E-Mail game using HTML with two list selects, and a
submit btn.
After parsing the form, and getting the 'post'ed vars, everything goes
smoothly.
Subsequent plays made one after the other (I'm playing the game with
myself), appears
to use the previous 'post'ed strings, ignoring what was actually passed
in.
Assuming it's not my code, then the only logical thing left is what was
described above.
Any help?
By the way, you can play a crude but semi-working version at:
http://www.bordwell.com/sevenhtml ----> (has rules to the game, etc)
you may also play what is in development and clearly shows this problem
at:
http:www.bordwell.com/sevenhtml/aformdev.html
Thank you for your time, in advance. Please reply directly to:
mailto:bret@bordwell.com
------------------------------
Date: Wed, 17 Mar 1999 15:17:08 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: glob failed
Message-Id: <4k2pc7.eu9.ln@magna.metronet.com>
Steven R. Robertson (srobert@anv.net) wrote:
: I'm a total newbie with perl. But I needed to run an install program
: that depends on it. When I try to run it I get error messages:
: glob failed at line xxx
All of the messages that perl might issue are documented in
the 'perldiag.pod' file that is included with every perl
distribution.
For your message it says:
-----------------------
=item internal error: glob failed
(P) Something went wrong with the external program(s) used for C<glob>
and C<E<lt>*.cE<gt>>. This may mean that your csh (C shell) is
broken. If so, you should change all of the csh-related variables in
config.sh: If you have tcsh, make the variables refer to it as if it
were csh (e.g. C<full_csh='/usr/bin/tcsh'>); otherwise, make them all
empty (except that C<d_csh> should be C<'undef'>) so that Perl will
think csh is missing. In either case, after editing config.sh, run
C<./Configure -S> and rebuild Perl.
-----------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 14 Mar 1999 01:28:32 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How can I change the 2-dimension array value?
Message-Id: <MPG.1155211ac9b5bff598973e@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <36EB7A88.19DAF534@hongkong.com> on Sun, 14 Mar 1999 16:59:52
+0800, Aaron Au <au_aaron@hongkong.com >says...
> @array = ([0,1,2],[3,4,5]);
>
> I want to change the $array[0][0] to '8'.
> @array = ([8,1,2],[3,4,5]);
> How to do it? Thanks!
What did you try? Did you try assignment:
$array[0][0] = 8;
Wowee, that worked! Isn't Perl wonderful?
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 17 Mar 1999 18:20:18 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: How do I split an list of text into separate lists of paragraphs
Message-Id: <x3ybthr900d.fsf@tigre.matrox.com>
Forrest Reynolds <dropzone@mail.utexas.edu> writes:
> You can switch from processing lines to processing paragraphs by
> setting $/:
>
> local $/ = ''; #sets itself back when you're done
Sets itself back when you're done? Done from what?
You mean when the program finishes? Do you care then?
It all depends on the scope ..
------------------------------
Date: Wed, 17 Mar 1999 17:58:11 -0800
From: Draco Paladin <paladin@uvic.ca>
To: Valter Cunha <np49fn@mail.telepac.pt>
Subject: Re: How to #! in Win95?
Message-Id: <Pine.A41.4.05.9903171753330.49966-100000@unix4.UVic.CA>
On Wed, 17 Mar 1999, Valter Cunha wrote:
> First of all, i want to say im a university student trying to learn
> scripting Perl by myself, with the help of several books. Right now i
> have one problem: all the books i read about Perl focus the scripting
> of Perl under Unix, but what about under Win95? Well, let us say i
> have a script called "test.pl" in the directory cgi-bin, and my perl
> interpreter file "perl.exe" is in the same directory... My problem is,
NEVER, NEVER, NEVER (did I mention NEVER) put perl.exe in your cgi-bin
directory.
There is more info in perlfaq9.
> <IMG SRC="cgi-bin\test.pl">
>
> and on my Perl script i start with the instruction "#!\cgi-bin\perl"
> the thing is... I cant get the script to get started... I even read
> the FAQ at www.perl.com, and they say "The Win95/NT installation, when
> using the Activeware port of Perl, will modify the Registry to
> associate the .pl extension with the perl interpreter. If you install
> another port, or (eventually) build
> your own Win95/NT Perl using WinGCC, then you'll have to modify the
> Registry yourself." Im novice at registry... Can someone help me?
Again... read perlfaq9 (type perldoc perlfaq9 from the command line) for
more info on CGI scripts and Perl.
--
Mother is the name for GOD on the lips and
hearts of all children. - Eric Draven
------------------------------
Date: Wed, 17 Mar 1999 18:02:35 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: How to #! in Win95?
Message-Id: <36F05EBA.C9D6B4B6@vpservices.com>
Valter Cunha wrote:
>
> on my Perl script i start with the instruction "#!\cgi-bin\perl"
> the thing is... I cant get the script to get started
First, for portability, you may want to eliminate backslashes in your
paths, perl on windoze understand forward slashes just fine. (e.g.
#!c:/bin/perl -w)
Second, always put your friend -w on the shebang line, it will tell you
when the program has a glitch in it.
Third, *really important* : NEVER put perl in your cgi-bin or anywhere
in your web document tree or people on the internet will be able to
execute scripts on *your* computer!
Fourth, the interpretation of the shebang line (#!) is entirely
dependent on the operating system and on your web server. So, on
windoze 95, using the DOS console, the shebang is completely ignored.
To execute test.pl from the command prompt, you'll need to use "perl -w
test.pl" or see the documentation under perlrun for other options.
Win95 webservers are varied - Apache, Xitami, etc. each have a different
way of either using or ignoring the shebang line, so look up the
documentation on your web server to find out how to use the shebang on
your HTML pages.
--
jeff
------------------------------
Date: Thu, 18 Mar 1999 02:22:35 GMT
From: daniel_zuck@non-hp-sunnyvale-om1.om.hp.com
Subject: Re: mod_perl DBI error.
Message-Id: <7cpo13$jle$1@nnrp1.dejanews.com>
In article <7cpe73$b8l$1@nnrp1.dejanews.com>,
daniel_zuck@non-hp-sunnyvale-om1.om.hp.com wrote: OK I figured out the
problem. My @INC is different in the native perl and in the apache mod_perl?
The PA-RISC is PA-RISC1.1 in perl and PA-RISC2.0? No idea why?
> I get an error "Can't locate auto/DBI/connect.al in @INC" when I try to
> run a program using DBI; use DBI; (appear to be OK), I get the error on
> the $dbh=DBI->connect(..);
>
> Apache 1.3.4
> DBI 1.06
> mod_perl 1.18
> perl 5.004_04
>
> my mod_perl make: Makefile.PL DO_HTTPD=1 ALL_HOOKS=1 PERL_STACKED_HANDLERS=1
>
> I'm new to mod_perl, sorry for any obvious ignorance.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 17 Mar 1999 15:03:04 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Newbe here again...
Message-Id: <op1pc7.8t9.ln@magna.metronet.com>
Jay Glascoe (jglascoe@giss.nasa.gov) wrote:
: print "Narf! not a number." if $string =~ /\D/;
The empty string and undef are numbers?
:-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 18 Mar 1999 01:20:10 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: number convert
Message-Id: <7cpkca$81d$2@client2.news.psi.net>
Cplee (cplee@bigfoot.com) wrote on MMXXIV September MCMXCIII in
<URL:news:36EFFF1A.C1B9F9D2@bigfoot.com>:
^^
^^ I would like to convert $numbe=123.345 to $dollars=123.35
^^ what is the command I can use
man
As in 'man perlfaq'.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Thu, 18 Mar 1999 01:34:57 GMT
From: vishalb@my-dejanews.com
To: ak@dasburo.de
Subject: Re: perlcc
Message-Id: <7cpl80$h9c$1@nnrp1.dejanews.com>
If your version < 5.005_55, then you are probably getting undefined "runops"
A lot of people have already asked that question so you should check archives.
for solution.
if its > 5.005_55, you would be getting some undefined symbols in Dynaloader.
Either link to dynaloader.a manually or apply the patch from:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1999-03/msg00096.html
Since all the CGI tests are cleared by 5.005_56, your script should be no
problems.
>
> hi,
> is anyone of you able to perlcc perlscripts that use modules? (on linux)
>
> like this:
>
> #!/usr/local/bin/perl
>
> use CGI;
> my $q = new CGI;
>
> print join ',', $q->param;
>
> all i get are undefined references while linking...
> --
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Mar 1999 01:34:24 GMT
From: vishalb@my-dejanews.com
To: ak@dasburo.de
Subject: Re: perlcc
Message-Id: <7cpl70$h8p$1@nnrp1.dejanews.com>
If your version < 5.005_55, then you are probably getting undefined "runops"
A lot of people have already asked that question so you should check archives.
for solution.
if its > 5.005_55, you would be getting some undefined symbols in Dynaloader.
Either link to dynaloader.a manually or apply the patch from:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1999-03/msg00096.html
Since the all CGI tests are cleared by 5.005_56, your script should be no
problems.
>
> hi,
> is anyone of you able to perlcc perlscripts that use modules? (on linux)
>
> like this:
>
> #!/usr/local/bin/perl
>
> use CGI;
> my $q = new CGI;
>
> print join ',', $q->param;
>
> all i get are undefined references while linking...
> --
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Mar 1999 02:39:57 GMT
From: "Theodore" <newsgroups@kidkaboom.frogspace.net>
Subject: script or module to convert number to binary and back
Message-Id: <36f066a8.0@news3.escape.ca>
I am wondering if there is a script or module that would convert number to
binary form and back, and also do math with them... I am thinking of putting
a text counter on my page that would display the number of hits in binary
(It would tell you of course) kind of the same idea as teh roman numeral
counter.
>From Kid Kaboom
http://kidkaboom.frogspace.net
------------------------------
Date: Thu, 18 Mar 1999 01:11:53 GMT
From: rob_liberti@my-dejanews.com
Subject: Re: Socket problems with 5.005_2 on Solaris 2.7
Message-Id: <7cpjsi$g8u$1@nnrp1.dejanews.com>
In article <36CB0B92.B8F5C734@mentorg.com>,
richard_england@mentorg.com wrote:
> I have a perl script that ran fine under 5.001 on several platforms
> which now fails under 5.005_02 on Solaris 2.7 but runs on HPUX 11.00.
> The failure indication is:
>
> Socket version 1.3 required--this is only version at
> /usr/mgc/lib/perl5005_02/IO/Socket.pm line 118.
>
> It appears as though there should be something "filled in" after the
> word "version" in the message. I have found reference to a version
> 1.7 in the Socket code but I'm not sure if it has any bearing on this
> issue or not.
>
> Has anyone successfully built this version on Solaris 2.7 using the
> later versions of the Cygnus compiler?
>
> The installation tests ran with no problems. I used the same Policy
> file for the builds on Solaris and HPUX and attempted to make sure the
> same options were available on both.
>
> Can anyone send me in the right direction to reconcile this? I am a
> complete novice in the Sockets area so please be gentle.
>
> --Richard
>
> --
>
> // Richard L. England richard_england@mentorg.com
> // Mentor Graphics Corp., Wilsonville, OR 97070-7777 503.685.1240
> // "Your mouse has moved. Windows must be restarted for the change
> // to take effect. Reboot now?"
>
>
I'm not sure if you figured this one out yet, but if not this info might help.
I got the same message. I had "old" socket code which worked on my Win NT
box. Then when I installed MKS toolkit (which had a different level of perl)
that code which used to work startewd giving me that exact same message.
I just found the original Socket.pm which did work, and then I put it in it'c
own INC library like this:
BEGIN { unshift @INC, 'c:\code\perl\inc';}
use Socket;
I have no understanding of what the heck require 1.3 means. I just didn't
really need to know. But I'd like to know if anyone feels like explaining
that.
Rob
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 17 Mar 1999 17:58:17 -0700
From: Steve Veloudos <zebra@cyberhighway.net>
Subject: Stats Question
Message-Id: <36F04FA8.F4D45338@cyberhighway.net>
I have just installed Hitlog 1.1 on my site which keeps track of hits and where
they are coming from. My question is that it needs server side includes to run
so I have to run it off my main page with a .shtml prefix. I set up a redirect
from my main page (index.html) but it looses the info on where the visitor came
from. Is there any way to either do a redirect while keeping the refering web
site of where the visitor came from or runnig a ssi from a non .shtml page?
Thanks!
--
The Musicians Tip Sheet
A free monthly newsletter for musicians which includes many industry contacts,
informative information and interviews with music business professionals.
To subscribe mailto:tip@zebramusic.com with the words "subscribe tip-00"
in the body of the message.
Zebra Music Web Site
http://www.zebramusic.com
An information depot for musicians featuring hundreds of Industry Contacts,
the Gig Sharing Network, archived issues of the Musicians Tip Sheet,
Music FAQ's, Music Chat, The Musician Discussion List and many Cool Links
to help your musical act.
Zebra Music
Helping Musicians Survive!
------------------------------
Date: Wed, 17 Mar 1999 20:14:40 -0600
From: "Quantum Leaper" <leaper@bigfoot.com>
Subject: Re: The truth about the Pentium III chip and ID --- **boycott info**
Message-Id: <7cpnir$dud@newsops.execpc.com>
Michael Barnes wrote in message <36efc6e7.0@news.webaccess.net>...
>Every MODEM has a MAC address also...so your friends pc is nicless, but not
>macless
Interesting is over 15 years of using modems, 300 baud to 56K modems
(hopefully a Cable or DSL modem in about a year or so), I have NEVER heard
that they have a MAC address? So what command or how do you get the MAC
address of a modem? Does this only apply to Mac modems or all modems? One
other question, why would a modem need a MAC address?
------------------------------
Date: 17 Mar 1999 20:07:17 -0500
From: mkagalen@lynx01.dac.neu.edu (Michael Kagalenko)
Subject: Re: Unicode/Base64 ?
Message-Id: <7cpjk5$drt@lynx01.dac.neu.edu>
Alex Farber (eedalf@eed.ericsson.se) wrote
]Michael Kagalenko wrote:
]> use MIME::QuotedPrint;
]>
]> $enc='=92';
]> $dec = MIME::QuotedPrint::decode($enc);
]> print $dec;
]>
]> Doesn't print anything. Any tips ?
]
]use MIME::QuotedPrint; # enter "perldoc MIME::QuotedPrint" in your shell
]
]$enc = '=6A=92=6B';
]$dec = decode_qp ($enc);
]print $dec;
]
It still doesn't print anything when given the codes in the messages.
Also, it is not different from my code.
------------------------------
Date: 17 Mar 1999 20:13:37 -0500
From: mkagalen@lynx01.dac.neu.edu (Michael Kagalenko)
Subject: Re: Unicode/Base64 ?
Message-Id: <7cpk01$19o@lynx01.dac.neu.edu>
Paul Kunysch (illume@gmx.net) wrote
]mkagalen@lynx02.dac.neu.edu (Michael Kagalenko) writes:
]
]> pasting from various sources, incl. WWW. They have strings like
]> =92 (which stands for quotation mark). I tried to use MIME::Base64
]
]> Doesn't print anything. Any tips ?
]
]You could start wirh something like this:
]
]#!/usr/bin/perl -nw
]s/=(\d+)/chr($1)/ge;
]print;
Nope, that won't work. There are codes like =AD also. Also, it does not decode
correctly.
]
]But use it with care. There were some special cases (for blank lines
]oder spaces at the end of a line?) that I'm ignoring. :-/
------------------------------
Date: Thu, 18 Mar 1999 14:15:31 +1300
From: Kelvin Price <kprice@cardinal.co.nz>
Subject: Re: Win32 Network problems with ActiveState PERL?
Message-Id: <36F053B3.501FB542@cardinal.co.nz>
Peter Connolly wrote:
>
> Hi All
>
> I'm trying to write a small program using ActiveState PERL 5.09 plus
> some BackWeb extensions (which are all working fine). My problem is
> that my PERL script can't look on a mapped drive. The code below works
> fine when the drive in question is a local drive. If the drive is
> mapped through Windows NT as a share, it can't locate the files and
> halts. I can't see why it shouldn't work - I've tried it many times
> logged in as administrator all seems well until I try to access the
> maped drive, at which point the PERL code starts to look for files,
> then halts without an error.
>
> Are there any problems with Activestate PERL and mapped drives? I can't
> see any reasons for it going wrong. I've started the NT process as a
> proper login account under the user administrator, not system, yet it
> still refuses to work. If anyone can make this code work across mapped
> drives, I would be most grateful.
>
> Thanks
>
> Peter
>
> Code Begin>>>
>
> > my $Thisline, $Filename, $NumFiles=0, $Date, $Time, @TheFile = (), @DataLines = (), @TotalLine = ();
> > my $LastAcd = "", $Acd, $CallsAnswered, $CallsAbandoned, $AvgDelay, $Percent, $Count;
> > my $StoryCount, $cnt = 0;
> > my @Allfiles = (), $source_dir = 'g:/', @sorted_files = (), @stats_files = ();
> >
<SNIP>
> >
> This will work on most Win32 systems, but for some reason fails as a
> service sub-process under Windows NT. I'm totally lost from here on.
> Does anyone have any clues?
>
> Thanks
>
> Peter
Assuming you have configured your NT service to run under a usercode
that is allowed access to the remote share in question, you will need to
map G: to that share early on in your script. To do that you could
either use the appropriate Win32:: module (recommended) or call the 'net
use ' command through qx//, backticks or system().
HTH
Kelvin
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5162
**************************************
