[22053] in Perl-Users-Digest
Perl-Users Digest, Issue: 4275 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 17 14:05:43 2002
Date: Tue, 17 Dec 2002 11:05:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 17 Dec 2002 Volume: 10 Number: 4275
Today's topics:
Re: 5.6/5.8 clashing? (Chester Langin)
ARG! Anyone using Math:GMP on Solaris 8 <chuck.carson@syrrx.com>
Re: ARG! Anyone using Math:GMP on Solaris 8 <palladium@spinn.net>
Re: ARG! Anyone using Math:GMP on Solaris 8 <chuck.carson@syrrx.com>
copyResized producing unexpected results (Collin Condray)
Re: DBI::mysql Problem on Linux (M Browning)
Re: exitcode = -13 ? <nobull@mail.com>
Re: exitcode = -13 ? <yanoff@yahoo.com>
Re: exitcode = -13 ? (Walter Roberson)
Re: Freing Unused Memory in Perl <nobull@mail.com>
FTPing without Net::FTP <mememe@meme.com>
Re: FTPing without Net::FTP <espenmyr@start.no.cretinfilter>
images presented on web through perlscript <nospam_stigerikson@yahoo.se>
Re: Is it possible to change windows background via Per <jpagnew@vcu.edu>
Re: Is it safe to return a reference to local or lexica <nospam@nospam.org>
Re: Is it safe to return a reference to local or lexica (Tad McClellan)
Re: Is it safe to return a reference to local or lexica <nospam@nospam.org>
Looking for Perl and Linux developer in the Long Beach, (Christian Fea)
Re: Looking for Perl and Linux developer in the Long Be <palladium@spinn.net>
Re: Looking for Perl and Linux developer in the Long Be <dha@panix2.panix.com>
members area in perl ??? <control153@NOSPAMyahoo.com>
Re: OK, I give up - merge different fields from 2 files <bkennedy@hmsonline.com>
Re: OT: Re: Get current date / time? (Helgi Briem)
Re: PErl and CSS (ToxicFungi)
Re: perl bad interpreter: No such file or directory (Peter J. Acklam)
Perl SAQ <me@privacy.net>
stdin binary or text ? <cedric@pimentech.net>
Re: stdin binary or text ? <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Re: stdin binary or text ? <flavell@mail.cern.ch>
telnet sockets (P.C.)
Re: telnet sockets <espenmyr@start.no.cretinfilter>
Why doesn't this foreach SMTP loop work? (Me)
Re: Why doesn't this foreach SMTP loop work? <ian@WINDOZEdigiserv.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Dec 2002 05:21:43 -0800
From: langin@cs.siu.edu (Chester Langin)
Subject: Re: 5.6/5.8 clashing?
Message-Id: <926d3d76.0212170521.77515919@posting.google.com>
I manually rm'd 5.8. I used the distro to remove and reinstall 5.6.
I restarted the computer. It is now running 5.6.
------------------------------
Date: Tue, 17 Dec 2002 07:40:42 -0800
From: Chucky <chuck.carson@syrrx.com>
Subject: ARG! Anyone using Math:GMP on Solaris 8
Message-Id: <3DFF457A.9020302@syrrx.com>
Why is Math:GMP such a pain in the ass to build on Solaris? I need this
module in order to use Net::SSH::Perl, however the underlying
troublespot is the Math::Pari module. I have tried every version over
the last 2 years.
Thanks for any hel;p,
-CC
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: Tue, 17 Dec 2002 08:50:52 -0700
From: "Rod" <palladium@spinn.net>
Subject: Re: ARG! Anyone using Math:GMP on Solaris 8
Message-Id: <uvui3jnvmmjg55@corp.supernews.com>
"Chucky" <chuck.carson@syrrx.com> wrote in message
news:3DFF457A.9020302@syrrx.com...
>
> Why is Math:GMP such a pain in the ass to build on Solaris? I need this
> module in order to use Net::SSH::Perl, however the underlying
> troublespot is the Math::Pari module. I have tried every version over
> the last 2 years.
>
> Thanks for any hel;p,
> -CC
What errors is this giving you?
Rod
------------------------------
Date: Tue, 17 Dec 2002 08:38:58 -0800
From: Chucky <chuck.carson@syrrx.com>
To: Rod <palladium@spinn.net>
Subject: Re: ARG! Anyone using Math:GMP on Solaris 8
Message-Id: <3DFF5322.9060300@syrrx.com>
Here is the latest compile attempt, using gcc-3.2 on Solaris 8:
Rod wrote:
> "Chucky" <chuck.carson@syrrx.com> wrote in message
> news:3DFF457A.9020302@syrrx.com...
>
>>Why is Math:GMP such a pain in the ass to build on Solaris? I need this
>>module in order to use Net::SSH::Perl, however the underlying
>>troublespot is the Math::Pari module. I have tried every version over
>>the last 2 years.rm -f libpari.so.2.1.4
/usr/local/bin/ld -o libpari.so.2.1.4 -shared -soname libpari.so.1 -lc
-lm kernel.o mp.o alglin1.o alglin2.o arith1.o arith2.o base1.o base2.o
base3.o base4.o base5.o bibli1.o bibli2.o buch1.o buch2.o buch3.o
buch4.o galconj.o gen1.o gen2.o gen3.o ifactor1.o polarit1.o polarit2.o
polarit3.o rootpol.o subgroup.o trans1.o trans2.o trans3.o elliptic.o
galois.o kummer.o mpqs.o nffactor.o stark.o subfield.o thue.o anal.o
compat.o errmsg.o es.o helpmsg.o init.o sumiter.o mpinl.o
rm -f libpari.so.1
rm -f libpari.so
ln -s libpari.so.2.1.4 libpari.so.1
ln -s libpari.so.2.1.4 libpari.so
rm -f gp-dyn
gcc -o gp-dyn -O3 -DGCC_INLINE -Wall -Wno-implicit -fomit-frame-pointer
gp.o gp_init.o gp_rl.o highlvl.o whatnow.o plot.o plotport.o
-R/root/.cpan/build/Math-Pari-2.010305/pari-2.1.4/Osolaris-sparcv9
-R/usr/local/lib -R/usr/openwin/lib
-L/root/.cpan/build/Math-Pari-2.010305/pari-2.1.4/Osolaris-sparcv9
-L/usr/local/lib -lreadline -lncurses -L/usr/local/lib -lpari
-L/usr/openwin/lib -lX11 -lsocket -lnsl -ldl -lm
ld: fatal: symbol `__dso_handle' is multiply-defined:
(file
/usr/local/lib/gcc-lib/sparc-sun-solaris2.8/3.2/crtbegin.o and file
/usr/local/lib/libreadline.so);
ld: fatal: symbol `_init' is multiply-defined:
(file /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/3.2/crti.o
and file /usr/local/lib/libreadline.so);
ld: fatal: symbol `_start' is multiply-defined:
(file /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/3.2/crt1.o
and file /usr/local/lib/libreadline.so);
ld: fatal: symbol `_fini' is multiply-defined:
(file /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/3.2/crti.o
and file /usr/local/lib/libreadline.so);
ld: fatal: symbol `_lib_version' is multiply-defined:
(file /usr/ccs/lib/values-Xa.o and file
/usr/local/lib/libreadline.so);
ld: fatal: File processing errors. No output written to gp-dyn
collect2: ld returned 1 exit status
make[1]: *** [gp-dyn] Error 1
make[1]: Leaving directory
`/root/.cpan/build/Math-Pari-2.010305/pari-2.1.4/Osolaris-sparcv9'
make: *** [gp] Error 2
Any ideas?
Thx,
CC
>>
>>Thanks for any hel;p,
>>-CC
>
> What errors is this giving you?
>
> Rod
>
>
>
-----------== Posted via Newsfeed.Com - Uncensored Usenet News ==----------
http://www.newsfeed.com The #1 Newsgroup Service in the World!
-----= Over 100,000 Newsgroups - Unlimited Fast Downloads - 19 Servers =-----
------------------------------
Date: 17 Dec 2002 08:39:06 -0800
From: ccondray@usa.net (Collin Condray)
Subject: copyResized producing unexpected results
Message-Id: <4951b977.0212170839.44f7c09d@posting.google.com>
I am having trouble using Perl's GD module. I am trying to shrink down
a signature from a file using copyResized. The signature is generated
from a signature pad that records the x,y coordinates when the pen
touches the pad. The code that I am using below generates a very
large signature file as a jpg file with no problems. However when I
try to shrink the lage signature file using copyResized, I get an
image of the correct size but it is all black (just a black
rectangle).
The following is a somewhat abbreviated code that I'm using.
#!/usr/bin/perl
use GD;
# some code here that figures out the limits of the image size
# from the signature pad
$im = new GD::Image($big_x,$big_y);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
# some code here that uses setPixel to draw the large signature
$small_y = 50; # maximum height of small signature is 50 pixels
$small_x = int($big_x*$small_y/$big_y);
$small_im = new GD::Image($small_x,$small_y);
$small_im->copyResized($im,0,0,0,0,$small_x,$small_y,$big_x,$big_y);
# write the large signature, works fine
open (IMAGE,"> bigsig.jpg") or die "Can't write bigsig.jpg b/c $!";
binmode IMAGE;
print IMAGE $im->jpeg;
close IMAGE;
# write small signature, generates a big black rectangle
open (SMIMAGE,"> smallsig.jpg") or die "Can't write smallsig.jpg b/c
$!";
binmode SMIMAGE;
print SMIMAGE $small_im->jpeg;
close SMIMAGE;
I have removed some code that deals with manipulating the information
that comes from the signature pad but all the code that deals with the
images should be here.
Please let me know if you can let me know what I am doing wrong.
Thanks in advance.
------------------------------
Date: 17 Dec 2002 05:13:18 -0800
From: m.browning@plymouth.ac.uk (M Browning)
Subject: Re: DBI::mysql Problem on Linux
Message-Id: <eddc4731.0212170513.12f62dc3@posting.google.com>
"Jeff Walter" <jeff@jeffs-place.org> wrote in message news:<XRAL9.254986$GR5.87362@rwcrnsc51.ops.asp.att.net>...
> Here's the code:
>
> use DBI:
^ semicolon please
> my $dsn = "dbi:mysql:database=$database;host=$hostname";
^ similar prob
> (my $dbh = DBI->connect($dsn, $user, $password)) || die " FAILED\n\n";
> my $drh = DBI->install_driver($driver);
>
> It fails on the DBI->connect with:
> @localhost.localdomain' (Using password: YES) at ./nickserv.pl line 56
#!/path/to/perl -w
use strict;
use DBI;
my $hostname = 'valid host';
my $database = 'an actual database';
my $user = 'user name of someone with rights';
my $pass = 'their password';
my $dsn = qw[ DBI:mysql:$database:$hostname ];
my $dbh = DBI->connect( $dsn, $user, $pass ) || die $!;
# and away you go...
...anyway, the error you are getting is from MySQL, it means you are
using the wrong password (or perhaps never set one up, or perhaps
haven't GRANTed rights to the user you are logging in as?) - a
description may be found here:
http://www.mysql.com/doc/en/Access_denied.html
Have fun.
------------------------------
Date: 17 Dec 2002 12:16:06 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: exitcode = -13 ?
Message-Id: <u97ke83kop.fsf@wcl-l.bham.ac.uk>
peter pilsl <pilsl_use@goldfisch.at> writes:
> I got the following problems with my perlscript (its a mailer
> procmail/sendmail):
>
> procmail: Program failure (-13) of
> "/usr/local/sbin/mailscripts/mail_ext_aid.pl"
>
> I was now searching the perl-doc for its exitcodes but I seem to use the
> wrong term, cause "exitcode" doesnt appear.
The exit code of a Perl process that exits via return() or falling off
the end of the script is 0.
The exit code of a Perl process that exits via and explicit exit() is
0 unless some other value is specified.
The exit code of a Perl process that exits via die() is explined in
"perldoc -f die".
The exit code of a Perl process that exits due to a fatal error is the
same as it would be for die().
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 17 Dec 2002 11:47:21 -0600
From: Scott Yanoff <yanoff@yahoo.com>
Subject: Re: exitcode = -13 ?
Message-Id: <3dff60cd$0$741$39cecf19@nnrp1.twtelecom.net>
peter pilsl wrote:
> I got the following problems with my perlscript (its a mailer
> procmail/sendmail):
>
> procmail: Program failure (-13) of
> "/usr/local/sbin/mailscripts/mail_ext_aid.pl"
>
> I was now searching the perl-doc for its exitcodes but I seem to use the
> wrong term, cause "exitcode" doesnt appear.
Do a "man procmail" since procmail appears to be complaining about the
Perl script. The manual for procmail showed me:
Program failure (nnn) of "x"
Program that was started by procmail
returned nnn instead of EXIT_SUCCESS
(=0); if nnn is negative, then this
is the signal the program died on.
So, I think your script might have returned the -13.
Good luck,
--
-Scott
yanoff@yahoo.com | http://www.yanoff.org | AOL IM: SAY KJY
------------------------------
Date: 17 Dec 2002 18:57:18 GMT
From: roberson@ibd.nrc.ca (Walter Roberson)
Subject: Re: exitcode = -13 ?
Message-Id: <atns2e$mq6$1@canopus.cc.umanitoba.ca>
In article <3dff60cd$0$741$39cecf19@nnrp1.twtelecom.net>,
Scott Yanoff <yanoff@yahoo.com> wrote:
:peter pilsl wrote:
:> I got the following problems with my perlscript (its a mailer
:> procmail: Program failure (-13) of
:Perl script. The manual for procmail showed me:
: Program failure (nnn) of "x"
: Program that was started by procmail
: returned nnn instead of EXIT_SUCCESS
: (=0); if nnn is negative, then this
: is the signal the program died on.
:So, I think your script might have returned the -13.
But the value is negative, so that implies it died on signal 13.
Which at least on my system is SIGPIPE, which looks plausible
under the circumstances.
--
Would you buy a used bit from this man??
------------------------------
Date: 17 Dec 2002 12:22:14 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Freing Unused Memory in Perl
Message-Id: <u93cow3keh.fsf@wcl-l.bham.ac.uk>
"Tan D Nguyen" <nospam@nospam.com> writes:
> "Sébastien Cottalorda" <spp@monaco377.com> wrote in message
> news:3dfda8ab$0$11833$626a54ce@news.free.fr...
> > Is there a way to free the OS reserved memory, I've some old PC that are
> > able to use temporarily 7Mo for that program, but I would not like the perl
> > program to use 7Mo of RAM (64Mo on the PC) during its entire life.
>
> This question often comes up on this newsgroup. If you do a search, you'll
> find plenty of answers for it.
> In short, No - you can't return the memory back to the system until your
> process exits.
It sould however be mentioned thay most OSs implement virtual memory.
If a process is not using a large contiguous chunk of its memory for a
prolonged period then that memory will not be in RAM.
> Please be aware that many OSes implements memory management this way, no
> matter what kind of language your program is written in, you can't release
> memory back to the OS after using.
Note: that under Unix (and probably many OSs too) you _can_ give the
memory back. Most memory management schemes do not bother because of
the effort of having to defragment the heap first.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 17 Dec 2002 11:02:55 -0700
From: "Cold Cathoid" <mememe@meme.com>
Subject: FTPing without Net::FTP
Message-Id: <atnosi$vo82$1@ID-158028.news.dfncis.de>
Hi all,
I am looking to write a perl script that does a rather simple task. I need
to ftp a directory of files from a remote server. The remote server requires
a login and password. I did some research and the Net::FTP would be really
handy. Unfortunently it's not installed on the box I am using. I talked to
our sysadmin and he said he could install it ... one day ... he figures in a
couple months he could get around to it. It's not high on his list of
priorities.
That being said I was wondering if anyone could point me in another
direction. When it's all said and done what I need to do is copy a folder of
files from a remote directory to a local directory (local to the perl
script). Any thoughts?
Thanks in advance.
--
"I don't apologize. I'm sorry, but that's just the way I am."
- Homer Simpson
------------------------------
Date: 17 Dec 2002 19:30:11 +0100
From: Espen Myrland <espenmyr@start.no.cretinfilter>
Subject: Re: FTPing without Net::FTP
Message-Id: <87k7i8qz0s.fsf@chello.no>
"Cold Cathoid" <mememe@meme.com> writes:
> Hi all,
>
> I am looking to write a perl script that does a rather simple task. I need
> to ftp a directory of files from a remote server. The remote server requires
> a login and password. I did some research and the Net::FTP would be really
> handy. Unfortunently it's not installed on the box I am using. I talked to
> our sysadmin and he said he could install it ... one day ... he figures in a
> couple months he could get around to it. It's not high on his list of
> priorities.
>
> That being said I was wondering if anyone could point me in another
> direction. When it's all said and done what I need to do is copy a folder of
> files from a remote directory to a local directory (local to the perl
> script). Any thoughts?
>
Yes. Download the module Net::FTP from your nearest cpan site, unpack it
and install it in your script-directory.
Then: put use lib '.' in the top of your scripts.
When your sysop has finally installed the module, you can
remove the "use lib '.'", if you like.
-
espen
------------------------------
Date: Tue, 17 Dec 2002 18:37:57 +0100
From: stig <nospam_stigerikson@yahoo.se>
Subject: images presented on web through perlscript
Message-Id: <atnnfe$mv6$1@oden.abc.se>
hi
on my webserver i have a cgi-bin area, where perlscrips are executed.
also i have some images there, this images cannot be displayed if requested
as http://server.com/cgi-bin/image.png since server will not allow this.
this is good.
however i would like to create a script that controls the user and then
displays a html-page that displays the image as well.
would it be possible, or du i have to save the images in an area that has
webaccess for everyone?
i already have the user control and html-part working, but not the image.
any help appreciated
thanks
stig e.
------------------------------
Date: Tue, 17 Dec 2002 09:07:11 -0500
From: Jim Agnew <jpagnew@vcu.edu>
Subject: Re: Is it possible to change windows background via Perl?
Message-Id: <3DFF2F8F.6FBAD00B@vcu.edu>
Rod wrote:
>
> "Jim Agnew" <jpagnew@vcu.edu> wrote in message
> news:3DFDF142.A1E1E9BC@vcu.edu...
> > i have a website (http://www.ssec.wisc.edu/data/east/latest_eastvis.gif)
> > that the image I'd then take and make it my background,
code snipped for space...
>
> Rodney
Rodney, this is *exactly* what I was looking for... Thank you Thank you
Thank you...
Jim
------------------------------
Date: Tue, 17 Dec 2002 07:58:42 -0500
From: "Christian Caron" <nospam@nospam.org>
Subject: Re: Is it safe to return a reference to local or lexical data?
Message-Id: <atn722$f9n10@nrn2.NRCan.gc.ca>
>
> 3.18: Is it safe to return a reference to local or lexical data?
>
>
> Yes. Perl's garbage collection system takes care of this so everything
> works out right.
>
> sub makeone {
> my @a = ( 1 .. 10 );
> return \@a;
> }
>
> for $i ( 1 .. 10 ) {
> push @many, makeone();
> }
>
> print $many[4][5], "\n";
>
> print "@many\n";
>
>
>
> --------------------------------------------------------------------
Is it me or is there a problem with that?
###############
#!/usr/local/bin/perl
sub makeone {
my @a = ( 1 .. 10 );
return \@a;
}
for $i ( 1 .. 10 ) {
push @many, makeone();
}
print $many[4][5], "\n";
print "@many\n";
###############
nrn1# perl test.cgi
6
ARRAY(0xf4b70) ARRAY(0xf4af8) ARRAY(0xfb244) ARRAY(0xfb2d4) ARRAY(0xfb364)
ARRAY
(0xfb3f4) ARRAY(0xfb498) ARRAY(0xfb528) ARRAY(0xfb5b8) ARRAY(0xfb648)
nrn1#
If I use strict and warnings, I get errors too...
------------------------------
Date: Tue, 17 Dec 2002 07:55:46 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Is it safe to return a reference to local or lexical data?
Message-Id: <slrnavub72.2nm.tadmc@magna.augustmail.com>
Christian Caron <nospam@nospam.org> wrote:
>
>>
>> 3.18: Is it safe to return a reference to local or lexical data?
> Is it me or is there a problem with that?
Can't tell unless you let us know what you think the problem is.
> ###############
> #!/usr/local/bin/perl
>
> sub makeone {
> my @a = ( 1 .. 10 );
> return \@a;
> }
>
> for $i ( 1 .. 10 ) {
> push @many, makeone();
> }
>
> print $many[4][5], "\n";
>
> print "@many\n";
> ###############
>
> nrn1# perl test.cgi
> 6
> ARRAY(0xf4b70) ARRAY(0xf4af8) ARRAY(0xfb244) ARRAY(0xfb2d4) ARRAY(0xfb364)
> ARRAY
> (0xfb3f4) ARRAY(0xfb498) ARRAY(0xfb528) ARRAY(0xfb5b8) ARRAY(0xfb648)
> nrn1#
It shows the all of the arrays that started as @a are distinct,
since all of the addresses are different.
Try it with:
local @a = ( 1 .. 10 );
instead. Still distinct.
Try it with:
@a = ( 1 .. 10 );
Not distinct.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 17 Dec 2002 09:36:28 -0500
From: "Christian Caron" <nospam@nospam.org>
Subject: Re: Is it safe to return a reference to local or lexical data?
Message-Id: <atncpc$jbu1@nrn2.NRCan.gc.ca>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnavub72.2nm.tadmc@magna.augustmail.com...
> Christian Caron <nospam@nospam.org> wrote:
> >
> >>
> >> 3.18: Is it safe to return a reference to local or lexical data?
>
>
> > Is it me or is there a problem with that?
>
>
> Can't tell unless you let us know what you think the problem is.
>
>
I thought print "@many\n"; would return numbers:
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5...
Maybe it's my misunderstanding of (Perl | English | FAQ)... I think I now
know it is indeed returning the right thing (10 references to arrays that
contain 10 numbers each).
Thanks!
Christian
------------------------------
Date: 17 Dec 2002 07:36:07 -0800
From: infea2000@yahoo.com (Christian Fea)
Subject: Looking for Perl and Linux developer in the Long Beach, CA area
Message-Id: <f62dfb4e.0212170736.5a64fb5@posting.google.com>
Hello,
Looking for Perl and Linux developer in the Long Beach, CA area for a
30 day contract to build a password managment system using mySql and
Perl. Pay is $1000 a week to start. Please email your resume to me at
infea2000@yahoo.com. I'm looking to hire someone asap.
Thanks,
Christian
------------------------------
Date: Tue, 17 Dec 2002 08:47:03 -0700
From: "Rod" <palladium@spinn.net>
Subject: Re: Looking for Perl and Linux developer in the Long Beach, CA area
Message-Id: <uvuhsfnvgq4g16@corp.supernews.com>
"Christian Fea" <infea2000@yahoo.com> wrote in message
news:f62dfb4e.0212170736.5a64fb5@posting.google.com...
> Hello,
>
> Looking for Perl and Linux developer in the Long Beach, CA area for a
> 30 day contract to build a password managment system using mySql and
> Perl. Pay is $1000 a week to start. Please email your resume to me at
> infea2000@yahoo.com. I'm looking to hire someone asap.
>
Try That a day and you would be closer to the mark.
Rod
------------------------------
Date: Tue, 17 Dec 2002 18:12:59 +0000 (UTC)
From: "David H. Adler" <dha@panix2.panix.com>
Subject: Re: Looking for Perl and Linux developer in the Long Beach, CA area
Message-Id: <slrnavuq9b.bj2.dha@panix2.panix.com>
In article <f62dfb4e.0212170736.5a64fb5@posting.google.com>, Christian
Fea wrote:
> Looking for Perl and Linux developer
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently to
"news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Another good source of information on how Usenet functions is
news.newusers.questions (information from which is also available at
http://www.geocities.com/nnqweb/).
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
http://jobs.perl.org may be of more use to you
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"Well, to make this story the way it should be done we will
[need] technology that won't invented for 30 years and a budget that
could pay for a large south american country." "What have we got?" "25
cents and a block of wood." - Possible Dr. Who budget conference
------------------------------
Date: Tue, 17 Dec 2002 16:36:34 GMT
From: opt cool dude <control153@NOSPAMyahoo.com>
Subject: members area in perl ???
Message-Id: <Xns92E77681B67CAcontrol153NOSPAMyaho@167.206.3.2>
newbee here ....
i need to create a members area in perl and am looking for all tutorials
available ... i need to use mysql
thanks
------------------------------
Date: Tue, 17 Dec 2002 10:07:28 -0500
From: "Ben Kennedy" <bkennedy@hmsonline.com>
Subject: Re: OK, I give up - merge different fields from 2 files into 1.
Message-Id: <odCcnfCoTKOLo2KgXTWcpg@giganews.com>
"qanda" <fumail@freeuk.com> wrote in message
news:62b4710f.0212160822.3a5db374@posting.google.com...
>
> Any pointers would help greatly, as I said I have been looking at this
> but need more help, I should sort the files first (using perl or unix
> sort?), how to open and access multiple files at the same time. After
> this I need to consider things like, field 9 (for example) in the
> matched file is a derived value from field x in filea and field y in
> fileb.
>
Others have pointed out Perl solutions, but you may want to look at the
standard unix "join" utility that should come in any pacakge that also
contains "sort" - this may prove to be a valuable shortcut for you.
--Ben Kennedy
------------------------------
Date: Tue, 17 Dec 2002 11:08:39 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: OT: Re: Get current date / time?
Message-Id: <3dff04a8.1090560533@news.cis.dfn.de>
On Mon, 16 Dec 2002 22:44:51 +0100, "Alan J. Flavell"
<flavell@mail.cern.ch> wrote:
>On Dec 16, Helgi Briem inscribed on the eternal scroll:
>
>> And so forth. In Europe we also have a supplementary
>> system to account for the numbers in between, which
>> unfortunately is not as well known as it should be.
>>
>> As far as I know, we Icelanders are the only ones
>> who use it routinely.
>> Milliard = 10^9
>
>Huh?
>
>Still much used in Germany, I assure you. Google finds 759,000
>references to "Milliarden" (the German plural) - on casual inspection
>almost all those hits are German.
>
>"Milliards" (the French plural, among other languages) 663,000 hits.
Right, sorry. I had been told that only we used the
words and didn't bother to check. I'm still pi**ed off
at the Americans for changing the definition of billion
without asking permission.
>> Billiarrd = 10^15
>
>(Quite what specific use Icelanders would have for 10^15 and
>upwards shall remain a mystery ;-)
Not much, I'll acknowledge. And I do realise that the
shift towards US usage is largely prompted by the
rarity of use of 10^12 and up.
>Amongst colleagues, we tend to shift to ISO prefixes (Giga- Tera-
>Peta- ...) when the numbers get too big.
Yes, so do we.
>> I don't know which green table ball game involves
>> billions and trillions.
>
>I know which one invoves billiards, though.
Oh, right. Of course.
--
Regards, Helgi Briem
helgi AT decode DOT is
A: Top posting
Q: What is the most irritating thing on Usenet?
- "Gordon" on apihna
------------------------------
Date: 17 Dec 2002 06:26:02 -0800
From: toxicfungi@yahoo.com (ToxicFungi)
Subject: Re: PErl and CSS
Message-Id: <a34dbdd.0212170626.59badbc6@posting.google.com>
You should
> at least be able to make a modification as trivial as this. if you are
> not a programmer, then you should become one, or hire one.
>
> Martien
Whoa.... take it easy there buddy. tnx anyways.
thanks Bart!
------------------------------
Date: Tue, 17 Dec 2002 15:37:19 +0100
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: perl bad interpreter: No such file or directory
Message-Id: <n0n4hfts.fsf@online.no>
"Eric Le Donné" <eric@spamnotcfm-consulting.com> wrote:
> ... or #!/usr/bin/perl ain't a valid Perl interpreter...
> since perl script.pl works, it's quite likely that it doesn't reside under
> /usr/bin
>
> What does "which perl" return ?
I (almost) always use
#!/usr/bin/env perl
so I don't have to worry about where perl is. My programs run on
machines where the only perl is /usr/bin/perl *and* on other
machines where the only perl is /usr/local/bin/perl. The above
line makes the program run properly anyhow.
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Tue, 17 Dec 2002 22:33:15 +1100
From: "Peter Sundstrom" <me@privacy.net>
Subject: Perl SAQ
Message-Id: <atn21q$n15u$1@ID-172104.news.dfncis.de>
For a bit of fun, I've created a Perl SAQ page at
http://www.ginini.com/perlsaq.html
If you have any additions, email me at the address at the bottom on the
webpage.
All of the current entries are from searching Google with the words "SAQ"
and "Perl self answering question"
------------------------------
Date: Tue, 17 Dec 2002 13:23:31 +0100
From: cedric <cedric@pimentech.net>
Subject: stdin binary or text ?
Message-Id: <3dff1744$0$2127$626a54ce@news.free.fr>
Hi !
I would like to know if in perl stdin is opened in binary or text mode ?
And if in a text stream every forms of newlines will be converted to a
single \n ?
Because I have a dos file with \r\n and, reading it through stdin, \n does
not seam to math \r\n but only \n ...
Or is it that \r\n is not recognized as a newline, even if opening the
stream in text mode ??
------------------------------
Date: Tue, 17 Dec 2002 13:47:47 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: stdin binary or text ?
Message-Id: <newscache$nvk97h$p7l$1@news.emea.compuware.com>
cedric wrote (Tuesday 17 December 2002 13:23):
> Hi !
> I would like to know if in perl stdin is opened in binary or text mode ?
I would expect STDIN is just STDIN. Whatever is gotten is gotten.
> And if in a text stream every forms of newlines will be converted to a
> single \n ?
> Because I have a dos file with \r\n and, reading it through stdin, \n does
> not seam to math \r\n but only \n ...
That depends on you locat EOL setting. Read "perldoc perlvar" on
INPUT_RECORD_SEPARATOR
> Or is it that \r\n is not recognized as a newline, even if opening the
> stream in text mode ??
HTH
--
KP
------------------------------
Date: Tue, 17 Dec 2002 13:58:40 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: stdin binary or text ?
Message-Id: <Pine.LNX.4.40.0212171348270.25514-100000@lxplus033.cern.ch>
On Dec 17, cedric inscribed on the eternal scroll:
> I would like to know if in perl stdin is opened in binary or text mode ?
perldoc -f open ; perldoc -f binmode
STDIN is no different from other file handles in this regard.
> And if in a text stream every forms of newlines will be converted to a
> single \n ?
No. Consult perldoc perlport for insights.
The conversion in text mode is aimed at text files which are in the
native format of their respective platform. If you have data from
other platforms, in their respective native formats, then a different
approach is needed.
> Because I have a dos file with \r\n
You mean "\015\012", in portable terminology. Perl's \r and \n
notations denote logical functions, not physical data characters.
> and, reading it through stdin, \n does
> not seam to math \r\n but only \n ...
On platforms which use \015\012 as their native newline
representation, \015\012 (carriage-return followed by line-feed)
_is_ the external embodiment of a newline (the logical \n function).
Recall the ancient Egyptians who reputedly used the same word for
"north" as for "downstream" (i.e in reference to the Nile), and then
were stuck for a description when they encountered the Euphrates. One
needs to distinguish between the logical function (newline, \n) and
its physical embodiment (platform-dependent) so that one can hold a
coherent discussion about them.
good luck
------------------------------
Date: 17 Dec 2002 05:30:06 -0800
From: pietro28@yahoo.com (P.C.)
Subject: telnet sockets
Message-Id: <a1f0067e.0212170530.44da3572@posting.google.com>
I'm trying to perform a simple telnet using IO:Socket on port 23 of a
host. The problem is that with this particular port, there does not
appear to be any output! I can telnet to the host from the command
line fine, and other ports work with the perl script... just not port
23. Any ideas on why this isn't working?
Here is the script:
use IO::Socket;
local $/ = IO::Socket::CRLF;
$remote = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "aries",
PeerPort => 23,)
|| die "Can't connect to aries : $!";
$remote->autoflush(1);
print $remote "\n";
while (<$remote>) {print;}
close $handle;
exit;
Thank you!
Peter Carenza
pcarenza@harris.com
------------------------------
Date: 17 Dec 2002 14:43:18 +0100
From: Espen Myrland <espenmyr@start.no.cretinfilter>
Subject: Re: telnet sockets
Message-Id: <87pts0kbgp.fsf@chello.no>
pietro28@yahoo.com (P.C.) writes:
> I'm trying to perform a simple telnet using IO:Socket on port 23 of a
> host. The problem is that with this particular port, there does not
> appear to be any output! I can telnet to the host from the command
> line fine, and other ports work with the perl script... just not port
> 23. Any ideas on why this isn't working?
>
> Here is the script:
> use IO::Socket;
> local $/ = IO::Socket::CRLF;
> $remote = IO::Socket::INET->new(Proto => "tcp",
> PeerAddr => "aries",
> PeerPort => 23,)
> || die "Can't connect to aries : $!";
> $remote->autoflush(1);
> print $remote "\n";
> while (<$remote>) {print;}
> close $handle;
> exit;
Telnet is a protocol with lots of escape sequeneces and stuff.
Read RFC 854, or simpler: Just use Net::TELNET instead,
If you just want to play with sockets, start with feks a web server first.
--
espen
------------------------------
Date: 17 Dec 2002 09:23:56 -0800
From: webmaster@naturalbalance.com (Me)
Subject: Why doesn't this foreach SMTP loop work?
Message-Id: <3e3e6170.0212170923.1b91477c@posting.google.com>
I'm trying to write a foreach loop to send mail through SMTP to a
group of addresses contained in a text database. Based upon previous
postings I've seen on this topic, I've come up with the script below,
but it doesn't work. I'd appreciate any advice. Thanks.
use Net::SMTP;
open (FILE,'emails.txt') || die "Can't find the database: $!\n";
@indata = <FILE>;
$smtp = Net::SMTP->new('netserverIP');
$smtp->mail( 'from@mydominaname.com' );
foreach $i (@indata)
{
chomp($i);
($Email) = split(/\|/,$i);
$smtp->to( '$Email' ); # recipient's address
}
$smtp->data();
$smtp->datasend("To: Person\n");
$smtp->datasend("From: from\@mydomainname.com\n");
$smtp->datasend("Subject: Your mail\n");
$smtp->datasend("\n");
$smtp->datasend("Email Message\n");
$smtp->dataend();
Thanks.
B.
------------------------------
Date: Tue, 17 Dec 2002 17:37:25 GMT
From: "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
Subject: Re: Why doesn't this foreach SMTP loop work?
Message-Id: <s2ouvu0itnt62vr3noalj05msq4q2fdt5t@4ax.com>
Keywords: Remove WINDOZE to reply
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In a fit of excitement on 17 Dec 2002 09:23:56 -0800,
webmaster@naturalbalance.com (Me) managed to scribble:
> I'm trying to write a foreach loop to send mail through SMTP to a
> group of addresses contained in a text database. Based upon previous
> postings I've seen on this topic, I've come up with the script below,
> but it doesn't work. I'd appreciate any advice. Thanks.
>
> use Net::SMTP;
> open (FILE,'emails.txt') || die "Can't find the database: $!\n";
> @indata = <FILE>;
>
> $smtp = Net::SMTP->new('netserverIP');
> $smtp->mail( 'from@mydominaname.com' );
>
> foreach $i (@indata)
> {
> chomp($i);
> ($Email) = split(/\|/,$i);
> $smtp->to( '$Email' ); # recipient's address
> }
>
> $smtp->data();
> $smtp->datasend("To: Person\n");
> $smtp->datasend("From: from\@mydomainname.com\n");
> $smtp->datasend("Subject: Your mail\n");
> $smtp->datasend("\n");
> $smtp->datasend("Email Message\n");
> $smtp->dataend();
>
> Thanks.
>
> B.
[untested]
foreach (@indata) {
chomp($_);
my @Email = split(/\|/, $_);
foreach($Email) {
$smtp->to($_);
}
}
Does that work?
the split() function is creating an array (so $Email should be @Email?)
then you need to cycle through each element of that array as the e-mail
address.
If I'm wrong.. I look forward to reading corrections too.
Regards,
Ian
-----BEGIN xxx SIGNATURE-----
Version: PGP Personal Privacy 6.5.3
iQA/AwUBPf9hM2fqtj251CDhEQJIPACgrwsUFyi0g8PkHR6jDfUVBwMRL/cAoKXg
yLoyHFYPzGtjQWSkqsV+Ufii
=1jP6
-----END PGP SIGNATURE-----
--
Ian.H [Design & Development]
digiServ Network - Web solutions
www.digiserv.net | irc.digiserv.net | forum.digiserv.net
Scripting, Web design, development & hosting.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 V10 Issue 4275
***************************************
