Repository access issues

Dear Jenda and all, I have been trying to access the Repositories and even after setting the HTTP_Proxy to the Proxy server as "http://191.1.32.***: 8080"...it has not worked. C:\Perl\repository>ppm PPM interactive shell (2.1.5) - type 'help' for available commands. PPM

RE: regexp help

You can use a module File::Basename or I use for my scripts a simple one to extract the filename of my scripts to use in displays(Basic assumption is a valid filename being searched): my $MyFilename ; if ( /^.+[\\\/](.+)/ ) { # assuming full or partial filename is in $_

Re: What am I doing wrong... I want to increment a number in a DB

Hi, The question appears if your data is reset in database after transaction or during transaction. If after transaction is the case then you should take care on commit mechanism of transaction. Some database interfaces or databases can be set to so called auto-commit where commit is issued to d

Storing variable names in strings

Hi, I have this snippet of code which actually works, but I would like to get rid of the warning [PbFe]$ more foobar.pl #!/usr/bin/perl -w #my $helloworld; my $hello='helloworld'; ${$hello}='foo'; print STDOUT $helloworld."\n"; [PbFe]$ ./foobar.pl Name "main::helloworld" used only once: pos

RE: Storing variable names in strings

I think the general answer you will get is "don't do it that way" for various reasons. It is only ever a good idea if there are absolutely no alternatives, and even then you should always rethink doing it that way. This code will do exactly the same thing except it uses keys in a hash to give yo

Re: DB_file help.

From: "Postman Pat" <[EMAIL PROTECTED]> > I am trying to create a small database with the information like this: > > Each record has a name ie : > Dog > And has the following traits: > color > weight > nick Well ... actually the subject you've chosen contains the name of a module you could u

Re: Help handling text files.

From: "Josh" <[EMAIL PROTECTED]> > Ok Heres the deal :) I have a script to write to a dat file and the > basic output in the dat file is > > username:plan: so an example would be > computer:50: meaning the username computer has 50 hours of paid dialup > access. > > Now Lets say "computer" cal

Re: Perl2exe

From: "Jackson, Harry" <[EMAIL PROTECTED]> > 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

OLE

Good Morning, In the error below where it says "Not a Win32::OLE object" Should I read that as it is not defined on my server or it is not defined in OLE.pm? ##BOF## CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are

Perl 5.8.0rc1 changelogs. What are you most excited about?

Heya, I just read this article -- http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6 Being very new to perl, I don't understand what impact most of these changes will have, but I'm particularly interested in the addition of the

Re: What am I doing wrong... I want to increment a number in a DB

>> Some where it resets back to zero all the time You do "foreach $row", then you set all of your variables to pieces of "@$rows". Note the trailing 's'. Typo strikes again. All of those values are probably undefined, since I assume "$rows" is undefined, thus they get inserted as 0 or ''. Simp

RE: Perl 5.8.0rc1 changelogs. What are you most excited about?

