Re: Login code

2009-01-08 Thread David Dorward
Brent Clark wrote: Would anyone have any example code of sessions for logins. CGI::Session has some example code: http://search.cpan.org/~markstos/CGI-Session-4.40/lib/CGI/Session.pm If you want to use the Catalyst framework, their tutorial has a section on handling logins with sessions:

Re: Send email using SMTP

2009-01-08 Thread Adam Jimerson
Gunnar Hjalmarsson wrote: Adam Jimerson wrote: I solved my problem using the sendmail with the code below in my script: open (MAIL, |/usr/sbin/sendmail -t ); print MAIL From: someaddr...@somedomain\n; print MAIL To: someaddre...@somedomain\n; print MAIL Content-Type: text/plain\n; print

Re: Send email using SMTP

2009-01-08 Thread Gunnar Hjalmarsson
Adam Jimerson wrote: Gunnar Hjalmarsson wrote: Adam Jimerson wrote: are you using the -T switch on your script? When I tried to open /usr/bin/mail with that switch on I get a error message about an insecure environment command. Did it just say insecure environment? On my box it says:

Re: Send email using SMTP

2009-01-08 Thread Mike Williams
On Thu, Jan 8, 2009 at 2:17 PM, Adam Jimerson vend...@charter.net wrote: Please read more about Perl security in perldoc perlsec. I wasn't able to remember what it exactly said, but yes it is about $ENV{PATH}, on my machine perldoc perlsec is riddled with formating problems it looks

Re: make command throws error Perl script no found C:/Program No such file or directory

2009-01-08 Thread viji19812001
On Jan 6, 5:32 pm, rc...@pcug.org.au (Owen) wrote: Hi, I have perl5.10.0 installed under C:/ and using bash prompt to run a makecommand. How are you doing that? When I issue themakecommandit throws error Perl Script not found C:/Program no such file or directory Where is the

Re: make command throws error Perl script no found C:/Program No such file or directory

2009-01-08 Thread Owen
On Jan 6, 5:32 pm, rc...@pcug.org.au (Owen) wrote: Hi, I have perl5.10.0 installed under C:/ and using bash prompt to run a makecommand. How are you doing that? When I issue themakecommandit throws error Perl Script not found C:/Program no such file or directory Where is the

Neater way to declare variables

