RE: Perl script on a server using Win32::OLE

2012-10-03 Thread Jason Feng
Thanks. F: is the local drive on the server. Now I schedule the script to be run on a daily base instead of calling from my local machine. So far it is OK. Thanks anyway. Cheers, Jason > Date: Wed, 3 Oct 2012 19:34:45 +0200 > Subject: Re: Perl script on a server using Win32::OLE

Perl script on a server using Win32::OLE

2012-09-25 Thread Jason Feng
pen" at F:\Apps\Delta_rpt\pm_delta.pl line 320 === There is no such error if I use remote desktop to the server and run the script. I am wondering if Win32::OLE does not support the remote call? Any help is really appreciated! Thanks in advance. Best regards, Jason

(unintialized value in number lt (<) at) error

2011-08-02 Thread Jason Forget
Hello all, I am receive the unintialized value in number lt (<) at error when running the below perl script. The error is indicated on line 34. The challenge I face is that this script was written by one person; modified by another and I am tasked to fix it. I am a beginner to perl scripting. F

RE: MySQL database entry delta report

2010-10-23 Thread Jason Feng
rom: rvtol+use...@isolution.nl > Subject: Re: MySQL database entry delta report > > On 2010-10-18 05:42, Jason Feng wrote: > > > I am using > > Perl and MySQL to maintain a database of mobile network configuration about > > 30 > > tables and millions of ro

MySQL database entry delta report

2010-10-17 Thread Jason Feng
deleted, which row is added. It will be time-consuming if just comparing each row and column one by one of today's data and yesterday's data. Can anyone give me some good suggestions on this? Thanks in advance! Cheers, Jason

Re: unicode weirdness

2010-07-25 Thread Jason Lewis
You could also try playing with the Text::Unidecode module: http://search.cpan.org/~sburke/Text-Unidecode-0.04/lib/Text/Unidecode.pm Jason Lewis Email jasonlewi...@gmail.com Mobile 410.428.0253 AIM canweriotnow Facebookhttp://www.facebook.com/canweriotnow On

RE: parsing csv

2010-07-02 Thread Jason Feng
Hi there, If you know some SQL, I'd suggest you using DBI and DBD::CSV. Cheers, Jason > Date: Fri, 2 Jul 2010 18:47:22 +1000 > Subject: Re: parsing csv > From: rc...@pcug.org.au > To: sharan.basa...@gmail.com > CC: beginners@perl.org > > > > Folks, > &

RE: A problem while using XML::Parser::PerlSAX

2010-07-01 Thread Jason Feng
Thanks Greg for the good idea! I have been trying to keep a global array to keep the element. If the element in the character handling call, I append the section body. It is assuming that there are no the same element in two consecutive line in the XML file. Cheers, Jason Date: Thu, 1 Jul

RE: A problem while using XML::Parser::PerlSAX

2010-07-01 Thread Jason Feng
Thanks Jenda, But it is a bit frustrating that I can't expect when the multiple calls will happen. For the same repetetive element, most of the time one call. But suddenly multiple calls take place. Cheers, Jason > From: je...@krynicky.cz > To: beginners@perl.org > Date: Thu,

A problem while using XML::Parser::PerlSAX

2010-06-30 Thread Jason Feng
please give me any suggestion on how to get it fixed? Thanks in advance! Cheers,Jason _ New, Used, Demo, Dealer or Private? Find it at CarPoint.com.au http://clk.atdmt.com/NMN/go/206222968/direct

variable naming

2010-06-20 Thread Jason Lewis
Hey, this might be a stupid question... If I need to name a variable with the contents of another scalar, how do I do that? reference? thx, Jason Lewis Email jasonlewi...@gmail.com Mobile 410.428.0253 AIM canweriotnow Facebookhttp://www.facebook.com

RE: combinations

2008-10-06 Thread Jason Trebilcock
solved. Personally, I'm lazy (within reason). http://www.satisfice.com/tools.shtml Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

First perl program