> -Original Message- > From: Ron Powell [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 03, 2002 6:23 AM > To: '[EMAIL PROTECTED]' > Subject: Perl 5.8.0rc1 changelogs. What are you most excited about? > > > Heya, > > I just read this article -- > http://use.perl.org/articles/02/06/01/19

Re: Storing variable names in strings

On Monday, June 3, 2002, at 03:21 , Hanson, Robert wrote: > I think the general answer you will get is "don't do it that way" for > various reasons. It is only ever a good idea if there are absolutely no > alternatives, and even then you should always rethink doing it that way. below I will tr

Re: Repository access issues

From: Manoj Jacob <[EMAIL PROTECTED]> > Dear Jenda and all, > > I have been trying to access the Repositories and even after setting > the HTTP_Proxy to the Proxy server as "http://191.1.32.***: > 8080"...it has not worked. My repository was down due to a hardware failur

Checking the status of sendmail

Perl 5.6.0 OS: NetBSD 1.5.2 (and Solaris 7) I've got a program that regularly sends mail to people, however once in a while I get a report from someone stating that they missed a piece of mail. It's not all the time or I would have a major problem on my hands. I'm using the following construct:

Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

On Monday, June 3, 2002, at 06:23 , Ron Powell wrote: > Heya, > > I just read this article -- > http://use.perl.org/articles/02/06/01/1944202.shtml?tid=6 > > > Being very new to perl, I don't understand what impact most of these > chan

Re: What am I doing wrong... I want to increment a number in a DB

--- "FLAHERTY, JIM-CONT" <[EMAIL PROTECTED]> wrote: > foreach $row(@$array_ref) { > my($num,$title,$media,$serial,$time,$class,$remarks,$custody,$loc, > $format,$qty,$lab,$rew,$sta,$history5,$check) = @$rows; > > $history2 = $history5; > $history2++; > > } > $dbh2 =DBI ->connect($data_source,

Re: Checking the status of sendmail

On Monday, June 3, 2002, at 07:17 , Chuck Tomasi wrote: [..] > I've got a program that regularly sends mail to people, however once in a > while I get a report from someone stating that they missed a piece of > mail. you may wish to check if there is a user::Headspace upgrade you can install in

remove the stop words

Hi, Is there a good method to do this? I need to remove the stop words from the comment field of every record. There are about 20,000 records. The comments look like this: Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated from human) 16S-23S in tergenic region amplified with 16UNIX a

Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

On Monday, June 3, 2002, at 07:53 , Jason Frisvold wrote: > Am I in the dark here? I thought the latest stable was 5.6.1? > What's with 5.7.x?? I know 5.8.x is brandy new... And 6.x is > apparently going to be the "new" god to follow... hence why I have not worried about going to 5.7.X

Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

Jason, et al -- ...and then drieux said... % % On Monday, June 3, 2002, at 07:53 , Jason Frisvold wrote: % % > Am I in the dark here? I thought the latest stable was 5.6.1? % >What's with 5.7.x?? I know 5.8.x is brandy new... And 6.x is % >apparently going to be the "new" god to follow..

Conditional Operator && STDIN

Hello all. I am working on my script, and I would like to be able to use STDIN as a filehandle input unless a filename is specified. I have used the getopt for the filename, let's say $opt_f. I thought I would do something like this: ( $opt_f ) ? open( INFILE, "$opt_f" ) or die( "Can't open...)

but what about 5.5.3 was Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

On Monday, June 3, 2002, at 08:43 , David T-G wrote: [..] > If you want to stay "up to speed", all you have to have are > N..highest > and you're there, and you don't have to worry about an interface changing > or something breaking from one day to the next as you would with good old > (well, ne

Re: Conditional Operator && STDIN

On Jun 3, Balint, Jess said: >Hello all. I am working on my script, and I would like to be able to use >STDIN as a filehandle input unless a filename is specified. I have used the >getopt for the filename, let's say $opt_f. I would use the magic of @ARGV and <>, and do this: @ARGV = "< $filen

RE: but what about 5.5.3 was Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

All this means is that we are that much closer to Perl 6, or is it? Either way, I get that warm feeling deep inside when I think about the wonders of Perl 6. Nikola Janceski If I had only known. I would have become a locksmith. -- Albert Einstein (1879-1955) > -Original Message- > Fr

Re: Conditional Operator && STDIN

On Monday, June 3, 2002, at 09:27 AM, Jeff 'japhy' Pinyan wrote: > On Jun 3, Balint, Jess said: > >> Hello all. I am working on my script, and I would like to be able to use >> STDIN as a filehandle input unless a filename is specified. I have used >> the >> getopt for the filename, let's say

Re: but what about 5.5.3 was Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

drieux -- ...and then drieux said... % % On Monday, June 3, 2002, at 08:43 , David T-G wrote: % [..] % >If you want to stay "up to speed", all you have to have are % >N..highest % >and you're there, and you don't have to worry about an interface changing % >or something breaking from one day to

Weekly posting statistics - 22/2002

Weekly posting statistics for perl.beginners - week 22 of 2002. >From Monday 2002-05-27 to Sunday 2002-06-02 there were 478 articles posted (25031 lines) by 117 authors, giving an average 4.09 articles per author, and an average article length of 52 lpa. The average number of articles per day w

Re: Conditional Operator && STDIN

On Jun 3, bob ackerman said: >> @ARGV = "< $filename" if $opt_f; > >why '<' ? isn't '$filename' enough for get '<>' to open and read from that >file? I feel safer when I explicitly state the mode. Unless you want the user to put 'foo |' as the filename (that is, the output of a pipe), then y

Re: Conditional Operator && STDIN

On Monday, June 3, 2002, at 10:37 AM, Jeff 'japhy' Pinyan wrote: > On Jun 3, bob ackerman said: > >>> @ARGV = "< $filename" if $opt_f; >> >> why '<' ? isn't '$filename' enough for get '<>' to open and read from >> that >> file? > > I feel safer when I explicitly state the mode. Unless you w

RE: Conditional Operator && STDIN

I am sure Jeff has a bunch of files lying around named: >haha |-what? and good old `rm -rf *` I put that last one in my home directory just to scare the beejesus off the sysadmin guys. If you want to make it just use: touch '`rm -rf *`' > -Original Message- > From: Jeff 'japhy' Pinya

Re: Conditional Operator && STDIN

On Monday, June 3, 2002, at 10:45 AM, bob ackerman wrote: > > On Monday, June 3, 2002, at 10:37 AM, Jeff 'japhy' Pinyan wrote: > >> On Jun 3, bob ackerman said: >> @ARGV = "< $filename" if $opt_f; >>> >>> why '<' ? isn't '$filename' enough for get '<>' to open and read from >>> that >>

Re: Tail call optimization

Jenda Krynicky wrote: > I believe they meant "goto &NAME". > This way perl doesn't create a new record in the call stack every > time you "call" the _fib(). > As you can see if you comment out the return in fib_() and remove > the comment from "croak ..." and "use Carp;". (die() with stack >

Day Month Issues

I am getting the following error when I execute my script. It is not erroring out nor is it not working as I think it should. I am just curious why this is happening. Any Ideas? Thanks Lance CODE: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); ERROR: Name "main:

