[18520] in Perl-Users-Digest
Perl-Users Digest, Issue: 688 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 13 00:16:04 2001
Date: Thu, 12 Apr 2001 21:15:25 -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: <987135325-v10-i688@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 12 Apr 2001 Volume: 10 Number: 688
Today's topics:
how can I get a variable from Eval? <waelhass@nortelnetworks.com>
Re: how can I get a variable from Eval? <joe+usenet@sunstarsys.com>
Re: how can I get a variable from Eval? <waelhass@nortelnetworks.com>
Re: how can I get a variable from Eval? (Tad McClellan)
Howto get something bold with [b][/b] tags <mess@dds.nl>
Re: Howto get something bold with [b][/b] tags <keesh@users.pleaseremovethisbit.sourceforge.net>
IGES library/module? <rodion@browncorp.com>
Infinity? <newspost@coppit.org>
Re: Infinity? <keesh@users.pleaseremovethisbit.sourceforge.net>
Re: inheritance within one file? (Abigail)
Re: inheritance within one file? <uri@sysarch.com>
Re: inheritance within one file? (Abigail)
Re: Install of CPAN modules fails during date.t test <necrorising@hotmail.com>
Re: Is a function/class library for processing of SMTP- <a.kupries@westend.com>
Laziness, Impatience and Hubris :-) <karlyoung@unconscious.co.uk>
Re: Laziness, Impatience and Hubris :-) (Gwyn Judd)
Memory leak with perl embed <alian@alianwebserver.com>
Re: Memory leak with perl embed <alian@alianwebserver.com>
Need Help with Perl Win32::ODBC and seeing data <william@photorola.com>
New Perl IRC server <necrorising@hotmail.com>
Re: New Perl IRC server <gtoomey@usa.net>
Perl Interface to C++ <necrorising@hotmail.com>
Re: Perl Interface to C++ <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Perl script using sFTP <xris@dont.send.spam>
Re: post to my yahoo/hotmail accounts via automatic sci nobull@mail.com
Re: post to my yahoo/hotmail accounts via automatic sci (Abigail)
Prefix-based IP address check <vlaho@email.hinet.hr>
Re: Prefix-based IP address check nobull@mail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 12 Apr 2001 17:15:34 -0400
From: "Will S" <waelhass@nortelnetworks.com>
Subject: how can I get a variable from Eval?
Message-Id: <9b55tn$t71$1@bmerhc5e.ca.nortel.com>
I have a structure like this
@data = [
["name", "address", " age"
["dan", "190D ", " 26"
];
I used Dumper to put this in a file
I used Dumper like this
Dumper(\@data);
then I did eval on the string I read from the file
the file had the follwing
$VAR1 = [
[
'alpha',
'waelhass',
'assa'
],
[
'gamma',
'wafa',
'M,T,W,TH,F,SAT,SUN'
],
[
'delta',
'rana',
' T, W, TH'
],
[
'delta1',
'rana',
' T, W, TH, S'
]
];
how can I copy this evaluated variable into
some thing like @mynewvariable
Thanks
------------------------------
Date: 12 Apr 2001 18:03:11 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: how can I get a variable from Eval?
Message-Id: <m3ofu14vz4.fsf@mumonkan.sunstarsys.com>
"Will S" <waelhass@nortelnetworks.com> writes:
> I have a structure like this
>
> @data = [
> ["name", "address", " age"
> ["dan", "190D ", " 26"
>
> ];
>
> I used Dumper to put this in a file
> I used Dumper like this
> Dumper(\@data);
> then I did eval on the string I read from the file
> the file had the follwing
[...]
Is this supposed to be meaningful to anyone but you?
Please put together a working piece of Perl that exhibits
the phenomenon you are trying to describe.
> how can I copy this evaluated variable into
> some thing like @mynewvariable
Are you really just asking how to make a (deep) copy
of a "list of lists"?
sub duplicate_lol {
ref $_[0] ? [ map { duplicate_lol($_) } @{$_[0]} ] : $_[0];
}
my @newvar = @{ duplicate_lol( \@data ) };
--
Joe Schaefer "A witty saying proves nothing."
-- Voltaire
------------------------------
Date: Thu, 12 Apr 2001 18:49:03 -0400
From: "Will S" <waelhass@nortelnetworks.com>
Subject: Re: how can I get a variable from Eval?
Message-Id: <9b5bcv$3qr$1@bmerhc5e.ca.nortel.com>
sub StoreConfig {
local $Dumper::Purity = 0;
open (CONF_FILE, ">data1.txt") || die("Could not open configuration
File");
print "stortinfg \n";
$myString = Dumper(\@data);
}
sub LoadConfig {
open(CONF_FILE,"<data.txt") || die "Cannot open infile\n";
open (CONF_FILE, "data.txt") || die("Could not open configuration
File");
{
local $/ = undef; #undefining \n to be able to load the whole
file.
$ConfFileData = <CONF_FILE>;
close(CONF_FILE);
eval($ConfFileData); # no need to evaluate data
}
}
data1.txt has
-------------------
VAR1 = [
[
'alpha',
'waelhass',
22
],
[
'gamma',
'wafa',
'M,T,W,TH,F,SAT,SUN'
],
[
'delta',
'rana',
' T, W, TH'
],
[
'delta1',
'rana',
' T, W, TH, S'
]
];
------------------
The question is how can I have an array @data point to $VAR1
Thanks
"Joe Schaefer" <joe+usenet@sunstarsys.com> wrote in message
news:m3ofu14vz4.fsf@mumonkan.sunstarsys.com...
> "Will S" <waelhass@nortelnetworks.com> writes:
>
> > I have a structure like this
> >
> > @data = [
> > ["name", "address", " age"
> > ["dan", "190D ", " 26"
> >
> > ];
> >
> > I used Dumper to put this in a file
> > I used Dumper like this
> > Dumper(\@data);
> > then I did eval on the string I read from the file
> > the file had the follwing
>
> [...]
>
> Is this supposed to be meaningful to anyone but you?
> Please put together a working piece of Perl that exhibits
> the phenomenon you are trying to describe.
>
> > how can I copy this evaluated variable into
> > some thing like @mynewvariable
>
> Are you really just asking how to make a (deep) copy
> of a "list of lists"?
>
> sub duplicate_lol {
> ref $_[0] ? [ map { duplicate_lol($_) } @{$_[0]} ] : $_[0];
> }
>
> my @newvar = @{ duplicate_lol( \@data ) };
>
> --
> Joe Schaefer "A witty saying proves nothing."
> -- Voltaire
------------------------------
Date: Thu, 12 Apr 2001 19:52:07 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: how can I get a variable from Eval?
Message-Id: <slrn9dcft7.erg.tadmc@tadmc26.august.net>
Will S <waelhass@nortelnetworks.com> wrote:
>I have a structure like this
>
>@data = [
> ["name", "address", " age"
> ["dan", "190D ", " 26"
>
>];
The first thing you need to do is to fix the syntax errors.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 12 Apr 2001 20:41:06 +0200
From: "Dancing Shoes" <mess@dds.nl>
Subject: Howto get something bold with [b][/b] tags
Message-Id: <aFmB6.1115$XO5.192129@news.soneraplaza.nl>
Hi! Thank you for reading this message. I hope you can and will help me.
I'd like to make a perlscript that reads some input, let's say $input and
search for the [b] tag. If he finds the [b] it must make the characters
inside the [b] and [/b] bold (so it must change the [b][/b] into
<b></b>)...How could I do this?
------------------------------
Date: Thu, 12 Apr 2001 19:55:59 +0100
From: "Ciaran McCreesh" <keesh@users.pleaseremovethisbit.sourceforge.net>
Subject: Re: Howto get something bold with [b][/b] tags
Message-Id: <9b4tm1$181$1@news6.svr.pol.co.uk>
In article <aFmB6.1115$XO5.192129@news.soneraplaza.nl>, "Dancing Shoes"
<mess@dds.nl> wrote:
> Hi! Thank you for reading this message. I hope you can and will help me.
> I'd like to make a perlscript that reads some input, let's say $input
> and search for the [b] tag. If he finds the [b] it must make the
> characters inside the [b] and [/b] bold (so it must change the [b][/b]
> into
> <b></b>)...How could I do this?
regex.
$input =~ s!\[b\]!<b>!gi;
$input =~ s!\/\[b\]!</b>!gi;
or something along those lines.
--
Ciaran McCreesh
mail: keesh@users.sourceforge.net
web: http://www.opensourcepan.com/
------------------------------
Date: Thu, 12 Apr 2001 16:56:23 -0400
From: "Rodion Serebryakov" <rodion@browncorp.com>
Subject: IGES library/module?
Message-Id: <3ad615df$1@usenet.ugs.com>
Hi all!
Would any one here know if there's any Perl programs, modules, or anything
at all, that can process IGES (Initial Graphics Exchange Specification)?
I'm looking for something that can at least erase certain entity types from
a file.
CPAN shows nothing.
Even incomplete work in this area would be helpful.
Thanks!
------------------------------
Date: Thu, 12 Apr 2001 14:40:40 -0400
From: David Coppit <newspost@coppit.org>
Subject: Infinity?
Message-Id: <Pine.SUN.4.33.0104121433040.1551-100000@mamba.cs.Virginia.EDU>
I'm intrigued by the Infinity value in Perl 5.6.1. Unfortunately, I
haven't had a chance yet to play with this release yet. Does Perl do
the right thing for infinity algebra? i.e. is Infinity + 1 = Infinity?
What about Infinity/Infinity? Does eval "$foo=1;$foo = $foo + 1 while
1" evaluate to Infinity? (just kidding).
--
David
------------------------------
Date: Thu, 12 Apr 2001 20:09:34 +0100
From: "Ciaran McCreesh" <keesh@users.pleaseremovethisbit.sourceforge.net>
Subject: Re: Infinity?
Message-Id: <9b4ufg$g52$1@newsg3.svr.pol.co.uk>
In article
<Pine.SUN.4.33.0104121433040.1551-100000@mamba.cs.Virginia.EDU>, "David
Coppit" <newspost@coppit.org> wrote:
> Does eval "$foo=1;$foo = $foo + 1 while
> 1" evaluate to Infinity? (just kidding).
It wouldn't, even after an infinite amount of time, unless you were using
an infinite precision (is that the word?) library. If you take a biiiiig
number and add one to it, you get that number because of rounding
errors...
So when's the first implementation of Perl for infinite-state quantum
computers going to be released then? :)
Ciaran
--
Ciaran McCreesh
mail: keesh@users.sourceforge.net
web: http://www.opensourcepan.com/
------------------------------
Date: Thu, 12 Apr 2001 21:58:53 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: inheritance within one file?
Message-Id: <slrn9dc98t.gs9.abigail@tsathoggua.rlyeh.net>
Uri Guttman (uri@sysarch.com) wrote on MMDCCLXXXI September MCMXCIII in
<URL:news:x7ofu2ohf3.fsf@home.sysarch.com>:
() >>>>> "A" == Abigail <abigail@foad.org> writes:
()
() A> FUD. Pure FUD. Of course can subs give name clashes, but then, so
() A> can classes. It's easier to deal with a name clash for an exported
() A> function though: don't run import. It's not so easy to deal with
() A> class name collision though.
()
() tell that to CGI.pm which wanted to use the exported function tr() to
() map to html <tr>. and lincoln ran into perl's tr/// causing him to
() capitalize some of his funcs to Tr(), etc.
Right. It would have worked so much better if the class was named 'tr'
and you have called it as:
tr -> method ();
() with class name collisions, you can tell more easily that it will
() happen. one of the major CPAN rules is managing the class name space for
() all cpan modules. if you mix your own modules and cpan's you may have an
Doubtful. I bet CPAN manages *file*name conflicts. There are many CPAN
modules that use more than one class per file. And Perl doesn't dictate
there's any relation between a file name and a package name. It's only
useful if you actually want "import" to be called automatically....
() rare collision. but if you use two cpan modules which both import the
() same name, you can't always find that out quickly. you may have to
() examine all the import stuff from all the modules you use in a file.
() not importing stuff isn't a great win as you may only collide in one
() function name and have to change all the rest of the code to use fully
() qualified names.
Since I only suggested to export a single name, I fail to see how you can
have a collision of more than one function name. Of course, constants are
really functions under the hood as well, but do you really advocate writing
stuff like:
FEE::FIE:FOE::CLASS -> MAX_NUMBER_OF_BURGERS;
() both are real issues but i think that that function name collisions
() would be more common and more annoying to fix.
Fine. Then don't run import and use:
FEE::FIE:FOE::CLASS::constructor();
Abigail
--
($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox"," "x25,1,"\r");
{vec($_=>1+$"=>$^F<<$^F)=ord($/^substr$;=>$"=int rand 24=>1);
print&&select$,,$,,$,,$|/($|+tr/ //c);redo if y/ //>$^F**2};
------------------------------
Date: Thu, 12 Apr 2001 22:46:32 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: inheritance within one file?
Message-Id: <x7d7ahohx3.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@foad.org> writes:
A> Right. It would have worked so much better if the class was named 'tr'
A> and you have called it as:
A> tr -> method ();
heh. you know well that class names should be capitalized (except for
pragmas).
A> Doubtful. I bet CPAN manages *file*name conflicts. There are many
A> CPAN modules that use more than one class per file. And Perl
A> doesn't dictate there's any relation between a file name and a
A> package name. It's only useful if you actually want "import" to be
A> called automatically....
i believe they manage both spaces. if you put up a cpan module with
internal class names that aren't below the file's name, i would hope
they would disallow it. at least the author should be ashamed of
that. they do have the concept of ownership of the namespaces below a
given class name. that way the author of a CPAN module can use helper
and related classes without compunction.
A> Since I only suggested to export a single name, I fail to see how
A> you can have a collision of more than one function name. Of course,
A> constants are really functions under the hood as well, but do you
A> really advocate writing stuff like:
i mean a collision with another module that also wants to export
'constructor' or 'new'.
A> FEE::FIE:FOE::CLASS -> MAX_NUMBER_OF_BURGERS;
A> () both are real issues but i think that that function name collisions
A> () would be more common and more annoying to fix.
A> Fine. Then don't run import and use:
A> FEE::FIE:FOE::CLASS::constructor();
which is fine but that doesn't allow for inheritance of this
constructor.
FEE::FIE:FOE::CLASS->constructor();
would work if constructor is in a class that is inherited from
FEE::FIE:FOE::CLASS.
this thread is getting useless. sure perl lets you do anything you
want. but importing OO subs seems like a poor idea in all ways.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: Fri, 13 Apr 2001 00:39:17 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: inheritance within one file?
Message-Id: <slrn9dcill.gs9.abigail@tsathoggua.rlyeh.net>
Uri Guttman (uri@sysarch.com) wrote on MMDCCLXXXI September MCMXCIII in
<URL:news:x7d7ahohx3.fsf@home.sysarch.com>:
`` >>>>> "A" == Abigail <abigail@foad.org> writes:
``
`` A> Right. It would have worked so much better if the class was named 'tr'
`` A> and you have called it as:
``
`` A> tr -> method ();
``
`` heh. you know well that class names should be capitalized (except for
`` pragmas).
Right... that's why "main" is called "main". ;-)
You can name a class in any capitalization you want; and the same holds
for sub names.
If you want to avoid potential clashes, you better not use all cap names
though.
`` A> Doubtful. I bet CPAN manages *file*name conflicts. There are many
`` A> CPAN modules that use more than one class per file. And Perl
`` A> doesn't dictate there's any relation between a file name and a
`` A> package name. It's only useful if you actually want "import" to be
`` A> called automatically....
``
`` i believe they manage both spaces. if you put up a cpan module with
`` internal class names that aren't below the file's name, i would hope
`` they would disallow it. at least the author should be ashamed of
`` that. they do have the concept of ownership of the namespaces below a
`` given class name. that way the author of a CPAN module can use helper
`` and related classes without compunction.
Really? Then please explain the existance of the module
Lingua::EN::Numbers::Easy by yours truly. I have not written
Lingua::EN::Numbers, nor did I give ownership of Lingua::EN::Numbers::Easy
away.
`` A> Since I only suggested to export a single name, I fail to see how
`` A> you can have a collision of more than one function name. Of course,
`` A> constants are really functions under the hood as well, but do you
`` A> really advocate writing stuff like:
``
`` i mean a collision with another module that also wants to export
`` 'constructor' or 'new'.
Not very likely to be a problem with sensible names. But if not, use
the fully qualified name. Exporting is nothing more, nothing less
than a convenience. If you don't like it, don't use it!
`` A> FEE::FIE:FOE::CLASS -> MAX_NUMBER_OF_BURGERS;
``
`` A> () both are real issues but i think that that function name collisions
`` A> () would be more common and more annoying to fix.
``
`` A> Fine. Then don't run import and use:
``
`` A> FEE::FIE:FOE::CLASS::constructor();
``
`` which is fine but that doesn't allow for inheritance of this
`` constructor.
I explained that a few notes ago. I suggest you read back the thread,
and pay attention to the one you replied to with "I thought you were
thinking like that".
`` FEE::FIE:FOE::CLASS->constructor();
``
`` would work if constructor is in a class that is inherited from
`` FEE::FIE:FOE::CLASS.
``
`` this thread is getting useless. sure perl lets you do anything you
`` want. but importing OO subs seems like a poor idea in all ways.
But the exported sub is *NOT* an OO sub!
Just because it happens to be in the same package (or just in the
same file) doesn't mean it's an OO sub!
Abigail
--
#!/opt/perl/bin/perl -w
$\ = $"; $; = $$; END {$: and print $:} $SIG {TERM} = sub {$ := $_}; kill 15 =>
fork and ($; == getppid and exit or wait) foreach qw /Just another Perl Hacker/
------------------------------
Date: Thu, 12 Apr 2001 19:36:48 -0400
From: necro <necrorising@hotmail.com>
Subject: Re: Install of CPAN modules fails during date.t test
Message-Id: <4vecdtcvshtipmh4osr40h0ulpkg8pom2o@4ax.com>
try getting a hold of Microsoft's nmake
to install if there is no PPM available
Chris-Beer
------------------------------
Date: 12 Apr 2001 22:36:54 +0200
From: Andreas Kupries <a.kupries@westend.com>
Subject: Re: Is a function/class library for processing of SMTP-mails available?
Message-Id: <87y9t5n9cp.fsf@bluepeak.westend>
"Markus Elfring" <ELF@Messer.de> writes:
> I've found the following:
> > man forward
> " ...
> If the first character of the address is a vertical bar (|),
> sendmail(1M) pipes the message to the standard input of the
> command the bar precedes.
> ... "
> I want to read this piped message to import it in one of our systems
> after the sender and the subject had been checked. Do you know a
> function or class library for a programming language (e. g. PHP,
> TCL or Perl) that helps me to process this mail?
tcllib at http://sourceforge.net/projects/tcllib contains a mime
module for handling (processing, parsing, creating, ...) all sorts of
mail, including MIME attachments.
--
Sincerely,
Andreas Kupries <a.kupries@westend.com>
Developer @ <http://www.activestate.com/>
Private <http://www.purl.org/NET/akupries/>
-------------------------------------------------------------------------------
------------------------------
Date: Fri, 13 Apr 2001 02:13:27 +0100
From: "Karl Young" <karlyoung@unconscious.co.uk>
Subject: Laziness, Impatience and Hubris :-)
Message-Id: <987124569.16347.0.nnrp-10.c2ded7c2@news.demon.co.uk>
Karl Young <karlyoung@unconscious.co.uk> wrote:
Does anyone really read a newsgroup for 3 weeks before posting to it?
"Tad McClellan" <tadmc@augustmail.com> wrote in message
Folks that are very interested in not embarrassing themselves do
Whatever happened to 'the three chief virtues of a programmer: Laziness,
Impatience and Hubris?' :-)
--
Karl
¸ ¸
\(Ö)/
Ô
_/ \_
------------------------------
Date: Fri, 13 Apr 2001 02:16:20 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Laziness, Impatience and Hubris :-)
Message-Id: <slrn9dcobj.tmd.tjla@thislove.dyndns.org>
I was shocked! How could Karl Young <karlyoung@unconscious.co.uk>
say such a terrible thing:
>Karl Young <karlyoung@unconscious.co.uk> wrote:
>Does anyone really read a newsgroup for 3 weeks before posting to it?
>
>"Tad McClellan" <tadmc@augustmail.com> wrote in message
>Folks that are very interested in not embarrassing themselves do
>
>Whatever happened to 'the three chief virtues of a programmer: Laziness,
>Impatience and Hubris?' :-)
Well, Laziness would be the virtue that makes people not want to waste
time asking frequently asked or off-topic questions. Laziness is the
virtue that makes you go to great lengths to reduce overall energy
expenditure. A Laze person will lurk for a few weeks so as not to waste
the time of the other newsgroup denizens.
Impatience is the anger you feel when the computer is being lazy.
Naturally it is slower to ask a question on a newsgroup when it is
clearly answered in an FAQ or would be better answered in a more
specific newsgroup.
Finally, Hubris is the virtue of pride. Pride is the sort of thing that
enables me to plonk idiots like you in public for asking too many stupid
ass questions like this one.
*plonk*
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Love is a portion of the soul itself, and it is of the same nature
as the celestial breathing of the atmosphere of paradise.
-- Victor Hugo
------------------------------
Date: Thu, 12 Apr 2001 21:31:20 +0000
From: Alain BARBET <alian@alianwebserver.com>
Subject: Memory leak with perl embed
Message-Id: <9b4vds$dba$1@wanadoo.fr>
Hi,
I want put a Perl Interpreter on a C++ appli.
I create a class that make in constructor:
char *embedding[] = { "", "-e", "0" };
if ( (my_perl = perl_alloc())==NULL) exit(1);
perl_construct(my_perl );
int exit = perl_parse(my_perl, xs_init, 3, embedding, NULL);
if (!exit) perl_run(my_perl);
and in destructor
Parser::~Parser()
{
PL_perl_destruct_level = 0; // Nettoyage memoire supplementaire
perl_destruct(my_perl);
perl_free(my_perl);
}
then I make in a main:
void boucle()
{
ParserPerl::Parser p;
char buf[]="print 'o';";
p.parse(buf);
}
int main(int argc, char *argv)
{
for (;;) boucle();
}
Then I look on size process with top. With this test, all rune fine and
memory stay stable. But if use a module, in 30s size of process get grow to
100M.
Ex: in boucle(), If I do
char buf[]="use strict; print 'o';";
Can someone give me a clue ?
Thanks,
--
Alain BARBET
------------------------------
Date: Fri, 13 Apr 2001 00:00:44 +0000
From: Alain BARBET <alian@alianwebserver.com>
Subject: Re: Memory leak with perl embed
Message-Id: <9b585v$f27$1@wanadoo.fr>
Ok I make some others tests and correct what I say:
- With PL_perl_destruct_level = 0; or no PL_perl_destruct_level specified,
memory grow to infini.
- With PL_perl_destruct_level = 1; it's ok. But I can't use any module
except strict !
Ex:
use CGI => Unbalanced string table refcount: (-357913940) for "on requires
an argument -- %c
" during global destruction.
use diagnostics or HTML::Parser; => segmentation fault
If I try use Symbol qw(delete_package); it's exit at three times with
segmentation fault ...
HTH,
--
Alain BARBET
http://www.alianwebserver.com
------------------------------
Date: Thu, 12 Apr 2001 17:37:08 -0700
From: "news.frontiernet.net" <william@photorola.com>
Subject: Need Help with Perl Win32::ODBC and seeing data
Message-Id: <9b5hn7$cvc$1@node17.cwnet.frontiernet.net>
Hi,
I am starting to write a perl db app, I am running Active Perl 5.6,
under W2K, trying to hit an Informix DB via ODBC, it connects, does th sql,
but I don't see any data ( yes it is there, I checked), please note I am
using Komoto for an IDE.
use Win32::ODBC;
$db = new Win32::ODBC("DSN=qatest;UID=xxxx;PWD=xxxxxx");
if ($db->Sql("select * from members"))
{
die "nogo".Win32::ODBC::Error();
}
while ( $db->FetchRow ()) {
%row = $db->DataHash();
print "$row{STOREID}: $row{UNAME}\n";
print "hello\n"; }
$db->Close();
Thanks
Bill
------------------------------
Date: Thu, 12 Apr 2001 19:30:03 -0400
From: necro <necrorising@hotmail.com>
Subject: New Perl IRC server
Message-Id: <oiecdtc28e5o961m2ktalujibnq00smeb3@4ax.com>
irc.worldwidecreations.com
Come talk WWC perl Support here
Channel #WWC
------------------------------
Date: Fri, 13 Apr 2001 10:03:45 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: New Perl IRC server
Message-Id: <0brB6.1824$482.9968@newsfeeds.bigpond.com>
SPAM on ...
-------
"necro" <necrorising@hotmail.com> wrote in message
news:oiecdtc28e5o961m2ktalujibnq00smeb3@4ax.com...
> irc.worldwidecreations.com
>
> Come talk WWC perl Support here
>
> Channel #WWC
>
>
------------------------------
Date: Thu, 12 Apr 2001 19:33:41 -0400
From: necro <necrorising@hotmail.com>
Subject: Perl Interface to C++
Message-Id: <aoecdtcounmr53ns9q4234smt97gskq2ti@4ax.com>
Does anyone know of any Interface between Active-State Perl, and
Borland C++?
I want to program win32 apps in perl
Can anything do this?
------------------------------
Date: 13 Apr 2001 00:08:17 +0000
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Perl Interface to C++
Message-Id: <867l0p64r2.fsf@jon_ericson.jpl.nasa.gov>
necro <necrorising@hotmail.com> writes:
> Does anyone know of any Interface between Active-State Perl, and
> Borland C++?
>
> I want to program win32 apps in perl
>
> Can anything do this?
You might consider any combination of:
1) Cygwin (a POSIX layer on Windows) -- www.cygwin.com
2) Inline.pm (a module for using C/C++ in Perl) -- CPAN
3) Win32::* (grab-bag of modules for interacting with the Windows API)
-- search.cpan.org
4) Tk (a module for portable GUI programming) -- CPAN
Note that you can build Perl with Borland C++ v5.5 (see perldelta
5.6.1).
Jon
------------------------------
Date: Thu, 12 Apr 2001 19:41:13 -0500
From: xris <xris@dont.send.spam>
Subject: Re: Perl script using sFTP
Message-Id: <xris-63F27A.19410712042001@news.evergo.net>
In article <9b3lsj$2fb$1@charity.cs.utexas.edu>,
logan@cs.utexas.edu (Logan Shaw) wrote:
> You didn't say what sFTP is, but based on a quick web search, it seems
> that it's a curses-based ftp program for Linux.
my guess is that she (he) meant secure ftp, which from my understanding
is actually part of the ssh protocol, not ftp. And I'd be really
curious to know how to do this, too (Though as you said, Net::FTP is
easy enough to do if you don't need the encryption).
------------------------------
Date: 12 Apr 2001 17:50:15 +0100
From: nobull@mail.com
Subject: Re: post to my yahoo/hotmail accounts via automatic scipt?
Message-Id: <u93dbe5ago.fsf@wcl-l.bham.ac.uk>
cryofan@mylinuxisp.com (cRYOFAN) writes:
> I have a program that I need to demo as part of my senior project, and
> it need to periodically send out an email. Problem is that at the
> school where I need to demo this script, my email is via SMTP.
> But the school has disabled SMTP relay, so I guess my only other
> choice is to somehow send mail through my hotmail or yahoo accounts
> via posting and logging onto my accounts via the webform.. Even this
> even possible?
Possible but far from simple.
Much simpler log onto the Yahoo POP server and log off again. Then
send mail via the Yahoo SMTP server.
The Yahoo SMTP server will relay iff the envelope-from address and
source IP match a recent POP connection.
Note, you have to opt-in to Yahoo's junk mail list before they let you
use POP/SMTP but you can direct this junk to an account with procmail
and automatically file it in a write-only folder.
This all really has little to do with Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 12 Apr 2001 22:33:27 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: post to my yahoo/hotmail accounts via automatic scipt?
Message-Id: <slrn9dcb9n.gs9.abigail@tsathoggua.rlyeh.net>
cRYOFAN (cryofan@mylinuxisp.com) wrote on MMDCCLXXXI September MCMXCIII
in <URL:news:3ad537f7.98832905@news3.mylinuxisp.com>:
@@ I have a program that I need to demo as part of my senior project, and
@@ it need to periodically send out an email. Problem is that at the
@@ school where I need to demo this script, my email is via SMTP.
@@ But the school has disabled SMTP relay, so I guess my only other
@@ choice is to somehow send mail through my hotmail or yahoo accounts
@@ via posting and logging onto my accounts via the webform.. Even this
@@ even possible?
I don't think your question has anything to do with Perl.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: Thu, 12 Apr 2001 17:53:39 +0200
From: "Vlaho Kaminski" <vlaho@email.hinet.hr>
Subject: Prefix-based IP address check
Message-Id: <9b4iph$4gcu$1@as121.tel.hr>
Hello !
I have to make restriction on usage of some stuff based on IP address.
So, I have prefix-based defined IP address range, e.g. 123.123.123.123/29
and I have incoming IP address.
Question: how can I check if incoming IP address matches given range?
Is there any built in function? Or, does someone have a code snipet which
could help me solve the problem.
Thanks
------------------------------
Date: 12 Apr 2001 18:00:00 +0100
From: nobull@mail.com
Subject: Re: Prefix-based IP address check
Message-Id: <u9zodm3vfz.fsf@wcl-l.bham.ac.uk>
"Vlaho Kaminski" <vlaho@email.hinet.hr> writes:
> I have to make restriction on usage of some stuff based on IP address.
> So, I have prefix-based defined IP address range, e.g. 123.123.123.123/29
That is invalid.
> and I have incoming IP address.
> Question: how can I check if incoming IP address matches given range?
> Is there any built in function?
No.
> Or, does someone have a code snipet which could help me solve the problem.
FAQ: "What modules and extensions are available for Perl?..."
I looked on the website the FAQ tells you to look at and it took me
less than a minuite to find a module with the description "Understand
and manipulate network blocks" that claims to do exactly what what you
ask.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
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 688
**************************************