2008-06-18 Thread Jason B
I'm really new to programming and this is my first perl prog. I'm looking for any advice or comments on this script. (I don't want to develop bad habits from the start) Thx. #!/usr/bin/perl #Name:circumf #Date:Jun19/08 #Author:Bornhoft, J #Purpose:to calculate the circumference of a circle pr

Re: Compare two different files.

2007-08-09 Thread Jason
I think I didn't post my question properly. The text file will be having different field values with alon with some headers. A java program will parse the file and create a java object with the same field values and headers, but the position and format may change. Now I want to check if the java p

Compare two different files.

2007-08-08 Thread Jason
HI, Can I compare the contents of two different files using perl? ex: one .txt and other javaobject -Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: string manip

2007-04-18 Thread Jason Roth
There are lots of ways you could accomplish this, my choice would be something like $ARGV[0] =~ s#^[^/]+/##; -Jason On 4/18/07, Nishi <[EMAIL PROTECTED]> wrote: Hi: I have a string of the form $ARGV[0]="abc/def/ghi"; I need to strip abc to convert $ARGV[0] to $ARGV[0]="

Re: Difference between $ and $$ in function defn

2007-04-11 Thread Jason Roth
This is the prototype for the subroutine. $$ indicates it takes two scalars as arguments, and $ indicates it takes one. -Jason On 4/11/07, Nath, Alok (STSD) <[EMAIL PROTECTED]> wrote: Hi, What is the difference between this two function defs ? When there is

Re: Can I map this

2007-04-04 Thread Jason Roth
my $str = join " ", map { ucfirst lc } @words; should do what your for loop is doing. -Jason On 4/4/07, Beginner <[EMAIL PROTECTED]> wrote: Hi All, I have a list of names all in uppercase that I would like to capitaIise. I can't help but think that map could make short

www::mechanize question

2007-03-30 Thread Jason Roth
disabled form fields? Thanks, Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: sending output to file and terminal

2007-03-28 Thread Jason Novinger
I've never used the Tee module, so I don't know. But IO::Handle seems to be a built-in module on most distros. Try taking the IO:Tee out and trying the code I sent. Let me know if that doesn't work, Jason On 3/29/07, lakshmi priya <[EMAIL PROTECTED]> wrote: Hi, T

Re: sending output to file and terminal

2007-03-28 Thread Jason Novinger
end to output until buffer is full, which # could really look like the script is just printing at random intervals OUTFILE->autoflush(1); # you can do the same thing with STDOUT STDOUT->autoflush(1); # close the output file close(OUTFILE); Jason -- To unsubscribe, e-mail: [EMAIL PRO

Re: help with the regular expression

2007-03-21 Thread Jason Roth
Hi Srini, you're going to want to add an s to the end of your regex, $str =~ /hello:\s0(.*)hello:\s1/s; This will cause the . in your regex to match newlines which it normally does not. -Jason On 3/22/07, Boga Srinivas <[EMAIL PROTECTED]> wrote: Hi, I am trying to capture the d

Re: Treating a split() as an array

2007-03-02 Thread Jason Roth
$piid = (split(/\t/, $row))[0] On 3/2/07, Shawn Milo <[EMAIL PROTECTED]> wrote: Considering the following: @temp = split(/\t/, $row); $piid = $temp[0]; Is it possible to cut this down to one line, similar to the following Python code? piid = row.split('\t')[0] Thank you, Shawn -- To unsubsc

Re: Can't use string as a subroutine ref while "strict refs"

2007-02-28 Thread Jason Roth
gin ); ... $fun->{$a}->(); -Jason On 2/28/07, Michael Gale <[EMAIL PROTECTED]> wrote: Hello, I am trying to do the following, do I need to remove the strict option for this to work or is there a better way ? --snip-- sub admin { my $term = shift; my $host = shi

Re: fishy conditional expression

2007-01-29 Thread Jason Roth
lement, the empty string. This then evaluates to true in the conditional statement. -Jason On 1/28/07, tom arnall <[EMAIL PROTECTED]> wrote: the following script: if (@f = `cat nonExistentFile` ) { print 1; } if (@f = `cat nonExistentFile` &&

Re: trouble with list context assignment for substitution inside File::Find &wanted function

2007-01-23 Thread Jason Roth
> Do you have a perl one-liner to rename all files into their > filenames with stripped "^\w+". No. Yes. /^\w+-/ and rename $_, $' for (glob "*") -Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Searching hash if a given value exists

2007-01-18 Thread Jason Roth
ke helpful suggestions without knowing anything more about the code :) On 1/18/07, Michael Alipio <[EMAIL PROTECTED]> wrote: - Original Message From: Jason Roth <[EMAIL PROTECTED]> To: Michael Alipio <[EMAIL PROTECTED]> Cc: begginers perl.org Sent: Friday, January 19,

Re: Searching hash if a given value exists

2007-01-18 Thread Jason Roth
number of elements in your hash. Hope this helps. -Jason On 1/18/07, Michael Alipio <[EMAIL PROTECTED]> wrote: Hi, Suppose I have a hash: my %hash = (dog => 'house', pig => 'barn', bird=> 'cage'); Now I want to know if there is already a key with a &#x

Re: any way to redirect output from a .pl script to a log file

2007-01-16 Thread Jason Roth
Hi Janeen, To redirect STDOUT and STDERR, simply open them for writing with whatever file name you want to log to. For example #!/usr/bin/perl print "I'm written to the consonle\n"; open STDOUT, '>', 'log.txt'; print "I'm written to a log file\n

Re: remove duplicate lines

2007-01-11 Thread Jason Roth
If we're just going for confusing concise one liners then I would use perl -ne '$$_||=print' You save three whole characters by using the symbol table instead of a hash :) On 1/11/07, Dr.Ruud <[EMAIL PROTECTED]> wrote: oryann9 schreef: > "Dr.Ruud" <[EMAIL PROTECTED]> wrote: beast schreef: >>

Numerical regex help

2007-01-05 Thread Jason Balicki
This should be a quickie, I hope: I'm parsing an array that contains things like Zap/1 Zap/2 Zap/3 ... etc. I'm only concerned with Zap/32 - Zap/47. Will this work: if (($zapdef eq "Zap/*") and ($zapdef eq "*[32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47]*")) { dostuff(); } and even

Hashes of Hashes

2006-12-29 Thread Jason Malburg
behavior? Am I getting lucky in the first instance with bad syntax that just happens to do what I want? Thanks in advance, Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: sort question

2006-12-13 Thread Jason Roth
t;[EMAIL PROTECTED]> wrote: Jason Roth wrote: > I was reading the perldoc for the sort function and I had a few > questions. http://perldoc.perl.org/sort.html says that large arrays > will be shuffled to ensure nlgn runtime. What is the cutoff for > "large arrays" and is th

sort question

2006-12-13 Thread Jason Roth
} @a; $b[0]++; If I understand the docs then $b[0]++ should modify @a as well but this does not seem to be the case. What is going on here? Thanks, Jason -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: Perl Script as a Cron Job