RE: Day Month Issues

you have -w or use warnings; You should only use a slice of the info you want. from the warnings I see you want min and hour. use: ($min,$hour)= ( localtime(time) )[1,2]; # no warnings > -Original Message- > From: Lance Prais [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 03, 2002 1:55

RE: Day Month Issues

You are running with warnings turned on, and Perl is just warning you that you *might* have made a mistake by creating a variable then not using it. In this case it isn't a mistake, but it will still warn you about it. Snippet from perldoc perlrun -w prints warnings about variable names

RE: Day Month Issues

try putting "my" before the declaration my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); -Original Message- From: Lance Prais [mailto:[EMAIL PROTECTED]] Sent: Monday, June 03, 2002 1:55 PM To: Perl Subject: Day Month Issues I am getting the following error

RE: Day Month Issues

> -Original Message- > From: Lance Prais [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 03, 2002 1:55 PM > To: Perl > Subject: Day Month Issues > > > I am getting the following error when I execute my script. It is not > erroring out nor is it not working as I think it should. I > am

switch/case foo - a quandery

[ name withheld to protect the innocent.] [..] > From reading your response, below, I take it that you don't think very > highly of the SWITCH command?  Can you elaborate just a little for me as > to why?  You see, I've dabbled in other languages (most notably VB and > BASH shell scripting) an

Perl DBI vs SQLPLUS

Got a question for you guys out there. I currently have a list of records that I need to search for in a mult-db that we have. I was wondering if perl would be faster to process or stick with my .ksh script that uses sqlplus. Here's how the current setup is cat input file and read for record

Re: but what about 5.5.3 was Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

On Monday, June 3, 2002, at 10:08 , David T-G wrote: [..] > % I think a lot of us were pushing production perl code out the > % door with 5.5.3 - because we needed the features that were there > > Whoops! Sorry; the change to this numbering system was with 5.6; 5.005 > was production, too.

RE: Perl DBI vs SQLPLUS

> -Original Message- > From: Joseph Bajin [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 03, 2002 2:34 PM > To: [EMAIL PROTECTED] > Subject: Perl DBI vs SQLPLUS > > > Got a question for you guys out there. > > I currently have a list of records that I need to search for in a > mult-d

Re: dbi connection problem with @INC

On Sat, Jun 01, 2002 at 05:58:58PM -0700, tom poe wrote: > I copied the dirs/files to the upgrade 5.6.1, but no change, so I go, OK, > I'll make sure Pg.pm is copied over, then I'll get rid of the old one, and > this is just weird. Anyone have a thought about This? Copying the files over manua

removing duplicate files in a directory

I have a reporting program that outputs ASCII reports into a folder. If a certain report is run more that once, the old report is not written over, but rather, a number appended to the end of the name. For example, I may have a report: HTTPLogWed If someone runs this report a second time, the

Re: dbi connection problem with @INC

On Monday 03 June 2002 12:54, Michael Fowler wrote: > Copying the files over manually is usually a bad idea. Even if you do > manage to get all of the files (which you probably didn't, I will explain > later), the binary portions are probably not going to be compatible from > one version of perl

getting a url with perl, the url_get library?

There used to be a url_get library, is there something else now? i couldn't find anything on CPAN, this is a http protocol issue right? I just want to have a user enter a url on a form page, then crawl that url for the specified text string. Thank you -- To unsubscribe, e-mail: [EMAIL PROTECT

manipulating arrays/scalars

Hi any help appreciated... I am reading a file consisting of lines with upto 2 sets if data seperated by : ie 13:fred 12:nancy lional: each line is split into @a1 and @a2, here is my problem - if line does not have @a2 as in example line 3 above, I want it to take the value from line 2 ie - 1

Re: Perl DBI vs SQLPLUS

[EMAIL PROTECTED] wrote: >>-Original Message- >>From: Joseph Bajin [mailto:[EMAIL PROTECTED]] >>Sent: Monday, June 03, 2002 2:34 PM >>To: [EMAIL PROTECTED] >>Subject: Perl DBI vs SQLPLUS >> >> >>Got a question for you guys out there. >> >>I currently have a list of records that I need to

Re: getting a url with perl, the url_get library?

Look at the LWP::* modules (LWP::UserAgent, or LWP::Simple, in particular). It comes with the libnet distro on the CPAN. Cheers, Kevin On Mon, Jun 03, 2002 at 04:22:17PM -0400, david ([EMAIL PROTECTED]) said something similar to: > There used to be a url_get library, is there something else now

RE: getting a url with perl, the url_get library?

Hi - Check out LWP::UserAgent and HTML::TokeParser. The following script gets my SETI@home stats. Flesh it out with you token parsing, better error handling, etc. Aloha => Beau. use strict; use warnings; use LWP::UserAgent; use HTML::TokeParser; my $url = "http://setiathome.ssl.

RE: manipulating arrays/scalars

How about writing it like this ?? Assuming a) The numeric value is in 1st col and the text in 2nd col (after :) b) Wherever numeric value is not present, the text is in the first column. c) The numeric value needs to be picked up from the last successful read of the numeric value if not alread

