You could use ODBC if you have the ODBC driver installed for oracle
(I'm just assuming that oracle has an ODBC driver.) You would need
the Win32::ODBC module, which you could get Win32::ODBC using ppm
from the ActiveState site.
*I* think a better way is to use DBI. You'll need DBD::Oracle and
D
Why do you need to go to the website for the source code when you can read it
on your local machine (unless you have not installed those modules ... in
which case I will shut up now)
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
>
> Well, I got it myself...
If you need to install the modules and want to know where to get it to install
it then you can always just use CPAN.
isnt LWP and CGI installedd by default for most distributions of perl?
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
>
> Well, I got it mysel
Hi,
I have dates that I get off an Oracle database and so come in the
format DD-MMM-YY (e.g 10-AUG-01) I would like to be able to do a
comparison that decides whether the date I get off the Oracle
database is more or less than 2 days ago.
I seem to be stumped on this one. Could anyone point
Use Date::Manip
>From the docs...
Among other things, Date::Manip allow you to:
1. Enter a date and be able to choose any format convenient
2. Compare two dates, entered in widely different formats to determine which
is earlier
3. Extract any information you want from ANY date using a form
If you have the modules installed:
1. do a perl -V and at the very bottom it should give you the path to your
perl library.
2. you can also use LWP and then look into %INC for the exact location:
%> perl -e 'use LWP; print map { "$_ => $INC{$_}\n" } sort keys %INC'
hth.
Sid.
-Original M
Windows NT 4.0 has 2 file compare utilities. COMP is a leftover from DOS,
but might be useful. FC is a little more flexible & has a couple more
features. Type COMP /? or FC /? from a Windows NT command line for details.
Microsoft Visual C++ 5.0 includes WINDIFF, which is does file compares with
a
Has anyone experience using this call? It works fine, but I get strange
delimiters in the text. How can I strip these out or print them as anything
other than a little box so I can work out what they are??
Thanks.
John Edwards
IT Support
Runecraft Leeds
Phone: 0113 2206317
Fax: 0113 2206301
Mob
> -Original Message-
> From: Carlin Anderson [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, August 28, 2001 2:24 PM
> To: [EMAIL PROTECTED]
> Subject: Oracle function- Error when attempting call. Please Help !
>
> ...
> $sth = $dbh->prepare("BEGIN :result = getpickableqty(:id) END;");
Hee
> -Original Message-
> From: Julian M Sawkins [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, August 28, 2001 1:42 PM
> To: [EMAIL PROTECTED]
> Subject: Accessing an oracle database with a DBI
>
>
> Is there a way that doesn't involve installing the oracle client?
> Can I use ODBC?
> If so,
I'm looking for some advice on better methods of validating a date from a
text string.
Currently, I am using Date::Manip like this: $RptDate = UnixDate($strDate,
"%m/%d/%y"). If this fails the value of $RptDate will be "". That's okay.
But, this also has the undesirable effect of dumping this mes
Edd,
One possibility is during the select statement:
select
sysdate
,trunc(sysdate) - 2
,to_date( '28-AUG-2001' ) - (trunc(sysdate) - 2)
,to_date( '27-AUG-2001' ) - (trunc(sysdate) - 2)
,to_date( '26-A
> -Original Message-
> From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 8:55 AM
> To: Perl Beginners
> Subject: Validate a date
>
>
> I'm looking for some advice on better methods of validating a
> date from a
> text string.
>
> Currently, I am using Dat
Thanks Bob.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 8:00 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Validate a date
> -Original Message-
> From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 8
My PERL program uses the File::Find routine to find files that match a
certain description, and then build a file that contains a list of these
filenames.
Later I pass that file with the list of filenames to an archive program,
invoked via the system function.
The File::Find puts the names in
I am trying to run a script from a program created in perlTk. When I hit
the RUN button, it runs this run_program function. It runs through the
process fine and prints out the Process complete line and then gives me
some weird messages:
Process complete
X Error of failed request: BadIDChoice (
> -Original Message-
> From: Rice, Elizabeth A. [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 29, 2001 10:03 AM
> To: '[EMAIL PROTECTED]'
> Subject: File names on NT
>
>
> My PERL program uses the File::Find routine to find files that match a
> certain description, and then build
Thanks Bill,
Now I'm really perplexed. In the dos shell I get 'Bad command or File name'. It
looks like the Path is set correctly in the autoexec.bat file & Xitami does
everything it is supposed to do. http://barna.dns2go.com
What I am trying to do first, is get a log viewer to work as Xitami kee
Ok. That gets me quite a bit further down the road. What I've done now is
the following that will run when the OS is NT:
# change forward slashes to backslashes for each line in file called filetab
open (FILETAB, "+<${filetab}") or die ("Cannot open $filetab for update
\n");
while () {
print
"Satish" <[EMAIL PROTECTED]> wrote:
> I am a beginner to perl.
> but i have woked in java.
> now i would like to know how to intergrate these two
Check out Inline::Java
http://search.cpan.org/search?dist=Inline-Java
-D
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-m
Hi,
I am stumped!
I need to see the value oa all my variables.
This is what I am doing:
name = "Jerry";
foreach $key ($query->param) {
undef $check;
$check = $1 if $key =~ "name";
if( $check ) {
print "name key *$key* check $1 *";
}
}
What am I doing wrong?
Than
On Aug 29, Jerry Preston said:
> name = "Jerry";
You mean
$name = "Jerry";
> foreach $key ($query->param) {
>undef $check;
>$check = $1 if $key =~ "name";
(I think) you mean
$check = $1 if $key =~ /($name)/;
>if( $check ) {
> print "name key *$key* check $1 *";
>
Jeff,
I want to print out the value of $name, Jerry.
Thanks,
Jerry
Jeff 'japhy/Marillion' Pinyan wrote:
>
> On Aug 29, Jerry Preston said:
>
> > name = "Jerry";
>
> You mean
>
> $name = "Jerry";
>
> > foreach $key ($query->param) {
> >undef $check;
> >$check = $1 if $key =~ "n
Hi,
Just trying to un-clutter some code. Following is the relevant part:
$ucscode is assigned a value via a split on : There could be white space
at the begging and end of the value. the value could be Upper case. The
end result should be no white space, all lower case. There may or may not
On Aug 29, Roger Morris said:
>chomp $ucscode;# remove line-feed
>$ucscode =~ s/^\s+|\s+$//g;# remove spaces
>$scode=lc($ucscode); # make lower case.
Do not try to do this with one line, or one variable. Specifically, the
"remove whitespace" regex should be done it
On Aug 29, Jeff 'japhy/Marillion' Pinyan said:
>You could do the remove whitespace regex all at once, and even include the
>lc() in there. I don't suggest it, though:
>
> ($scode = lc $ucscode) =~ s/\s*(\S*(?:\s+\S+)*)\s*/$1/;
And if you don't want to use $scode, and just want $ucscode, you co
I have the following array:
1 2 3
4 5 6
7 8 9
Is there a way to assign individual values of each array element (1 2 3
4 5 6 7 8 9) to seperate variables so that
$var1 = 1
$var2 = 2
.
.
.
$var9 = 9
Dean Paulson
Is there an easy way or some format option that allows one to display an
arbitrary number with commas:
12345678910 = 1,234,567,890
Or do I need to set up a looping structure to split the number and insert
commas???
Thanks,
Tom
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
On Wed, 29 Aug 2001 [EMAIL PROTECTED] wrote:
> Is there an easy way or some format option that allows one to display an
> arbitrary number with commas:
>
> 12345678910 = 1,234,567,890
>
> Or do I need to set up a looping structure to split the number and insert
> commas???
Here's the solution gi
On Wed, Aug 29, 2001 at 02:22:16PM -0500, Dean W. Paulson wrote:
>
> I have the following array:
>
> 1 2 3
> 4 5 6
> 7 8 9
That looks more like a matrix. What does your array really look like?
@array = (
'1 2 3',
'4 5 6',
'7 8 9',
);
OR
@array = (
Hi All,
I'm attempting to write a perl script, that will
read a file from a remote host. It must be done
through SSL. I was looking into the possibility
of using sockets (IO::Socket::INET), or some
such animal to accomplish this task.
First, is it possible to connect using
sockets to a SSL por
I have solved my ealier question.
Thanks to those who responded.
the problem was:
I have an input file which contains n rows with 3 items in each row:
1 2 3
a b c
4 5 6
The script output needs to take the items from each row and print them
as:
"v1=1, v2=2, v3=3"
"v1=a, v2=b, v3=c"
"v1=4, v2=5,
> I have solved my earlier question.
>
> Thanks to those who responded.
>
> the problem was:
> I have an input file which contains n rows with 3 items in each row:
> 1 2 3
> a b c
> 4 5 6
>
> The script output needs to take the items from each row and print them
> as:
> "v1=1, v2=2, v3=3"
> "v1
On Wed, 29 Aug 2001, Ken Hammer wrote:
> I'm attempting to write a perl script, that will
> read a file from a remote host. It must be done
> through SSL. I was looking into the possibility
> of using sockets (IO::Socket::INET), or some
> such animal to accomplish this task.
> First, is it poss
> "Elizabeth" == Elizabeth A Rice <[EMAIL PROTECTED]> writes:
Elizabeth> The File::Find puts the names into the $filetab with forward slashes. On
Elizabeth> NT, the archive program isn't prepared to handle filenames with forward
Elizabeth> slashes instead of backslashes, so says it cannot fi
Have been browsing the Camel book and others and I
think I'm a little confused regarding the concept of
passing array & hash references to subroutines.
As far as I understand (and please please correct me
if I'm wrong) you pass array and hash references to
subroutines so that you don't have multi
Dear All,
I have problem in opening the file and closing it in the below mentioned
script. Kindly help me to fix it.
Thanks in advance.
Thanks
Suresh A.
#!/usr/local/bin/perl -w
$shipdir="/databin/OUTGOING/SHIPMENT/bis/suresh";
$custdir="/uhome/cachet/temp/temp1/cust/";
$tloca="/databin/O
> sub foo {
>my @this_array = ( "one", "two", "three" );
>
>bar ( @this_array );
> }
>
> sub bar {
>my @that_array = @_;
> }
>
> So I'd pass a reference instead:
>
> sub foo {
>my @this_array = ( "one", "two", "three" );
>
>bar ( \@this_array );
> }
>
> sub bar {
>my
IN NT/WIN2K land -
What is the easiest way list out remote share directories AND their disk
space usage - similar to the du -s command in UNIX.
I have been looking at win32::? modules but nothing seems to fit - or is it
time to create a WSC? UGH!
For example I want to UNC path into a server sh
i have no clue why perl and java shud be integrated?
please enlighten all of us on that
thanks
neeraj
Satish wrote:
>I am a beginner to perl.
>but i have woked in java.
>now i would like to know how to intergrate these two
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comm
40 matches
Mail list logo
