Executing scripts from different directories

  Hi I have two scripts abc.pl and xyz.pl. Now abc.pl uses xyz.pl. i have implemented this as below. abc.pl { system("perl xyz.pl arg1 arg2"); ... } Now both abc.pl and xyz.pl are in the same directory c:\test\script. But now i want abc.pl in some different directory, but xyz.pl re

RE: Could anyone please answer a simple PERL question.

Just for this thread, I have gone to ActiveState and learned how to use their search facility to find my email address to copy and update my response to someone way back on August 31, 2000 - this was my very first perl success ;-D I have added a note regarding Windows XP at the end of it. You're

Re: Write to file with shared server certificate

Ron Goral wrote: If I try to create the file using open(LOG,"+>>$logfile), the error is: No such file or directory at /usr/wwws/htdocs/mydomain/cgi-bin/test.cgi line 35. You must not include the '+' character when creating a file. perldoc perlopentut Try: open LOG, ">> $logfile" or die $!;

RE: Write to file with shared server certificate

> -Original Message- > From: Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED] > Sent: Thursday, July 08, 2004 3:25 PM > To: [EMAIL PROTECTED] > Subject: Re: Write to file with shared server certificate > > > Ron Goral wrote: > > chmod 0666 is the right thing. Thank you. However, I am not abl

Re: Name "main::file" used only once:

Brian Volk wrote: Below is the program I'm using... It works but I'm getting an error message... "Name ... used only once: possible typo ..." is not an error message, it's a warning message. Can you please tell me what I'm doing wrong? You are not using strict. PS: The program will not fun if I us

Re: Name "main::file" used only once:

On Thu, 8 Jul 2004 15:17:55 -0500 , Brian Volk <[EMAIL PROTECTED]> wrote: > Hi All, > > Below is the program I'm using... It works but I'm getting an error > message... Can you please tell me what I'm doing wrong? I listed the error > below... Thanks so much for all your help. PS: The program w

RE: Need to see the http://

I did some research and figured it out... :-) if /$RE{URI}{HTTP}{-keep}/; Thanks! Brian > -Original Message- > From: Brian Volk > Sent: Thursday, July 08, 2004 3:48 PM > To: Brian Volk > Subject: Need to see the http:// > > Hi All, > > One more for ya... I have

Name "main::file" used only once:

Hi All, Below is the program I'm using... It works but I'm getting an error message... Can you please tell me what I'm doing wrong? I listed the error below... Thanks so much for all your help. PS: The program will not fun if I use strict; -- start

Re: $^T inconsistant?

On 08 Jul 2004 16:36:59 -0700, Randal L. Schwartz wrote > Maybe you'd be happier with: > > use Time::localtime; > printf "Year is %d\n", localtime->year + 1900; Nope - I don't feel that year logic should be in every piece of code that needs to know the date (so I would still have

Re: $^T inconsistant?

> "Perl" == Perl Org <[EMAIL PROTECTED]> writes: Perl> In fact I wish localtime would return an associative array Perl> instead of a positional array (I basically wrap localtime with a Perl> sub that converts the data to a hash). Maybe you'd be happier with: use Time::localtime;

Re: ${DBI::errstr} vs $DBI::errstr

On Thu, 8 Jul 2004 10:57:28 -0400, perl.org wrote > > Looks good, except I think I noticed yesterday that if the error is actually > connecting to the database, errstr may contain the username and > password, which may then be visible to the user. Since RaiseError > seems to always die with err

MIME coding & flags for sending a .csv or Excel file

I am sending Excel and .csv files via MIME and it appears that the file is created on the server with the needed data, but when the script is supposed to email a copy, I am getting blank .csv files. My question: Do I need to identify the file in MIME as a .csv or Excel? Are there flags that

Re: $^T inconsistant?

On Thu, 8 Jul 2004 15:06:49 -0700, John W. Krahn wrote > > then why are you using $/ instead of "\n" in your example? I used to use \n but have converted to $/. I thought I was doing this to be less platform-specific and that's more important to me than readability. I could be just making thing

[Solved] Could anyone please answer a simple PERL question.

On Thursday 08 July 2004 HH:31:20, [EMAIL PROTECTED] wrote: > A sure kill is to search for "perl*" and take note of the path. Then you > can do one of the following: > Just to let you know: The "path" variable has been the problem (as Marco wrote me off-list). Another happy customer ;-) -- To

