> -Original Message-
> From: John W. Krahn [mailto:[EMAIL PROTECTED]]
>
> Felix Geerinckx wrote:
> >
> > on Wed, 28 Aug 2002 10:11:16 GMT, [EMAIL PROTECTED] (Harry
> > Jackson) wrote:
> >
> > > What I would like to know is if there are any modules
> > > that can find similar matches i
Hi all
I have a list of about 10,000 customers in an Oracle database. An example of
the type of dat we have is as follows,
REGUS CONSULTING
REJUS CONSULTANTS
REGUS CONSULTANTS
RGS CONSULTANTS
RGS C/TANTS
REGUS CONSULTING LTD
REGUS CONSULTING LIMITED
RGS CONSULTANTS LTD
These are imaginary examp
Title: Re: Printing perldocs
> -Original Message-
> From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]]
>
> James Campbell wrote:
> > Hi all
> >
> > Dumb question but... Does anyone know how to print a
> perldoc page displayed
> > in the Windows DOS prompt?
> >
> > I can't see
Hi
If I have the following variables splits are numbers and totals are
operators how can I have them executed to get the value.
$split[0] $total[0] $split[1] $total[1] $split[2] $total[2] $split[3]
$total[3] $split[4];
45 \ 3 + 6 -
4
> -Original Message-
> From: LRZ [mailto:[EMAIL PROTECTED]]
> Sent: 12 July 2002 00:53
> To: [EMAIL PROTECTED]
> Subject: : VIM: How do you place abbreviations in permanent memory?
>
>
> I created the abbreviation foo to represent
> #!/usr/bin/perl. It works if I hit any non character
Can anyone make this a bit faster for me. I am loading a database from
Oracle into mysql (dont ask). These conversions are taking a long time and
are making the browser time out. The $table_name[7] is a worklog that can be
2000 characters long and $table_name[2] is an epoch date.
while (@table_n
Title: RE: Perl DBI and Oracle
> -Original Message-
> From: Joe Raube [mailto:[EMAIL PROTECTED]]
>
>
> I think that if you posted some code, we could give better assistance
> with this matter.
This is the code that I am using to connect but if I am unable to send server messa
> -Original Message-
> From: Joe Raube [mailto:[EMAIL PROTECTED]]
>
> "set linesize"
>
> is a SQL*Plus command to control the size of an output line
>
> dbi is used for manipulating data from a database, the output is
> controlled by you...
>
> What are you trying to accomplish?
Ho do you
set linesize 1000;
using dbi for Oracle. I have tried inserting it before the "select"
statement and putting it in its own "prepare" statement but neither have
worked. Google has got very little on this when I searched for it. I would
appreciate a decent link to how to do this sort of
Title: Creating a database
Hi all
Has anyone ever wrote a script that creates a schema for MySql or Postgres. I am just wondering how you would have went about it. I am going to have to write an installation type script and was thinking about Perl for doing it.
Harry
***
> -Original Message-
> From: Naser Ali [mailto:[EMAIL PROTECTED]]
>
>
> Hello everyone,
>
> I am planning to write perl programs to access Oracle
> database. What do I
> need to install and configure in Solaris 2.6 environment with
> Oracle 8i.?
> Where can I find some basic tutoria
> -Original Message-
> From: Jonathan E. Paton [mailto:[EMAIL PROTECTED]]
>
>
> --- "Jackson, Harry" <[EMAIL PROTECTED]> wrote: >
> > I have been looking back at this problem and here is what I
> have found.
> >
> > Lets tak
Hi
I have been looking back at this problem and here is what I have found.
Lets take the following set of times
A , B
1 (4 , 5)
2 (9 , 10)
3 (11 , 12)
4 (12 , 14)
5 (12 , 18)
6 (14 , 15)
If we sort by column A the set inherits the following prope
Not sure if anyone is interested but have a look for perlcc on google. It
compiles perl into c
Harry
*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton
> -Original Message-
> From: Shishir K. Singh [mailto:[EMAIL PROTECTED]]
>
>
> There's perl2app that comes bundled with the Perl Dev Kit on
> Active State. Unfortunately, the whole package comes with a
> price. Other than that, I am not sure if there are any other
> perl exe convers
I am trying to compile a script to an executable in Win NT and getting the
following.
Converting 'Search_Remedy.pl' to Search_Remedy.exe
Warning: Can't locate Tie/Registry.pm at C:\Perl\site\lib\DBD\Oracle.pm line
106
@INC = C:\Perl\lib, C:\Perl\site\lib, ., must be directory, not file)
I know
> -Original Message-
> From: F.Xavier Noria [mailto:[EMAIL PROTECTED]]
>
>
> What would be the shortest code that leak?
Its not really the length as much as the width of the whole that causes a
leak.
h
**
> -Original Message-
> From: Lance Prais [mailto:[EMAIL PROTECTED]]
>
>
> I have written a Perl script that needs to be executed every
> 10 seconds.
> How would I go about doing this. I am working with Perl on
> NT and using
> scheduler and the lowest I can set it to is 1 minute.
w
> -Original Message-
> From: Craig Hammer [mailto:[EMAIL PROTECTED]]
>
> @sorted = sort { $myhash{$b} <=> $myhash{a} } keys %myhash ;
^
*
COLT Telecommu
> -Original Message-
> From: Peter Scott [mailto:[EMAIL PROTECTED]]
>
> Although I don't know why you're worried about straining the
> mysql server;
I do not think that the mysql server would be in to much difficulty
(depending on the amount of columns) rather the processing in the p
> -Original Message-
> From: Langa F. Kentane [mailto:[EMAIL PROTECTED]]
>
>
> Greetings,
> How would I go about shredding a file with perl, for
> instance, I have a
> script opening a time file, writing something in there and
> then deleting
> the
> temp file when execution is done
> -Original Message-
> From: David vd Geer Inhuur tbv IPlib
> [mailto:[EMAIL PROTECTED]]
> Sent: 27 May 2002 13:49
> To: [EMAIL PROTECTED]
> Subject: Remove 1 or more whitespaces at the end of $_
>
>
>
> Hi,
>
> I know how to delete 1 or more whitespaces at in a line using :
>
> whi
> -Original Message-
> From: Felix Geerinckx [mailto:[EMAIL PROTECTED]]
#!/usr/bin/perl
use Net::SMTP;
use strict;
my $server = 'LONEXC0';
my $to = '[EMAIL PROTECTED]';
my $from_name = '[EMAIL PROTECTED]';
my $from_email = '[EMAIL PROTECTED]';
my $subject
> -Original Message-
> From: Michael Kelly [mailto:[EMAIL PROTECTED]]
>
>
> #!/usr/bin/perl
>
> use Net::SMTP;
>
> $server = 'your-smtp-server';
> $to = '[EMAIL PROTECTED]';
> $from_name = 'You';
> $from_email = '[EMAIL PROTECTED]';
> $subject= 'hello, email';
>
> $
> -Original Message-
> From: Prachi Shroff [mailto:[EMAIL PROTECTED]]
$a ** $b
*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, Londo
> -Original Message-
> From: Troy May [mailto:[EMAIL PROTECTED]]
> Sent: 22 May 2002 06:01
> To: Perl Beginners
> Subject: Cron alternatives?
>
>
> Hello,
>
> A friend of mine has a task he wants to do daily, so I told
> him to check
> into cron but he said he doesn't have it. His s
What happened to these numbers was my point. Your method removes numbers
from the array which I was taking as not good form. I think its
interpretation of the question.
> 1
> 2
> 3
> 12
> 13
> 14
> 16
> 17
> 18
1
2
3
> 19
> 20
> 21
> 22
Harry.
*
> -Original Message-
> From: Paul Johnson [mailto:[EMAIL PROTECTED]]
>
> @sorted = sort { $a <=> $b } @unsorted;# numeric sort
I like that. I have just had a look at perlop to see what <=> does. They
have used a subroutine called backwards with an array called harry. Is
someone tr
> -Original Message-
> From: drieux [mailto:[EMAIL PROTECTED]]
>
> also - if you read 'man sort' you will find that sort -n
> understands how to do numeric sorting
Being pedantic sort in perl is different than sort in *nix. I am sure we are
not able to use -n in perls version, or c
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
>
> So my advice is, if anyone here wants to get paid for this
> stuff, go out and
> post an ad in the classifieds for a Perl tutor. But I
> promise you it won't
> be half as fun.
I wasn't serious I was being s
I noticed that the london pm website was down so got the from Dean. Please
see review below.
H
Elements of Programming With Perl
Andrew L Johnson
If you come from a non-programming background and you want to learn Perl go
and buy this book. Now. The rest of the review will wait until you get ba
Does anyone think that for certain types of questions an hourly rate would
be justified. In the UK Perl Contractors can earn some silly money. What
would be a reasonable hourly rate in other countries.
Does anyone know of a widely recognised Perl certification programme other
than RTFM for n year
> -Original Message-
> From: Beau E. Cox [mailto:[EMAIL PROTECTED]]
>
>
> Ok, but, but...
>
> I ignored uniqueness because non-unique numbers are NOT consecutive.
> My solution works on non-sorted input arrays.
To be a picky twat.
my @array = (1,2,3,12,13,14,16,17,18,1,2,3,19,20,21
> -Original Message-
> From: bob ackerman [mailto:[EMAIL PROTECTED]]
>
>
>
> On Friday, May 17, 2002, at 09:40 AM, Batchelor, Scott wrote:
>
> > /([^a-zA-Z])\1/
>
> did you mean to be checking for repeating non-alpha characters?
> if you are testing with repeating alpha characters,
Some Questions
> -Original Message-
> From: Batchelor, Scott [mailto:[EMAIL PROTECTED]]
> Sent: 17 May 2002 17:40
> To: '[EMAIL PROTECTED]'
> Subject: Help please
>
>
> Can anyone tell me why the heck my if statements aren't
> working in this
> subroutine. Everything else seems to wor
> -Original Message-
> From: Adam Morton [mailto:[EMAIL PROTECTED]]
> > >
> > >
> > > use strict;
> > >
> > > my $link_id = '';
> > > my $link_attr_entry_list_ref = '';
> >
> > The var above is in the package::main name space.
>
>
> Are you saying that $link_id and $link_attr_entry_li
> -Original Message-
> From: Ned Cunningham [mailto:[EMAIL PROTECTED]]
T Nobel
>
> I am trying to replace the spaces with a single space
>
> My code so snippet is:
>
> $cuname = $data[53];
>
> $newcuname = /" "+/" "/$cuname;
This is probably a little but not much closer to
> -Original Message-
> From: drieux [mailto:[EMAIL PROTECTED]]
>
>
>
> On Friday, May 17, 2002, at 02:35 , Jackson, Harry wrote:
>
> >
> > get_link_priority(get_link_attr_entry_list($link_id);
>
> ---
> -Original Message-
> From: Postman Pat [mailto:[EMAIL PROTECTED]]
>
>
> Greetings,
> I want to write a script that will check to see if it was called from
> another script, if not it will display a message saying for
> instance this
> script is meant to be called from other script &
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>
>On Thursday, May 16, 2002, at 02:05 , Harry Jackson wrote:
>
>> Does anyone have any other things that would be good practice in most
>> scripts.
>
>BEGIN { } cf p465 3rd Edition
>
>cf p481ff for a discussion on this an
> -Original Message-
> From: Alan Drew [mailto:[EMAIL PROTECTED]]
> > On Thursday, May 16, 2002, at 05:44 PM, Timothy Johnson wrote:
> >
> >> ... Yesterday I even caught myself
> >> writing code on a piece of napkin on my lunch
> >>
> > I have been doing that for years - just not wi
> -Original Message-
> From: [EMAIL PROTECTED]
>
>
>
> use strict;
>
> my $link_id = '';
> my $link_attr_entry_list_ref = '';
The var above is in the package::main name space.
>
>
> get_link_attr_entry_list($link_id);
> get_link_priority($link_attr_entry_list_ref);
>
>
>-Original Message-
>From: Chris Ball [mailto:[EMAIL PROTECTED]]
>
>I've submitted a documentation patch on this and it's been applied to
>the 5.8 tree. There'll be mention of perltoc as a good place to start
>on the `perldoc perldoc` page in that release.
I was very tempted to buy Pro
My humble apologies for sending the HTML mail. I have no idea how it
happened other than I am using a very flaky operating system with several
flaky applications.
Harry
*
COLT Telecommunications
Registered in En
>-Original Message-
>From: Danny Grzenda [mailto:[EMAIL PROTECTED]]
>
>
>I want to access our oracle db using perl dbi. Does anybody
>know what oracle
>software I need installed on my Windows workstation?
>
>I am getting the following messge error message.
>
>The dynamic link library OC
Title: RE: Perldoc
>-Original Message-
>From: Chris Ball [mailto:[EMAIL PROTECTED]]
>
>If this is the case, the perldoc page containing the table of contents
>for perldoc is found with: perldoc perltoc
Sorry about not confirming sooner.
perldoc perl
perldoc perltoc
These wher
If I wanted information on declaring variables using perldoc how would I
find it.
perldoc perldoc
is no use.
Is there a way where I can list all the different documents and contents.
Harry
*
COLT Telecommun
>-Original Message-
>From: A Taylor [mailto:[EMAIL PROTECTED]]
>
>
>I have written a script that searches through a directory and
>finds files
>that are no longer needed - these files are actually image
>files - .jpg or
>..gif extensions.
>But how do I actually delete the unused file
>-Original Message-
>From: Maureen E Fischer [mailto:[EMAIL PROTECTED]]
>
>Rob
>
>
>Boy, I'm glad to hear that. I finished Learning Perl and started to
>read this list and thought I needed to find the "Dumb as a door nail list"
since I didn't
>even understand most of the questions.
I
Hi
sub harryGrep {
return [ grep { not $\{$_}++ } @_ ];
}
It took me quite a while to find something quicker than the original grep
using the function I first tried and then I happened across a piece of text
talking about return contexts and tried the above. I also notic
>-Original Message-
>From: Tor Hildrum [mailto:[EMAIL PROTECTED]]
>
>
>Are there any tricks to time the execution of a sub?
>Specifically I'm using the Fisher-Yates shuffle, using an array with a
>couple of million numbers. I want to time the shuffle.
The module Benchmark. Drieux has go
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>
>{ did I mention that kids these days are just going to Python? }
It is definitely getting more press. I have never tried it but by all
accounts its a great language.
Harry
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>>
>> sub unique {
>
>neat function
>
>> }
>
>may I counter propose based upon the benchmarks
>
>http://www.wetware.com/drieux/pbl/BenchMarks/uniqbyRefOrArray.txt
>
>ciao
>drieux
>
>---
>
>ps: harry, I have referenced
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>
>ps: harry, I have referenced you as the originator
>of the function - if that is incorrect - please send
>me email back channel indicating who should be blamed.
I am indeed the culprit.
H
**
>-Original Message-
>From: Lance Prais [mailto:[EMAIL PROTECTED]]
I seem to require what you want a lot so wrote this. Pass the arrays you
want the unique values of as references to this sub routine. There is no
checking for the amount of arrays passed and will currently handle 4.
su
I am attempting to write a module and trying to follow the guidelines etc on
how it should be done. There is about 160 lines in the module itself so I
won't post it here but I was hoping someone with more knowledge than me
would be kind enough to look over it and tell me where I have got it wron
>-Original Message-
>From: Johnson, Shaunn [mailto:[EMAIL PROTECTED]]
>
>
>Howdy:
>
>Have a question about trying to pass the result
>of a sub function to another sub function.
>
>Let's say I have some code like this:
>
>[snip]
>
>sub firstPart {
> while (<>) {
> print "Stuff
Hi all
What mailing list or area would be the best place to ask questions on
creating GUI's. I would like to create a front end for connecting and
running queries against an Oracle database purely as a learning experience.
I had a look on CPAN and noticed several Win::32 mailing lists all geared
>-Original Message-
>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
>
>I got this problem from a friend and was wondering if anyone could help
>out.
>
>The following is a set of functional dependency for a relation R
>(A,B,C,D,E,F) with A->D, BE->CDF, C->E, D->B
>where A->D implie
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>
>On Tuesday, April 30, 2002, at 03:07 , Jackson, Harry wrote:
>[..]
>> $TRY = "world";
>>
>> $h = 0;
>> $TRY{$h}=3;
>> print "$TRY" . "$h" . " $
>-Original Message-
>From: John Edwards [mailto:[EMAIL PROTECTED]]
>
>
>How can I resolve a machine name from an IP address? The
>machine that the
>script is running on is NT4.
>
>I've tried this (with use Socket qw(:DEFAULT :crlf); at the top of the
>script)
>
>$machine_name = gethost
>-Original Message-
>From: [EMAIL PROTECTED]
>
>
>
>Hi All - some interesting help - thanks drieux, chas, tim - all good
>pointers to resolve.
>
>I still cannot get the array naming to print - let me simplify
>
>$h=0;
>$TRY$h=3;
>print "$TRY$h";
>
>does not work - I have tried ${TRY\$h
>-Original Message-
>From: Alex Cheung Tin Ka [mailto:[EMAIL PROTECTED]]
>
>
>Dear All,
>I am going to ask an old question about how to generate a
>pending page for my cgi script.
>Here is my current situation. I have got a time consuming
>query to the database. After prepare
>-Original Message-
>From: Jackson, Harry
>Sent: 30 April 2002 09:14
>To: [EMAIL PROTECTED]
>Subject: RE: Sorting
>
>
>
>
>>-Original Message-
>>From: Imtiaz ahmad [mailto:[EMAIL PROTECTED]]
>>
>>#
>-Original Message-
>From: Imtiaz ahmad [mailto:[EMAIL PROTECTED]]
>
>
>And I want to sort @array_1 by szname which is the second column.
>How do I do it so that it includes all the column when sorting.
>
>
What I hav
Is it standard practice to cross post between mailing lists here or
unacceptable.
Harry
*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, London
>-Original Message-
>From: Sun-hee Kim [mailto:[EMAIL PROTECTED]]
>
>if ( $tablename > 1){
>
>$sth = $dbh->prepare("SELECT * from $tablename") || die "3: "
>. $dbh->errstr;
Not sure if you have to or not but don't you need
$sth->prepare();
before execution or is that only Oracle
>-Original Message-
>From: Richard Adams [mailto:[EMAIL PROTECTED]]
>Sent: 29 April 2002 14:01
>To: [EMAIL PROTECTED]
>Subject: Selftuition
>
>
>Hi,
>I've been teaching myself Perl and C in preparation for a new
>job. I've been
>using Wrox's "Beginning Perl" and the Camel book for Perl,
>-Original Message-
>From: Ahmed Moustafa [mailto:[EMAIL PROTECTED]]
>
>
>Hi All,
>
>Would you post an example of sending an email with attachment(s) using
>Net::SMTP, please?
>
Send an example of one that you have tried to code, if you have one, and
someone will probably try and help
Hi all
I noticed a couple of questions earlier about modules. I have only been at
Perl a short while and when I first encountered them I was able to relate to
them as libraries in C/C++.
However, this analogy does not go any distance to help the Perl Novice who
is stumbling blindly along the ho
Although this made me laugh it has some relevance to how questions
should/shouldn't be asked.
http://perl.plover.com/Questions.html
Harry
*
COLT Telecommunications
Registered in England No. 2452736
Registered O
>-Original Message-
>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
>
>Hi,
>you should try this tiny (1,6 MB with manual and source code)
>"Perl IDE" http://open-perl-ide.sourceforge.net/
>(mirror at http://www.lost-sunglasses.de/).
>It's not as comfortable as commercial app's, bu
>-Original Message-
>From: drieux [mailto:[EMAIL PROTECTED]]
>
>speaking of which - how DO we improve the quality of the problem
>specs - both amongst beginners and 'product managers' - the former
>at least seem open to learning while the latter.
For the former is there an acceptable
>-Original Message-
>From: Todd Wade [mailto:[EMAIL PROTECTED]]
>
>Go get the Perl Cookbook.
Very good advice in any weather. If you have not got it, get it, its a
fantastic book and I am always turning to it.
Harry
***
74 matches
Mail list logo
