want to get the count of rows of a table from oracle database using perl script

Hi All I want to get the count of rows in paticular table of the oracle database. Should i write an sql script to conect to database? if so how didi retun the value to the perl script. please can anybody help me thank you pri __ Do You Yahoo!?

Re: Term::ReadKey substitute for perl v5.8.0

On Wed, 8 Dec 2004 16:06:49 -0600, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Okay, I'm seeing mixed info on whether or not Term::ReadKey works > properly with perl 5.8.0. So, maybe I'll just throw out some code, and > see if others can get it to work. > > I'm trying to wrap the ReadKey call

Re: Variables and MySQL

Dave Kettmann wrote: Hi List, Hello, I have a script that takes input ( Formatted: +1## ). What it does with the input is read thru a database table and try to find a match. Here is an example to help clarify this: +--+--+ | alias

Re: Should be a simple substitution?

> It's on the right hand-side of the regex, however. Look at the output: > > C:\src\perl>perl -pe"s<{([^}]+)}><(?:@{[ ($a = $1) =~ y/,/|/ && $a ]})>" > blargh{a,b,c}blargh > blargh(?:a|b|c)blargh > > The OP didn't want the ?: in there So it is! I'm usually a fan of one-liners, but I think t

RE: Term::ReadKey substitute for perl v5.8.0

Okay, I'm seeing mixed info on whether or not Term::ReadKey works properly with perl 5.8.0. So, maybe I'll just throw out some code, and see if others can get it to work. I'm trying to wrap the ReadKey call in an infinite loop, but it breaks as soon as I add the loop. Take away the loop, or conv

Re: I am looking for a free perl compiler.

Jonathan Paton wrote: I think it's *HIGHLY* ironic that the original poster is looking for a solution that allows him to close off his code, but demands that it be a freely distributable solution to his problem. My first reaction is: If you want to lock the door on your code (and I think that is

Re: I am looking for a free perl compiler.

> On Wed, 8 Dec 2004 15:26:58 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wro > te: > > On Wed, 8 Dec 2004, Octavian Rasnita wrote: > > > > > So the conclusion is that perl code cannot be really hidden (for > > > comercial purposes)? > > > > For any purposes, yes, code cannot be hidden. > > It

Re: Help with cookies

> Moon, John wrote: > > Does anyone know if I should be able to write a cookie like : > > > > [ snip complex data structure ] > > You can do this if you serialize the complex structure into a scalar and > then deserialize it when you read the cookie back. > > For an example of how to do this se

Re: I am looking for a free perl compiler.

Lawrence Statton wrote: So the conclusion is that perl code cannot be really hidden (for comercial purposes)? A license is equal to zero in some countries... so that's not a solution. Well - never say, "Never" ... I think the output from perlcc is pretty inscrutable for any but the most dedicated a

Re: I am looking for a free perl compiler.

On Wed, 8 Dec 2004 15:26:58 -0500 (EST), Chris Devers <[EMAIL PROTECTED]> wrote: > On Wed, 8 Dec 2004, Octavian Rasnita wrote: > > > So the conclusion is that perl code cannot be really hidden (for > > comercial purposes)? > > For any purposes, yes, code cannot be hidden. It can be hidden, but i

Re: I am looking for a free perl compiler.

> So the conclusion is that perl code cannot be really hidden (for comercial > purposes)? > A license is equal to zero in some countries... so that's not a solution. > Well - never say, "Never" ... I think the output from perlcc is pretty inscrutable for any but the most dedicated attacker, and a

RE: Help with cookies

Moon, John wrote: > Does anyone know if I should be able to write a cookie like : > [ snip complex data structure ] You can do this if you serialize the complex structure into a scalar and then deserialize it when you read the cookie back. For an example of how to do this see the module Apache:

Re: I am looking for a free perl compiler.

On Wed, 8 Dec 2004, Xun Yu wrote: > I am going to compile a perl script to binary on linux That was worth mentioning up front! :-) > I tried perlcc, I doesn't always works well. No, it doesn't. > I tried the same script with perlapp from PDK-Pro-6.0 from > ActiveState? It works. > > The pr

Re: Help with cookies