2009-01-08 Thread Taylor, Andrew (ASPIRE)
Hello I have a script that is (at one point) reading through a file. The file is processed line by line and each line split into an array like so: while ($TESTFILE) { my $cur_line=$_; chomp ($cur_line); my @split_line = split( /$t_delim/, $cur_line ); # In a number

Re: Neater way to declare variables

2009-01-08 Thread Mr. Shawn H. Corey
On Thu, 2009-01-08 at 11:56 +, Taylor, Andrew (ASPIRE) wrote: This works OK, but I'm trying to avoid declaring variables seperately from assigning them (wherever possible), and trying to keep the size of the script down without losing human legibility. Is there a neater/cleverer way

Re: Neater way to declare variables

2009-01-08 Thread Telemachus
On Thu Jan 08 2009 @ 11:56, Taylor, Andrew (ASPIRE) wrote: # In a number of places, I have code that looks like the following. my $default_type; if( $split_line[0] eq DEFAULT_INPUT ) { $default_type = INPUT; } snip This works OK, but I'm trying to avoid

Re: Neater way to declare variables

2009-01-08 Thread Jenda Krynicky
From: Taylor, Andrew \(ASPIRE\) andrew.tayl...@hmrcaspire.com I have a script that is (at one point) reading through a file. The file is processed line by line and each line split into an array like so: while ($TESTFILE) { my $cur_line=$_; chomp ($cur_line); while (defined(my

Re: Send email using smtp

2009-01-08 Thread Jenda Krynicky
From: Gunnar Hjalmarsson nore...@gunnar.cc Steve Bertrand wrote: Fúlvio Figueirôa wrote: I solved my problem using sendmail with the code below: open (MAIL, |/usr/sbin/sendmail -t ); print MAIL From: someaddr...@somedomain\n; print MAIL To: someaddre...@somedomain\n; print MAIL

RegExp Searching - part deux

2009-01-08 Thread Paul M
What happens if I have a simple string: my $line = 1elem21elema2a 1 bad13elema2 1 bad elemb2 bad 2 z 1elemc2c13elemc2b13elemb2e13elem2; That must follow simply rules: Find every alpha character string between the numbers one and two. The string may not include the number one two or three. SO:

Re: RegExp Searching - part deux

2009-01-08 Thread Paul M
That was easier: #!/usr/bin/perl use strict; use warnings; #my $line = 1elem21elema2a 1 bad13elema2eone 1 bad 1elemb2bone 2 bad1elemc2c13elemc2btwo13elemb2etwo13elem2; my $line = elem1elemaa bad/elemae1 bad elembb1 badelemcc/elemcb2/elembe2/elem1; my $cnt = 0; my @insides = $line =~ m{

Re: Neater way to declare variables

2009-01-08 Thread Ron Bergin
On Jan 8, 3:56 am, andrew.tayl...@hmrcaspire.com (Andrew Taylor) wrote: Hello I have a script that is (at one point) reading through a file.  The file is processed line by line and each line split into an array like so: while ($TESTFILE) {   my $cur_line=$_;   chomp ($cur_line); while

Re: How to know no. of times the script has been executed?

2009-01-08 Thread Mike Ward
sanket vaidya wrote: Hi all, I want to do something like this. Invoke a cmd (using system command) print a welcome message execute the remaining part of script. Now what I want is 1. cmd should only be invoked with welcome message if the script is executed first time. 2. I

perl books

2009-01-08 Thread Mike McClain
I have 'Programming Perl' and 'Learning Perl' and was fortunate enough to get 2 copies of 'Perl Cookbook' for Christmas, one of which I plan to return for exchange. After looking over O'Reilly's offerings I've narrowed my choices to these: Mastering Perl By brian d foy Perl Best Practices

OO confusion

2009-01-08 Thread root
The following script gives me confusing results. I've not delved into OOP before and am surprised when something appears to work but gives wrong answers. Explicitly Digest::MD5's md5_hex gives wrong answers if called as Digest::MD5-md5_hex. OK, I've figured out that it shouldn't be

Re: recursively find and print non-ascii characters in file

2009-01-08 Thread Mike McClain
On Thu, Jan 08, 2009 at 01:52:02AM +, Rob Dixon wrote: Chas. Owens wrote: File::Find::find( File::Find exports find() by default. It is better either to use the import or to prevent it altogether with use File::Find (); in the first place. Rob In what way is it better?

Re: OO confusion

2009-01-08 Thread Chas. Owens
On Thu, Jan 8, 2009 at 17:47, root mike.j...@nethere.com wrote: The following script gives me confusing results. I've not delved into OOP before and am surprised when something appears to work but gives wrong answers. Explicitly Digest::MD5's md5_hex gives wrong answers if called as

Re: recursively find and print non-ascii characters in file

2009-01-08 Thread Chas. Owens
On Thu, Jan 8, 2009 at 14:10, Mike McClain mike.j...@nethere.com wrote: On Thu, Jan 08, 2009 at 01:52:02AM +, Rob Dixon wrote: Chas. Owens wrote: File::Find::find( File::Find exports find() by default. It is better either to use the import or to prevent it altogether with use

Re: Send email using smtp

2009-01-08 Thread Steve Bertrand
Jenda Krynicky wrote: From: Gunnar Hjalmarsson nore...@gunnar.cc Steve Bertrand wrote: Fúlvio Figueirôa wrote: I solved my problem using sendmail with the code below: open (MAIL, |/usr/sbin/sendmail -t ); print MAIL From: someaddr...@somedomain\n; print MAIL To: someaddre...@somedomain\n;

Re: OO confusion

2009-01-08 Thread John W. Krahn
root wrote: The following script gives me confusing results. I've not delved into OOP before and am surprised when something appears to work but gives wrong answers. Explicitly Digest::MD5's md5_hex gives wrong answers if called as Digest::MD5-md5_hex. OK, I've figured out that it

How to check whether user types exit in cmd?

2009-01-08 Thread sanket vaidya
Hi all, I am invoking dos using system 'start cmd /k echo Welcome' in my script Now I want following: If user types exit on does screen { do something } How to check whether user types 'exit' on dos screen. Also I want If user closes the cmd window (by clickin 'x') { do something }

RE: How to know no. of times the script has been executed?

2009-01-08 Thread sanket vaidya
Thanks for hint Mike. I think now I will be able to proceed. -Original Message- From: Mike Ward [mailto:m...@farematrix.com] Sent: Thursday, January 08, 2009 9:59 PM To: beginners@perl.org Subject: Re: How to know no. of times the script has been executed? sanket vaidya wrote: Hi