Re: $^T inconsistant?

On Thursday 08 July 2004 13:51, perl.org wrote: > > On Thu, 8 Jul 2004 13:01:07 -0700, John W. Krahn wrote > > > > You like typing a lot? :-) You could use a hash slice. > > I'm not really a Perl programmer so I try to make the code clear to > people coming from Java, C#, etc. Ah, then why are y

RE: printing 10 scalers/elements PLEASE DISREGARD and IGNORE. My Apologies. I have to redo my code.

Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams 614-566-4145

RE: printing 10 scalers/elements

All, Could you please explain line by line what this code is doing below from Charles? I think I understand most of it but just to make sure. All I want to do is set up a maximum 40 element array with each element as an E string. From there only print 5 elements per line then "\n" then elem

Re: $^T inconsistant?

On Thu, 8 Jul 2004 14:05:59 -0400, perl.org wrote > It seems random - most of the time it gets one number, but just once > in a while it gets that number plus one. I can't prove it (it's > difficult to track) but it seems like I can get the original value > after I've gotten the incremented val

Re: Use of uninitialized value in string eq

On Thursday 08 July 2004 12:49, FyD wrote: > > Hi, Hello, > Here is a short perl script: > >open (FILE, "<$START"); You should *ALWAYS* verify that the file opened correctly: open FILE, "<$START" or die "Cannot open $START: $!"; >$nbc=0; You should use lexically scoped variables inst

Re: Mail::Internet Mime::Entity object $part

> Howdy group. > > In a recent post someone mentioned this url: > http://www.perl.com/pub/a/2004/06/10/email.html > The key to understanding that snippet is the line: "Thankfully, MIME::Entity is a MIME-aware subclass of Mail::Internet;" and specifically that little word in the middle, 'subcla

Re: $^T inconsistant?

On Thu, 8 Jul 2004 13:01:07 -0700, John W. Krahn wrote > > You like typing a lot? :-) You could use a hash slice. I'm not really a Perl programmer so I try to make the code clear to people coming from Java, C#, etc. (no remarks on my relative success are needed). This kind of construct seems f

Mail::Internet Mime::Entity object $part

Howdy group. In a recent post someone mentioned this url: http://www.perl.com/pub/a/2004/06/10/email.html My question is about the Mail::Internet Mime::Entity object and example mentioned at that url: my $num_parts = $obj->parts; for (0..$num_parts) { my $part = $obj->parts($_); ... } 1) $

Re: Could anyone please answer a simple PERL question.

A sure kill is to search for "perl*" and take note of the path. Then you can do one of the following: 1./ update your path variable, verify that you have really done that with the set command. OR 2./ call up the perl interpreter using the absolute path. I think he probabily have not inst

Re: Write to file with shared server certificate

Ron Goral wrote: chmod 0666 is the right thing. Thank you. However, I am not able to do that programmatically when the script is running in secure mode. The following dies: $file_path = qq[/usr/wwws/htdocs/mydomain/cgi-bin/logs/errs.log]; chmod 0666,$file_path or die "Cannot chmod $file_path - $!

RE: where to put modules?

To see what directories are in your Perl's path, you can run this at the command line. It should work on Win or *nix. perl -e "print join(qq[\n], @INC)" You might instead want to create your own "private" library by setting the PERL5LIB environment variable. It will add a directory to the begi

Re: $^T inconsistant?