> Does anyone know if I should be able to write a cookie like : > > > $secure{USER}=$user->{USER_ID}; > $secure{LEVEL}=$REQUEST{LEVEL}; > %{$secure{USER_CATEGORIES}}=%USER_CATEGORIES; > %{$secure{USER_ACCOUNTS}}=%USER_ACCOUNTS; > @[EMAIL PROTECTED]; > my $my_cookie = $q->cookie(-name=>'TechDirec

Re: I am looking for a free perl compiler.

On Wed, 8 Dec 2004, Octavian Rasnita wrote: > So the conclusion is that perl code cannot be really hidden (for > comercial purposes)? For any purposes, yes, code cannot be hidden. More broadly, for any interpreted language -- Perl, Python, Tcl, even ones like Java and Visual Basic -- it's fair

Re: I am looking for a free perl compiler.

So the conclusion is that perl code cannot be really hidden (for comercial purposes)? A license is equal to zero in some countries... so that's not a solution. Teddy - Original Message - From: "Jonathan Paton" <[EMAIL PROTECTED]> To: "Chris Devers" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]

RE: Help with cookies

Dear John, It is likely that you cannot store complex datastructures in cookies. (at least how the CGI module is currently written). You could try encoding the data to a string. Jonathan Paton [jwm] Thank you for the "Dear John" letter ;-)... I was afraid that may be the answer I got... but w

Re: Help with cookies

Dear John, It is likely that you cannot store complex datastructures in cookies. (at least how the CGI module is currently written). You could try encoding the data to a string. Jonathan Paton -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Term::ReadKey substitute for perl v5.8.0

In trying to use Term::ReadKey, I've come across information indicating that Term::ReadKey does not work properly with Perl v5.8.0. We are running 5.8.0 on numerous systems, and upgrading them is not a trivial thing, due to business reasons. So, I need to find an alternative to some ReadKey funct

Help with cookies

Does anyone know if I should be able to write a cookie like : $secure{USER}=$user->{USER_ID}; $secure{LEVEL}=$REQUEST{LEVEL}; %{$secure{USER_CATEGORIES}}=%USER_CATEGORIES; %{$secure{USER_ACCOUNTS}}=%USER_ACCOUNTS; @[EMAIL PROTECTED]; my $my_cookie = $q->cookie(-name=>'TechDirect', -value=>\%secu

Re: I am looking for a free perl compiler.

> *** Somewhat off-topic *** > * Obfuscators don't work well enough to bother with. If you can't have > people reading your code, don't use Perl, or better still, use Perl but > don't allow access to the machine where the program runs (e.g. put up a > web interface to a service under your contro

RE: Should be a simple substitution?

> > I think the ?: must be extraneous: > > That construct lets the regex engine know that it doesn't need to > worry about saving backreferences to the parenthesized group. It's on the right hand-side of the regex, however. Look at the output: C:\src\perl>perl -pe"s<{([^}]+)}><(?:@{[ ($a = $1) =

Re: Variables and MySQL

Aww, dangit --- I should have not used __TARGET__ as the replacement tag -- there is just too much room for confusion with reserved words like __PACKAGE__ or __LINE__ ... Everyone take out your erasers and change that to --TARGET-- please :) --L -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Should be a simple substitution?

> I think the ?: must be extraneous: That construct lets the regex engine know that it doesn't need to worry about saving backreferences to the parenthesized group. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Variables and MySQL

> Hi List, > > I have a script that takes input ( Formatted: +1## ). What it does wi > th the input is read thru a database table and try to find a match. Here is a > n example to help clarify this: > Here is the cleaned up version of what you're doing -- since I don't have your databas

RE: Should be a simple substitution?

> > $var =~ s<{([^}]+)}><(?:@{[ ($a = $1) =~ y/,/|/ && $a ]})>; > > > Does it not need the 'ge' at the end? > > I don't understand why you are creating an anonymous array > with a single > value, then dereferencing it... And what does the "?:" do? I think the ?: must be extraneous: C:\src

RE: Should be a simple substitution?

> And is this method any faster or more efficient than this? > > $var =~ s/\{([^}]+)\}/$v = $1; $v =~ s!,!|!g; qq!($v)!/ge; Why not find out yourself? C:\src\perl>type rebench.plx use strict; use Benchmark qw/cmpthese/; sub luke { my $var = 'blargh{a,b,c}'; my $v; $var =

Re: I am looking for a free perl compiler.

I am looking for a free perl compiler. My /usr/bin/perl was free :) I suspect he wants something for Windows. By "compiler", I further suspect that he wants something that will generate .exe files that can be run without a perl.exe on the system. If the usual line of thinking for this questio

