[29266] in Perl-Users-Digest
Perl-Users Digest, Issue: 510 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 12 21:10:11 2007
Date: Tue, 12 Jun 2007 18:09:08 -0700 (PDT)
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, 12 Jun 2007 Volume: 11 Number: 510
Today's topics:
Re: find last match in a string? <nospam-abuse@ilyaz.org>
Re: Find replace : Regular expression <noreply@invalid.net>
Re: Find replace : Regular expression <noreply@gunnar.cc>
getting data from database (sybase) in an html table on 4umangi@gmail.com
Re: getting data from database (sybase) in an html tabl <jgibson@mail.arc.nasa.gov>
P4 module install problem <hslee911@yahoo.com>
Re: parallel child processes not working properly vkinger@hotmail.com
Re: perl and php <cwilbur@chromatico.net>
Re: perl and php <yankeeinexile@gmail.com>
Re: perl and php <pm3e@juno.com>
Re: Perl in C Windows to obtain a exe <wyzelli@yahoo.com>
Re: Perl in C Windows to obtain a exe <john.swilting@wanadoo.fr>
Re: perl vs C for CGI <stoupa@practisoft.cz>
possible ActivePerl substitution optimisation issue vsimionescu@softwin.ro
Re: Unicode in regexp <nospam-abuse@ilyaz.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 12 Jun 2007 20:37:56 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: find last match in a string?
Message-Id: <f4n074$2t0v$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Abigail
<abigail@abigail.be>], who wrote in article <slrnf5oht7.ag0.abigail@alexandra.abigail.be>:
> )) >> $a =~ m/(ab.)/;
> )) > $a =~ /.*(ab.)/s;
> )) Are there any performance or memory issues
> )) with this approach if $a is rather large?
>
> Of course.
>
> It's the same as if you enter a large hallway of say a castle.
> Getting to the *last* room will take longer then getting to
> the *first* room.
In this particular case: right. In general: BS.
The only reason why in this case the second REx may be slower is that
the optimizer will try to find the "fixed substring" 'ab' inside $a
before starting the proper REx matching. (A case of
mis-optimization...)
But the REx matching proper would proceed practically the same; only
instead of trying to find the match from the start position forward,
it would do from the end position backward. [This is an
oversimplification, but only a tiny one.]
Hope this helps,
Ilya
------------------------------
Date: Tue, 12 Jun 2007 23:50:33 GMT
From: Ala Qumsieh <noreply@invalid.net>
Subject: Re: Find replace : Regular expression
Message-Id: <djGbi.14262$RX.610@newssvr11.news.prodigy.net>
Gunnar Hjalmarsson wrote:
> Subra wrote:
>>
>> $line=~s/(^#.*)__linux__(.*)/$1__linux$2/g;
>> $line=~s/(^#.*)LINUX(.*)/$1__linux$2/g;
>> $line=~s/(^#.*)[\s]+linux(.*)/$1 __linux $2/g;
>
> That could possibly be written:
>
> $line =~ s/(^#.*?)(?:__)?linux(?:__)?/$1__linux/gi;
you meant this:
$line =~ s/(^#.*?)(?:__)?linux(?:__)?/${1}__linux/gi;
the OP had it wrong too, and I suspect you just copied/pasted.
--Ala
------------------------------
Date: Wed, 13 Jun 2007 02:09:03 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Find replace : Regular expression
Message-Id: <5d8r27F33hut1U1@mid.individual.net>
Ala Qumsieh wrote:
> Gunnar Hjalmarsson wrote:
>> Subra wrote:
>>> $line=~s/(^#.*)__linux__(.*)/$1__linux$2/g;
>>> $line=~s/(^#.*)LINUX(.*)/$1__linux$2/g;
>>> $line=~s/(^#.*)[\s]+linux(.*)/$1 __linux $2/g;
>> That could possibly be written:
>>
>> $line =~ s/(^#.*?)(?:__)?linux(?:__)?/$1__linux/gi;
>
> you meant this:
>
> $line =~ s/(^#.*?)(?:__)?linux(?:__)?/${1}__linux/gi;
>
> the OP had it wrong too, and I suspect you just copied/pasted.
Well, no, to be honest I didn't think of it, but I had tested the code
before posting.
Now, when I play with various alternatives, it seems as if the braces
are only needed if the string following the dollar-digit variable begins
with a digit.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 12 Jun 2007 14:53:27 -0700
From: 4umangi@gmail.com
Subject: getting data from database (sybase) in an html table on a webpage
Message-Id: <1181685207.463961.168050@x35g2000prf.googlegroups.com>
Hi everyone,
I am making a web page using perl,html and database (Sybase).Now I
am through with the database connectivity and I am able to retrieve
all data from sybase database, but the problem is if I have 3 columns
called col1, col2,col3 in the database then what I get as output is :
col1
col2
col3 on webpage,
and what I need is a table form so : col1 col2 col3
What I have done is I have declared a foreach loop for each column. It
would be great if anyone could let me knw how can I get my data
achieved in table format using foreach loop or for loop. Thank You
------------------------------
Date: Tue, 12 Jun 2007 17:21:11 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: getting data from database (sybase) in an html table on a webpage
Message-Id: <120620071721115541%jgibson@mail.arc.nasa.gov>
In article <1181685207.463961.168050@x35g2000prf.googlegroups.com>,
<4umangi@gmail.com> wrote:
> Hi everyone,
>
> I am making a web page using perl,html and database (Sybase).Now I
> am through with the database connectivity and I am able to retrieve
> all data from sybase database, but the problem is if I have 3 columns
> called col1, col2,col3 in the database then what I get as output is :
>
> col1
> col2
> col3 on webpage,
> and what I need is a table form so : col1 col2 col3
> What I have done is I have declared a foreach loop for each column. It
> would be great if anyone could let me knw how can I get my data
> achieved in table format using foreach loop or for loop. Thank You
>
Print your data using <table>, <tr> (row), <th> (header), and <td>
(cell) tags (untested):
If @row contains your column data (e.g. @row =
$database->fetchrow_array; if you are using DBI), then
print "<table><tr>";
foreach my $cell ( @row ) {
print "<td>$cell</td>";
}
print "</tr></table>/n";
Are you using the CGI module? Then you can do something like (untested):
print "<table>";
print Tr( th [@rows] );
print "</table>\n";
After you have learned some HTML and are tired of all those print
statements, you might want to investigate the use of a templating
system, such as HTML::Template or Template Toolkit or
content-management-systems such as Mason, Catalyst, Bricolage or others
(I have not used any). Google for 'perl template' or 'perl content
management system'.
Good luck!
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 12 Jun 2007 19:59:31 -0000
From: James <hslee911@yahoo.com>
Subject: P4 module install problem
Message-Id: <1181678371.211799.163170@i38g2000prf.googlegroups.com>
How do I resolve the following error in installing P4 module?
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-Iblib/lib" "-Iblib/arch"
test.pl
1..7
Can't load 'blib/arch/auto/P4/P4.so' for module P4:
ld.so.1: /usr/local/bin/perl: fatal: relocation error: file blib/arch/
auto/P4/P4.so:
symbol _6StrBuf.nullStrBuf: referenced symbol not found at
/usr/local/perl/5.6.1/lib/5.6.1/sun4-solaris/DynaLoader.pm line 206.
at test.pl line 34
Compilation failed in require at test.pl line 34.
TIA
James
------------------------------
Date: Tue, 12 Jun 2007 14:17:34 -0700
From: vkinger@hotmail.com
Subject: Re: parallel child processes not working properly
Message-Id: <1181683054.171697.110140@o11g2000prd.googlegroups.com>
I got it to work, it seems my code was fine. The problem I found was
in converting the .pl file into .exe file using perl2exe utility. .pl
did exactly what I was looking for where as .exe choked!!
I do need exe so I am looking into fixing it.
------------------------------
Date: 12 Jun 2007 15:27:37 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: perl and php
Message-Id: <87vedtrn12.fsf@mithril.chromatico.net>
>>>>> "p" == peter <pm3e@juno.com> writes:
p> At one time, I did a bit of perl but now I see php alot. I was
p> wondering what you guys thinks of the pros/cons of perl and
p> php.
PHP is optimized for beginners and for web work, and tends to cause
suffering when you try to take it out of those areas. You'll probably
get more basic web stuff done more quickly if you use PHP, but it
won't serve you well in the long run, especially if your program grows
to the point where it has more than one person working on it or
extends tentacles into non-web areas.
You'll probably get exactly the opposite answer if you ask in a PHP group.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: 12 Jun 2007 15:47:39 -0500
From: Lawrence Statton <yankeeinexile@gmail.com>
Subject: Re: perl and php
Message-Id: <87sl8wrjbo.fsf@gmail.com>
Charlton Wilbur <cwilbur@chromatico.net> writes:
> PHP is optimized for beginners and for web work, and tends to cause
> suffering when you try to take it out of those areas. You'll probably
> get more basic web stuff done more quickly if you use PHP, but it
> won't serve you well in the long run, especially if your program grows
> to the point where it has more than one person working on it or
> extends tentacles into non-web areas.
>
> You'll probably get exactly the opposite answer if you ask in a PHP group.
>
Perl is optimized for experts and general purpose computing, and
excels in all areas... :)
If I weren't a big Perl bigot, I'd be all over Ruby - not yet as rich
as CPAN, but it is a general purpose delightfully object oriented
language that was not developed for webby stuff, but does have a
growing library of webby tools available to programmers.
There are two things that keep me nailed to Perl, each of equal
importance: CPAN and jobs.perl.org.
--
Lawrence Statton - lawrenabae@abaluon.abaom s/aba/c/g
Computer software consists of only two components: ones and
zeros, in roughly equal proportions. All that is required is to
place them into the correct order.
------------------------------
Date: Tue, 12 Jun 2007 18:26:25 -0400
From: peter <pm3e@juno.com>
Subject: Re: perl and php
Message-Id: <0%Ebi.701$vi5.622@newssvr17.news.prodigy.net>
Charlton Wilbur wrote:
>>>>>> "p" == peter <pm3e@juno.com> writes:
>.
>
> You'll probably get exactly the opposite answer if you ask in a PHP group.
>
:) that was pretty much the case. Being from a UNIX background, it
looks like perl is gooder for me.
maybe more comments will come later.
thanks,
peter
btw do abigale (sp?) and larry still contribute? (that is how long ago
i did perl)
------------------------------
Date: Tue, 12 Jun 2007 22:11:03 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: Perl in C Windows to obtain a exe
Message-Id: <XREbi.13009$wH4.4364@news-server.bigpond.net.au>
"john swilting" <john.swilting@wanadoo.fr> wrote in message
news:466ed7b7$0$25935$ba4acef3@news.orange.fr...
>I would wish to integrate Perl in exe Windows.
> I have the book programming advanced in Perl and I intend to follow the
> examples of the book…
> but I would like particular technical specifications
> I do not wish to use cygwin
> I want binary to bind statically (cad no DLL)
> arrived it: 2 solutions
> to use activeperl or recompiler an interpreter Perl
> I have like compiler C visual c++ 6 pro and codeblocks
> headers Perl are not present in the include compilers.
> script Perl will be to charge extracting the data from an Excel file and
> with sending an email
> under linux not of problem but how to make under Windows
> my file C will be similar to the example of the book the large one of work
> will be to carry out by Perl
> I ask of the assistance because I know little about Windows very. I repeat
> it under linux it is about simple it is enough to modify the example 19.3
> and to use Spreadsheet:: ParseExcel and MIME:: Lite or Net:: Smtp
Perlapp from Activestate (part of the Perl Developer Kit)
http://www.activestate.com/Products/perl_dev_kit/ allows freestanding .exe
from Perl (the .dll is included inside the .exe). I have had a lot of
success with that approach.
Perl2exe from Indigostar http://www.indigostar.com/perl2exe.htm is another I
have heard of but nor personally used, though it claims some nice features.
P
------------------------------
Date: Wed, 13 Jun 2007 02:31:05 +0200
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: Re: Perl in C Windows to obtain a exe
Message-Id: <466f3acb$0$27409$ba4acef3@news.orange.fr>
"Peter Wyzl" <wyzelli@yahoo.com> a écrit dans le message de news:
XREbi.13009$wH4.4364@news-server.bigpond.net.au...
> "john swilting" <john.swilting@wanadoo.fr> wrote in message
> news:466ed7b7$0$25935$ba4acef3@news.orange.fr...
>>I would wish to integrate Perl in exe Windows.
>> I have the book programming advanced in Perl and I intend to follow the
>> examples of the book.
>> but I would like particular technical specifications
>> I do not wish to use cygwin
>> I want binary to bind statically (cad no DLL)
>> arrived it: 2 solutions
>> to use activeperl or recompiler an interpreter Perl
>> I have like compiler C visual c++ 6 pro and codeblocks
>> headers Perl are not present in the include compilers.
>> script Perl will be to charge extracting the data from an Excel file and
>> with sending an email
>> under linux not of problem but how to make under Windows
>> my file C will be similar to the example of the book the large one of
>> work
>> will be to carry out by Perl
>> I ask of the assistance because I know little about Windows very. I
>> repeat
>> it under linux it is about simple it is enough to modify the example 19.3
>> and to use Spreadsheet:: ParseExcel and MIME:: Lite or Net:: Smtp
>
> Perlapp from Activestate (part of the Perl Developer Kit)
> http://www.activestate.com/Products/perl_dev_kit/ allows freestanding .exe
> from Perl (the .dll is included inside the .exe). I have had a lot of
> success with that approach.
>
> Perl2exe from Indigostar http://www.indigostar.com/perl2exe.htm is another
> I have heard of but nor personally used, though it claims some nice
> features.
>
> P
they is very expensive almost 500 euros I will continue to make script if
not can be with Christmas
what. that you it in this code occurs
------------------------------
Date: Tue, 12 Jun 2007 15:09:17 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: perl vs C for CGI
Message-Id: <f4ndif$t1k$1@ns.felk.cvut.cz>
saran.jegan@gmail.com wrote:
> Hello,
> am having a program in C which throws "internal server error"
> reason is premature end of script headers but i checked my http header
> & syntax of the program too , its fine. but when am re-program the
> same in perl it works fine
> i need to know the reason for the problem with C ,do any memory
> problem cause this error ,can any suggest me on this.thanks for your
> time
>
>
> server:apache
You did not mentioned about operating systems ;-) On Unix/Linux the end of
line is 0x0d (one byte) but on Windows this is 0x0d, 0x0a. Perl put right
EndOfLine character(s) by the operating system where is running but C source
code must be compiled to executable.
Maybe this help you.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Tue, 12 Jun 2007 11:23:29 -0700
From: vsimionescu@softwin.ro
Subject: possible ActivePerl substitution optimisation issue
Message-Id: <1181672609.983181.219160@g37g2000prf.googlegroups.com>
Hello
Sorry if I'm not at the right place with what I'm about to say, I've
searched for a better one and couldn't find it. If so, please tell me
where I should post this. (I also put it at ActiveState of course but
I thought on GGroups there also might be some interest.)
I think I might have found a problem with the way ActiveState Perl
substitutions are optimized (I use v5.8.8).
I have a big string (around 5M) and I perform a simple substitution of
a fixed string like "abcd" with another fixed string. The substituted
string appears about 20 thousand times in the big string.
Important: the substitution string is bigger than the substituted one.
If not, everything works well i.e. very fast. But if it's bigger, as I
said, suddenly the substitution becomes much slower, maybe 50 times or
so.
Thing is, I was able to write a function myself, *in Perl*, that does
the same substitution about 20 times faster. I'm reasonably sure there
are no errors since I've compared the output of both substitutions and
they are identical.
I've been doing some testing and it appears the problem occurs only
under low memory conditions. I have 256M RAM but with virtual memory I
was using around 380 when I tested. If I do the test with plenty of
RAM both substitutions take about the same time to complete.
Now what I believe may be the problem (I might be wrong): looks to me
that Perl does the job the straightforward simplistic way, that is it
just builds the result string as it goes, re-allocating and copying it
all if it exceeds its memory. This way if the replacement string is
smaller than the original one everything is fine, since it initially
gets a memory chunk of about the same size as the source string (maybe
a little bigger) but it doesn't ever fill it since the result is
smaller. When the result is bigger, it will happen many times that it
exceeds its memory so it must be re-allocated and re-copied. Which
when the file is very large and things happen to a great extent in
virtual memory looks like it can slow down the program significantly.
What I've done basically with my substitution is that I've initially
split the source string into 2 lists, one with the occurrences of the
initial string (it must not always be fixed, I use a function that's a
little bit more general) and the other one with the in-between sub-
strings. Then I create a result list that has the substitution string
and the in-between sub-strings, which I then join into the result
string. As I said it is about 20 times faster. Of course, if something
similar was done at a lower level in the Perl substitution itself it
would be probably many more times faster.
Since I know of no better way I'll just insert my Perl module text
below. If I call it with the /vsim switch it performs my own
substitution, otherwise the standard Perl one. My comments are in
romanian, sorry. If anybody is interested and has a problem with this
I'll translate them to english, but I believe everything should be
pretty clear like it is.
(The local path must be also provided as an argument.)
Regards
V. Simionescu
(my $localpath = undef, my $vsim = undef);
for (my $k = 0; $k <= $#ARGV; $k++)
{
#print "arg. $k: $ARGV[$k]\n";
if ($ARGV[$k] =~ m"^ localpath=(.*) "xs)
{
$localpath = $1;
$localpath =~ s"(\\ | \s)+ $""xgsi; # sterg evt. \ finale
$ARGV[$k] = undef;
}
if ($ARGV[$k] =~ m"^ /vsim $"xs)
{
$vsim = 1;
$ARGV[$k] = undef;
}
}
use warnings;
use strict;
my $fileName = $localpath. "\\testSubstPerl.xml";
#print "file name: $fileName\n";
my $string = ReadFile ($fileName) or die "ReadFile failed for
$fileName";
if ($vsim)
{
Replace (\$string, '<p_Eintrag>', "<p_Eintrag_replaced>");
Output ($localpath. "\\testSubstPerl_result_vsim.xml", $string);
}
else
{
$string =~ s"<p_Eintrag>"<p_Eintrag_replaced>"xgs;
Output ($localpath. "\\testSubstPerl_result.xml", $string);
}
# --------------------------------------------------------------
sub ReadFile
{
my $fileName = $_[0];
my $enc = $_[1];
open my $inFile, $fileName or return;
if (defined $enc) {
binmode $inFile, $enc; }
$/ = undef;
my $rez = <$inFile>;
close $inFile;
return $rez;
}
sub Output
{
my $fileName = $_[0];
my $refContent = \$_[1];
my $enc = $_[2];
if ($fileName !~ m"^>"xs) {
$fileName = ">$fileName"; }
open my $outFile, $fileName or return;
if (defined $enc) {
binmode $outFile, $enc; }
print $outFile $$refContent;
close $outFile;
return 1;
}
# --------------------------------------------------------------
sub SplitByPattern
{
my $stringRef = \$_[0];
my $pattern = $_[1];
my $refPat = $_[2];
my $refRest = $_[3];
my @undefined;
@$refPat = @undefined;
@$refRest = @undefined;
my $posAnt = 0;
while ($$stringRef =~ m"($pattern)"xgs)
{
$$refPat[@$refPat] = $1;
$$refRest[@$refRest] = substr ($$stringRef, $posAnt,
pos ($$stringRef) - length ($1)
- $posAnt);
$posAnt = pos ($$stringRef);
}
$$refRest[@$refRest] = substr ($$stringRef, $posAnt, length ($
$stringRef) - $posAnt);
# ptr. a reduce memoria folosita, si ptr. a preveni ca
programatorul sa
# prelucreze in paralel si string-ul splituit (intre
SplitByPattern si
# PutBackTogether), ceea ce e clar ca nu e bine sa faca
$$stringRef = "<<golit de SplitByPattern>>";
}
sub PutBackTogether
{
my $stringRef = $_[0];
my $refPat = $_[1];
my $refRest = $_[2];
die unless int (@$refRest) == int (@$refPat) + 1;
my @result;
for (my $i = 0; $i < int (@$refPat); $i++)
{
$result[2 * $i + 1] = $$refPat[$i];
}
for (my $i = 0; $i < int (@$refRest); $i++)
{
$result[2 * $i] = $$refRest[$i];
}
$$stringRef = join ("", @result);
}
# --------------------------------------------------------------
# intoarce nr. de inlocuiri
# apel: $nrMatches = Replace (\$string, $searchString,
$replaceString);
#
sub Replace
{
my $argIndex = 0;
my $stringRef = $_[$argIndex++];
my $s = $_[$argIndex++];
my $r = $_[$argIndex++];
die unless defined $string;
die unless defined $s;
die unless defined $r;
(my @patterns, my @rest);
SplitByPattern ($$stringRef, $s, \@patterns, \@rest);
my $nrMatches = int (@patterns);
foreach my $p (@patterns)
{
$p = $r;
}
PutBackTogether ($stringRef, \@patterns, \@rest);
return $nrMatches;
}
# --------------------------------------------------------------
------------------------------
Date: Tue, 12 Jun 2007 20:27:46 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Unicode in regexp
Message-Id: <f4mvk2$2sr7$1@agate.berkeley.edu>
[A complimentary Cc of this posting was NOT [per weedlist] sent to
Brian McCauley
<nobull67@gmail.com>], who wrote in article <1179854183.844083.239390@k79g2000hse.googlegroups.com>:
> Perl has two types of string: Unicode strings and byte strings.
Perl has only one type of strings. Perl strings consist of
characters. Characters are small integers (for some value of "small");
[there is also some cultural baggage associated to the integers, which
influences some Perl operations, as in ucfirst()].
Is it too hard to understand?
Puzzled,
Ilya
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 510
**************************************