On Thursday 08 July 2004 09:25, perl.org wrote: > > I am doing something like: > > ( $data{sec}, $data{min}, $data{hour}, $data{day}, $data{mon}, > $data{year}, $data{wday}, $data{yday}, $data{isdst} ) = localtime( > $^T ); You like typing a lot? :-) You could use a hash slice. @data{ qw[sec mi

RE: Use of uninitialized value in string eq

> "Use of uninitialized value" This just means that you haven't given a value to $atmnb yet (which will happen unless /^XXX/ matches in your loop). To get rid of the warning you should initialize the variable when you create it. Instead of: my $atmnb; Use this: my $atmnb = ''; Rob -Origi

Use of uninitialized value in string eq

Hi, Here is a short perl script: open (FILE, "<$START"); $nbc=0; foreach(){ if (/^XXX/ig) { $atmnb[$nbc]++;} if (/^YYY/ig) { $atmnb1=$atmnb[0];} if (/^ZZZ/ig) { $nbc++;} } if ($atmnb1 eq "") { $atmnb1=$atmnb[0];} close(FILE); $nbc++; When I tr

Re: Could anyone please answer a simple PERL question.

On Thursday 08 July 2004 HH:18:19, JupiterHost.Net wrote: > Marco wrote: Hi Marco, > > and on DOS prompt when I say, perl simple.pl > > it says: > > 'perl' is not recognized as an internal or external > > command, > > > > what am I missing? an execution path or something? > > Not sure, you may ne

RE: Write to file with shared server certificate

> -Original Message- > From: Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED] > Sent: Thursday, July 08, 2004 9:19 AM > To: [EMAIL PROTECTED] > Subject: Re: Write to file with shared server certificate > > > Ron Goral wrote: > > I need to write to a log file to record things happening in a cgi

Re: where to put modules?

> lets say i made a module called cjb::string. where would i put > cjb/string.pm? i'm using fedora core 1 and the default perl installation. > i've read in my book about modules and a little bit about them on > perldoc.com, but i couldn't find the answer to this. > > thanks. > Generally lower

Re: Could anyone please answer a simple PERL question.

Marco wrote: Hi Lee, Hello, I appreciate your help. No problem, just don't forget to reply to the list so everyone can learn/help :) I double click on it but it opens the file with Notes, because that's how I created it. Then you probably don't have .pl associated with perl or its not a .pl file.

Re: Excel format from a PERL script

Cool! I appreaciate that! [EMAIL PROTECTED] wrote: If I understand your question correctly, then all you is Spreadsheet::WriteExcel It comes with an example which is very easy to follow. I have used this quite a bit and like I said, it is very easy to follow. __ William Ampeh

Re: where to put modules?

Christopher J. Bottaro wrote: lets say i made a module called cjb::string. where would i put cjb/string.pm? i'm using fedora core 1 and the default perl installation. i've read in my book about modules and a little bit about them on perldoc.com, but i couldn't find the answer to this. Based on m

Re: Could anyone please answer a simple PERL question.

Windows automatically associates a .pl file with the Perl interpreter, so simply clicking on the "yellow icon" associated with the file (assuming you have not changed it", should do the job. The down side of this is that the resulting DOS window disappears as soon at the program terminates. A sol

where to put modules?

lets say i made a module called cjb::string. where would i put cjb/string.pm? i'm using fedora core 1 and the default perl installation. i've read in my book about modules and a little bit about them on perldoc.com, but i couldn't find the answer to this. thanks. -- To unsubscribe, e-mail: [

RE: @ARGV - override

Brian Volk wrote: > Hi All, > > I have a directory full of .txt files that I need to send to > Regexp::Common... I want to over ride the diamond operator by > defining the directory using @ARGV . I'm not sure how I define > it.. Please help, w/o too much laughing! :-) > > -

Re: Excel format from a PERL script

If I understand your question correctly, then all you is Spreadsheet::WriteExcel It comes with an example which is very easy to follow. I have used this quite a bit and like I said, it is very easy to follow. __ William Ampeh (x3939) Federal Reserve Board -- To unsubscribe

Re: @ARGV - override

Gunnar Hjalmarsson wrote: @ARGV = readdir BIN; OTOH, you probably want to exclude at least the '.' and '..' directories, so maybe @ARGV = grep { !/^\./ } readdir BIN; -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For add

Re: @ARGV - override

Brian Volk wrote: I have a directory full of .txt files that I need to send to Regexp::Common... I want to over ride the diamond operator by defining the directory using @ARGV . @ARGV = readdir BIN; Just a thought. -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To uns

@ARGV - override

Hi All, I have a directory full of .txt files that I need to send to Regexp::Common... I want to over ride the diamond operator by defining the directory using @ARGV . I'm not sure how I define it.. Please help, w/o too much laughing! :-) - the start -

Re: Cron Tab Implementation

I think you are experiencing some of my headaches here. Why recreate a fully functional and extensively tested utility? My solution, when pressed, simply create an input to the utility and fire up the utility. That is, if you still want to use Perl for this, simply generate your crontab file

RE: Cron Tab Implementation

Please bottom post... > Ok. Would persons not having access to crontab use this method. If that > can be done then this should be sufficient for me. > cron doesn't even have to be installed. the point of the module is to write a very simple script that acts as a scheduler. Within that script th

Re: $^T inconsistant?

On 08 Jul 2004 17:59:26 +0100, Jose Alves de Castro wrote > Does it vary randomly, or does it just change after a while and stick > with the new value? It seems random - most of the time it gets one number, but just once in a while it gets that number plus one. I can't prove it (it's difficult to

Re: Excel format from a PERL script

SPER!! Thanks!! [EMAIL PROTECTED] wrote: they want it in Excel (i guess the few conversion steps cost them too much to hire some one who knows Excel other than "save" , "delete", "open", "exit"). So can Perl save me a mouthful of curse words by doing this "SMALL" task? _

RE: Cron Tab Implementation

Ok. Would persons not having access to crontab use this method. If that can be done then this should be sufficient for me. -Original Message- From: Wiggins d Anconia [mailto:[EMAIL PROTECTED] Sent: Thursday, July 08, 2004 12:05 PM To: NandKishore.Sagi; [EMAIL PROTECTED] Subject: RE: Cron

Re: Excel format from a PERL script

they want it in Excel (i guess the few conversion steps cost them too much to hire some one who knows Excel other than "save" , "delete", "open", "exit"). So can Perl save me a mouthful of curse words by doing this "SMALL" task? ___ There is an exc

Excel format from a PERL script

I know this may sound crazy (I have asked crazy question before here so I hope this doesn't get me banned!!) but I have this client who receives automated reports from me every day from a PERL script. The script comes in a .csv format (changed from .txt format) and now they are asking me if I ca

RE: Cron Tab Implementation

Please bottom post... > Actually I had a lot of time right now at hand and I was trying to spend > littile time more effectively ;). Anyway I checked that module. It uses > the basic cron file. This job has to be run on multiple boxes and hence > rather than depending upon the Cron tab functionali

Re: $^T inconsistant?

Does it vary randomly, or does it just change after a while and stick with the new value? I've tried in on my RH and it works fine... :-| Thoughts, anyone? jac On Thu, 2004-07-08 at 17:25, perl.org wrote: > I am doing something like: > > ( $data{sec}, $data{min}, $data{hour}, $data{day}, $data

RE: Cron Tab Implementation

You should take a look at: Config::Crontab (I found this to be helpful, in the past) and http://www.webmin.com/ (if memory doesn't fail me, it is written in Perl, and it may suffice your needs...) HTH, jac (back again) On Thu, 2004-07-08 at 17:53, NandKishore.Sagi wrote: > Actually I had a lot

Re: Could anyone please answer a simple PERL question.

Marco wrote: Hi, I always used PERL in UNIX environment, so it's my Hello first time trying to run a PERL script in Windows env and I have a simple question to ask, (I know how to do this in UNIX but not in windows). I installed PERL for Windows under: C:\Z_Perl_584\Perl\bin my below simple PERL sc

RE: Cron Tab Implementation

Actually I had a lot of time right now at hand and I was trying to spend littile time more effectively ;). Anyway I checked that module. It uses the basic cron file. This job has to be run on multiple boxes and hence rather than depending upon the Cron tab functionality I wanted to implement (that

Re: Cron Tab Implementation

I am not sure why you need perl for this. Just write a perl script which does the job and put the file in crontab. -Mandar On Thu, 8 Jul 2004, NandKishore.Sagi wrote: > Hi All , > > I want to implement the functionality of crontab in Perl. Which > module do you guys suggest can be used.

Re: Cron Tab Implementation

> > Hi All , > > I want to implement the functionality of crontab in Perl. Which > module do you guys suggest can be used. The only consideration is it > should be simple to use. That is I should be able to say execute this > job at this given time say 1:00 AM . After that I can just go home

Could anyone please answer a simple PERL question.

Hi, I always used PERL in UNIX environment, so it's my first time trying to run a PERL script in Windows env and I have a simple question to ask, (I know how to do this in UNIX but not in windows). I installed PERL for Windows under: C:\Z_Perl_584\Perl\bin my below simple PERL script is called "si

Cron Tab Implementation

Hi All , I want to implement the functionality of crontab in Perl. Which module do you guys suggest can be used. The only consideration is it should be simple to use. That is I should be able to say execute this job at this given time say 1:00 AM . After that I can just go home and have a nic

Re: trim

Thanks a lot! It worked! - Original Message - From: "Bob Showalter" <[EMAIL PROTECTED]> To: "'John'" <[EMAIL PROTECTED]>; "Perl Beginners" <[EMAIL PROTECTED]> Sent: Thursday, July 08, 2004 7:07 PM Subject: RE: trim > John wrote: > > Is there any trim function that trims the spaces bef

$^T inconsistant?

I am doing something like: ( $data{sec}, $data{min}, $data{hour}, $data{day}, $data{mon}, $data{year}, $data{wday}, $data{yday}, $data{isdst} ) = localtime( $^T ); If I do this repeatedly on Windows for one invocation of a Perl script, the value of $data{sec} can vary by 1. Is there an explana

Re: trim

John wrote: Is there any trim function that trims the spaces before and the end of the string? Not built-in in the Perl compiler. But you can use your own; I'm using this for instance: sub trim{ for ( grep defined, @_ ){ s/^\s+//; s/\s+$//; }

RE: trim

John wrote: > Is there any trim function that trims the spaces before and the end > of the string? There's probably a module somewhere with such a function. You can also write one simply. I usually use the following: s/^\s+//, s/\s+$// for $variable; I like that form because you can list a

Re: trim

> > Is there any trim function that trims the spaces before and the end of the string? > perldoc -q 'strip blank space' http://danconia.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

trim

Is there any trim function that trims the spaces before and the end of the string?

Re: Mail App

Mail::Box is your friend ! I'm using it with a lot of success for needs similar to yours. Here some references: http://perl.overmeer.net/mailbox/ http://search.cpan.org/~markov/Mail-Box-2.055/lib/Mail/Box.pod http://marc.theaimsgroup.com/?l=perl-mailbox I'd like to add an article that Simon Cozens

Re: GnuPG::Interface hangs while decrypting files over 61068 bytes

On Wed, 2004-07-07 at 09:34, Wiggins d Anconia wrote: > Don't seem to have it archived at work. I will check at home or see if I > can whip up something or do some more testing. What versions of Perl, > GnuPG, and the module are you using? I wonder if there might be > something in there >

Re: Determine if sub exists in module

> On Thu, 8 Jul 2004 08:51:08 -0600, Wiggins d Anconia wrote > > > > perldoc UNIVERSAL specifically the 'can' function. > > That's the one. But who's it calling "DUMMY"? That's not my code... > > C:\temp>type test.pl > use CGI; > use Data::Dumper; > > my ${ref} = CGI->can( 'param' ); > > pri

RE: Determine if sub exists in module

perl.org wrote: > I can probably figure this out if I spend some time but as I was > going through it more questions were raised. > > Is it possible for a Perl script to check if a subroutine exists in a > module without actually invoking that subroutine? Not really, because of autoloading. See p

Re: Determine if sub exists in module

On Thu, 8 Jul 2004 08:51:08 -0600, Wiggins d Anconia wrote > > perldoc UNIVERSAL specifically the 'can' function. That's the one. But who's it calling "DUMMY"? That's not my code... C:\temp>type test.pl use CGI; use Data::Dumper; my ${ref} = CGI->can( 'param' ); print Dumper( ${ref} ); ${re

Re: Creating or renaming a file with the creation date included (Impossible?)

So I guess to automate a script daily, and save it under a name that includes the date can only be done with "rename()" function? Or is there a work around that includes a module? If so, please let me know. Regards. JC "Randal L. Schwartz" <[EMAIL PROTECTED]> wrote: > "Jason" == Jason Corb

Re: ${DBI::errstr} vs $DBI::errstr

On 8 Jul 2004 13:41:28 -, Peter Scott wrote > Also, look at the RaiseError property of DBI connections. I gave up > referring to DBI::errstr some years ago. Looks good, except I think I noticed yesterday that if the error is actually connecting to the database, errstr may contain the username

Re: Determine if sub exists in module

On Thu, 8 Jul 2004 08:51:08 -0600, Wiggins d Anconia wrote > > All of this seems a little fishy, what is > the overall goal and why do you need to pass sub names to a separate > script? I am assembling the command line under the Interwoven CMS workflow engine, which is basically Perl. Each auto

Re: Determine if sub exists in module

> I can probably figure this out if I spend some time but as I was going through > it more questions were raised. > Some time, or some more time. Some time is usually expected > Is it possible for a Perl script to check if a subroutine exists in a module > without actually invoking that sub

Determine if sub exists in module

I can probably figure this out if I spend some time but as I was going through it more questions were raised. Is it possible for a Perl script to check if a subroutine exists in a module without actually invoking that subroutine? I have a Perl module that contains a bunch of subroutines. I nee

Re: Write to file with shared server certificate

Ron Goral wrote: I need to write to a log file to record things happening in a cgi script. The environment is secured using a server-wide, shared certificate. I cannot write to the file and get an error telling me I do not have the proper permissions to do so. So, why don't you change the file per

Re: ${DBI::errstr} vs $DBI::errstr

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Perl.Org) writes: >If my Perl contains ${DBI::errstr} I get warnings like this: > >Ambiguous use of ${DBI::errstr} resolved to $DBI::errstr at (eval 20) line 284. > >If my Perl contains $DBI::errstr (without the braces) I don't get these >warnings

Write to file with shared server certificate

Greetings - I need to write to a log file to record things happening in a cgi script. The environment is secured using a server-wide, shared certificate. I cannot write to the file and get an error telling me I do not have the proper permissions to do so. The log file is in my web's directory, b

RE: ${DBI::errstr} vs $DBI::errstr

perl.org wrote: > If my Perl contains ${DBI::errstr} I get warnings like this: > > Ambiguous use of ${DBI::errstr} resolved to $DBI::errstr at (eval 20) > line 284. > > If my Perl contains $DBI::errstr (without the braces) I don't get > these warnings. Is there an explanation for this? When Pe

Re: "Hash as object attribute"-Problem with "use strict"

Oh no, what a simple mistake. :) I thank you so much! Best regards Luis Jeff 'Japhy' Pinyan schrieb: On Jul 7, Luis said: "Can't use string ("1") as a HASH ref while "strict refs" in use at TestObject.pm line 21." sub insertFriends { my $self = @_; The problem is that $self is not what y