[15512] in Perl-Users-Digest
Perl-Users Digest, Issue: 2922 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 2 09:05:30 2000
Date: Tue, 2 May 2000 06:05:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <957272710-v9-i2922@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 2 May 2000 Volume: 9 Number: 2922
Today's topics:
CGI: uploading binary files with IIS mmarini@intesi-lab.com
Re: CGI: uploading binary files with IIS <gellyfish@gellyfish.com>
Error Trapping <preble@ipass.net>
Re: Help - If/Contains/Case/Array Beginners Question nobull@mail.com
Re: how to "uudecode" binaries? <gellyfish@gellyfish.com>
Re: how to get the error string for ($? >> 8) <gellyfish@gellyfish.com>
I goofed <tapio.luukkanen@vtt.fi>
Re: is there sendmail on Win32 platform <you.will.always.find.him.in.the.kitchen@parties>
newbie Q - detecting browser version <user0201@vjeran.com>
oct() function c_guex@my-deja.com
Re: oct() function nobull@mail.com
Perl & Excel <michael.schlueter@philips.com>
Re: Perl & Excel <blah@nospam.com>
Re: Perl & Excel <michael.schlueter@philips.com>
Re: Perl & Excel <blah@nospam.com>
Re: Perl & Excel <michael.schlueter@philips.com>
Re: perl in NT .BAT files Question <sturdevr@yahoo.com>
Re: perl script to an exe? <kraziej@ta2.so-net.ne.jp>
Perl, limiting displayed decimal places <KnightSky1@yahoo.com>
Re: Perl, limiting displayed decimal places <michael.schlueter@philips.com>
Re: Perl, limiting displayed decimal places (Teodor Zlatanov)
Tidying up. (Bob the Builder)
Re: URI-1.06 broken under Perl 5.6.0 on NT ajmayo@my-deja.com
Re: using system or open to get program output <billy@arnis-bsl.com>
Re: VMS Perl system() truncating lines <dickey@shell.clark.net>
windows <duxbury@kentmere23.freeserve.co.uk>
Re: windows <Allan@due.net>
Re: windows <Allan@due.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 2 May 2000 10:14:22 GMT
From: mmarini@intesi-lab.com
Subject: CGI: uploading binary files with IIS
Message-Id: <8em9pu$v0l$1@news.netmar.com>
Hi!
I use winNT and IIS 4 and I'm trying to let my user upload image files by a
standard html input tag:
----------
<form method=post enctype="multipart/form-data"
action="http://pc-devel-3/cgi-bin/zupload.pm">
<input type="file" name="FILE1" id="FILE1">
<input type="hidden" value=ok.html id=redirect_to
name=redirect_to>
<input type="submit" value=submit>
</form>
----------
To do this i call as "action" Perl Services Upload Helper v1.0, a very
standard upload script opening a file on the server and writing the received
bytes, the core being:
-----------
open (OUTFILE, ">$basedir/$fileName");
while (my $bytesread = read($file, my $buffer, 1024))
{
print OUTFILE $buffer;
}
close (OUTFILE);
-----------
Well, what I'm getting is the original file in the directory I choose, but
all
the \x0A characters are converted in \x0D\x0A, as if I uploaded a binary file
by FTP using ASCII setting!.
I changed the print instruction in a syswrite one having the same result, so
I
think the problem is caused by the way IIS passes data to perl.exe
My setting is an association of the command "perl.exe %s %s" when the
user's
browser gets .pl files.
I'm really worried for my deadlines! Any idea?
Please e-mail me (mmarini@intesi-lab.com) any reply!
Mauro
----- Posted via NewsOne.Net: Free Usenet News via the Web -----
----- http://newsone.net/ -- Discussions on every subject. -----
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: Tue, 02 May 2000 11:43:35 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: CGI: uploading binary files with IIS
Message-Id: <HbzP4.3298$fT4.230436@news.dircon.co.uk>
On 2 May 2000 10:14:22 GMT, mmarini@intesi-lab.com Wrote:
> Hi!
> I use winNT and IIS 4 and I'm trying to let my user upload image files by a
> standard html input tag:
> ----------
> <form method=post enctype="multipart/form-data"
> action="http://pc-devel-3/cgi-bin/zupload.pm">
> <input type="file" name="FILE1" id="FILE1">
> <input type="hidden" value=ok.html id=redirect_to
> name=redirect_to>
> <input type="submit" value=submit>
> </form>
> ----------
> To do this i call as "action" Perl Services Upload Helper v1.0, a very
> standard upload script opening a file on the server and writing the received
> bytes, the core being:
>
> -----------
> open (OUTFILE, ">$basedir/$fileName");
open(OUTFILE,">$basedir/$fileName")||die "Cant open $basedir/$fileName - $!\n";
binmode OUTFILE;
> while (my $bytesread = read($file, my $buffer, 1024))
> {
> print OUTFILE $buffer;
> }
> close (OUTFILE);
> -----------
>
/J\
------------------------------
Date: Tue, 2 May 2000 06:13:17 -0400
From: "E. Preble" <preble@ipass.net>
Subject: Error Trapping
Message-Id: <SSxP4.207$c71.694@saturn.ipass.net>
Is there a good way to trap errors that doesn't require an
error log?
I run Perl Builder on my PC, which gives me all the error
messages I need. When I upload though, errors produce only
500 errors (no details). I don't have telnet access, and I
don't have error logs to reference, so I'm stuck with trying
to execute the code part by part. Is there a way to trap an
error, and dump it to html output (similar to the "On Error
GoTo Handler" statement in Visual Basic)?
Thanks ahead.
Edward Preble
------------------------------
Date: 02 May 2000 12:30:03 +0100
From: nobull@mail.com
Subject: Re: Help - If/Contains/Case/Array Beginners Question
Message-Id: <u9pur5tcjo.fsf@wcl-l.bham.ac.uk>
"Paul" <NoSpam@NoSpam.Com> writes:
>
> Thanks for replying so quickly, I saw this in the faq (How can I tell
> whether an array contains a certain element?) but it was doing exact matches
> I want where any part of an element in an array is anywhere in HTTP_REFERER?
Oh, you mean: "How do I efficiently match many regular expressions at once?"
(See FAQ).
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 02 May 2000 10:58:51 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: how to "uudecode" binaries?
Message-Id: <LxyP4.3288$fT4.230387@news.dircon.co.uk>
In comp.lang.perl.misc Ulf Berger <ub@europe.de> wrote:
> update:
>
> i found the error,
> the "uudecode" code works fine under unix but not under windows.
> does anyone have a working "uudecode" code for windows (mswin32-x86)?
>
I thought that I had posted this already but I must have been distracted
by the Morris Dancers :
#!/usr/bin/perl -w
use strict;
my $infile = shift || die 'No filename specified';
open(INFILE,$infile) || die "Cant open $infile - $!\n";
my $contents = do { local $/; <INFILE> };
close INFILE;
if ( $contents =~ /begin\s+(\d+)\s+(\S+)\s*\n(.*)\nend/s )
{
my $mode = $1;
my $filename = $2;
my $uustuff = $3;
open(OUTFILE,">$filename") || die "Can't open $filename - $!\n";
binmode OUTFILE;
print OUTFILE unpack "u*",$uustuff;
close OUTFILE;
chmod oct($mode), $filename;
}
else
{
warn "There doesnt appear to be any uuencoded content in the file\n";
}
This works on both Unix and Windows. Take note of the binmode as it is
important on the latter platform.
/J\
------------------------------
Date: Tue, 02 May 2000 11:46:21 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: how to get the error string for ($? >> 8)
Message-Id: <hezP4.3299$fT4.230436@news.dircon.co.uk>
On 29 Apr 2000 15:00:47 GMT, M.J.T. Guy Wrote:
> Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>>On Mon, 24 Apr 2000 14:40:26 GMT li wrote:
>>>
>>> Is there a way to get the error string for errors returned by 'system'
>>> command?
>>>
>>> Graham Barr's Errno.pm gives the system E* status code, but how do one
>>> gets the string? (By getting correspondent comment line in the
>>> errno.h? :-)
>>>
>>
>>As far as I can determine these messages are the same as the ones you would
>>get by assigning the value to $! and printing the result but YMMV :
>
> Not sure what you mean by "these messages". The things that Errno.pm
> deals with are indeed the same as the string values of $!. But
> they have no relation to what the OP was asking, which was about the
> return values from system, i.e. $?.
>
Er. Yes, A fine example of completely ignoring the subject of the post.
/J\
------------------------------
Date: 02 May 2000 15:52:45 +0300
From: Tapio Luukkanen <tapio.luukkanen@vtt.fi>
Subject: I goofed
Message-Id: <waaei9xgf6.fsf@tiuhti.tte.vtt.fi>
I decided to convert a few file systems on a HP-UX box from hfs-format
to vxfs-format, and at the same time rename the disks and rearrange
the directories between them.
While moving the directories accross disks, I goofed the file
modification times by using just 'cpio -pdx' (no '-m' option). I
don't know what I was thinking. Two many balls in the air at the same
time, I'd suppose.
Now, I could restore all the directories from backup tapes, but it
would feel safer and also be easier to have a way to just fix the file
timestamps, because the directories do not reside under the same mount
points anymore, and especially because the users have of course
started updating the files.
So, does anyone have or know about a script which can compare the
contents of two directory trees, say A and B, and set the timestamps
of files in A to those of the respective files in B, if the file
contents are identical ?
Or does an old man need to see the true light, re-focus his
aspirations, and strive to become _a perl hacker_ ?
-Tapio.
------------------------------
Date: Tue, 2 May 2000 23:43:01 +1200
From: "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
Subject: Re: is there sendmail on Win32 platform
Message-Id: <957267724.509857@shelley.paradise.net.nz>
"Dan Evans" <danevans@wanadoo.es> wrote in message news:5VlP4.2343
> > How is your script calling blat? Remember that blat ne sendmail. They
> have
> > totally different flags and perform different functions.
>
> With:
>
> Response.Redirect("pathto/cgi-bin/mail.cgi")
>
> from an ASP page after it has updated the database. The bit I am trying to
> send is just a confirmation e-mail, that notifies the webmaster that a new
> user has registered, so its the same message to the same address each
time,
> I don't need to pass any variables. $DEITY knows why the host haven't
> installed CDONTS support, given that its an NT server running IIS.
You've posted how your ASP page calls the CGI script. The line/s in
mail.cgi is the relevant stuff that you need to post.
------------------------------
Date: Tue, 2 May 2000 14:41:48 +0200
From: "vjeran.com" <user0201@vjeran.com>
Subject: newbie Q - detecting browser version
Message-Id: <8emigb$5td$1@as102.tel.hr>
OK how would you detect older browser versions and according to version
number send HTML that will work with that browser version?
Like I need a page for newer and page for older borwsers (w and wo CSS)
V.
------------------------------
Date: Tue, 02 May 2000 10:58:47 GMT
From: c_guex@my-deja.com
Subject: oct() function
Message-Id: <8emcd2$l2n$1@nnrp1.deja.com>
Hello,
I try to obtain the decimal value of a binary
string.
I've try:
oct "0b11", but the result is always 0. Is the
structure false ?
(oct "0x11" give me 17)
(oct "11" give me 9)
If this is false, which way can I use to convert
binary string to decimal value ?
thank you for your help.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 02 May 2000 12:32:13 +0100
From: nobull@mail.com
Subject: Re: oct() function
Message-Id: <u9og6pt95k.fsf@wcl-l.bham.ac.uk>
c_guex@my-deja.com writes:
> I try to obtain the decimal value of a binary string.
You would expect "perldoc -q binary" to answer this but it doesn't.
That's because this question appears in the FAQ as "How do I convert
bits into ints?".
This probably needs to be fixed.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 2 May 2000 13:50:59 +0200
From: "Michael Schlueter" <michael.schlueter@philips.com>
Subject: Perl & Excel
Message-Id: <8embko$ggs$1@porthos.nl.uu.net>
Hi,
I run (Unix based) perl for some data processing and want to use Excel for
graphic display.
At the moment I create a .txt file which I import into Excel. I'd like to
run the perl-script (e.g. as Active Perl) from within Excel and have the
results available directly in Excel for further display (network connection
is not a problem).
Is there a simple way to do it?
Thanks,
Michael Schlueter
------------------------------
Date: Tue, 02 May 2000 12:49:49 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: Perl & Excel
Message-Id: <390EB2CD.28A871A7@nospam.com>
Hi Michael,
Michael Schlueter wrote:
> I'd like to run the perl-script (e.g. as Active Perl) from
> within Excel and have the results available directly in Excel
> for further display (network connection is not a problem). Is there
> a simple way to do it?
A way there is, but it is not *so* simple. :)
Using the OLE automation modules you can run instances of clients of
the various Excel OLE server: you can obtain (very few) details from the
examples in eth eg directory of the ActivePerl distribution. Thus, you
can get your files via network and show them using a simple PERL
script... but it is not easy. Good luck! ;)
Best regards,
Marco
------------------------------
Date: Tue, 2 May 2000 14:21:19 +0200
From: "Michael Schlueter" <michael.schlueter@philips.com>
Subject: Re: Perl & Excel
Message-Id: <8emddj$hf1$1@porthos.nl.uu.net>
Hi Marco,
Thanks for your reply. I tried to read the examples from the eg directory.
It is almost impossible. My browser displays a file error whe I try to read
the source code. Displaying the html-examples from the eg directory does not
work. So I could only read the html-source itself, which is almost
impossible.
Can you please give me an example instead?
Thanks,
Michael
------------------------------
Date: Tue, 02 May 2000 14:08:08 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: Perl & Excel
Message-Id: <390EC528.DAC9431D@nospam.com>
Hi Michael,
Michael Schlueter wrote:
> Thanks for your reply.
You are welcome. :)
> I tried to read the examples from the eg directory. It is
> almost impossible. My browser displays a file error whe I try to
> read the source code. Displaying the html-examples from the
> eg directory does not work. So I could only read the
> html-source itself, which is almost impossible.
Errr... I can not understand the reason that drive you to view source
files with a HTML browser...
> Can you please give me an example instead?
This one it taken directly from the ActiveState documentation. It
writes a file called 'test.xls' with some cells.
<code>
use Win32::OLE;
# use existing instance if Excel is already running
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
die "Excel not installed" if $@;
unless (defined $ex) {
$ex = Win32::OLE->new('Excel.Application',
sub {$_[0]->Quit;})
or die "Oops, cannot start Excel";
}
# get a new workbook
$book = $ex->Workbooks->Add;
# write to a particular cell
$sheet = $book->Worksheets(1);
$sheet->Cells(1,1)->{Value} = "foo";
# write a 2 rows by 3 columns range
$sheet->Range("A8:C9")->{Value} = [[ undef, 'Xyzzy', 'Plugh' ],
[ 42, 'Perl', 3.1415 ]];
# print "XyzzyPerl"
$array = $sheet->Range("A8:C9")->{Value};
for (@$array) {
for (@$_) {
print defined($_) ? "$_|" : "<undef>|";
}
print "\n";
}
# save and exit
$book->SaveAs( 'test.xls' );
undef $book;
undef $ex;
</code>
Note that all the work is done via calling methods of the OLE object.
It means that you have to know which methods (and properties) the OLE
class you are using exposes. (No such information about that in the
documentation: you must walk alone inside the Microsoft marshes. Tip:
if you have installed the VBA documentation on your host, you can find
more in its pages.)
Obviously, it is possible to call the Excel display methods as well as
the SaveAs() subroutine.
Best regards,
Marco
------------------------------
Date: Tue, 2 May 2000 15:44:30 +0200
From: "Michael Schlueter" <michael.schlueter@philips.com>
Subject: Re: Perl & Excel
Message-Id: <8emi9j$ksn$1@porthos.nl.uu.net>
Thank you, Marco.
Michael
------------------------------
Date: Tue, 2 May 2000 07:55:33 -0400
From: "BobS" <sturdevr@yahoo.com>
Subject: Re: perl in NT .BAT files Question
Message-Id: <8emfnd$r08$1@bob.news.rcn.net>
Hi David,
Thanks for the response. I appreciate your offer. I (obviously) know little
about Perl. My real question is about the strength of Perl to do what I
need. Since then, I've found Perl can meet most any application programming
requirement. Initially, I got off on the wrong direction and couldn't get
past the CGI stuff avail everywhere. CGI I don't need.
My environment is a complex 16-bit legacy application running under NTVDM.
There are some 16-bit proprietary libraries needed for file access so am
stuck in 16-bit land. I _think_ I can write Perl scripts to replace the
BLAST scripts to provide high level handshaking for file queuing and FTP
between sites. The modem driver itself to be replaced by vanilla FTP or
similar. Perl scripts should provide a layer between my COBOL (did I say
legacy? <g>) executables and the 16-bit file libraries. I see that Perl also
has a FTP module that looks promising but is beyond my present
understanding.
In theory, I think I have a plan (somewhat klunky but, hey, the whole mess
is already a kludge). In practice, however, I need to learn Perl which I'm
working on now. I'm trying to learn enough to determine if this is doable.
That's why the general questions.
Again, I appreciate your response. If you don't mind, I'll probably have a
question or two later.
Cheers,
Bob
"David Ness" <DNess@Home.Com> wrote in message
news:39099DF5.3FDC9CFF@Home.Com...
> BobS wrote:
> >
> > Hi,
> > Pardon me for butting in here. You guys seem to be doing what I want to
do
> > and I could use some general help. TIA...
> >
> > I have a large DOS-based app running under NT. Comm is currently
scripted
> > via modem using BLAST. I want to integrate an FTP capability using the
> > existing executables and my thought is to substitute perl script and
> > functions for those now performed by BLAST scripts.
> >
> > Unfortunately, I'm new to perl and there is an abundance of info
available
> > that is not easy to digest. Please point me toward some docs, etc. that
> > explain perl in a DOS/NTVDM environment. Any help is definitely
appreciated.
> >
> > Bob
> >
>
> I'd be happy to try to help, either here or off-list, but I'm afraid your
> question is a bit `general' to be answered.
>
> There really isn't much to `say' about DOS/NTVDM and perl. Indeed, the
> piece of code I asked for help about is just about the only `special'
> thing I use that has any particular thing to do with what OS I happen
> to be using. Most of the time I don't have to pay any particular
attention.
> That is one of the _great_ strengths of perl.
------------------------------
Date: Tue, 02 May 2000 19:48:04 +0900
From: dingleberry <kraziej@ta2.so-net.ne.jp>
Subject: Re: perl script to an exe?
Message-Id: <390EB264.C4B7A34@ta2.so-net.ne.jp>
DATE: May 2nd, 2000
FROM: James Thomas Perry
mailto:kraziej@ta2.so-net.ne.jp
#---------#---------#---------#---------#---------#---------#---------#
Hi Tom,
Thanks for responding.
Tom Phoenix wrote:
<snip'd>
> But, if you must, have you tried perlcc yet? Be aware that the whole
> compiler suite should probably not be used for anything more than
> experimental purposes.
Well, I was dumb enough to not mention perlcc in my previous post.
My intention was to get perlcc going so, knowning that it could fry
things intentional/unintentional, I gave it a few good whacks at it.
I thought I could challenge it, but...results have it not (yet).
I tried several searches for info on the net but none were appealing.
(probably missed some though)
When I
perlcc -sav xyz.pl
on LINUX the full C code seems to get generated, where as on win95,
perlcc gives up in the middle with th error message:
Compiling C(xyz) for xyz.pl!
Couldn't open!
and the generated C code is incomplete (or trunc'd).
I'm not so sure what it could not open with _this_ error msg.
Well, gotta keep trying, I guess.
> > If in LINUX, what should I need for cross compiling?
>
> First, you write a suitable cross-compiler.... :-)
lol -- i wish i could... ;p
j
#---------#---------#---------#---------#---------#---------#---------#
"If someone could create a search engine for my room,
I will call them a Saint..." -- somebody grok on this yet?
------------------------------
Date: Tue, 2 May 2000 11:37:08 +0100
From: "Mark" <KnightSky1@yahoo.com>
Subject: Perl, limiting displayed decimal places
Message-Id: <390eb013.0@nnrp1.news.uk.psi.net>
Hi, i'm new to this perl thing, and i'm writing a script that
calculates shipping weights and prices, I done this fine but the
only problem is sometimes when it displays the total amount
brings up loads of numbers after the decimal place, is there
anyway to limit to 2?
i.e. 4.879834
becomes 4.88
Thanks all in advance
Mark
------------------------------
Date: Tue, 2 May 2000 14:35:05 +0200
From: "Michael Schlueter" <michael.schlueter@philips.com>
Subject: Re: Perl, limiting displayed decimal places
Message-Id: <8eme7d$i2s$1@porthos.nl.uu.net>
Hi Mark,
Look for printf, which allows some formatted output. It is the same as with
C. E.g.
#!/usr/bin/perl -w
use strict;
my $v=4.879834;
my $x=-17.334;
printf( "%3.4f", $v); # prints ' 4.8798' without return
printf( "%3.4f\n", $v); # prints ' 4.8798' with return
printf( "%3.4f %2.2f\n", $v, $x);
With the %-format you specify type and format of formatted data. Put the
format string first, then the list of variables.
Michael
------------------------------
Date: 2 May 2000 08:50:54 -0500
From: tzz@iglou.com (Teodor Zlatanov)
Subject: Re: Perl, limiting displayed decimal places
Message-Id: <390ecf2e$1_1@news.iglou.com>
<390eb013.0@nnrp1.news.uk.psi.net>:Mark (KnightSky1@yahoo.com):comp.lang.perl.misc:Tue, 2 May 2000 11:37:08 +0100:quote:
: Hi, i'm new to this perl thing, and i'm writing a script that
: calculates shipping weights and prices, I done this fine but the
: only problem is sometimes when it displays the total amount
: brings up loads of numbers after the decimal place, is there
: anyway to limit to 2?
:
: i.e. 4.879834
: becomes 4.88
Look in the FAQ that comes with Perl:
'perldoc -q round' - which will send you to
'perldoc perlfaq4'
"Does Perl have a round() function?"
--
Teodor Zlatanov <tzz@iglou.com>
"Brevis oratio penetrat colos, longa potatio evacuat ciphos." -Rabelais
------------------------------
Date: 2 May 2000 12:36:55 GMT
From: Felix_in_the@tic. (Bob the Builder)
Subject: Tidying up.
Message-Id: <slrn8gtiv4.2me.Felix_in_the@ux-gl-08.csv.warwick.ac.uk>
I have been writting a couple of simple scripts that run in the
background of my unix box. They both include the code:
while(!(getppid == 1)){
#do some stuff
}
They then exit when the shell exists. The problem is that one
is executed from my .login file and the other from my .fvwm2rc
file, as I only want it to run when I am using X. The above
code does not make the script exit when I log out. Any ideas?
At the moment I run it with:
AddToFunc InitFunction
+ "I" exec home/crocus8/ma/uwk/picka.pl
Any help gratefuly received,
Thanks!
--
Felix
------------------------------
Date: Tue, 02 May 2000 10:21:22 GMT
From: ajmayo@my-deja.com
Subject: Re: URI-1.06 broken under Perl 5.6.0 on NT
Message-Id: <8ema6q$j02$1@nnrp1.deja.com>
In article <8eci8t$no2$1@canopus.cc.umanitoba.ca>,
Randy Kobes <randy@theoryx5.uwinnipeg.ca> wrote:
> In comp.lang.perl.misc, ajmayo@my-deja.com wrote:
> > Building URI-1.06 (latest version) having built Perl 5.6.0 cleanly
on
> > WinNT4 SP6,
> > nmake test fails with
> > bless( do{\(my $o
= 'file://C:/TEMP/')}, 'URI::file' )], 'URI::URL' );
> > Test Failed at t\old-base.t line 22
> > URI::URL::_expect('file://C:/TEMP/', 'as_string',
> > 'file:C%3A/TEMP/') called at t\old-base.t line 675
>
> > This looks worryingly like something to do with the new Unicode
stuff.
> > Last version of Perl I built URI on was 5.005_03, where there were
no
> > problems. This has brought my mod_perl install on NT to a screeching
> > halt.
>
> Hi,
> This failure I also found with perl-5.005_03 on a Win98
> machine, so I don't think it's something specific to 5.6.0.
> I installed URI anyway, and so far haven't run into any
> problems; in particular, mod_perl built fine and passed
> all its tests.
>
> best regards,
> randy kobes
>
>
Thanks. My records indicated that it built OK in the past but clearly I
was wrong. I probably stupidly wrote down that it worked in my notes
from a Unix build, not NT. If you didn't have any problems, that's
good enough for me - I'll continue, then. Thanks very much.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 02 May 2000 12:14:38 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: using system or open to get program output
Message-Id: <8emgr2$pt5$1@nnrp1.deja.com>
In article <390E8BD2.258EA060@nlanr.net>,
Jason Novotny <novotny@nlanr.net> wrote:
>
> Hi,
>
> I have a program that requires a passphrase and then produces a
> result. I just simply want to do something like the following.
>
> open(MPGD, "|$program") or die "Can't open pipe to $program: $!\n";
> print MPGD "$password\n";
> close (MPGD) or die "Can't close pipe to $program: $!\n";
>
> But how do I check the output produced by $program. I know I could
> save as a file using ">output" in a system() call, but then I have to
> deal with file locking...
>
Please read the following man/perldoc pages and choose a solution for your
needs: - perlfaq8 ("How can I open a pipe both to and from a command?") -
perlipc - IPC::Open2
Good luck.
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 02 May 2000 12:26:10 GMT
From: "T.E.Dickey" <dickey@shell.clark.net>
Subject: Re: VMS Perl system() truncating lines
Message-Id: <CPzP4.20189$0o4.175662@iad-read.news.verio.net>
In comp.os.vms Larry Rosler <lr@hpl.hp.com> wrote:
> In article <8ekqd3$ver$1@nnrp1.deja.com> on Mon, 01 May 2000 20:45:28
> GMT, ewilts@my-deja.com <ewilts@my-deja.com> says...
>> One of my developers is reporting that the Perl system() call is
>> truncating the argument to 256 characters. I'm running Perl 5.005_03.
>>
>> Is this a known limitation? Can this limit to be expanded to 1K or
>> more?
> The limitation is not in Perl. It might well be in the command
> processor that the system() call is invoking. One way to avoid the
> limit would be to supply a list of arguments to system(), instead of a
> long string that requires parsing by the command processor.
but isn't the command-line limit still 1k?
(256 sounds like reading/writing a mailbox rather than the command line).
--
Thomas E. Dickey
dickey@clark.net
http://www.clark.net/pub/dickey
------------------------------
Date: Tue, 2 May 2000 11:45:24 +0100
From: "Ian" <duxbury@kentmere23.freeserve.co.uk>
Subject: windows
Message-Id: <8embi7$fpl$1@news5.svr.pol.co.uk>
I have Perl installed on my windows machine, its called Active Perl. Iwant
to start learning but I can't get over the first hurdles.
My server does not accomodate Perl so I have tried using the built in
Personal Web Manager, which is part of windows-does this accomodate Perl?
When I run .pl files, my does screen pops up for a split second and then
dissapears again- is this normal?(I can view them in DOS)
Is there a way to test .pl files without going on line?
Does anyone out there have this ActivePerl, if so can they tell me where the
information I'm after is situated in the Help files?
Any help is really appreiciated.
Ta.
------------------------------
Date: Tue, 2 May 2000 08:43:12 -0400
From: "Allan M. Due" <Allan@due.net>
Subject: Re: windows
Message-Id: <8emijq$4j0$1@slb2.atl.mindspring.net>
Ian <duxbury@kentmere23.freeserve.co.uk> wrote in message
news:8embi7$fpl$1@news5.svr.pol.co.uk...
: I have Perl installed on my windows machine, its called Active Perl. Iwant
: to start learning but I can't get over the first hurdles.
: My server does not accomodate Perl so I have tried using the built in
: Personal Web Manager, which is part of windows-does this accomodate Perl?
Sorry no idea, check point 3 below.
: When I run .pl files, my does screen pops up for a split second and then
: dissapears again- is this normal?(I can view them in DOS)
yes
: Is there a way to test .pl files without going on line?
yes, um well you test them. If you mean test them as CGI then you need a
server, see point 3 below.
: Does anyone out there have this ActivePerl, if so can they tell me where the
: information I'm after is situated in the Help files?
When you installed perl you installed completed documentation as well just
click
Start->programs->Activestate->Online Documentation
(for some versions it is Start->programs->Activestate->Documentation)
Here are my suggestions.
1. Purchase Learning on Win32 Systems (the Gecko book) by Schwartz, Olsen and
Christiansen
2. A good basic tutorial can be found at: http://www.netcat.co.uk/rob/perl/
3. I would recommend downloading Apache for Windows. http://www.apache.org
and using that for testing your scripts.
HTH
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
"Nobody goes there anymore; it's too crowded."
- Yogi Berra
------------------------------
Date: Tue, 2 May 2000 09:02:16 -0400
From: "Allan M. Due" <Allan@due.net>
Subject: Re: windows
Message-Id: <8emjku$8eo$1@slb0.atl.mindspring.net>
Allan M. Due <Allan@due.net> wrote in message
news:8emijq$4j0$1@slb2.atl.mindspring.net...
: Here are my suggestions.
: 1. Purchase Learning on Win32 Systems (the Gecko book) by Schwartz, Olsen
and
: Christiansen
Bah, of course the name of the book is Learning Perl on Win32 Systems. Sorry
about that.
AmD
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 2922
**************************************
