[29798] in Perl-Users-Digest
Perl-Users Digest, Issue: 1041 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 19 18:10:10 2007
Date: Mon, 19 Nov 2007 15:09:30 -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 Mon, 19 Nov 2007 Volume: 11 Number: 1041
Today's topics:
Re: 100% cpu loop of time() ... <iler.ml@gmail.com>
Display the answer in HTML code because CGI-SCript coul <kwan.jingx@gmail.com>
Re: Display the answer in HTML code because CGI-SCript <jurgenex@hotmail.com>
Re: Display the answer in HTML code because CGI-SCript <wade@zaxfuuq.net>
Re: Display the answer in HTML code because CGI-SCript <stoupa@practisoft.cz>
Re: Display the answer in HTML code because CGI-SCript <kwan.jingx@gmail.com>
Re: Display the answer in HTML code because CGI-SCript <tadmc@seesig.invalid>
Re: Display the answer in HTML code because CGI-SCript <stoupa@practisoft.cz>
Re: Display the answer in HTML code because CGI-SCript <kwan.jingx@gmail.com>
Re: Distributed RVS, Darcs, tech love <toby@telegraphics.com.au>
Re: Does a value exist in an array <no_return@ignore.org>
Re: error in tkGlue.c when building Tk mariakvelasco@gmail.com
Fatal relocation errors mariakvelasco@gmail.com
Re: Grep Help <rvtol+news@isolution.nl>
how can u save ur money without tax..... <jayabarathi2007@gmail.com>
How to count the number of "a" occurencies in a string (Pete Sammet)
Re: How to count the number of "a" occurencies in a str <peter@makholm.net>
Re: How to count the number of "a" occurencies in a str <noreply@gunnar.cc>
Re: How to count the number of "a" occurencies in a str <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 18 Nov 2007 04:52:49 -0800 (PST)
From: Yakov <iler.ml@gmail.com>
Subject: Re: 100% cpu loop of time() ...
Message-Id: <6b987d41-2426-4bc7-8830-cc1a4c020b4d@y5g2000hsf.googlegroups.com>
On Nov 15, 7:06 pm, xhos...@gmail.com wrote:
> Yakov <iler...@gmail.com> wrote:
> > One perl daemon happens to go sometimes into 100% cpu state.
> > When I do strace or ltrace on it, I see infinite sequence of time()
> > calls,
> > and nothing in between.
>
> > But the source code, although has couple of calls to time(), nowhere
> > has possibility of infinite lop of time(). I wonder whether perl
> > interpreter can be doing this inside it, maybe restarting on signals
> > or something ?
>
> If it were restarting on signals, then the signal events should be evident
> in the strace along with the "time" calls.
>
> > The code is single-threaded. Wrt to signals, it either
> > ignores
> > signals, or dies on signals.
>
> Does it do any forking, either explicit or implicit (implicit meanings
> with back-ticks, system, piped open, etc.)
No. I will try to build debugging build of perl.
Yakov
------------------------------
Date: Sat, 17 Nov 2007 20:47:19 -0800 (PST)
From: kwan <kwan.jingx@gmail.com>
Subject: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <674f8fdf-8d47-4620-83a1-6f7425f63d57@w73g2000hsf.googlegroups.com>
Hello
I used perl to generate the questions and answers for quiz, it comes
with problem when users have a little skill with Html code, when they
view the html source, they could see the answer. I used CGI script to
generate the questions and answers.
Could you give me any advice to solve the problem? I think to change
to Java Applet.
------------------------------
Date: Sun, 18 Nov 2007 04:58:26 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <SDP%i.2679$Jy1.1884@trndny02>
kwan wrote:
> Hello
>
> I used perl to generate the questions and answers for quiz,
Would your question or the answer to it be any different if you were using
Basic or Fortran or C or Assembler to generate the questions or answers?
jue
------------------------------
Date: Sun, 18 Nov 2007 02:34:00 -0700
From: "Wade Ward" <wade@zaxfuuq.net>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <1195377993_1897@sp12lax.superfeed.net>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:SDP%i.2679$Jy1.1884@trndny02...
> kwan wrote:
>> Hello
>>
>> I used perl to generate the questions and answers for quiz,
>
> Would your question or the answer to it be any different if you were using
> Basic or Fortran or C or Assembler to generate the questions or answers?
Of course not, and my guess is that OP will bug out pronto. I wish the
abstraction would outlive his curiousity, but tja.
--
wade ward
wade@zaxfuuq.net
435 -838-7760
----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----
------------------------------
Date: Sun, 18 Nov 2007 15:36:30 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <fhpjb2$osu$1@ns.felk.cvut.cz>
kwan wrote:
> Hello
>
> I used perl to generate the questions and answers for quiz, it comes
> with problem when users have a little skill with Html code, when they
> view the html source, they could see the answer. I used CGI script to
> generate the questions and answers.
>
> Could you give me any advice to solve the problem? I think to change
> to Java Applet.
The advice is very simple - do not send answers in the same page as question
;-)
I assume you have questions and answers in database, so send the question,
question-id as hiddend field and few radiobuttons where the value is answer
ID in database.
User select soem answer and click on Submit.
In next page check answer ID in database and send result (Good or Bad) to
user.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Sun, 18 Nov 2007 11:48:20 -0800 (PST)
From: kwan <kwan.jingx@gmail.com>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <f6125451-0336-47cf-a8b8-8cb1e94d6b65@d50g2000hsf.googlegroups.com>
On Nov 18, 8:36 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> kwan wrote:
> > Hello
>
> > I used perl to generate the questions and answers for quiz, it comes
> > with problem when users have a little skill with Html code, when they
> > view the html source, they could see the answer. I used CGI script to
> > generate the questions and answers.
>
> > Could you give me any advice to solve the problem? I think to change
> > to Java Applet.
>
> The advice is very simple - do not send answers in the same page as question
> ;-)
> I assume you have questions and answers in database, so send the question,
> question-id as hiddend field and few radiobuttons where the value is answer
> ID in database.
> User select soem answer and click on Submit.
> In next page check answer ID in database and send result (Good or Bad) to
> user.
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)
I do not want to send the questions and answer into the html code, but
it is seem to be impossible to do that under Perl cgi,
------------------------------
Date: Sun, 18 Nov 2007 14:26:56 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <slrnfk180g.q6k.tadmc@tadmc30.sbcglobal.net>
kwan <kwan.jingx@gmail.com> wrote:
> On Nov 18, 8:36 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>> The advice is very simple - do not send answers in the same page as question
^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^
>> ;-)
>> I assume you have questions and answers in database, so send the question,
>> question-id as hiddend field and few radiobuttons where the value is answer
>> ID in database.
>> User select soem answer and click on Submit.
>> In next page check answer ID in database and send result (Good or Bad) to
^^^^^^^^^^^^
^^^^^^^^^^^^
>> user.
>
> I do not want to send the questions and answer into the html code, but
> it is seem to be impossible to do that under Perl cgi,
That is a pretty strange thing to say in reply to a message
that outlines how it *is* possible using CGI (whether written
in Perl or in any other language).
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 19 Nov 2007 04:20:32 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <fhqvn0$1f5g$2@ns.felk.cvut.cz>
Tad McClellan wrote:
> kwan <kwan.jingx@gmail.com> wrote:
>> On Nov 18, 8:36 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>
>
>>> The advice is very simple - do not send answers in the same page as
>>> question
> ^^^^^^^^^^^^^^^^
> ^^^^^^^^^^^^^^^^
>>> ;-)
>>> I assume you have questions and answers in database, so send the
>>> question, question-id as hiddend field and few radiobuttons where
>>> the value is answer ID in database.
>>> User select soem answer and click on Submit.
>>> In next page check answer ID in database and send result (Good or
>>> Bad) to
> ^^^^^^^^^^^^
> ^^^^^^^^^^^^
>>> user.
>
>>
>> I do not want to send the questions and answer into the html code,
>> but it is seem to be impossible to do that under Perl cgi,
>
>
> That is a pretty strange thing to say in reply to a message
> that outlines how it *is* possible using CGI (whether written
> in Perl or in any other language).
Maybe my english is too bad to explain my think ;-) I try to explaim my idea
again.
I have database where I have stored
1) question id
2) question text
3) some andswer texts, say 3
4) field where is number of right answer
An example of this table row:
qid | qtext | answ1 | answ2
| answ3 | good
-------------------------------------------------------------------------------------------
1 | What is Perl | Programming language | Food | Animal | 1
2 | Who is Petr | The idiot | Programmer | E.T.
| 2
In first step I send to browser qid as hidden field, qtext and 3
radiobuttons with answ1 ... answ3 texts and values from 1 to 3.
User select some radiobutton and click on Submit.
At this time I can send form and show another page with result, or I can use
Ajax to show result immediately.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Mon, 19 Nov 2007 08:21:14 -0800 (PST)
From: kwan <kwan.jingx@gmail.com>
Subject: Re: Display the answer in HTML code because CGI-SCript could not hide
Message-Id: <9db08e9b-e4a0-40a9-ba0a-5e68512468e1@d61g2000hsa.googlegroups.com>
On Nov 18, 10:20 pm, "Petr Vileta" <sto...@practisoft.cz> wrote:
> Tad McClellan wrote:
> > kwan <kwan.ji...@gmail.com> wrote:
> >> On Nov 18, 8:36 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>
> >>> The advice is very simple - do not send answers in the same page as
> >>> question
> > ^^^^^^^^^^^^^^^^
> > ^^^^^^^^^^^^^^^^
> >>> ;-)
> >>> I assume you have questions and answers in database, so send the
> >>> question, question-id as hiddend field and few radiobuttons where
> >>> the value is answer ID in database.
> >>> User select soem answer and click on Submit.
> >>> In next page check answer ID in database and send result (Good or
> >>> Bad) to
> > ^^^^^^^^^^^^
> > ^^^^^^^^^^^^
> >>> user.
>
> >> I do not want to send the questions and answer into the html code,
> >> but it is seem to be impossible to do that under Perl cgi,
>
> > That is a pretty strange thing to say in reply to a message
> > that outlines how it *is* possible using CGI (whether written
> > in Perl or in any other language).
>
> Maybe my english is too bad to explain my think ;-) I try to explaim my idea
> again.
>
> I have database where I have stored
> 1) question id
> 2) question text
> 3) some andswer texts, say 3
> 4) field where is number of right answer
>
> An example of this table row:
>
> qid | qtext | answ1 | answ2
> | answ3 | good
> -------------------------------------------------------------------------------------------
> 1 | What is Perl | Programming language | Food | Animal | 1
> 2 | Who is Petr | The idiot | Programmer | E.T.
> | 2
>
> In first step I send to browser qid as hidden field, qtext and 3
> radiobuttons with answ1 ... answ3 texts and values from 1 to 3.
> User select some radiobutton and click on Submit.
> At this time I can send form and show another page with result, or I can use
> Ajax to show result immediately.
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)
It is possible to send the questions and answers to the browser, and
the users have to choose the answer in each question, then the answers
have to compare to the correct answer in the database.
I still consider not secure, because the users could copy the
questions and answers in the html code form that easy accessable via
the view source code; furthermore,by storing the questions and answers
which users could access, it is possible for bad guys who can write a
program to copy all the questions and answer while taking the exam.
------------------------------
Date: Sun, 18 Nov 2007 03:12:52 -0800 (PST)
From: toby <toby@telegraphics.com.au>
Subject: Re: Distributed RVS, Darcs, tech love
Message-Id: <e8b6306d-37a8-4f1a-b17c-0af8c253bcec@w73g2000hsf.googlegroups.com>
On Oct 20, 1:28 am, Xah Lee <x...@xahlee.org> wrote:
> ...
> Who the fuck is this [KOOK], who proclaims that he's
> no [EXPERT ON FOO], then proceed to tell us he dosen't fucking care
> about [FOO]? Then, he went on about HIS personal fucking zeal for
> [BAR], in particular injecting the highly quacky [STUFF]
> with impunity.
Sounds like your run-of-the-mill Usenet kook. Feeling the strain of
competition?
>
> Xah
> x...@xahlee.org
> $B-t(Bhttp://xahlee.org/
------------------------------
Date: Mon, 19 Nov 2007 01:52:24 GMT
From: Joe <no_return@ignore.org>
Subject: Re: Does a value exist in an array
Message-Id: <onq1k3pst11qmo0to0hd663hmbqchleoo4@4ax.com>
On Tue, 13 Nov 2007 20:05:09 -0600, "M" <no@spam.tonsjunkmail.com>
wrote:
>I am pushing values to an array like so.
>
>push @suspend_list, $account;
>
>But before I push it to the array I would like to know if it exists already
>in the array and if so not push it. From reading a few of my books I have
>tried this.
>
>if ( ! (exists($suspend_list{$account}))) {
>
> push @suspend_list, $account;
> }
>
>It does not work. Any advice?
>
>M
>
I personally use a keys of a hash instead of an array b/c i can use
the "exists" function/option/tool..
Mostly for reading in files..
############
my $line; my %hash;
while($line = <FH>)
{
if(exists $hash{$line})
{ print "LINE: \"$line\" exists in HASH\n"; }
else { $hash{$line) = ""; }
} #EO WHILE LINE
my $key;
foreach $key (keys %hash)
{ print "UNQ HASH KEY: \"$key\"\n"; }
##########
Or translate "while($line = <FH>)" for an array..
"foreach $key (@array)".. works the same.
Joe
------------------------------
Date: Mon, 19 Nov 2007 14:14:43 -0800 (PST)
From: mariakvelasco@gmail.com
Subject: Re: error in tkGlue.c when building Tk
Message-Id: <e657ad4b-4b79-47f6-bd20-78bea3519f7b@i12g2000prf.googlegroups.com>
On Nov 15, 12:13 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> [quoting re-arranged somewhat for clarity]
>
> Quoth mariakvela...@gmail.com:
>
>
>
>
>
> > On Nov 15, 7:26 am, mariakvela...@gmail.com wrote:
> > > On Nov 13, 3:52 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> > > > Quoth mariakvela...@gmail.com:
>
> > > > > We are trying to install Tk-804.027_501 on Solaris 10 using Perl
> > > > > version 5.8.4. We were able to create the makefile through the command
> > > > > perl Makefile.PL; however, when running make, we are getting errors
> > > > > regarding the file tkGlue.c
>
> > > > > tkGlue.c: In function `do_comp':
> > > > > tkGlue.c:5250: warning: passing arg 1 of `Perl_pregcomp' from
> > > > > incompatible pointer type
> > > > > tkGlue.c:5250: warning: passing arg 2 of `Perl_pregcomp' makes pointer
> > > > > from integer without a cast
> > > > > tkGlue.c:5250: too few arguments to function `Perl_pregcomp'
>
> > > > This is typically the result of an ithreads/no-ithreads mismatch. Do you
> > > > have some other version of perl whose headers are being picked up by
> > > > accident? Is your perl built for threads (or rather, for multiplicity;
> > > > check with perl -V:useithreads -V:usemultiplicity).
>
> > 1.) After typing the command perl -V:useithreads -V:usemultiplicity
>
> > root % perl -V:useithreads -V:usemultiplicity
> > useithreads='undef';
> > usemultiplicity='undef';
>
> > Does this mean the perl was built for neither threads or multiplicity?
>
> Yup. Looking further at tkGlue.c suggests that this is not a
> multiplicity problem, but the same as the problem below: Tk's configure
> process thinks, for some reason, that you are running some version of
> perl 5.9. As with the regex flags, the prototype of Perl_pregcomp has
> changed in bleadperl: it now only takes two arguments, as opposed to the
> three it took in 5.8.x.
>
>
>
>
>
> > > > > tkGlue.c: In function `Tcl_GetRegExpFromObj':
> > > > > tkGlue.c:5319: `RXf_UTF8' undeclared (first use in this function)
> > > > > tkGlue.c:5319: (Each undeclared identifier is reported only once
> > > > > tkGlue.c:5319: for each function it appears in.)
> > > > > tkGlue.c:5319: `RXf_PMf_FOLD' undeclared (first use in this function)
>
> > > > RXf_* are new in bleadperl, they aren't present in any version of 5.8.
> > > > Do you have 5.9.* or perl-current installed anywhere? Does your
> > > > pTk/tkConfig.h contain the line
>
> > > > #define HAS_PMOP_EXTRA_FLAGS 1
>
> > > > ? What happens if you run
>
> > > > perl -I. -MConfig -MTk::MMtry -e'
> > > > $Tk::MMtry::VERBOSE = 1;
> > > > try_compile("config/pmop.c", ["-I$Config{archlibexp}/CORE"])
> > > > or die "try_compile failed: $?";'
>
> > > > (all on one line, of course)? What does perl -V:archlibexp print? Is
> > > > that correct (it should be the path to your arch-specific perl core lib
> > > > directory, something like /usr/lib/perl5/5.8.4/sun4-solaris)?
>
> > 2.) It looks as if we have the following versions of Perl installed:
> > 5.6.1, 5.8.3, 5.8.4, but not 5.9.*
>
> > 3.) The file pTk/tkConfig.h does not contain the line #define
> > HAS_PMOP_EXTRA_FLAGS 1
>
> Ok... that's weird. tkGlue.c doesn't attempt to use RXf_* unless
> HAS_PMOP_EXTRA_FLAGS is defined. Are you able to find out where tkGlue.c
> is including pTk/tkConfig.h from? With some compilers if you run the
> file through the preprocessor (with all the correct arguments, of
> course) it includes #line markers with the full path of the include
> file. Maybe there's another copy somewhere it's finding by mistake...
> I'm somewhat grasping at straws here.
>
> > 4.) After running the following
>
> > usir-solaris:root % perl -I. -MConfig -MTk::MMtry -e'
> > $Tk::MMtry::VERBOSE = 1; try_compile("config/pmop.c", ["-I
> > $Config{archlibexp}/CORE"]) or die "try_compile failed: $?";'
>
> > This is the result we get:
>
> > Can't locate Tk/MMtry.pm in @INC (@INC contains: . /usr/perl5/5.8.4/
>
> Sorry, I was unclear: I meant you to run that from in the Tk build
> directory. Tk::MMtry is included in the Tk distribution. Since
> tkConfig.h *didn't* define HAS_PMOP_EXTRA_FLAGS I'd expect it to fail.
>
> > lib/sun4-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/
> > sun4-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl/
> > 5.8.4/sun4-solaris-64int /usr/perl5/5.8.4/lib/sun4-solaris-64int /usr/
> > perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/sun4-solaris-64int /usr/
> > perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/
> > 5.8.4/sun4-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/
> > vendor_perl .).
>
> Again, rather grasping at things here, but there isn't anything weird in
> /usr/perl5/{site,vendor}_perl is there? Like a previous installation of
> Tk? :)
>
> > BEGIN failed--compilation aborted.
>
> > 5.) After running the command perl -V:archlibexp we get the following:
>
> > root % perl -V:archlibexp
> > archlibexp='/usr/perl5/5.8.4/lib/sun4-solaris-64int';
>
> That looks correct.
>
> > Can anyone see the cause of our problem from the information
> > provided? Thanks so much for the help.
>
> No, sorry, I can't see any good reason why this is going wrong. At this
> point I would recommend starting again with a fresh copy of the Tk
> distribution, having made *really* sure you haven't got anything odd set
> in your environment (PERL5LIB, PERL_MM_OPT, anything that might affect
> where your preprocessor searches for include files), and if that fails
> report a bug at rt.cpan.org.
>
> Ben- Hide quoted text -
>
> - Show quoted text -- Hide quoted text -
>
> - Show quoted text -
Hi Ben,
Thanks for the help you provided. We decided to delete the old Tk
directory and start fresh, so after deleting Tk, we re-installed
Tk-804.027 and we were able to succeed with installation.
We believe that Tk-804.027_501 may not be compatible with Solaris 10
due to all the issues we were getting.
Thanks again so much for all your help.
------------------------------
Date: Mon, 19 Nov 2007 14:27:31 -0800 (PST)
From: mariakvelasco@gmail.com
Subject: Fatal relocation errors
Message-Id: <e0371976-44d6-495f-b408-ce6ec88b8cd5@s12g2000prg.googlegroups.com>
Hello all,
We have built a couple of executable using the Perl2Exe program and
when we attemp to run the exes from the command line, we are getting
the following errors:
Error from 1st exe
% sc_config
Can't load '/tmp/p2xtmp-16591/Event.so' for module Tk::Event: ld.so.1:
sc_config: fatal: relocation error: file /tmp/p2xtmp-16591/Event.so:
symbol PL_stack_max: referenced symbol not found at PERL2EXE_STORAGE/
DynaLoader.pm line 230.
at PERL2EXE_STORAGE/Tk.pm line 13
Compilation failed in require at PERL2EXE_STORAGE/Tk.pm line 13.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/Tk.pm line 13.
Compilation failed in require at PERL2EXE_STORAGE/
ServerConfigDialog.pm line 11.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/
ServerConfigDialog.pm line 11.
Compilation failed in require at /vol/tools6/clearcase/SYNERGY/
sol_output/sc_config line 24.
BEGIN failed--compilation aborted at /vol/tools6/clearcase/SYNERGY/
sol_output/sc_config line 24.
Undefined subroutine &Tk::Event::CleanupGlue called at
PERL2EXE_STORAGE/Tk/Event.pm line 3.
END failed--call queue aborted at /vol/tools6/clearcase/SYNERGY/
sol_output/sc_config line 24.
Error from 2nd exe
% sc_trigger
Can't load '/vol/tools6/clearcase/SYNERGY/sol_output/Blowfish.so' for
module Crypt::Blowfish: ld.so.1: sc_trigger: fatal: relocation error:
file /vol/tools6/clearcase/SYNERGY/sol_output/Blowfish.so: symbol
PL_tainted: referenced symbol not found at PERL2EXE_STORAGE/
DynaLoader.pm line 230.
at PERL2EXE_STORAGE/Crypt/Simple.pm line 104
Compilation failed in require at PERL2EXE_STORAGE/Crypt/Simple.pm line
104.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/Crypt/Simple.pm
line 104.
Compilation failed in require at PERL2EXE_STORAGE/Synergy/
LoginManager.pm line 12.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/Synergy/
LoginManager.pm line 12.
Compilation failed in require at PERL2EXE_STORAGE/Integration.pm line
15.
BEGIN failed--compilation aborted at PERL2EXE_STORAGE/Integration.pm
line 15.
Compilation failed in require at /vol/tools6/clearcase/SYNERGY/
sol_output/sc_trigger line 21.
BEGIN failed--compilation aborted at /vol/tools6/clearcase/SYNERGY/
sol_output/sc_trigger line 21.
We are running the exes in Solaris 10 with Perl version 5.8.4.
If anyone out there has any clue as to the cause of these errors, we
could really appreciate the help.
Thanks!
------------------------------
Date: Mon, 19 Nov 2007 13:06:23 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Grep Help
Message-Id: <fhs1pp.1fs.1@news.isolution.nl>
M schreef:
> if (grep /^X-Spam-Flag: YES/, @data)
Actually a pity that Perl doesn't have boolean context, which could make
that grep to short circuit.
See also List::Util::first().
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 18 Nov 2007 21:05:52 -0800 (PST)
From: Barathi <jayabarathi2007@gmail.com>
Subject: how can u save ur money without tax.....
Message-Id: <838498eb-4a7c-471b-978e-77d127728178@s36g2000prg.googlegroups.com>
detail about the bankand new mutualfund plan ......link
http://www.geocities.com/bakngin/
http://indianfriendfinder.com/go/g910343-pmem
------------------------------
Date: 19 Nov 2007 08:38:07 GMT
From: petesammet@mail.org (Pete Sammet)
Subject: How to count the number of "a" occurencies in a string ?
Message-Id: <47414b6f$0$4362$9b4e6d93@newsspool4.arcor-online.net>
Sorry for this newbie question:
Is there a function in Perl for counting the number of e.g. "a" in a String ?
For example:
$num = countchars("abbbabbbaba", 'a');
should yield 4. Unfortunately the function "countchars" does not exist.
is there another one-liner function ?
Another realted but more advanced question:
Is there a counter function for counting INDEPENDENT "a" in a String?
In this case concatenated "a" should be counted as 1. e.g.
$num = countcharschains("aammmammaaaaam", 'a');
Should yield 3
Pete
------------------------------
Date: Mon, 19 Nov 2007 08:58:05 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: How to count the number of "a" occurencies in a string ?
Message-Id: <87ejemobmq.fsf@hacking.dk>
petesammet@mail.org (Pete Sammet) writes:
> $num = countchars("abbbabbbaba", 'a');
>
> should yield 4. Unfortunately the function "countchars" does not exist.
Yes it does, it is called tr///
makholm@makholm:/tmp$ perl -le '$foo = "abbbabbbaba"; print ($foo =~ y/a//); print $foo'
4
abbbabbbaba
makholm@makholm:/tmp$
> Is there a counter function for counting INDEPENDENT "a" in a String?
> In this case concatenated "a" should be counted as 1. e.g.
>
> $num = countcharschains("aammmammaaaaam", 'a');
>
> Should yield 3
scalar( ()= "aammmammaaaaam" =~ m/a+/g );
//Makholm
------------------------------
Date: Mon, 19 Nov 2007 09:58:09 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to count the number of "a" occurencies in a string ?
Message-Id: <5qd1h2Fvc079U1@mid.individual.net>
Pete Sammet wrote:
> Is there a function in Perl for counting the number of e.g. "a" in a String ?
>
> For example:
>
> $num = countchars("abbbabbbaba", 'a');
>
> should yield 4. Unfortunately the function "countchars" does not exist.
>
> is there another one-liner function ?
No, but there is an applicable FAQ entry.
perldoc -q count.+string
> Another realted but more advanced question:
> Is there a counter function for counting INDEPENDENT "a" in a String?
> In this case concatenated "a" should be counted as 1. e.g.
>
> $num = countcharschains("aammmammaaaaam", 'a');
>
> Should yield 3
Same FAQ.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 19 Nov 2007 09:08:19 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to count the number of "a" occurencies in a string ?
Message-Id: <7oc0j.1048$281.722@trndny06>
Pete Sammet wrote:
> Is there a function in Perl for counting the number of e.g. "a" in a
> String ?
> $num = countchars("abbbabbbaba", 'a');
> should yield 4. Unfortunately the function "countchars" does not
> exist.
perldoc -f tr
tr/SEARCHLIST/REPLACEMENTLIST/cds
Transliterates all occurrences of the characters found in the
search list with the corresponding character in the replacement
list. It RETURNS THE NUMBER OF CHARACTERS REPLACED OR DELETED.
my $foo = "abbbabbbaba";
print ($foo =~ tr/a/a/);
> Another realted but more advanced question:
> Is there a counter function for counting INDEPENDENT "a" in a String?
> In this case concatenated "a" should be counted as 1. e.g.
>
> $num = countcharschains("aammmammaaaaam", 'a');
>
> Should yield 3
perldoc -f s:
s/PATTERN/REPLACEMENT/egimosx
Searches a string for a pattern, and if found, replaces that
pattern with the replacement text AND RETURNS THE NUMBER OF
SUBSTITUTIONS MADE.
jue
------------------------------
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 1041
***************************************