Re: switch/case foo - a quandery

At 11:19 AM 6/3/02 -0700, drieux wrote: >[ name withheld to protect the innocent.] >[..] >> From reading your response, below, I take it that you don't think very >> highly of the SWITCH command? Can you elaborate just a little for me as >> to why? You see, I've dabbled in other languages (mos

Re: manipulating arrays/scalars

Steven Massey wrote: > > Hi any help appreciated... Hello, > I am reading a file consisting of lines with upto 2 sets if data seperated > by : ie > > 13:fred > 12:nancy > lional: > > each line is split into @a1 and @a2, here is my problem - if line does not > have @a2 as in example line 3

Print to a NT 4.0 Printer?

Given: A list of MS Word .doc files Objective: Convert the initial list to a list of PostScript .ps files. I know how to do it manually through the Windows GUI using a PostScript printer driver and printing to file. I would like to learn how to automate the task using a Perl script. Any sugge

Re: Perl 5.8.0rc1 changelogs. What are you most excited about?

drieux [[EMAIL PROTECTED]] quoth: *> *>On Monday, June 3, 2002, at 07:53 , Jason Frisvold wrote: *> *>> Am I in the dark here? I thought the latest stable was 5.6.1? *>>What's with 5.7.x?? I know 5.8.x is brandy new... And 6.x is *>>apparently going to be the "new" god to follow... *> *>hen