2006-10-11 Thread Jason Wozniak
Here is what I use for a perl script I use to restart the oracle listener if it goes down, to set the oracle environment. 00,10,20,30,40,50 * * * * (. $HOME/.bash_profile; $HOME/hdpjfw_scripts/dbping.pl) >$HOME/spool/db_ping.out 2>&1 From: Mazhar [mailto:[E

RE: How to use Perl for API testing

2006-07-10 Thread Jason Trebilcock
> -Original Message- > From: Suja Emmanuel [mailto:[EMAIL PROTECTED] > Sent: Sunday, July 09, 2006 10:16 PM > To: beginners@perl.org > Subject: How to use Perl for API testing > > > Hi, > > I want to use PERL for API testing, i.e., I want to call > different URLs through th

GnuPG again: problem with if statement evaluation

2006-05-25 Thread Jason Balicki
I'm back. This is a piece of code taken from a larger program. I'm trying to determine that the encryption succeded, but when I try to evaluate the code, it always evaluates false even though the encryption works and produces an encrypted file. Here's the specific bit I'm concerned with: if ($g

RE: GnuPG module help?

2006-05-24 Thread Jason Balicki
Jason Balicki wrote: > I'm trying to do public key encryption on a file so that I can ftp > it to a server later. [snip] Nevermind. Kind of helps to, you know, open the file first. :) --J(K) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAI

GnuPG module help?

2006-05-23 Thread Jason Balicki
I'm trying to do public key encryption on a file so that I can ftp it to a server later. I have a very small, simple script: use GnuPG; use strict; use warnings; my $secret= "thisisatest"; my $recipient = "[EMAIL PROTECTED]"; my $gpg = new GnuPG(); $gpg->encrypt ( plaintext => "testfile.txt", ou

use of Net::Netmask

2006-05-07 Thread Jason Duan
ock($ip, $t2); if ($newblock) { my $ippref = $newblock->desc(); print "$ippref\n"; } It turns out that $newblock is undefined. Thanks, Jason

RE: How to Capture Mouse button press

2006-02-07 Thread Jason Trebilcock
ing to learn another language, there's also WATIR. http://wtr.rubyforge.org/ Jason -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 267.15.2/252 - Release Date: 2/6/2006 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comman

Re: tricky list comparison problem - Resolved

2005-09-02 Thread Jason Ross
On 9/2/05, John W. Krahn <[EMAIL PROTECTED]> wrote: > Jason Ross wrote: > > > > I'm trying it on a second drive however, and am getting results that > > don't look right ... > > > The problem is that you are including the data from partition 2. If

Re: tricky list comparison problem

2005-09-01 Thread Jason Ross
? I'm trying it on a second drive however, and am getting results that don't look right ... That drive has the following partitions defined: * First Sector Last * Partition Tag FlagsSector Count Sector Mount Directory

tricky list comparison problem

2005-08-31 Thread Jason Ross
Any thoughts on the 'best' way to do this ? (Sample data and script are below, any other "optimizations" folks feel like chiming in with are welcome also ;-) Thanks, Jason Ross Sample data I called this file "

Anonymous array of hashes question

2005-08-04 Thread Jason Normandin
{$source}}, { time => $time, sequenceNumber=>$sequenceNumber responseTime=>$responseTime }; } DOes that make any sense? Can I do what I am trying to accomplish using the logic above? If so, what is that syntax? Help! Thanks! Jason -- To unsubscrib

RE: How to find out what are modules included in perl

2005-07-06 Thread Jason Sullivan
Short script to find modules installed #!/usr/local/bin/perl use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { my $version = $instmod->version($module) || "???"; print "$module -- $version\n"; } -Original Message- From:

RE: search and replace confusion

2005-05-26 Thread Jason Balicki
Wagner, David --- Senior Programmer Analyst --- WGO > are the files you are processing from the same environment or a > different one? If different, then it might be invalid translation of Well, I'm processing from a Linux box, and the files are created on the same box, however your comment tipped

RE: search and replace confusion

2005-05-26 Thread Jason Balicki
Wagner, David --- Senior Programmer Analyst --- WGO wrote: > The above seems to be what you stated you wanted. I did nothing > else in processing. I am running on AS Perl 5.8.3 build 809 Thanks, any guesses as to what's wrong with my outer loop? --J(K) -- To

search and replace confusion

2005-05-26 Thread Jason Balicki
What I'm trying to do with the following code is convert some iCal files so that a specific application will read them. The problem is that this application can't deal with entries that have a date but no time. (Full examples below.) For example, if I have a DTSTART:20050616 in the file, I wan

Posting Files with HTTP::Request

2005-05-09 Thread Jason Williard
x27;form-data'); $request->content( [mirror => 'download01', file=> ["$base/File.exe"], ] ); my $response = $ua->request($request); if ( $response->is_success ) { print $response->content; } el

Posting Files with HTTP::Request

2005-05-09 Thread Jason Williard
;content; } else {     print "No Good\n"; } --- --- Thank You Jason Williard -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Script critique?

2005-05-06 Thread Jason Balicki
Hello, I have several locations with a hardware VPN device and I've set them up to log to a central logging server. Some of the managers of these facilities would like to have a report showing who's using the VPN and when. I've written a script that does that. It works, but as I'm pretty new at

RE: SOAP::Lite help?

2005-03-01 Thread Jason Balicki
Todd W wrote: > Its a lot easier than that. If the WSDL file is good. SOAP::Lite > comes with a program called stubmaker.pl that takes a wsdl file as an > argument and creates a module that you can use(). Then all you do is > call functions the module makes available. T

SOAP::Lite help?

2005-02-28 Thread Jason Balicki
My phone vendor supplies an XML interface for their phone system that allows remote control. They have supplied me with a wsdl file, and I'm trying my hand at SOAP::Lite. I've got a RHEL clone, and I've just installed SOAP::Lite via cpan. Perl is v5.8.0. However, for some reason I can't get the

RE: Environment variables

2005-02-22 Thread Jason Wozniak
now is that the script won't connect to any remote databases. I assume this is probably because of the external identification. While the oracle user is externally identified on all servers, I probably have to log in to each server before connecting. -Original Message- From:

RE: Environment variables

2005-02-21 Thread Jason Wozniak
g output: P01 P01 P01 P01 P01 The file /u01/app/oracle/check_list.txt contains several different sids, and if I print $_ it is reading them in. -Original Message- From: Scott Pham [mailto:[EMAIL PROTECTED] Sent: Monday, February 21, 2005 4:05 PM To: Jason Wozniak Subject: Re: Environmen

Environment variables

2005-02-21 Thread Jason Wozniak
Hello, I'm trying to write a paging script that connects to several databases in succession, and was attempting to write the script such that I would not have to hard code any user names, or passwords, by using an externally identified user. I can connect to the first database in t

RE: Start reading from a specific line

2005-02-14 Thread Jason Balicki
Eduardo Vázquez Rodríguez wrote: > How can I start reading a file from n line? > For example > I open a File like this way > open(INPUT, $file) > while () > { > do something with $_; > } I'm a newbie myself, but is there a reason you've already discounted something like

RE: RegExp equivalencies

2005-01-27 Thread Jason Balicki
Jay wrote: > just for this list. Let's face it, this isn't about spam: this is > about violating some people's sesibility regarding a completely > arbitrary customary 4-line sig limit developed in a completely > different forum (usenet) 20 years ago when (80 x 4 = 320) b

RE: Program to read data from serial port, filter and process

2005-01-26 Thread Jason Balicki
position after the ^.{X}, but I don't know how to fix that. Any clues as to what I've done wrong? The input being sent to the program is of the form: |6643|Jason Balicki | |0501211243|000:00:00|0| S |0| ||13145551212 |N|| 0|00

RE: Program to read data from serial port, filter and process

2005-01-25 Thread Jason Balicki
Charles K. Clarkson wrote: > As John already posted, you should be using warnings and > strict in your script. Below the first line (the shebang) > place these lines. This will break your script. You'll need > to ask some questions and read the documentation to get it

Program to read data from serial port, filter and process

2005-01-24 Thread Jason Balicki
Some people emailed me privately and asked that I do post what I've come up with to the list. I wrote this program over the course of the last week, starting with very little perl experience (I've modified others code, and small things like that) and acomplished a goal that prior to last week I co

RE: How to find regex at specific location on line

2005-01-24 Thread Jason Balicki
Thanks to everyone that answered this question. I ended up using (/^.{30}\|[BNPG]\|/). I plan on adding some more checks for "|" at specific locations (other than just ^ and $, which I have now) for sanity's sake. Thanks again. Would it be helpful to others if I were to post the complete script

How to find regex at specific location on line

2005-01-22 Thread Jason Balicki
Hello, If you would, please consider the following input file: |6643|Jason Balicki | |0501211243|000:00:00|0| S |0| ||13145551212 |N|| 0|001001|001001| 100| 10|B|A| And the following code: while(<>){ if (whichline($_

RE: More elegant solution for a date conversion

2005-01-21 Thread Jason Balicki
Charles K. Clarkson wrote: [snip] > > You have $locdate scoped to the sub and all the other scoped > outside the sub. That's the "my" bit, right? Filed. Thanks. > You are also printing the new date into the log > instead of just returning the new date which is im

More elegant solution for a date conversion

2005-01-20 Thread Jason Balicki
Hi, I've got a phone record that keeps the date and time in the following format: YYMMDDHHMM example: 0501201500 So, I've written the following to convert it to the format: MM/DD/,HH:MM example: 01/20/2005,15:00 sub convertdate { my($locdate)[EMAIL PROTECTED]

RE: Retrieving data from telephone system.

2005-01-19 Thread Jason Balicki
Tor Hildrum wrote: > Unless your going to ask for help with some > actual code you have written, this is better suited > for [EMAIL PROTECTED] Ok, thanks and sorry. In that case: Update: I've discovered that I can't do network stuff right now, but I can send the call t

Retrieving data from telephone system.

2005-01-18 Thread Jason Balicki
I'm looking for some help with a little project that I've got going and I'm not a programmer. I can muddle my way through some things, but I've never started anything from scratch. The overview is that I am trying to get some accounting information from a phone system, and this phone system has a

regex matching in a nested loop

2004-10-29 Thread Jason Wozniak
hrough the array multiple times. So I'm hoping maybe someone might know a more elegant solution to my problem? #!/usr/bin/perl -w # Author: Jason Wozniak # Purpose: To find any hard coded passwords in shell scripts, so they can be changed. use File::Finder; my $prod_pass_file = "

File::Finder syntax

2004-10-22 Thread Jason Wozniak
need. If anyone can shed some light on the syntax for this module it would be greatly appreciated. Jason Wozniak Systems Administrator, Oracle DBA Henkels & McCoy 985 Jolly Road Blue Bell PA, 19422

qx operator

2004-10-20 Thread Jason Wozniak
as well. Thanks in advance Jason Wozniak Systems Administrator, Oracle DBA Henkels & McCoy 985 Jolly Road Blue Bell PA, 19422

Help with ARP scan/reverse DNS script

2004-09-29 Thread Jason Noble
this script is supposed to take an input like 10.0.1.0/24 and output something like this HOSTNAME MACADDRESS node-1 00:30:48:28:E9:7E node-2 00:30:48:29:12:1A but it is only returning very few if any results. anyone have any ideas, or maybe a better way to do this? #!/usr/bin/perl use strict; u

Re: Yin and Yang of Programming- Everyone talks about Python and says Perl is old news.

2004-09-28 Thread jason corbett
I am a martial artist for 14 years now. I have had people ask "what is the best art to practice"? I tell them look at yourself and see where you fit, how physically fit are you, etc. Are you going to practice daily, and live the "Martial Way" like Shaolin? Do you have patience and lots of time to p

Re: Need help with a "Binding Variable" excercise

2004-09-08 Thread jason corbett
Ooops!! Thanks!! Jenda Krynicky <[EMAIL PROTECTED]> wrote:From: jason corbett > I am trying to learn about binding variables. i am writing a simple > script that with select a row of records and print them to screen. I > am getting the error Can't call method "bind_param

Need help with a "Binding Variable" excercise

2004-09-08 Thread jason corbett
I am trying to learn about binding variables. i am writing a simple script that with select a row of records and print them to screen. I am getting the error Can't call method "bind_param" on an undefined value at porqout.pl line 29. Here is the code below. #!/usr/bin/perl -w use strict; use

Foo (Bar)---I now see the light! (Or that which is made light of)

2004-09-08 Thread jason corbett
jason corbett <[EMAIL PROTECTED]> wrote: As a newbie, I have seen the statement "foo (bar)" mentioned in books and and even on this site. I haven't yet seen what this actually mean as I can assume that its just for examples. If I am wrong please explain in deta

Foo (Bar)

2004-09-08 Thread jason corbett
As a newbie, I have seen the statement "foo (bar)" mentioned in books and and even on this site. I haven't yet seen what this actually mean as I can assume that its just for examples. If I am wrong please explain in detail what this is about. Thanks, JC

How to read data from and Excel File

2004-08-12 Thread jason corbett
Do I need to have a special module to open/read an Excel spreadsheet, parse it, etc.? I am trying to figure out if one is needed and what module is recommended. I went on CPAN and I saw SQL Parser, but I am not sure if this is best method. Please advise. JC

Using binding in order to pass values to a sql statement.

2004-08-06 Thread jason corbett
Hello all. I am trying to use bind_param to create a list of values in the form of an array. Then I want to query the data base using a basic sql statement where each value in my list (array) will be sent to the DBI in order to return a value. I am getting and error that says can't call method "

setting the environment variables in perl

2004-07-27 Thread jason corbett
{"ORACLE_HOME"}="/orav101/oracle/8.1.7"; use strict; use DBI; use lib '/home/samcsm/jason/myperl/lib/perl5/site_perl/';

Changing the return value of a built in function

2004-07-26 Thread jason corbett
Hello all. I am running into a problem with a proprietary job scheduler that mimicks the Cron on a Unix box (with more bells and whistles that a cow farm, but with the same amout of BS). I ran a script using DBI->trace(2, 'dbitrace.log'); and noticed that the $sth->execute( ); function is

Having trouble using the Shell within Perl script.

2004-07-26 Thread jason corbett
Hello. I would like to use the shell to run SQL scripts or PL/SQL scripts written by co-workers. These scripts are useful and I don't need to do re-work so I am trying to use them in my perl script where i can retrieve the data that results from running them into a $scalar, @array, or %hash. I c

RE: DBI Failure with certain types of queries

2004-07-23 Thread jason corbett
to predeclare and?) syntax error at ./select_n.pl line 117, near "ban "BAN"" Execution of ./select_n.pl aborted due to compilation errors. Bob Showalter <[EMAIL PROTECTED]> wrote: jason corbett wrote: > ... > When I get the query into the variable, I try to pr

DBI Failure with certain types of queries

2004-07-23 Thread jason corbett
I have a the query below that I am reading from a file and placing in the $sql variable. i.e. [snipet]---reads any query in a file to the variable $sql if (open(FOURDAYQ, $fourdayquery)){ while (){ chomp(@myquery=);} close(FOURDAYQ); return "@myquery"; } else { die open(ERRORLOG, ">>

Re: Returning variables from sub routines.

2004-07-23 Thread jason corbett
Flemming Greve Skovengaard <[EMAIL PROTECTED]> wrote: jason corbett wrote: > I have a sub routine that I created called dateme. > when i run the sub routine, I am getting errors that Global symbol "$process_date" > requires explicit package name at What gives? > >

Returning variables from sub routines.

2004-07-23 Thread jason corbett
I have a sub routine that I created called dateme. when i run the sub routine, I am getting errors that Global symbol "$process_date" requires explicit package name at What gives? Thanks, JC Here is the snipet #---called from dateme( ); #--- sub dateme{ my

How to return to perl from SQL query?

2004-07-23 Thread jason corbett
How can I run a sql script in Oracle and assure that the query won't hang up in the Oracle database and yet allow me to fetch data? I am trying several methods, but its still failing. Please advise. JC

How do i return the end of file message in a subroutine?

2004-07-22 Thread jason corbett
I am using an application called "Title" to kick off jobs instead of using the cron. I am told that this application doesn't accept SQL embedded inside perl scripts unless the SQL or perl script returns the end of file message. What method in perl returns the eof message? is it sub myroutin

Trouble installing modules (Net::SSH::Perl, Math::Pari, Crypt::Random)

2004-07-22 Thread Price, Jason (TLR Corp)
-linux/Math/Pari.pm line 978. I had to install Math::Pari manually (due to having to provide some build directory), but it installed without incident. Anyone know how I can get around this? Or, alternatively, a better SSH module to use? Jason Price Network Engineer Thomson West 651.848.7685 [EMAIL

Re: Pattern Matching records from a table query.

2004-07-19 Thread jason corbett
Thanks James. I am going to try this method also. Your input is very much appreciated. JC James Edward Gray II <[EMAIL PROTECTED]> wrote: On Jul 16, 2004, at 3:46 PM, jason corbett wrote: > I want to eliminate the ". " (periord) or "," (comma) from records > t

[This is what I needed]Pattern Matching records from a table query.

2004-07-19 Thread jason corbett
and not a quick fix! JC "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote: jason corbett wrote: : I want to eliminate the ". " (periord) or "," (comma) from : records that I return from a query, but I cannot figure out : how to approach it. Does Perl have a way

Pattern Matching records from a table query.

2004-07-16 Thread jason corbett
I want to eliminate the ". " (periord) or "," (comma) from records that I return from a query, but I cannot figure out how to approach it. Does Perl have a way that I can match a string that from an array, remove a character or characters? For example say I have array @records that contain th

RE: Still getting warning for "Use of uninitialized value in join or string " (Please Help)..

2004-07-15 Thread jason corbett
Thanks Charles. I am just 4months old into Perl. I am actually using th tracing DBI utility right now to see what is actually happening. Regards, JC "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote: jason corbett wrote: : I would like to know why this warning is coming

[Solved] Still getting warning for "Use of uninitialized value in join or string " (Please Help)..

2004-07-15 Thread jason corbett
d (by the minute). So the times that I was using the SQL PLUS application, I never saw NULL values there. Sorry for the wasted time. JC "perl.org" <[EMAIL PROTECTED]> wrote: On Thu, 15 Jul 2004 10:22:26 -0700 (PDT), jason corbett wrote > > $recordlist=join(","

RE: Still getting warning for "Use of uninitialized value in join or string " (Please Help)..

2004-07-15 Thread jason corbett
I see. I guess when I use SQL Plus app. I don't get back any blank cells so I am not sure how that is happening. I'll just use the 'no warnings' and move forward. Thanks again. Ed Christian <[EMAIL PROTECTED]> wrote: jason corbett wrote: > I would like to know wh

Still getting warning for "Use of uninitialized value in join or string " (Please Help)..

2004-07-15 Thread jason corbett
I would like to know why this warning is coming back: Use of uninitialized value in join or string at line 65. #!/usr/bin/perl -w use strict; use DBI; $ENV{"ORACLE_HOME"}="/orav101/oracle/8.0.6"; [snipet] my @record=( ); while( @record= $sth->fetchrow_array( ))

Extracting headers of a Table in Perl.

2004-07-14 Thread jason corbett
I want to query a database and get data, but the headers don't come back. Is there a way that I can extract the headers of a table using Perl? Would it be easier to create a format, or should this be done in my SQL script? I don't have 'write' authority to the script. I just call it or read it a

RE: [The Subroutine...revisited] What is "Use of uninitialized JOIN" error?

2004-07-13 Thread jason corbett
I have seen null values come up, but when I do this same query in SQL Plus (Oracle environment BTW), I am getting no null values. Ed Christian <[EMAIL PROTECTED]> wrote:jason corbett wrote: > Here is what I am doing. I shortend the sub, using local variables, > and simplifying the whole thing to

Re: [The Subroutine] What is "Use of uninitialized JOIN" error?

2004-07-13 Thread jason corbett
Use of uninitialized value in concatenation (.) or string at select_c.pl line 70 and error Use of uninitialized value in join or string at select_c.pl line 65. are whats showing up [EMAIL PROTECTED] wrote: What about manually stepping through the array elements? That is: for ( my $i = 0; $i

Re: [The Subroutine...revisited] What is "Use of uninitialized JOIN" error?

2004-07-13 Thread jason corbett
Here is what I am doing. I shortend the sub, using local variables, and simplifying the whole thing to just print to screen. I use your loop once I collect the records into the @record variable and join them with ","... Still to no avail, that menacing warning stays. Thanks. my $sql=qq( s

  1   2   3   4   5   >