eval and alarm timeout for slow process (XML post)

2002-11-21 Thread jeff loetel
Does this look correct below. I know that I should test but due to the environment that this program lives it is difficult track down problems. It is a trigger off of a db. Can anyone take a few seconds to provide feedback. Is there a betterway? The problem that I am trying to solve here is a slow

RE: upgrading PPM

2002-11-21 Thread Timothy Johnson
Why not just upgrade to ActivePerl 5.6.1 build 633? -Original Message- From: Clinton To: [EMAIL PROTECTED] Sent: 11/21/02 7:52 PM Subject: upgrading PPM On Win running 5.6.0 build 623- How do I upgrade my version of PPM 2.12 to 3.01 Help appreciated Regards Clinton -- To unsubscribe,

Re: removing white space

2002-11-21 Thread Sudarshan Raghavan
On Fri, 22 Nov 2002, Mariusz K wrote: > Hi, > > One part of my script ads several strings into one: > $text = $part1.$part2.$part3.(...etc) > > However, if the part3 through part10 were empty I get that many white spaces > at the end of $text. I thought the best thing would be just to remove th

removing white space

2002-11-21 Thread Mariusz K
Hi, One part of my script ads several strings into one: $text = $part1.$part2.$part3.(...etc) However, if the part3 through part10 were empty I get that many white spaces at the end of $text. I thought the best thing would be just to remove the spaces at the end, but how? (maybe search and r

Re: extra characters return plus 0 in script

2002-11-21 Thread John W. Krahn
Mike wrote: > > I'm getting confused - I have the following script > > open(DESK,"gtkdoclist") or die "cant open"; > @desk1=; > foreach $desk1 (@desk1){ > chomp $desk1; > print "$desk1\n"; > $gtkdoc1=system("grep -h gtk_doc_min_version= $desk1"); > chomp $desk1; > print "$gtkdoc1"; > > however t

Re: create a directory

2002-11-21 Thread Sudarshan Raghavan
On Thu, 21 Nov 2002, Tim Booher wrote: > I don't know why I am having such a tough time creating a directory. > > I have the following code, but for some reason I can't create a > directory: > > #!/usr/bin/perl -w > # Microsoft Windows Win32 > > use strict; > use File::Find; The find functi

Can perl read a word doc

2002-11-21 Thread Johnstone, Colin
Gidday all, Can I use Perl to open a word document ? Our press releases come to us as word docs, we cut and paste the text into our cms(Interwoven Teamsite), and then publish on the web. Im wondering if I can write some perl code so we can just upload the document and perl will do the rest. T

upgrading PPM

2002-11-21 Thread Clinton
On Win running 5.6.0 build 623- How do I upgrade my version of PPM 2.12 to 3.01 Help appreciated Regards Clinton -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

extra characters return plus 0 in script

2002-11-21 Thread mike
I'm getting confused - I have the following script open(DESK,"gtkdoclist") or die "cant open"; @desk1=; foreach $desk1 (@desk1){ chomp $desk1; print "$desk1\n"; $gtkdoc1=system("grep -h gtk_doc_min_version= $desk1"); chomp $desk1; print "$gtkdoc1"; however the output is this (notice the zeros at

create a directory

2002-11-21 Thread Tim Booher
I don’t know why I am having such a tough time creating a directory.   I have the following code, but for some reason I can’t create a directory:   #!/usr/bin/perl -w # Microsoft Windows Win32   use strict; use File::Find;   my $i; my $cs; my @myArray;  # array to hold match

exporting Constants

2002-11-21 Thread Tom Allison
How do I export a Constant from a module? Test.pm: package Test; @EXPORT_OK = qw(__what__); use constant FOO => 123; -- In the land of the dark the Ship of the Sun is driven by the Grateful Dead. -- Egyptian Book of the Dead -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comman

Re: Can't use string as hash ref?

2002-11-21 Thread chris
On Thu, 21 Nov 2002 07:42:55 -0500, [EMAIL PROTECTED] (Wiggins D'Anconia) wrote: > > >chris wrote: >> How do I do the following without getting the message >> Can't use string as hash ref while strict refs in use >> >> use warnings; >> #use strict; >> my($a, @b, $c); >> $a = '20020603'; >> $b[1]

RE: Can't use string as hash ref?

2002-11-21 Thread Timothy Johnson
Well, you can stop trying to use a string as a hash reference? For starters, you should never name variables $a or $b because these are special variables if you ever do a sort. Besides that, though, you are assigning $a the value '20020603'. Then you assign the value of $a to the hash key $a, m

Re: Can't use string as hash ref?

2002-11-21 Thread Wiggins d'Anconia
chris wrote: How do I do the following without getting the message Can't use string as hash ref while strict refs in use use warnings; #use strict; my($a, @b, $c); $a = '20020603'; $b[1] = 'name1'; $b[2] = 'name2'; $b[3] = 'name3'; my %h; $h{$a} = $a; $h{$a} = {}; Or leave this line out all

Fwd: Re: Declare $main::scalar in begin with 'use strict'

2002-11-21 Thread Dr. Poo
-- Forwarded Message -- Subject: Re: Declare $main::scalar in begin with 'use strict' Date: Thu, 21 Nov 2002 16:51:43 -0600 From: Dr. Poo <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Dude, you rule. That's all i have to say besides, yah, you rule. This worked perfectly. Why the

Can't use string as hash ref?

2002-11-21 Thread chris
How do I do the following without getting the message Can't use string as hash ref while strict refs in use use warnings; #use strict; my($a, @b, $c); $a = '20020603'; $b[1] = 'name1'; $b[2] = 'name2'; $b[3] = 'name3'; my %h; $h{$a} = $a; $h{$a}->{$b[1]}= 1; $h{$a}->{$b[2]}= 2; $h{$a}->{$b[3]}= 3;

RE: should be a simple traverse and print

2002-11-21 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Depends on what you are really doing. If only one level, then opendir and readdir would be one way. If there are other folders and you need to go down them, then File::Find would probably be a good way to go. Wags ;) -Original Message- From: Tim Booher [mailto:[EMAIL PROTECTED]] Sent

should be a simple traverse and print

2002-11-21 Thread Tim Booher
Hello – I am looking for ideas to traverse a directory structure and print all jpg files in the directory along with their parent directory. For example if I have   Folder1 with 1.jpg 2.jpg 3.jpg Folder2 with A.jpg B.jpg C.htm   By running test.pl in Folder1 and Folder2’s parent direct

Re: Working with text files.Please help!

2002-11-21 Thread John W. Krahn
> MIME-Version: 1.0 > Message-ID: <[EMAIL PROTECTED]> > Date: Thu, 21 Nov 2002 11:39:22 +0200 (FLE Standard Time) > Content-Type: Multipart/Mixed; >boundary="Boundary-00=_MT6X12S0" > X-Mailer: IncrediMail 2001 (1800838) > References: <2E4528861499D41199D200A0C9B15BC031B895

Re: Email To Mysql.

2002-11-21 Thread John W. Krahn
Stephan Viljoen wrote: > > Hi , I need to write an email that will port incomming emails directly > to a Mysql DB. I'm running Linux with sendmail. Here's what I did so far > , I'm forwarding all incoming emails to an alias that's piped to the perl > script. Everything works fine , my only problem

Re: searching files

2002-11-21 Thread david
Chris Zampese wrote: > Hello everyone, > > I have a bunch of folders that I would like to search through for a > particular string. Any hints on how to do this? I do not know the names > of all the files, but would like to be able to return the name. > > Basically this is so I can search a b

Re: Parsing a comment

2002-11-21 Thread david
David Buddrige wrote: > Hi all, > > I am writing a program which will re-arrange a doc++ comment. > > A doc++ comment is a C/C++ comment that starts with an extra "*". An > example of a doc++ comment is this: > > /** >@doc Some general info about a function. >@precondition Any precondi

Perl with SSL

2002-11-21 Thread Pankaj
Any idea if we can use perl /perlldap with SSL. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: searching files

2002-11-21 Thread wiggins
Well on unix you could do this with a bit of find and grep, but if you are not on unix or still want to do it the perlish way, you should check out the File::Find module, then perldoc -f open and perldoc -f grep. Aka find the files, open each, store the file to an array, run a grep on the array

RE: searching files

2002-11-21 Thread Kipp, James
on most *nix, you can use grep -rni example: grep -rni '*.dat' > -Original Message- > From: Chris Zampese [mailto:[EMAIL PROTECTED]] > Sent: Thursday, November 21, 2002 4:08 PM > To: [EMAIL PROTECTED] > Subject: searching files > > > Hello everyone, > > I have a bunch of folders that

searching files

2002-11-21 Thread Chris Zampese
Hello everyone, I have a bunch of folders that I would like to search through for a particular string. Any hints on how to do this? I do not know the names of all the files, but would like to be able to return the name. Basically this is so I can search a bunch of files for a word, and be ab

Re: Special Name for @ Element

2002-11-21 Thread Michael Kelly
On Thu, Nov 21, 2002 at 07:56:51AM -0500, Sturdevant-Contractor, Robert W wrote: > Thanks, Jeff. > Yes, index ... with all the special names avail I thought there might be one > > to identify the position of the element within an array. > Bob I might be imagining this, but I thought I remembered

RE: Working with text files.Please help!

2002-11-21 Thread Westgate, Jared
Hey Vitali, I am also a beginner, so I don't know if I am doing everything most efficiently... but, here is what I wrote to do this. I wouldn't normally just write a program for someone, but the problem intrigued me. Take a look through the code and it will hopefully make sense. I hope i

Using Net::Telnet

2002-11-21 Thread Murali S
Hi, I'm facing the same problem mentioned below "Pattern match read eof". Any ideas what could be the reason? Thanks -- I'm trying to use the Net::Telnet module to talk to a port a remote machine. There is an application on the remote

RE: Special Name for @ Element

2002-11-21 Thread Sturdevant-Contractor, Robert W
Thanks, Jeff. Yes, index ... with all the special names avail I thought there might be one to identify the position of the element within an array. Bob -Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Sent: Tuesday, November 19, 2002 9:45 PM To: Sturdevant-Contra

Working with text files.Please help!

2002-11-21 Thread Vitali Pokrovski
  Dear friends, could you please show me the way,how to write the code for converting data from input_file to output files (1001.out,1002.out,1003.out) format.(please see an example attached) I have already doing with this code writing about four week,but unfortunatlly..,becouse i'm just begi

RE: Beginners -- a suggestion

2002-11-21 Thread Westgate, Jared
Just to help out Huan Huang below: Huan Huang wrote: >I have set up Activeperl in my windows NT system. I have some source file. >But I really get no idea how to run the source file. Could anybody give me >a go? You basically need to associate the file type with the perl interpreter. I am not

Beginners -- a suggestion

2002-11-21 Thread Zemer Rick
I too am rather new to Perl, and have found the OpenPerlIDE debugger to be helpful. It is available on sourceforge.net and probably elsewhere. Hope that helps. -rz. "She was trying to construct a life that made sense from things she found in gift shops." -kv. -Original Message- From

RE: Email To Mysql.

2002-11-21 Thread Jim Blanchard
I am new too! I have tried Activeperl on my XP machine at home and found that you have to run the version I have in a command window. c>:perl "file name" I hope this helps. Jim Blanchard -Original Message- From: Sorin Marti [mailto:[EMAIL PROTECTED]] Sent: Thursday, November 21, 2002 10

Re: Email To Mysql.

2002-11-21 Thread Sorin Marti
[EMAIL PROTECTED] wrote: Hi, I am really new to Perl. me too I have set up Activeperl in my windows NT system. I have some source file. But I really get no idea how to run the source file. Could anybody give me a go? try this: http://www.wdvl.com/Authoring/Languages/Perl/Windows/ I have c

Re: Email To Mysql.

2002-11-21 Thread huan . huang
Hi, I am really new to Perl. I have set up Activeperl in my windows NT system. I have some source file. But I really get no idea how to run the source file. Could anybody give me a go? I have checked the following sites but found few introduction to windows user. http://www.perldoc.com/perl5.8.

Email To Mysql.

2002-11-21 Thread Stephan Viljoen
Hi , I need to write an email that will port incomming emails directly to a Mysql DB. I'm running Linux with sendmail. Here's what I did so far , I'm forwarding all incoming emails to an alias that's piped to the perl script. Everything works fine , my only problem is to extract the message body

Weekly list FAQ posting

2002-11-21 Thread casey
NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address):

Re: Starter of a script

2002-11-21 Thread John W. Krahn
Cedric Gross wrote: > > Hello every body, Hello, > How to know what task have run a perl script ? > I mean is possible to get within the code which process Id have start the > script. perldoc -f getppid John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Starter of a script

2002-11-21 Thread Ramprasad A Padmanabhan
It is posible on unix like system ( must be possible on others too But I dont know ) On my machine which happens to be linux I do $Parent_id = `cat /proc/$$/status |grep PPid |awk '{print \$2}'` chomp $Parent_id If you want the process name too you will get it from /proc/$Parent_id/stat But

Re: Starter of a script

2002-11-21 Thread Ramprasad A Padmanabhan
It is posible on unix like system ( must be possible on others too But I dont know ) On my machine which happens to be linux I do $Parent_id = `cat /proc/$$/status |grep PPid |awk '{print \$2}'` chomp $Parent_id If you want the process name too you will get it from /proc/$Parent_id/stat But

Re: Starter of a script

2002-11-21 Thread Ramprasad A Padmanabhan
It is posible on unix like system ( must be possible on others too But I dont know ) On my machine which happens to be linux I do $Parent_id = `cat /proc/$$/status |grep PPid |awk '{print \$2}'` chomp $Parent_id If you want the process name too you will get it from /proc/$Parent_id/stat But

Re: passing an array and a hash to a subroutine.

2002-11-21 Thread John W. Krahn
David Buddrige wrote: > > Hi all, Hello, > I want to write a subroutine that takes an array and a hash as input > parameters and then does some work on them. I can't seem to determine > how to do this however; it seems that with a subroutine, all you can > pass is a single array ( which appears

Re: output from an array

2002-11-21 Thread Paul Johnson
Jose Malacara said: > Can someone please tell me what I'm doing wrong here? > > I have a data file that looks like this: > > jason,texas,austin > tim,denver,colorado > jose,oregon,portland > > > And a script to update the last field and output the results with the > new city. Without having teste

Re: output from an array

2002-11-21 Thread Sudarshan Raghavan
On 21 Nov 2002, Jose Malacara wrote: > Can someone please tell me what I'm doing wrong here? > > I have a data file that looks like this: > > jason,texas,austin > tim,denver,colorado > jose,oregon,portland > > > And a script to update the last field and output the results with the > new city:

RE: output from an array

2002-11-21 Thread Timothy Johnson
When you print() an array, do not put it in quotes unless you want Perl to put the default record separator between each element of the array. Take out the double-quotes and it will come out the way you want. -Original Message- From: Jose Malacara To: [EMAIL PROTECTED] Sent: 11/20/02 11

Re: passing an array and a hash to a subroutine.

2002-11-21 Thread Sudarshan Raghavan
On Thu, 21 Nov 2002, David Buddrige wrote: > > Hi all, > > I am writing a subroutine which is intended to take an array of strings, > and concatenate each string in the array into a single [very long] string. > > > The subroutine is listed below. > > My problem is that for some reason when I

perl modules for a webhost

2002-11-21 Thread Jerry M . Howell II
Hello there all again, I would like to know what perl modules Are probably used most often on a webhost server. I had someone try and run the Ikonboard and I found out we didn't have the module installed, after I installed it the board ran flawless but it also got me thinking about all the mods

RE: passing an array and a hash to a subroutine.

2002-11-21 Thread Timothy Johnson
Exactly. For those of you playing along at home, the way that you would do this is something like this: ## my @array = qw(one two three); my %hash = (first => 'Tim', last => 'Johnson', geek => 'yes'); my $scalar = "This is my string.\n"; myFunc(\@array,\%hash,$sc

Starter of a script

2002-11-21 Thread cedric gross
Hello every body, How to know what task have run a perl script ? I mean is possible to get within the code which process Id have start the script. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Parsing a comment

2002-11-21 Thread David Buddrige
Please also note that I am passing a reference to an array of strings that contains the doc++ comment to this subroutine. Subsequently, I get the array of strings that is the doc++ comment into a single string which I then attempt to use pattern matching to extract the different components of

Parsing a comment

2002-11-21 Thread David Buddrige
Hi all, I am writing a program which will re-arrange a doc++ comment. A doc++ comment is a C/C++ comment that starts with an extra "*". An example of a doc++ comment is this: /** @doc Some general info about a function. @precondition Any precondition that the function has @postcondition