Re: array statistic (different)

Charles K. Clarkson [CKC], on Wednesday, December 8, 2004 at 08:32 (-0600) thinks about: CKC> What is it representative of? What is the application? CKC> Will there be only didgits? What is the range of values CKC> available. It will be not digits, I give bad example, I should use some words.

Re: XML::RSS::Parser - ns_qualify failure

Bob, I have tried both lines: my $title = XML::RSS::Parser->ns_qualify('title',$feed->rss_namespace_uri); and my $title = $p->ns_qualify('title',$feed->rss_namespace_uri); I will try and make sure everything that is installed is up-to-date, then I will contact the author as my next step and the

RE: array statistic (different)

Ing. Branislav Gerzo <[EMAIL PROTECTED]> wrote: : I have: : : my @array = ( '1/2/1', : '1/2/2', : '1/4/2', : '2/1/1', : '2/1/1', : '3/1/1' ); What is it representative of? What is the application? Will there be only didgit

Variables and MySQL

Hi List, I have a script that takes input ( Formatted: +1## ). What it does with the input is read thru a database table and try to find a match. Here is an example to help clarify this: +--+--+ | alias| sendto

Re: I am looking for a free perl compiler.

On Wed, 8 Dec 2004 12:56:15 +0800, Xun Yu <[EMAIL PROTECTED]> wrote: The problem is I can only get a evaluate license for PDK-Pro-6.0, so what I am looking for is a compiler more powerfull than perlcc, and must be free. I don't know if this is really what you want, but you can try to look at CPAN

Re: array statistic (different)

Ing. Branislav Gerzo [IBG], on Wednesday, December 8, 2004 at 14:28 (+0100) wrote these comments: IBG> Ok, here is my solution, not the best one, because it return random IBG> value if max is not exactly defined (we ends with the same values for IBG> strings) ok, if anyone interested - I change i

Re: array statistic (different)

Ing. Branislav Gerzo [IBG], on Wednesday, December 8, 2004 at 13:03 (+0100) wrote: IBG> I think this is nice example for recursive function, do you agree ? I agree too :) IBG> Ok, I am code that, so I am looking for your suggestions, too :) Ok, here is my solution, not the best one, because it

RE: XML::RSS::Parser - ns_qualify failure

Craig Moynes wrote: > I installed XML::RSS:Parser from CPAN. > When I try to run a simple script I get (from the sample code): > Can't locate object method "ns_qualify" via package > "XML::RSS::Parser" at testrss3.pl line 11 (#1) > (F) You called a method correctly, and it correctly ind

array statistic (different)

Hello, I have one question - I know how to do this, but maybe someone shows me, how to do it better (for sure!). Ok, here we comes: I have: my @array = ( '1/2/1', '1/2/2', '1/4/2', '2/1/1', '2/1/1', '3/1/1' ); and now the tas

Re: find and replace all occurance of the string from a list of files

On Wed, 8 Dec 2004 15:22:39 +0530, Chandrakant Reddy <[EMAIL PROTECTED]> wrote: > Hi > >I want to replace all occurances of 'and' with '&' in all the given files In-place with backup in filename.bk: perl -pi'*.bk' -e 's/\band\b/&/g' filenames > Here the problem is the files are owned by

find and replace all occurance of the string from a list of files

Hi I want to replace all occurances of 'and' with '&' in all the given files inputfile.txt containts all the names of the files to process. i wrote a small shell script for this for i in `cat inputfile.txt` do cp $i ${i}.bk sed -e 's/ and / & /g' ${i}.bk

Re: ip4 check

[EMAIL PROTECTED] [D], on Tuesday, December 7, 2004 at 11:49 (-0500) thinks about: D> Did anyone have any ideas I only received one response! Thanks what was bad on my response ? Maybe you wanted whole code...here it is: use IO::Socket; my $ip = '192.168.1.1'; $ip_ok = inet_aton($ip) || di