[22033] in Perl-Users-Digest
Perl-Users Digest, Issue: 4255 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 12 18:05:53 2002
Date: Thu, 12 Dec 2002 15:05:14 -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 Thu, 12 Dec 2002 Volume: 10 Number: 4255
Today's topics:
Re: "Ask Kosh" in perl? <lou.moran@gellerandwind.com>
Banner Ad Rotation Program <Regular_Joe@hotmail.com>
Re: Banner Ad Rotation Program <jeff@vpservices.com>
Re: Banner Ad Rotation Program <Regular_Joe@hotmail.com>
Re: Banner Ad Rotation Program <mgjv@tradingpost.com.au>
Re: Books for Beginners <mark@lismark.org>
Re: Books for Beginners <lou.moran@gellerandwind.com>
Re: can I ship perl interpreter & do I need to send imp <nobody@dev.null>
Re: cgi and perl on windows 98 ? <usenet@tinita.de>
chained maps and greps <foobear@nospam.doom.net>
Re: chained maps and greps <penny1482@attbi.com>
Creating COM Objects in Perl (KP)
Exchange Logons (Jack)
Re: Get current date / time? <GPatnude@adelphia.net>
Re: Get current date / time? <GPatnude@adelphia.net>
Re: Get current date / time? <uri@stemsystems.com>
Re: Get current date / time? <flavell@mail.cern.ch>
Help on $CHILD_ERROR <sunil_franklin@hotmail.com>
IO::Socket problem <j.caesar@eudoramail.com>
IO:socket problem <j.caesar@eudoramail.com>
Re: IO:socket problem <uri@stemsystems.com>
Maximum string size? <nobody@dev.null>
Re: Maximum string size? <mark@lismark.org>
Re: Maximum string size? <jurgenex@hotmail.com>
Re: Maximum string size? <krahnj@acm.org>
Re: Maximum string size? <kasp@NO_SPAMepatra.com>
Module for MS SQL Server Access <strap@fabiand.net>
Re: Module for MS SQL Server Access <strap@fabiand.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 12 Dec 2002 13:46:58 -0500
From: Lou Moran <lou.moran@gellerandwind.com>
Subject: Re: "Ask Kosh" in perl?
Message-Id: <kbmhvus9oreqvusp0r8rjquo72rncnpt5a@4ax.com>
On Wed, 11 Dec 2002 20:03:02 GMT, "H. E. Taylor"
<het@despam.autobahn.mb.ca> wrote:
>Here is some 'any' input. ;-))>
Man you Perl wizards can write anything in one line!
--
There's more than one way to do it, but only some of them work
------------------------------
Date: Thu, 12 Dec 2002 14:16:34 -0500
From: "Regular Joe" <Regular_Joe@hotmail.com>
Subject: Banner Ad Rotation Program
Message-Id: <atan6v$11ob5k$1@ID-159107.news.dfncis.de>
Does anyone know of a good FREE Banner Ad Rotation Program?
I've seen many but I want to know which one is the best.
Thanks,
------------------------------
Date: Thu, 12 Dec 2002 11:57:53 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Banner Ad Rotation Program
Message-Id: <3DF8EA41.70407@vpservices.com>
Regular Joe wrote:
> Does anyone know of a good FREE Banner Ad Rotation Program?
>
> I've seen many but I want to know which one is the best.
The best one is the one that dosn't display anything.
--
Jeff
------------------------------
Date: Thu, 12 Dec 2002 16:55:05 -0500
From: "Regular Joe" <Regular_Joe@hotmail.com>
Subject: Re: Banner Ad Rotation Program
Message-Id: <atb0g6$12eok4$1@ID-159107.news.dfncis.de>
Thank you for your helpful and resourceful response.
"Jeff Zucker" <jeff@vpservices.com> wrote in message
news:3DF8EA41.70407@vpservices.com...
> Regular Joe wrote:
>
> > Does anyone know of a good FREE Banner Ad Rotation Program?
> >
> > I've seen many but I want to know which one is the best.
>
>
> The best one is the one that dosn't display anything.
>
> --
> Jeff
>
------------------------------
Date: Thu, 12 Dec 2002 22:30:24 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Banner Ad Rotation Program
Message-Id: <slrnavi3jj.865.mgjv@verbruggen.comdyn.com.au>
[Corrected upside-down quote]
On Thu, 12 Dec 2002 16:55:05 -0500,
Regular Joe <Regular_Joe@hotmail.com> wrote:
> "Jeff Zucker" <jeff@vpservices.com> wrote in message
> news:3DF8EA41.70407@vpservices.com...
>> Regular Joe wrote:
>>
>> > Does anyone know of a good FREE Banner Ad Rotation Program?
>> >
>> > I've seen many but I want to know which one is the best.
>>
>>
>> The best one is the one that dosn't display anything.
>>
> Thank you for your helpful and resourceful response.
In addition to being helpful, Jeff's response is also accurate as far
as most people here are concerned, judging by past discussions of this
sort of thing. The best banner ad rotation program is one that doesn't
display anything. I'd actually advise you to _buy_ one of those, so at
least you can get support from the vendor to fix the problem if and
when it accidentally starts displaying banners. make sure to get a
decent maintenance contract.
Why are you even posting this question here? This is a newsgroup where
people discuss the programming language Perl. Banner Ad rotation
systems are pieces of software that can be written in many
languages[1]. I'd advise you to use google to find answers to your
question (and yes, the information is out there), or, if you really
are too lazy to do some research, you try to find a more appropriate
group for this.
Martien
[1] The _best_ ones, i.e. the ones that don't do anything, are
generally the fastest. Be careful not to get one that's written in
Java, even if it doesn't do anything. It will be much, much slower and
more resource hungry than anything else doing nothing.
--
|
Martien Verbruggen | Useful Statistic: 75% of the people make up
Trading Post Australia | 3/4 of the population.
|
------------------------------
Date: Thu, 12 Dec 2002 16:34:55 +0000
From: Markmm <mark@lismark.org>
Subject: Re: Books for Beginners
Message-Id: <atadrb$122bk6$1@ID-162318.news.dfncis.de>
James Foster wrote:
> Does anyone know of a good book to start learning Perl programming
> from. I have previous experience of C++ but I want a good book that
> explanins the basics and fundimentals of Perl, right from the
> beginning. Any suggestions?
>
> Thank you.
>
> HAND :-)
I have nearly finished Learning Perl 3rd Edition and can say it is a great
book for newbies, however if you want to get deeper you should follow up
with Programming Perl 3rd Edition as I am.
--
4:33pm up 5:30, 5 users, load average: 0.02, 0.02, 0.00
Markmm - Running Suse 8.0 on Athlon XP 1800
------------------------------
Date: Thu, 12 Dec 2002 13:45:12 -0500
From: Lou Moran <lou.moran@gellerandwind.com>
Subject: Re: Books for Beginners
Message-Id: <n8mhvucjdfpk5uej6s17qok692gntgf84n@4ax.com>
On Thu, 12 Dec 2002 09:57:53 -0600, tadmc@augustmail.com (Tad
McClellan) wrote:
>and you'll get a 30% discount, and Randal will get a kickback too.
>
>
>
>
>Disclaimer: I work for Randal, but I recommended his book
> even before joining Stonehenge.
Doesn't he already get a kickback, what with being the author and all?
--
There's more than one way to do it, but only some of them work
------------------------------
Date: Thu, 12 Dec 2002 16:56:28 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: can I ship perl interpreter & do I need to send imported modules
Message-Id: <3DF8BF39.5070604@dev.null>
qanda wrote:
> Hi all
>
> I've been slowly learning perl over the last few weeks and need to
> know about deployment - I've tried a few searches and docs but can't
> get a definate answer - I'm still learning where to find information!
>
> If I want to send perl scripts as part of my companys product, can I
> also send the perl interpreter (for any particular platform) and do I
> need to ship anything else such as imported modules. I still don't
> understand the implementation details of perl and its modules, are
> some built into the perl interpreter itself, where do they live, etc?
>
> Thanks in advance
>
Check out Perl2Exe at http://www.indigostar.com/perl2exe.htm.
------------------------------
Date: 12 Dec 2002 22:10:07 GMT
From: Tina Mueller <usenet@tinita.de>
Subject: Re: cgi and perl on windows 98 ?
Message-Id: <atb1fv$129i6d$1@fu-berlin.de>
In comp.lang.perl.misc Kent Boortz <kent@erix.ericsson.se> wrote:
> my $category_input = param('category'); # Get the user input
> $category_input =~ /^(\w+)$/; # We only allow alphanumeric word
> my $category = $1;
and now consider that the match fails. $1 would not be set.
it would have the same value as before the match.
also consider, $1 has a value from a previous match
containing something like "../../../etc/passwd"
or "../.htpasswd" or "../path/to/cgi/script.cgi".
> open(ITEMS,"$base/$category.txt") or die "Can't open....";
> while (my $row = <ITEMS>) {
> my ($no,$link,$name) = split(' ',$row,3);
> print qq($no <a href="$link">$name</a><br>\n);
and now think of what would be displayed to the user.
ok, the ".txt" is saving you from things like that, and
yes, $1 containing "../../../etc/passwd" is hypothetical
and not very likely. but you never know. changes in
code *are* likely, and maybe someday you decide to
save the category-files without the .txt at the end.
to make it short:
this is why you should always check if a match
succeeded, like:
$category = $category_input =~ /^(\w+)$/ ? $1 : 0;
or even exit the program if the match doesn't succeed.
> my %valid_destinations =
> (
> knatte => "gordon@mynet.com",
> fnatte => "ken@mynet.com",
> tjatte => "susan@mynet.com",
> );
what's in the array @mynet?
(i suppose you wanted single-quotes here)
regards, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://PerlQuotes.tinita.de/ \ \ _,_\ __/\ __/_| /__/ perception
------------------------------
Date: Thu, 12 Dec 2002 20:13:27 GMT
From: <foobear@nospam.doom.net>
Subject: chained maps and greps
Message-Id: <H56K9.325$0I3.38085@petpeeve.ziplink.net>
Hello folks
Somewhat of a perl golf question, I'm not trying to obfuscate my code,
just want to understand chained maps or greps.
I was wondering how I could turn this block of code in to a one liner.
if (@ids) {
my @sessions;
for my $ses ($self->sessions) {
for (@ids) {
push @sessions, $ses if $ses->id eq $_;
}
}
return @sessions;
}
I was thinking along the lines of a chained map or grep. The problem
I see is that only one iterator exists for a map/grep, so the innermost map/grep
will lose access to the outer iterator, maybe saving the iterator of the outermost
map would work?
#one liner attempt, doesn't work, but shows what I have in mind
return map { my $s = $_; grep { $s->id eq $_ } @ids } $self->sessions if @ids;
Thanks for any ideas
------------------------------
Date: Thu, 12 Dec 2002 22:42:31 GMT
From: "Dick Penny" <penny1482@attbi.com>
Subject: Re: chained maps and greps
Message-Id: <rh8K9.35258$hw3.6575@sccrnsc04>
I spent a LOT of time trying to understand and do exactly the same around
10/2/02 thru 10/7 and got some good ideas from this group. Seach google for
the word "chain" or "iterator", or maybe my name (never tried that before).
Dick Penny
<foobear@nospam.doom.net> wrote in message
news:H56K9.325$0I3.38085@petpeeve.ziplink.net...
> Hello folks
>
> Somewhat of a perl golf question, I'm not trying to obfuscate my code,
> just want to understand chained maps or greps.
>
> I was wondering how I could turn this block of code in to a one liner.
>
> if (@ids) {
> my @sessions;
> for my $ses ($self->sessions) {
> for (@ids) {
> push @sessions, $ses if $ses->id eq $_;
> }
> }
> return @sessions;
> }
>
> I was thinking along the lines of a chained map or grep. The problem
> I see is that only one iterator exists for a map/grep, so the innermost
map/grep
> will lose access to the outer iterator, maybe saving the iterator of the
outermost
> map would work?
>
> #one liner attempt, doesn't work, but shows what I have in mind
> return map { my $s = $_; grep { $s->id eq $_ } @ids } $self->sessions if
@ids;
>
>
> Thanks for any ideas
------------------------------
Date: 12 Dec 2002 11:39:32 -0800
From: snazystyl@hotmail.com (KP)
Subject: Creating COM Objects in Perl
Message-Id: <dc2b0830.0212121139.1f7d45d7@posting.google.com>
I have created COM Objects in VBScript/Windows Host Scripting.
Set FSO = CreateObject("Scripting.FileSystemObject")
... My question is: How does one Create COM Objects in Perl? I'm
looking for Samples, Examples and Links to any constructive answers to
how one could create COM Objects in perl.
------------------------------
Date: 12 Dec 2002 13:10:25 -0800
From: jack_lyons@yahoo.com (Jack)
Subject: Exchange Logons
Message-Id: <518f073a.0212121310.21aab53e@posting.google.com>
I would like to be able to access information from the Exchange Server
about the
a) currently logged on users
or
b) the last logon and logoff times for each mailbox.
I can do b) with C++ but I have to log into my MAPI Profile every
time. Is there away around it
Thanks
------------------------------
Date: Thu, 12 Dec 2002 16:28:51 GMT
From: "codeWarrior" <GPatnude@adelphia.net>
Subject: Re: Get current date / time?
Message-Id: <7P2K9.23375$VA5.1898035@news1.news.adelphia.net>
"Jon Rogers" <jon@rogers.tv> wrote in message
news:3DF75D8F.E60E82B4@rogers.tv...
>
> Dear readers,
>
> Is it possible to get hold of the current date / time without having to
> install a lot of CPAN modules? I have 5.8.1.
>
>
> /// Jon R ///
My first suggestion is to read up on Perl... There are 4 or 5 built-in Perl
functions that deal with dates / times -- Off the top of my head: time,
gmtime, localtime, times, utime... some of these are intended for use with
stat or file modifications.... Otherwise:
($day, $month, $year) = (localtime)[3,4,5];
printf("The current date is %04d %02d %02d\n", $year+1900, $month+1, $day);
Of course:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
And also:
$thisday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime)[6]];
------------------------------
Date: Thu, 12 Dec 2002 16:43:33 GMT
From: "codeWarrior" <GPatnude@adelphia.net>
Subject: Re: Get current date / time?
Message-Id: <V03K9.23394$VA5.1902297@news1.news.adelphia.net>
"Jon Rogers" <jon@rogers.tv> wrote in message
news:3DF75D8F.E60E82B4@rogers.tv...
>
> Dear readers,
>
> Is it possible to get hold of the current date / time without having to
> install a lot of CPAN modules? I have 5.8.1.
>
>
> /// Jon R ///
Forgot to add: You can use this sub routine if you wish...
# IF PASSED A DATE (MM/DD/YYYY) THIS MAKES A NICELY FORMATTED DATE
mm/dd/yyyy OTHERWISE IT RETURNS TODAYS DATE...
sub fmtDate($) {
my $val = shift;
if ($val) {
($m, $d, $y) = split (/\//, $val);
$val = (January, February, March, April, May, June, July, August,
September, October, November, December)[$m]. " ";
$val .= $d.", ";
$val .= $y;
} else {
$val = (January, February, March, April, May, June, July, August,
September, October, November, December)[(localtime)[4]]." ";
$val .= (localtime)[3].", ";
$val .= (localtime)[5] + 1900;
}
return $val;
}
------------------------------
Date: Thu, 12 Dec 2002 16:59:23 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Get current date / time?
Message-Id: <x77keffa1i.fsf@mail.sysarch.com>
>>>>> "c" == codeWarrior <GPatnude@adelphia.net> writes:
c> Forgot to add: You can use this sub routine if you wish...
c> # IF PASSED A DATE (MM/DD/YYYY) THIS MAKES A NICELY FORMATTED DATE
c> mm/dd/yyyy OTHERWISE IT RETURNS TODAYS DATE...
c> sub fmtDate($) {
c> my $val = shift;
c> if ($val) {
c> ($m, $d, $y) = split (/\//, $val);
c> $val = (January, February, March, April, May, June, July, August,
c> September, October, November, December)[$m]. " ";
barewords. won't work under strict
c> $val .= $d.", ";
c> $val .= $y;
why not just do:
return "$vale$d, $y" ;
c> } else {
and then you can drop the else {}. braces and indents are expensive.
c> $val = (January, February, March, April, May, June, July, August,
c> September, October, November, December)[(localtime)[4]]." ";
and you have the same month list twice (same bareword bug). declare and
assign it as a block or file scoped var outside the sub.
c> $val .= (localtime)[3].", ";
c> $val .= (localtime)[5] + 1900;
same return thing here.
better yet, use strftime. why reinvent a wheel and not even make it
round?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 12 Dec 2002 19:26:16 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Get current date / time?
Message-Id: <Pine.LNX.4.40.0212121918170.25245-100000@lxplus076.cern.ch>
On Dec 12, codeWarrior inscribed on the eternal scroll:
> # IF PASSED A DATE (MM/DD/YYYY) THIS MAKES A NICELY FORMATTED DATE
There are quite large areas of the world where a date in the form
dd/dd/dddd is parsed as meaning DD/MM/YYYY. It has a certain logic,
indeed (although YYYY/MM/DD has even more logic). Why take the risk
of ambiguity? There are some international standards, after all.
Let's look at it this way. When US-ASCII was reaching its sell-by
date, quite some years back, and 8-bit codings were being mooted, the
ANSI considered defining a US-standard 8-bit coding, then thought
better of it and deferred to the ISO - AFAIK, they did that in
consideration of the fact that some USAns actually wanted to talk to
the rest of the world, and vice versa.
Y2K was a good moment to make a break with the past and do the same
with date formats. How about it?
------------------------------
Date: Thu, 12 Dec 2002 22:09:44 +0530
From: "Sunil" <sunil_franklin@hotmail.com>
Subject: Help on $CHILD_ERROR
Message-Id: <q03K9.5$cw5.92@news.oracle.com>
-------------------------------------
my $command = "sqlplus -s scott\/tiger\@iasdb.local \@t.sql";
open(ERRLOG, ">error.log") or die "Can't open error log! $!";
$OUTPUT_AUTOFLUSH = 1; # make unbuffered
open(OUTPUT, ">>output.log") or die "Can't open output log! $!";
$OUTPUT_AUTOFLUSH = 1; # make unbuffered
my $pid;
eval
{
my $pid = open3("<&STDIN", ">&OUTPUT", ">&ERRLOG", $command) or die
"$!";
print "Sunil 1 > " . ($CHILD_ERROR >> 8) . ' : ' . ($CHILD_ERROR & 8) .
"\n";
};
die $@ if $@;
waitpid ($pid, 0); # wait for it to die
print "Sunil 2 > " . ($CHILD_ERROR >> 8) . ' : ' . ($CHILD_ERROR & 8) .
"\n";
close(ERRLOG) or die "Can't close filehandle! $!";
close(OUTPUT) or die "Can't close filehandle! $!";
print "Sunil 3 > " . ($CHILD_ERROR >> 8) . ' : ' . ($CHILD_ERROR & 8) .
"\n";
-----------------------
The above program gives the following output :-
Sunil 1 > 6 : 0
Sunil 2 > 16777215 : 8
Sunil 3 > 16777215 : 8
I am worried that in all three cases the status is not 0 (which I was
expecting).
Is my anxiety misplaced or do I have reason to worry.
Thanks,
Sunil.
------------------------------
Date: Thu, 12 Dec 2002 22:49:27 +0100
From: "Jules" <j.caesar@eudoramail.com>
Subject: IO::Socket problem
Message-Id: <1039729847.52040@seven.kulnet.kuleuven.ac.be>
Hi,
I use a script to POST to a HTTPserver (to automate some administration in a
cron job).
___
IO::Socket;
my $host="myhost.com";
$id="myid";
$pw="mypass";
$l=34;
my $actionString="POST /login HTTP/1.1\nAccept: image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, application/vnd.ms-powerpoint,
application/vnd.ms-excel, application/msword, */*\nContent-Type:
application/x-www-form-urlencoded\nAccept-Encoding: gzip,
deflate\nUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT
5.0)\nHost: myhost.com\nContent-Length: $l\nConnection:
Keep-Alive\n\id=$id&pass=$pw";
my $sock = new IO::Socket::INET(PeerAddr => $host, PeerPort => 80, Proto =>
'tcp') or die "couldn't connect";
print $sock "$actionString";
my $buf="";
while($line = <$sock>)
$buf.=$line;
}
close($sock);
print $buf;
my ( $file ) = "output.html"; # Name the file
open(INFO, ">$file"); # Open the file
print INFO $buf; # Write the string to the file
close(INFO); # Close the file
___
For some reason I only get the following:
---
HTTP/1.1 200 OK
Server: Resin/2.1.5
Cache-Control: private
Content-Type: text/html
Transfer-Encoding: chunked
Date: Sun, 08 Dec 2002 22:45:04 GMT
Set-Cookie: mycookie=1; Domain=.myhost.com; Path=/
Connection: Close
---
If I do the same in my webbrowser having a websniffer active, I see that I'm
receiving another 20 packages containing the html-files.
Why can't I find them in my output or how should I capture them?
Thanks in advance!
J.
------------------------------
Date: Thu, 12 Dec 2002 23:04:31 +0100
From: "Jules" <j.caesar@eudoramail.com>
Subject: IO:socket problem
Message-Id: <1039730762.657143@seven.kulnet.kuleuven.ac.be>
Hi,
I use a script to POST to a HTTPserver (to automate some administration in a
cron job).
___
IO::Socket;
my $host="myhost.com";
$id="myid";
$pw="mypass";
$l=34;
my $actionString="POST /login HTTP/1.1\nAccept: image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, application/vnd.ms-powerpoint,
application/vnd.ms-excel, application/msword, */*\nContent-Type:
application/x-www-form-urlencoded\nAccept-Encoding: gzip,
deflate\nUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT
5.0)\nHost: myhost.com\nContent-Length: $l\nConnection:
Keep-Alive\n\id=$id&pass=$pw";
my $sock = new IO::Socket::INET(PeerAddr => $host, PeerPort => 80, Proto =>
'tcp') or die "couldn't connect";
print $sock "$actionString";
my $buf="";
while($line = <$sock>)
$buf.=$line;
}
close($sock);
print $buf;
my ( $file ) = "output.html"; # Name the file
open(INFO, ">$file"); # Open the file
print INFO $buf; # Write the string to the file
close(INFO); # Close the file
___
For some reason I only get the following:
---
HTTP/1.1 200 OK
Server: Resin/2.1.5
Cache-Control: private
Content-Type: text/html
Transfer-Encoding: chunked
Date: Sun, 08 Dec 2002 22:45:04 GMT
Set-Cookie: mycookie=1; Domain=.myhost.com; Path=/
Connection: Close
---
If I do the same in my webbrowser having a websniffer active, I see that I'm
receiving another 20 packages containing the html-files.
Why can't I find them in my output or how should I capture them?
Thanks in advance!
grtz,
J.
------------------------------
Date: Thu, 12 Dec 2002 23:03:28 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: IO:socket problem
Message-Id: <x7u1hidem9.fsf@mail.sysarch.com>
use LWP;
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 12 Dec 2002 16:51:43 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Maximum string size?
Message-Id: <3DF8BE1C.50103@dev.null>
How do I find the maximum size a string can have in my Perl program? I
imagine the Config module might tell me if I know where to look, but the
manpage is all Greek to me.
------------------------------
Date: Thu, 12 Dec 2002 16:53:59 +0000
From: Markmm <mark@lismark.org>
Subject: Re: Maximum string size?
Message-Id: <ataev3$11te4h$1@ID-162318.news.dfncis.de>
Andras Malatinszky wrote:
> How do I find the maximum size a string can have in my Perl program? I
> imagine the Config module might tell me if I know where to look, but the
> manpage is all Greek to me.
It can be up to the avaliable size of the memory of the machine on which the
Perl program in running
--
4:52pm up 5:49, 5 users, load average: 0.10, 0.03, 0.01
Markmm - Running Suse 8.0 on Athlon XP 1800
------------------------------
Date: Thu, 12 Dec 2002 17:14:23 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Maximum string size?
Message-Id: <Pt3K9.4924$m8.4710@nwrddc01.gnilink.net>
Andras Malatinszky wrote:
> How do I find the maximum size a string can have in my Perl program? I
> imagine the Config module might tell me if I know where to look, but
> the manpage is all Greek to me.
Actually it won't.
In this case you need to check your RAM plus your swap space und substract
the space needed by the OS and other programs.
jue
------------------------------
Date: Thu, 12 Dec 2002 22:10:49 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Maximum string size?
Message-Id: <3DF90938.7807A28C@acm.org>
Andras Malatinszky wrote:
>
> How do I find the maximum size a string can have in my Perl program? I
> imagine the Config module might tell me if I know where to look, but the
> manpage is all Greek to me.
Run this to find out. ;-)
perl -e'$|++;1while print"\r".length($a.="a")'
John
--
use Perl;
program
fulfillment
------------------------------
Date: Fri, 13 Dec 2002 03:53:04 +0530
From: "Kasp" <kasp@NO_SPAMepatra.com>
Subject: Re: Maximum string size?
Message-Id: <atb28c$uab$1@newsreader.mailgate.org>
"Andras Malatinszky" <nobody@dev.null> wrote in message
news:3DF8BE1C.50103@dev.null...
> How do I find the maximum size a string can have in my Perl program? I
> imagine the Config module might tell me if I know where to look, but the
> manpage is all Greek to me.
>
It's not the size of RAM that limit's the size of string.
It is the size of RAM + free space on the Hard Disk.
------------------------------
Date: Thu, 12 Dec 2002 19:44:02 +0100
From: "Daniel Fabian" <strap@fabiand.net>
Subject: Module for MS SQL Server Access
Message-Id: <1039718156.233665@news.liwest.at>
Hi,
What is the best module to access an SQL Server Database? I only found
MSSQL::DBlib, but I always get an error when I try to compile it.
A link to documentation for the module you propose would be great!
Thanks in advance,
Daniel
------------------------------
Date: Thu, 12 Dec 2002 19:53:05 +0100
From: "Daniel Fabian" <strap@fabiand.net>
Subject: Re: Module for MS SQL Server Access
Message-Id: <1039718698.353143@news.liwest.at>
> What is the best module to access an SQL Server Database? I only found
> MSSQL::DBlib, but I always get an error when I try to compile it.
I forgot to mention: From Linux. So I don't have ODBC to connect to it.
> Thanks in advance,
Daniel
------------------------------
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 4255
***************************************
