Hi ,
Here is the my script which fetch the data from oracle
while ( ($data=$sth->fetchrow ) {
print $data;
}
since it is a huge data around ( 650 kb ) , this gives out of memory error.
Anyone knows how to solve this issue
Thanks in advance
-Paresh.
--
To unsubscribe, e-mail: [EMAIL PRO
Hi ,
I have perl script to fetch CLOB data from oracle table
Table structure is
ID number ( 5)
long_field clob
Perl code :
#!/usr/local/bin/perl5
use DBI qw(:sql_types);
$dbh= DBI->connect ( . );
$dbh->{LongReadLen}=512*1024;
$sql="select * from table";
$sth = $dbh->prep
I just ran your code on my machine and it worked for me.
check the write permission on parent directory of Abs
if still not work then use
system("/usr/bin/rm -rf Abs");
-Paresh.
At 03:54 PM 5/3/2002 -0500, Aman Raheja wrote:
>I have a directory "Abs" with a file "abc" in it.
>I am using rmtree t
Try this
print NEW_FILE "$C'$A'$B";
-Paresh.
At 08:01 PM 4/8/2002 +0100, Ho, Tony wrote:
>Hi guys
>I was wondering if you could help me.
>In my perl code, I am reading a file with the following line:
>
>123000
>
>There are 3 spaces before 123000.
>I unpack the values into 2 variables, A an
To convert # of seconds to # of days.
At 05:19 PM 3/11/2002 -0500, Nikola Janceski wrote:
>You forgot to comment why you are dividing by 86400. (I learned the hard
>way, and still can't figure out how some of my old uncommented code works.)
>
>-Original Message-
>From: Hanson, Robert [mai
I would suggest "Learning Perl by O'Reilly"
-Paresh.
At 04:28 PM 2/22/2002 -0800, Anidil Rajendran-Raj wrote:
>Hi team,
>
>I am unix admin trying to learn perl. How is the book "LEARNING PERL BY
>EXAMPLE" by Ellie Quigley
>regs
>
>
>
>Anidil Rajendran (raj)
>Netliant,Inc
>3600,Brigde Parkway Suit
if ( $user eq "$owner_of_page")
do something;
At 07:48 AM 2/21/2002 -0800, Bhanu Prakash wrote:
>Hi Perl Gurus
>
>Is there a way to compare the values in perl?
>something like..
>
>my $user = remote_user()
>if ($user == $owner_of_page ) {
>do_something
>} else {
>do_something_else
>}
>Thanks
>B
What you are doing is correct.
-paresh.
At 10:20 AM 2/21/2002 +1030, Daniel Falkenberg wrote:
>Hey all,
>
>I am working with a variable at the moment where I want it to be split
>at every 'space' such as ...
>
>$string = "the quick brown fox";
>
>How would I go about doing this? Would I do somet
system( "cat myfile");
or
qx( cp file1 file2);
At 03:16 PM 2/20/2002 -0800, John W. Krahn wrote:
>Tony Ho wrote:
> >
> > Hi guys
>
>Hello,
>
> > I was wondering if anyone knows how to execute Unix commands in a Perl
> > Script ?
>
>
>use Shell;
>
>my $ps = ps( 'ax' );
>print $ps;
>
>my @ls = ls
