[15595] in Perl-Users-Digest
Perl-Users Digest, Issue: 3008 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 10 18:10:49 2000
Date: Wed, 10 May 2000 15:10:26 -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: <957996626-v9-i3008@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 10 May 2000 Volume: 9 Number: 3008
Today's topics:
Compiling Perl on Soalris 2.6 lsteinha@my-deja.com
Re: Converting Macintosh files to UNIX (Bart Lateur)
Re: Converting Macintosh files to UNIX lvirden@cas.org
Re: Converting Macintosh files to UNIX (Bart Lateur)
Re: Converting Macintosh files to UNIX <flavell@mail.cern.ch>
error installing XML::DOM <thomas2@dalnet.se>
Getopt::Long : use of uninitialized value (Torsten Mohr)
Re: Help Needed - Perl Matching Operator <andrew.mcguire@walgreens.com>
Re: How to parse CGI input with perl 5.003 (was Re: How <rootbeer@redcat.com>
Re: How to parse CGI input with perl 5.003 (was Re: How <jeff@vpservices.com>
Re: How to parse CGI input with perl 5.003 (was Re: How <rootbeer@redcat.com>
HOW: I want to set the time... <lmoran@wtsg.com>
Re: HOW: I want to set the time... (Abigail)
Re: HOW: I want to set the time... <jeff@vpservices.com>
it make sense now siust@my-deja.com
Re: Modem communication in Perl <makarand_kulkarni@My-Deja.com>
Re: Need some help with database function added to ntfo <rootbeer@redcat.com>
Net::Telnet question bahram22@my-deja.com
Re: Net::Telnet question <aran@mapcruzin.com>
Re: Newbie looking for pointers (Tad McClellan)
Re: Newbie looking for pointers <news@alba1314.demon.co.uk>
Newbie: Problem using CPAN to install LWP <epost1@my-deja.com>
Object Question <skpurcell@hotmail.com>
Re: open/sysopen whitespace <rootbeer@redcat.com>
passing CGI object <gte017g@prism.gatech.edu>
Re: passing CGI object <makarand_kulkarni@My-Deja.com>
Re: Perl & Expect <occitan@esperanto.org>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 10 May 2000 18:06:11 GMT
From: lsteinha@my-deja.com
Subject: Compiling Perl on Soalris 2.6
Message-Id: <8fc8e5$ine$1@nnrp1.deja.com>
Help!
I'm having problems with adding SybPerl module to a perl compiled under
Solaris 2.6. Perl 5.6.0
Here is the perl-V output:
tne152% perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=solaris, osvers=2.6, archname=sun4-solaris
uname='sunos tne152 5.6 generic_105181-11 sun4u sparc sunw,ultra-2 '
config_args=''
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define
use64bitint=undef use64bitall=undef uselongdouble=undef
usesocks=undef
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags=''
ccflags =' -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/opt/SUNWspro/SC5.0/lib '
libpth=/opt/SUNWspro/SC5.0/lib /lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-KPIC', lddlflags='-G -L/opt/SUNWspro/SC5.0/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under solaris
Compiled at Apr 14 2000 09:01:40
@INC:
/opt/perl5/lib/5.6.0/sun4-solaris
/opt/perl5/lib/5.6.0
/opt/perl5/lib/site_perl/5.6.0/sun4-solaris
/opt/perl5/lib/site_per
Here is a copy of the output of both the make and the make test runs
for the SybPerl Module:
mkdir ../blib/lib/Sybase
mkdir ../blib/arch/auto/Sybase/BCP
mkdir ../blib/lib/auto/Sybase/BCP
mkdir ../blib/man3
cp BCP.pm ../blib/lib/Sybase/BCP.pm
Manifying ../blib/man3/Sybase::BCP.3
mkdir ../blib/arch/auto/Sybase/DBlib
mkdir ../blib/lib/auto/Sybase/DBlib
cp DBlib.pm ../blib/lib/Sybase/DBlib.pm
AutoSplitting ../blib/lib/Sybase/DBlib.pm
(../blib/lib/auto/Sybase/DBlib)
cp DBlib.pod ../blib/lib/Sybase/DBlib.pod
/opt/perl5/bin/perl -I/opt/perl5/lib/5.00551/sun4-solaris -
I/opt/perl5/lib/5.00551 /opt/perl5/lib/5.00551/ExtUtils/xsubpp -
prototypes -typemap /opt/perl5/lib/5.00551/ExtUtils/typemap DBlib.xs
>DBlib.tc && mv DBlib.tc DBlib.c
cc -c -I/opt/sybase_local/include -O -DVERSION=\"2.11\" -
DXS_VERSION=\"2.11\" -KPIC -I/opt/perl5/lib/5.00551/sun4-solaris/CORE -
DDBLIBVS=1000 -DSYBPLVER='"2.11"' -DDO_TIE DBlib.c
"DBlib.xs", line 4381: warning: argument #3 is incompatible with
prototype:
prototype: pointer to
uchar : "/opt/sybase_local/include/sybdb.h", line 3286
argument : pointer to char
Running Mkbootstrap for Sybase::DBlib ()
chmod 644 DBlib.bs
LD_RUN_PATH="/opt/sybase_local/lib:/lib" cc -
o ../blib/arch/auto/Sybase/DBlib/DBlib.so -R/opt/sybase_local/lib -
R/lib -L/opt/sybase_local/lib -G DBlib.o -L/opt/sybase_local/lib -
lsybdb -ltli -lm
chmod 755 ../blib/arch/auto/Sybase/DBlib/DBlib.so
cp DBlib.bs ../blib/arch/auto/Sybase/DBlib/DBlib.bs
chmod 644 ../blib/arch/auto/Sybase/DBlib/DBlib.bs
Manifying ../blib/man3/Sybase::DBlib.3
mkdir ../blib/arch/auto/Sybase/Sybperl
mkdir ../blib/lib/auto/Sybase/Sybperl
cp Sybperl.pm ../blib/lib/Sybase/Sybperl.pm
AutoSplitting ../blib/lib/Sybase/Sybperl.pm
(../blib/lib/auto/Sybase/Sybperl)
Manifying ../blib/man3/Sybase::Sybperl.3
make test
PERL_DL_NONLAZY=1 /opt/perl5/bin/perl -I../blib/arch -I../blib/lib -
I/opt/perl5/lib/5.00551/sun4-solaris -I/opt/perl5/lib/5.00551 -e 'use
Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/bcp...............Use of uninitialized value
at ../blib/lib/Sybase/BCP.pm line 516, <IN> chunk 1.
Sybase error: Attempt to bulk-copy a NULL value into Server column 1,
which does not accept NULL values.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 1.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 2.
Sybase error: Attempt to convert data stopped by syntax error in source
field.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 2.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 3.
Sybase error: Attempt to bulk-copy a NULL value into Server column 1,
which does not accept NULL values.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 3.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 4.
Sybase error: Attempt to convert data stopped by syntax error in source
field.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 4.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 5.
Sybase error: Attempt to bulk-copy a NULL value into Server column 1,
which does not accept NULL values.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 5.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 6.
Sybase error: Attempt to convert data stopped by syntax error in source
field.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 6.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 7.
Sybase error: Attempt to bulk-copy a NULL value into Server column 1,
which does not accept NULL values.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 7.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 516, <IN>
chunk 8.
Sybase error: Attempt to convert data stopped by syntax error in source
field.
Use of uninitialized value at ../blib/lib/Sybase/BCP.pm line 517, <IN>
chunk 8.
Use of uninitialized value at t/bcp.t line 71.
Use of uninitialized value at t/bcp.t line 71.
Use of uninitialized value at t/bcp.t line 74.
Use of uninitialized value at t/bcp.t line 74.
FAILED tests 5-9
Failed 5/9 tests, 44.44% okay
Failed Test Status Wstat Total Fail Failed List of failed
------------------------------------------------------------------------
-------
t/bcp.t 9 5 55.56% 5-9
Failed 1/1 test scripts, 0.00% okay. 5/9 subtests failed, 44.44% okay.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic'
Originally this istarted out with perl 5.005_051 with a isa error. Any
help would be appreciated.
Lyle Steinhardt
757-764-7808
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 10 May 2000 18:16:31 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Converting Macintosh files to UNIX
Message-Id: <391aa6b4.757855@news.skynet.be>
The WebDragon wrote:
>Tried this on Macperl, but all I get is this:
>
>Benchmark: timing 1 iterations of Expr0, Expr1, Hash0, Hash1, Hash2,
>Hash3...
> Expr0: 0 secs ( 0.00 usr 0.00 sys = 0.00 cpu)
> (warning: too few iterations for a reliable count)
>etc etc
>
>possible error with Macperl?
>possible error with outdated Benchmark?
No. You overlooked the trick that Larry used to create an interactive
benchmark:
> | timethese(1 << (shift || 0), {
You're supposed to pass a number on the command line. If you enter 8,
you'll get 256 (2^8) iterations. This allows you to redo the test with a
different number of iterations without modifying the script.
You can't pass command line parameters on the Mac. So hardcoding, like
you did, is the simplest solution. A dialog box is another option.
--
Bart.
------------------------------
Date: 10 May 2000 19:13:16 GMT
From: lvirden@cas.org
Subject: Re: Converting Macintosh files to UNIX
Message-Id: <8fcccc$cao$1@srv38.cas.org>
The code I've seen in the recent part of this thread has dealt with
line endings of the Mac files. But what about the other strange
character changes that one needs to make in the files - things like
the strange characters that seem to replace the ',`,",- and other
characters? I've still not figured out a way to take care of this -
I see the same problem getting files from Windows frequently as well.
--
<URL: http://dev.scriptics.com/>
<URL: mailto:lvirden@cas.org> <URL: http://www.purl.org/NET/lvirden/>
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: Wed, 10 May 2000 20:19:02 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Converting Macintosh files to UNIX
Message-Id: <391ac26f.657891@news.skynet.be>
lvirden@cas.org wrote:
>The code I've seen in the recent part of this thread has dealt with
>line endings of the Mac files. But what about the other strange
>character changes that one needs to make in the files - things like
>the strange characters that seem to replace the ',`,",- and other
>characters? I've still not figured out a way to take care of this -
>I see the same problem getting files from Windows frequently as well.
You're talking about the difference between ISO-Latin-1 -- sorry: CP1252
-- and MacRoman.
A conversion based on the tables at
<ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT>
(Windows) and
<ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ROMAN.TXT>
(Macintosh) is not too hard: convert from Windows to Unicode and from
Unicode to Mac, and you're set.
Note: ISO-Latin-1 completely agrees with Unicode for characters with
code 0 trhough 255; though not all positions are taken. CP1252 fills in
some gaps, including the weird quotes you quoted.
--
Bart.
------------------------------
Date: Wed, 10 May 2000 22:59:58 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Converting Macintosh files to UNIX
Message-Id: <Pine.GHP.4.21.0005102248270.8113-100000@hpplus03.cern.ch>
On Wed, 10 May 2000, Bart Lateur wrote:
> A conversion based on the tables at
> <ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT>
> (Windows) and
> <ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ROMAN.TXT>
> (Macintosh) is not too hard:
True, but you have to decide what to do with the characters that only
exist in one of the two codings.
> convert from Windows to Unicode and from
> Unicode to Mac, and you're set.
Well, that's one way to do it, and if you were going to develop
something versatile that can handle a wide range of codings, that
would be a fine implementation (except that GNU recode already exists
and doesn't need to be reinvented).
But if you only want to convert between these two specific codes, you
do better to fold the two translation tables together and just use a
single conversion step on the data.
> Note: ISO-Latin-1 completely agrees with Unicode for characters with
> code 0 trhough 255;
<pedant>"ISO Latin 1" is a character _repertoire_, which is found in
at least three different codings: iso-8859-1, CP-850 (DOS Latin 1),
and CECP-1047 (EBCDIC Latin-1).
</>
OK, iso-8859-1 is the only _ISO_ defined coding of the "ISO Latin 1"
repertoire, so excuse me for the pedantry. Let's agree that:
"iso-8859-1 completely agrees with Unicode for characters with code
0 through 255"
thanks
------------------------------
Date: Wed, 10 May 2000 19:57:58 GMT
From: "Thomas Åhlen" <thomas2@dalnet.se>
Subject: error installing XML::DOM
Message-Id: <abjS4.22$kt.10101@dummy.bahnhof.se>
I'm trying to install XML::DOM on my RedHat6.1 system.
I have installed XML::Parser without problems.
Since XML::DOM needs XML::Parser::PerlSAX it has to be installed
but it halts with the following error.
cpan> install XML::Parser::PerlSAX
Running make for KMACLEOD/libxml-perl-0.07.tar.gz
Unwrapped into directory /root/.cpan/build/libxml-perl-0.07
Has already been processed within this session
Running make test
PERL_DL_NONLAZY=1
/usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.00503/i386-linux -I/
usr/lib/perl5/5.00503 -e 'use Test::Harness qw(&runtests $verbose);
$verbose=0; runtests @ARGV;' t/*.t
t/amsterdam.........ok
t/canon_xml_writer..ok
t/schema............ok
t/stream............ok
t/subs..............ok
t/xp_sax............Failed to open fran-def:
No such file or directory
Handler couldn't resolve external entity at line 10, column 16, byte 222
error in processing external entity reference at line 10, column 16, byte
222 at /usr/lib/perl5/site_perl/5.005/i386-linux/XML/Parser.pm line 183
XML::Parser::PerlSAX: parser instance (XML::Parser::PerlSAX=HASH(0x80c86c8))
already parsing
XML::Parser::PerlSAX: parser instance (XML::Parser::PerlSAX=HASH(0x80c86c8))
already parsing
FAILED tests 3, 6-7, 10-15
Failed 9/15 tests, 40.00% okay
Failed Test Status Wstat Total Fail Failed List of failed
----------------------------------------------------------------------------
---
t/xp_sax.t 15 9 60.00% 3, 6-7, 10-15
Failed 1/6 test scripts, 83.33% okay. 9/45 subtests failed, 80.00% okay.
make: *** [test_dynamic] Error 29
/usr/bin/make test -- NOT OK
===========
Anyone got any clue what the problem is and how to solve it?
Happy for any suggestions since i really would like to use XML::DOM.
-Thomas Åhlen
------------------------------
Date: 10 May 2000 19:36:35 GMT
From: tmohr@schleim.qwe.de (Torsten Mohr)
Subject: Getopt::Long : use of uninitialized value
Message-Id: <8fcdo3$o2$1@schleim.qwe.de>
Hi,
i have a small script that uses Getopt::Long to fill an array
and a hash:
-------
#!/usr/bin/perl -w
use Getopt::Long;
$result = GetOptions( "mode=s" => \$m,
"I=s@" => \@INCS,
"D=s%" => \%DEFS
);
print "result $result\n";
print "mode $m\n";
print "INCS @INCS\n";
print "DEFS:\n";
foreach $def (sort keys %DEFS) {
print "$def - $DEFS{$def}\n";
}
-------
When i call it two warnings are generated:
tmohr@schleim:~/p/perl/test > getopt.pl -mode qwe -I asd -I yxc -D dfg=gfd
Use of uninitialized value at lib/Getopt/Long.pm \
(autosplit into lib/auto/Getopt/Long/GetOptions.al) line 288.
Use of uninitialized value at lib/Getopt/Long.pm \
(autosplit into lib/auto/Getopt/Long/GetOptions.al) line 296.
result 1
mode qwe
INCS asd yxc
DEFS:
dfg - gfd
These warnings are very disturbing. How can i get rid of them?
Thanks in advance,
Torsten.
http://www.s.netic.de/tmohr/linux.html
------------------------------
Date: Wed, 10 May 2000 13:51:54 -0500
From: "Andrew N. McGuire" <andrew.mcguire@walgreens.com>
Subject: Re: Help Needed - Perl Matching Operator
Message-Id: <3919AFCA.86E0EE1C@walgreens.com>
Shell Hung wrote:
>
> >
> > There is a difference, did you even try doing 'm/\@//'
> > instead of 's/\@//'? The former generates a syntax error
> > while the latter preforms the desired substitution.
> > Also 's/\@//' will not remove all '@' charachters, only
> > the first in the string. You need to add the 'g' modifier
> > at the end to make it do what you said. Also I believe it
> > is faster to do 'tr/@//d', although I have never personally
> > benchmarked it.
> >
>
> In this case, the s/\@// will remove the '@' character without 'g'...
Yes, but you said:
"if you want remove all "@" inside the email address"
What about an address like:
"@" <andrew.mcguire@walgreens.com>
or
andrew.mcguire(@)@walgreens.com
Those are both valid email addresses. In which case your 's/\@//'
will only remove the first one, not the one you want. You must
use the 'g' modifier to accomplish this.
> On the other hand, you're right, if I using m/// will got
> the syntax error. thank you !
No problem.
> --
'^-- $'
Best of luck,
anm
--
Andrew N. McGuire
andrew.mcguire@walgreens.com
------------------------------
Date: Wed, 10 May 2000 12:18:26 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: How to parse CGI input with perl 5.003 (was Re: How can I call a perl script from html-page)
Message-Id: <Pine.GSO.4.10.10005101216110.3921-100000@user2.teleport.com>
On Wed, 10 May 2000, Jeff Zucker wrote:
> If you can't get the Perl version upgraded, I am not sure what your
> options are,
Well, you could use the security holes in 5.003 to hack into the system
and upgrade it.... Wait! I didn't really suggest that! It's a joke, a
joke! :-)
Seriously, you can still install the CGI module on an older system, if
it's not _too_ much older. But IMHO any admin who hasn't installed a new
version of Perl in more than four years has a lot of explaining to do.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 10 May 2000 12:21:58 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: How to parse CGI input with perl 5.003 (was Re: How can I calla perl script from html-page)
Message-Id: <3919B6D6.828CD64C@vpservices.com>
Tom Phoenix wrote:
>
>
> Seriously, you can still install the CGI module on an older system, if
> it's not _too_ much older.
The earliest version of CGI.pm on CPAN requires perl 5.004.
--
Jeff
------------------------------
Date: Wed, 10 May 2000 12:41:03 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: How to parse CGI input with perl 5.003 (was Re: How can I calla perl script from html-page)
Message-Id: <Pine.GSO.4.10.10005101239560.16364-100000@user2.teleport.com>
On Wed, 10 May 2000, Jeff Zucker wrote:
> The earliest version of CGI.pm on CPAN requires perl 5.004.
Ah, you're right. I can't see that there's an early version available in
any of the likely places. Well, if the other reasons weren't enough to
convince someone to upgrade perl, here's one more!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 10 May 2000 16:58:30 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: HOW: I want to set the time...
Message-Id: <UcwZOd4q9ABXn2r5=IaXHxh1Hey1@4ax.com>
---I would like to set the time on my system to a timeserver like the
one in boulder colorado...
---I have a win9x app that does this called atomtime, but I'd like to
write my own in Perl for my Linux machines...
---I need to know two things (stares at feet, shoves hands in pockets)
what is the URL of a timeserver?
---to set time in linux do I need to give the script root access?
that would be bad right?
clue free...
...that's like asking how to grow flowers from a painting because it's red outside...
lmoran@wtsg.com
------------------------------
Date: 10 May 2000 21:15:53 GMT
From: abigail@foad.org (Abigail)
Subject: Re: HOW: I want to set the time...
Message-Id: <slrn8hjkc9.h6o.abigail@ucan.foad.org>
On Wed, 10 May 2000 16:58:30 -0400, Lou Moran <lmoran@wtsg.com> wrote:
++ ---I would like to set the time on my system to a timeserver like the
++ one in boulder colorado...
++
++ ---I have a win9x app that does this called atomtime, but I'd like to
++ write my own in Perl for my Linux machines...
++
++ ---I need to know two things (stares at feet, shoves hands in pockets)
++ what is the URL of a timeserver?
++
++ ---to set time in linux do I need to give the script root access?
++ that would be bad right?
And your Perl question is... ?
Abigail
------------------------------
Date: Wed, 10 May 2000 14:27:16 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: HOW: I want to set the time...
Message-Id: <3919D434.D9D4E6F@vpservices.com>
Lou Moran wrote:
>
> ---I would like to set the time on my system to a timeserver like the
> one in boulder colorado...
>
> ---I have a win9x app that does this called atomtime, but I'd like to
> write my own in Perl for my Linux machines...
>
> ---I need to know two things (stares at feet, shoves hands in pockets)
> what is the URL of a timeserver?
>
> ---to set time in linux do I need to give the script root access?
> that would be bad right?
I just know you want a Perl answer to those questions, so:
use LWP::Simple;
print get( "http://www.google.com/search?q=time server" );
print get( "http://www.google.com/search?q=linux" );
--
Jeff
------------------------------
Date: Wed, 10 May 2000 19:21:36 GMT
From: siust@my-deja.com
Subject: it make sense now
Message-Id: <8fccrb$of0$1@nnrp1.deja.com>
I did my homework MYSELF.
Although it is ugly, the script works fine for Microsoft IIS with
ActivePerl.
Finally I realised that the version of CGI.pm library in my unix
machine is damn too old (2.24) that the official cgi page mentioned
there is a bug in file uploading on NT !!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 10 May 2000 12:08:37 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Modem communication in Perl
Message-Id: <3919B3B5.335C9625@My-Deja.com>
> but I'm trying to do this in perl.
> Can someone
> point me in the right direction?
See if this helps
http://www.4guysfromrolla.com/linux/100398-2.shtml
http://www.4guysfromrolla.com/linux/ppp.txt
I see two Modem control related modules on CPAN
Modem::Vgetty
Modem::Vbox
I have never used any of these.
------------------------------
Date: Wed, 10 May 2000 11:58:33 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Need some help with database function added to ntformmail
Message-Id: <Pine.GSO.4.10.10005101154580.3921-100000@user2.teleport.com>
On Wed, 10 May 2000 mcompservices@my-deja.com wrote:
> Could this be because I might not have write permission to the direc
> and file? Wouldn't i get an error if I didn't.
You should generally check for errors yourself. The traditional way is to
use 'or die', although There Is More Than One Way To Do It. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 10 May 2000 18:09:43 GMT
From: bahram22@my-deja.com
Subject: Net::Telnet question
Message-Id: <8fc8km$j7h$1@nnrp1.deja.com>
I want to do something simple, I want to telnet
automatically from my NT PC to another remote
host, run some commands and parse the output on
my local PC. After some investigation I found
out that the NET/telnet.pm module can help me
with this. I even found some examples.
However, I cannot find the NET::telnet.pm module
on my PC. I have installed ActivePerl5.6 on my
WIN NT machine. Is there a site that I can
download this particular module? Any other
pointers will be greatly appreciated!
Warmest Regards,
Bahram
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 10 May 2000 18:25:07 GMT
From: "Aran Meuser" <aran@mapcruzin.com>
Subject: Re: Net::Telnet question
Message-Id: <7QhS4.73946$O7.183376@typhoon.southeast.rr.com>
Go to your command prompt (dos shell) and type "ppm". This will start the
Perl Package Manager for ActivePerl. Then, you can do several things like
search, install, uninstal, etc, but they provide a good help for it all.
You'll see what I mean when you run it.
Aran
<bahram22@my-deja.com> wrote in message news:8fc8km$j7h$1@nnrp1.deja.com...
> I want to do something simple, I want to telnet
> automatically from my NT PC to another remote
> host, run some commands and parse the output on
> my local PC. After some investigation I found
> out that the NET/telnet.pm module can help me
> with this. I even found some examples.
>
> However, I cannot find the NET::telnet.pm module
> on my PC. I have installed ActivePerl5.6 on my
> WIN NT machine. Is there a site that I can
> download this particular module? Any other
> pointers will be greatly appreciated!
>
> Warmest Regards,
>
> Bahram
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Wed, 10 May 2000 15:15:46 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Newbie looking for pointers
Message-Id: <slrn8hjdb2.isi.tadmc@magna.metronet.com>
On Wed, 10 May 2000 12:06:36 -0400, Tad McClellan <tadmc@metronet.com> wrote:
> use HTML::Simple;
> my $htmlpage = 'http://www.perl.com/';
err, make that:
use LWP::Simple;
my $htmlpage = get 'http://www.perl.com/';
Sorry.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 10 May 2000 22:33:09 +0100
From: Russell Horn <news@alba1314.demon.co.uk>
Subject: Re: Newbie looking for pointers
Message-Id: <3919D595.5FF22FB9@alba1314.demon.co.uk>
Tad McClellan wrote:
>
> On Wed, 10 May 2000 12:06:36 -0400, Tad McClellan <tadmc@metronet.com> wrote:
>
> > use HTML::Simple;
> > my $htmlpage = 'http://www.perl.com/';
>
> err, make that:
>
> use LWP::Simple;
> my $htmlpage = get 'http://www.perl.com/';
>
> Sorry.
>
I'm glad to see that those who can be pedantic can also make mistakes
;-)
I used capitalization on Grep simply so that it stood out. I could, as
easily, have put it in quotes or similar, but that would have been more
to type.
Anyway thanks for the advice - I'm just disappointed that I can't do
pointer arithmetic in Perl 8-0 - it is appreciated.
Rgds,
Russell.
------------------------------
Date: Wed, 10 May 2000 18:13:05 GMT
From: Ethan Post <epost1@my-deja.com>
Subject: Newbie: Problem using CPAN to install LWP
Message-Id: <8fc8qv$jbv$1@nnrp1.deja.com>
I am attempting to install the LWP module (Perl 5.6.0) on Suse 6.2. I
have already installed a bunch of other modules using CPAN, I run
perl -MCPAN -e shell
then
install LWP
During the tests I get failures in robot/ua it says HTTP Server
Terminated then NOK Failed 5/7 tests. I assume this is a problem but
I'm not quite sure how to go about fixing it or even finding what
exactly the problem is.
I also get some problems with /local/http. It says somthing
about "Can't call method is_redirect..."
Just wondering where I start looking and what the basics for trouble
shooting are.
Thanks - Ethan
--
http://www.freetechnicaltraining.com/home/ethan
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 10 May 2000 16:36:12 -0500
From: "spurcell" <skpurcell@hotmail.com>
Subject: Object Question
Message-Id: <3919d639$0$28393@wodc7nh1.news.uu.net>
hello,
I am a Perl Web guy who is trying to learn a little TK on the side and could
use some help.
My question is in regards to Objects I guess.
eg.
use Tk;
my $mw = MainWindow->new; # is this a constructor or what is this?
my $t = $mw->Scrolled('Text'); # likewise, what kind of data structure is
this?
Anyway, if someone out there has time to explain or point me somewhere to
get an explanation, I would be very happy,
Thanks
Scott
------------------------------
Date: Wed, 10 May 2000 12:15:41 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: open/sysopen whitespace
Message-Id: <Pine.GSO.4.10.10005101209070.3921-100000@user2.teleport.com>
On Wed, 10 May 2000, David Watson wrote:
> I'm having dificulty opening a file with what I have below:
>
> $test = "\"temp temp/pp\"";
> open(pp,$test) or die "Unable to open pp\n";
It's generally better to make filehandles with all-upper-case names. And
just to be sure, do you actually want to read a file whose full name
contains quote marks?
There's some information in the perlfunc manpage about using open() when a
filename has "arbitrary weird characters". Does that help you to fix your
problem?
> If the answer is sysopen could you also point me to the documentation
> on the various flags (such as O_CREAT)
Try the perlopentut manpage, for starters. But the "real" docs on that are
in your system's manpages for the open(2) function.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 10 May 2000 18:40:31 GMT
From: "Vincent N. Saminather" <gte017g@prism.gatech.edu>
Subject: passing CGI object
Message-Id: <8fcaev$83e@catapult.gatech.edu>
Suppose I have a script that uses a CGI object that gets parameters from
a form. When the submit button of that form is hit, I call another script
that uses a second CGI object. I wish to pass the first CGI object to the
second script so that the second script can initialize various
local variables from the first CGI object. How would I do that? I know
there must be a simple way to do this but I don't know how.
I also don't want to use $ENV{QUERY_STRING} That is I would rather use the
CGI object's functionality ( using query->param('varname') ) rather than
parse the $ENV{QUERY_STRING}. Any help would be appreciated
Thank You.
Vincent Saminather.
--
___________________________________________________________________________________
Vincent N. Saminather
336376, GeorgiaTech Station
Atlanta, GA 30332.
Phone:(404)-206-0585
Georgia Institute of Technology, Atlanta Georgia, 30332
Email: gte017g@prism.gatech.edu
------------------------------
Date: Wed, 10 May 2000 11:53:53 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: passing CGI object
Message-Id: <3919B041.E206B49A@My-Deja.com>
> I know
> there must be a simple way to do this but I don't know how.
The construtor for CGI can take a CGI object itself.
$old_query = new CGI;
$new_query = new CGI($old_query);
This is clearly explained in the CGI.pm documentation.
--
------------------------------
Date: Wed, 10 May 2000 21:44:00 GMT
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: Re: Perl & Expect
Message-Id: <8fcl6s$2ec$1@nnrp1.deja.com>
In article <8fc4fh$e1v$1@nnrp1.deja.com>, see_plus_plus@my-deja.com
wrote:
> Is there an Expect module for Perl somewhere?
> Please give me pointers how to use Perl & Expect?
Hvae you tried http://search.cpan.org/ or (less helpful in this case)
http://search.perl.com/ ?
--
Bring text-docs to life! Erwecke Textdokumente zum Leben!
http://beam.to/iPerl/
Vivigu tekstodokumentojn!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 3008
**************************************
