Re: Tutorial for a menu driven perl script

Look for tutorials on Perl/Tk Google Perl/Tk Here's an old one that is still good -> http://www.perl.com/pub/1999/10/perltk/ HTH From: newbie01 perl To: beginners Sent: Thursday, 20 December 2012, 18:42 Subject: Tutorial for a menu driven perl script

Re: Need a Perl Book for Beginner

I agree with David ... good list. Tony From: David Christensen To: beginners@perl.org Sent: Tuesday, 4 December 2012, 20:36 Subject: Re: Need a Perl Book for Beginner On 12/04/12 14:56, Asad wrote: >            Would you guidance to start  develop lo

Re: while(@data) works but why

rl.org Sent: Fri, 12 August, 2011 14:13:26 Subject: Re: while(@data) works but why On 8/12/11 Fri Aug 12, 2011 12:02 PM, "Tony Esposito" scribbled: > . > . > . > while(@dat = $sth->fetchrow) { > print "@dat\n"; > . > . > . > > This cod

Re: while(@data) works but why

got it ... thank you. cheers! From: Brandon McCaig To: Tony Esposito Cc: beginners@perl.org Sent: Fri, 12 August, 2011 14:08:52 Subject: Re: while(@data) works but why On Fri, Aug 12, 2011 at 3:02 PM, Tony Esposito wrote: > . > . > . > while

while(@data) works but why

. . . while(@dat = $sth->fetchrow) { print "@dat\n"; . . . This code works yet there is no 'my @dat' defined anywhere in the code. Using Perl 5.8.x - 5.14.x Q: Why does the variable @dat not need a 'my' in front? Cheers!

Re: help on perlform

H K.V.. Might want to try again... I googled and got "About 15,600 results (0.23 seconds) " try. perldoc.perl.org/*perlform*.html Tony pawan kumar wrote: Hi folks, Can anyone please explain what is "perlform" and its usage.I used google b

Re: Perl LWP::Simple

Bravo!  I am in ... but I need to traverse many links over multiple pages to get to the one that points to the file I want to download.  Would follow_link() be the answer? Cheers!! From: Shawn H Corey To: Tony Esposito Cc: Beginners Perl Sent: Tue, 4 May

Perl LWP::Simple

Cheers! New to LWP and downloading file/copying file from Web to local box.  Had a go at it and failed horribly...  On Solaris 10 with Perl 5.10. #!/usr/bin/perl -w use strict; use LWP::Simple qw($ua get); my $webpage ="https://www.mywebpage.com/Documents.zip";; $ua->timeout(20); my $content = ge

Re: Date_GetPrev "error"

Thx.  I see that I do not need to do both!  Got it fixed. From: Uri Guttman To: Tony Esposito Cc: Beginners Perl Sent: Thu, 15 April, 2010 13:04:09 Subject: Re: Date_GetPrev "error" >>>>> "TE" == Tony Esposito writes:  

Date_GetPrev "error"

Hello, Date_GetPrev only getting 3 previous days, not 5 previous days.  Using Perl 5.8.x. Code use strict; use Date::Manip; my @days = ( 'Fri', 'Mon', 'Tue', 'Wed', 'Thu' ); Date_Init("TZ=CST6CDT"); foreach (@days) {   print $_ . "\n"; } my @dates = (); my $today = ParseDate('today'); fore

Re: tr// versus s///g

te: From: John W. Krahn Subject: Re: tr// versus s///g To: "Perl Beginners" Date: Monday, 8 March, 2010, 9:50 Tony Esposito wrote: > Does tr/'\n'/' '/ Replace every ' with ' and every "\n" with " " and every ' with '.

Re: tr// versus s///g

You miss my point but thanks for the syntax check.  I am concerned with comparing the functionality, one versus the other.   Thanks. --- On Mon, 8/3/10, Shawn H Corey wrote: From: Shawn H Corey Subject: Re: tr// versus s///g To: "Tony Esposito" Cc: "Beginners Perl" D

tr// versus s///g

Does tr/'\n'/' '/ do the same as tr/'\n'/' '/g?  ( replace newline with space ) If so, is one preferred over the other?  

Need email list for Perl/Tk questions

Besides this forum, does anyone know of a good Perl/Tk email list/forum in which to ask questions about Perl/Tk?

Re: prepare(SELECT ... FROM TABLE) error

$mytable does not exist and just move on to the next table? --- On Mon, 1/2/10, Tony Esposito wrote: From: Tony Esposito Subject: Re: prepare(SELECT ... FROM TABLE) error To: "Beginners Perl" , "7" <7stud.7s...@gmail.com> Date: Monday, 1 February, 2010, 17:02 Als

Re: prepare(SELECT ... FROM TABLE) error

Also, if prepare fails, I want to continue processing -- hence the need to capture the error in my code and not have DBI::DBD throw and exception then stop all processing ... --- On Mon, 1/2/10, Tony Esposito wrote: From: Tony Esposito Subject: Re: prepare(SELECT ... FROM TABLE) error To

Re: prepare(SELECT ... FROM TABLE) error

ror To: "Beginners Perl" Date: Monday, 1 February, 2010, 14:05 On Mon, Feb 1, 2010 at 12:11 PM, Tony Esposito wrote: > when the table does not exist the prepare fails.  How do ignore the error > thrown by the prepare() and catch it later in the program? > > > my $dbh

prepare(SELECT ... FROM TABLE) error

when the table does not exist the prepare fails.  How do ignore the error thrown by the prepare() and catch it later in the program?     my $dbh = DBI->connect("dbi:ODBC:mysql"   ,$login ,$passwd ,{ RaiseError => 0 }  

Oracle DBI::ODBC and SELECT FOR UPDATE

Has anyone successfully used, in Oracle, a 'SELECT ... FOR UPDATE' using the Perl DBI:: ODBC?

passing command-line arg containing '@'

I need to pass an command-line arg that is a string which contains the '@'. Is there any way to do this and also 'tell' Perl not to interpret this as other than a '@' character? Thx.

Getting USER env variable in Windows -- How to?

I need to get the current USER env var in a Windows Perl program.  Does anyone know how this is done?  I have done it on UNIX/Linux. Thx.

Re: Email does not send attachment ...

n to go on, though, it's hard to diagose the original problem. Phil > -Original Message- > From: Robert H [mailto:sigz...@gmail.com] > Sent: Tuesday, December 08, 2009 6:58 PM > To: beginners@perl.org > Subject: Re: Email does not send attachment ... > > On 12/8/09 3:5

Email does not send attachment ...

Hello, I am using Perl 5.8 on WindowsXP and Windows Server 2003.  I can not get the following attachment to arrive/attach even though I get the email with no issues.  Any ideas?   use MIME::Lite;  use Net::SMTP;    unless (-e 'C:/my_file.log' && -s 'C:/my_file.log' ) { print "file not found\n"

Re: Limit on number of columns pulled using DBI::ODBC

e of using row_num instead of LIMIT (which I believe is MySQL)?   thanks --- On Wed, 30/9/09, Steve Bertrand wrote: From: Steve Bertrand Subject: Re: Limit on number of columns pulled using DBI::ODBC To: "Tony Esposito" Cc: "Beginners Perl" Date: Wednesday, 30 September,

Re: Limit on number of columns pulled using DBI::ODBC

: Steve Bertrand Subject: Re: Limit on number of columns pulled using DBI::ODBC To: "Tony Esposito" Cc: "Beginners Perl" Date: Wednesday, 30 September, 2009, 8:39 PM Tony Esposito wrote: > Is there a limit on the number of columns pulled from a table using DBI::ODBC? Althoug

Re: Limit on number of columns pulled using DBI::ODBC

I notice the behaviour changes as I adjust the following parameter ...  $dbh->{LongReadLen} = 2; This is an Oracle database I am going against - version 10gR2 --- On Wed, 30/9/09, Tony Esposito wrote: From: Tony Esposito Subject: Limit on number of columns pulled using DBI::ODBC

Limit on number of columns pulled using DBI::ODBC

Is there a limit on the number of columns pulled from a table using DBI::ODBC?   Database: Oracle 10gR2 O/S:  WIndowsXP Perl: 5.8.9   I am getting an 'out of memory' error if I try to retrieve 40 columns or more when using the following ...   my $dbh = DBI->connect( dbi:ODBC:orcl, "login", "passwo

Re: removing a 'tee'd file handles going forward

Thank you all for the input ... I have it working now. :-) From: Tim Bowden To: Perl Beginners Sent: Wednesday, 26 August, 2009 15:20:13 Subject: Re: removing a 'tee'd file handles going forward On Wed, 2009-08-26 at 18:22 +, Tony Espo

Re: removing a 'tee'd file handles going forward

Ok.  I misunderstood.  Thought - incorrectly - that STDOUT and STDERR were somehow 'joined' by the 'tee' operation.  Once again, my mistake.  Thx. From: Jenda Krynicky To: Tony Esposito Cc: Beginners Perl Sent: Wednesday, 26 August, 2

Re: removing a 'tee'd file handles going forward

print' statement and then back ... HTH From: Jenda Krynicky To: Beginners Perl Sent: Wednesday, 26 August, 2009 10:44:15 Subject: Re: removing a 'tee'd file handles going forward Date sent:    Wed, 26 Aug 2009 15:36:26 + (GMT) From:    To

removing a 'tee'd file handles going forward

I want to output to both STDOUT and STDERR at one point in my program, then want to separate the two handles going forward in the program so that output is sent to STDOUT and STDERR separately.  Given the code snip below, would the "undef tee" do the trick?   use IO::Tee; my $tee = new IO::Tee(

Re: one liner in Windows to replace string

ndoze ... :-) From: Shawn H. Corey To: Tony Esposito Cc: "Wagner, David --- Senior Programmer Analyst --- CFS" ; Beginners Perl Sent: Monday, 24 August, 2009 14:49:47 Subject: Re: one liner in Windows to replace string Tony Esposito wrote: > I am happy that it works with double quotes BUT

Re: one liner in Windows to replace string

x27;)"  # does not work -- compilation error ... ?? From: Bob McConnell To: Tony Esposito ; Shawn H. Corey ; "Wagner, David --- Senior Programmer Analyst --- CFS" Cc: Beginners Perl Sent: Monday, 24 August, 2009 14:39:57 Subject: RE: one liner in Windows to replace s

Re: one liner in Windows to replace string

txt files ... Help again. From: Shawn H. Corey To: "Wagner, David --- Senior Programmer Analyst --- CFS" Cc: Tony Esposito ; Beginners Perl Sent: Monday, 24 August, 2009 12:57:27 Subject: Re: one liner in Windows to replace string Wagner, David

one liner in Windows to replace string

perl -p -i.bak -e 's/CONSTANT/VARIABLE/' C:\test.txt Trying to replace a string with this one line perl ... in Windows it does not seem to work ... File test.txt contents is ... CONSTANT 100 CONSTANT 200 nothing changes ... acts as if it does not 'see' the CONSTANT string. Help because it loo

Code for making the 'clock'

Anyone have the code that make the 'clock' show when a Perl program is running? What I mean by the 'clock' is the command-line movement that sequentially does the following (in place): - \ | / - \ | / when running it looks like a 'clock' to show the user that something is processing ... Thx.

Re: Perl and HTML

Thanks ... I'll give that a shot ... any other suggestions are welcomed ... thank again, Dermot. From: Dermot To: Tony Esposito Cc: Beginners Perl Sent: Friday, 31 July, 2009 17:00:45 Subject: Re: Perl and HTML 2009/7/31 Tony Esposito : > I am us

Perl and HTML

I am using Perl 5.8.x, Windows XP SP2 and Novell GroupWise email client.  I have written a program to send an email which contains HTML.  Issue is that in the email body the 'body' shows up as HTML text and GroupWise has the choice to read it in HTML grayed-out (for this email only).  In other w

Fw: Having problems getting data back to STDOUT once I assign it to a file

Back to the question at hand - have you tried using 'tee' use File::Tee qw(tee); # simple usage: tee(STDOUT, '>', 'stdout.txt'); Tony From: John W. Krahn To: Sent: Tuesday, 21 July, 2009 8:41:25 Subject: Re: Having problems

split() does not work with all characters

When trying to use split() where the delimiter is passed from the command-line ( as seen in stub code that follows ), the code fails to parse/split input file via some characters (e.g. | ) but it runs ok for others (e.g. , ). Any idea what could be causing this? Code:   use vars qw/

Getting STDIN filename from command line

Hello, Given the command line: perl myperl.plx < myfile.txt is there anyway from within the Perl script to capture the redirected STDIN filename (i.e., myfile.txt)? OS:      WinXP SPSP3 Perl:     5.8.8 for Win32 from ActiveState Thx.

Fw: deleting subdirectories only in Win32

but I was wondering if there was a '1-liner' like the one previously listed). - Forwarded Message ---- From: Tony Esposito To: Beginners Perl Sent: Wednesday, 13 May, 2009 12:56:45 Subject: deleting subdirectories only in Win32 Hello,   When trying to delete subdirectories and t

deleting subdirectories only in Win32

Hello,   When trying to delete subdirectories and their files on WinXP SP3, the following code also removes the root directory of the subdirectories.  Can I get some assistance?  I want to keep C:\my\data intact but I am losing the \data folder # # Code to remove all files and subdirectories un

can you see the the p-code

Just curious ... does Perl create an (intermediate) file that contains the p-code that is created by the compiler just prior to passing control to the Perl interpreter?  If so, where would this file be and what would the file be named?  Is there a Perl command-line switch that can be used to 'ke

fetchrow_array fails with SQL Server DBD::ODBC connection but ok with Oracle DBDI::Oracle

ERROR: sth->fetchrow_array fails with ODBC (DBD::ODBC) connection to SQL Server but works fine with ORACLE using DBDOracle.  See error below ... DBD::ODBC::st fetchrow_array failed: [Microsoft][ODBC SQL Server Driver]String d ata, right truncation (SQL-01004) at create_data_dump.pl line 267, lin

Re: trouble with 'tr' command

I tried $foo =~ s/,/$field_term/g; and it worked fine ... thx. From: John W. Krahn To: Perl Beginners Sent: Tuesday, 6 January, 2009 13:19:20 Subject: Re: trouble with 'tr' command Tony Esposito wrote: > Hello, Hello, > Trying to do the f

trouble with 'tr' command

Hello, Trying to do the following and the variable $field_term does not transiterate.  The $foo becomes "name$age$grade$school$semester". #!/usr/bin/perl my $field_term = '|'; my $foo = "name,age,grade,school,semester"; $foo =~ tr/,/$field_term/;  __END__ Please advise.

Can't download and install Spreadsheet::WriteExcel module on WindowsXP

When trying to install the Spreadsheet::WriteExcel module on WindowsXP, and using 'ppm' from ActiveState, I get thrown into a GUI that seems to be checking what modules I already have on my system or can be installed on my system (Spreadsheet::WriteExcel module is not one of them that is availab

Re: substitution from line in context to matched line

On Aug 14, 5:48 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > - isn't an implicit array. Where did you read that? It's a read > operattion on the STDIN file handle. > Does this program help? > > Rob I was unclear, sorry about that. You're correct I meant there is an implicit 'loop' (not array!) wit

substitution from line in context to matched line

nd exit 255 } # sample nearby -1 lines that need substitution @lines = (7303,7309,7315,7321,7327,7333,7339,7345,7351,7357,7363,7369,7375,7381,7387,7393,7399,7405,7411,7417,7423,7429,7435,7441,7447,7453,7459,7465,7471,7477,7483,7489,7495,7501,7507,7513,7519,7525,7531); $. == $ln + 1 and s/this line/$pattern/g; Any thoughts or suggestions appreciated! Best, tony -- To un

regex help

in the file: a-z A-Z 0-9 [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]&*()[]{};:'",.<>/?|\> &*()[]{};:'",.<>/?|\ Thanks in advance Tony Heal

script for an mbox

I need to remove all messages older than X from a gigabyte size mbox. Anyone got a script for this? Tony Heal Pace Systems Group, Inc. 800-624-5999 x9317

Can't get Text::Balanced::extract_quotelike to work.

Hi, I've been trying to use the extract_quotelike and extract_delimited functions to extract a SQL statement from a line of C++ code but I just can't get it to work. The script is searching all .cpp files in a folder for SQL commands; it manages to extract some but not all of them. I'm using a ba

email attachement

Hi all, I'm trying to save attachment from emails with a specific subject. but i can't find the right module... thank you for your help. My script : # Duh use Net::IMAP::Simple; use Email::Simple; # Create the object my $imap = Net::IMAP::Simple->new('xxx.

Saving attachment

I need to save attachment received by email with a specific subject. My email server support IMAP and POP3... I tried with Net::IMAP:Simple, Email::Simple, but i can't find a way to strip the attachment from the message and save it somewhere. Which module i should use for this kind of applicat

CGI Help

I want to run a cgi script from another server inside a local cgi page SSI will only do local files, not remote URLs. How can I do this? Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED]

RE: regex help

id format at ./trim.pl line 41. (41 is the die line) Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED] > -Original Message- > From: Chas Owens [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 21, 2007 9:50 AM > To: [EMAIL PROTECTED] > Cc: beginners@perl.

RE: regex help

id format at ./trim.pl line 41. (41 is the die line) sorry Chas I first sent to you and not the list. Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED] > -Original Message- > From: Chas Owens [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 21, 2007 9:50 AM

RE: regex help

15.2-111 15-special.1-52 15-special.1-53 15-special.1-54 16-special.4-9 16-special.4-10 16-special.5-1 16-special.5-2 16-special.6-6 Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED] > -Original Message- > From: Tony Heal [mailto:[EMAIL PROTECTED] > Sent: Tuesda

RE: regex help

push (@newValues, $_) unless $h{$_}++ } foreach (@newValues){print "$_\n";} my @new = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_,(split/-/)[-1]] } @newValues; print "@new[0..4]\n"; } Or for a

regex help

15.2-124 15.2-65 15.2-65 15.2-66 15.2-66 Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED]

comparing elements of arrays

hat If an element exists in array 2 and not in array 1 it does not even know it and never will. So my real question is is there a better, more elegant way to do this or should I keep going? Thanks Tony #!/usr/bin/perl # AUTHOR Tony Heal - [EMAIL PROTECTED] use st

script help

I am doing wrong? Thanks Tony #!/usr/bin/perl # AUTHOR Tony Heal - [EMAIL PROTECTED] use strict; use warnings; use Digest::MD5 qw(md5); use Sys::Hostname; my $filesize; my $testPrefix = "200708040030"; #verify the MD5 hash use Digest::MD5 my $digest = file

RE: regex for matching repeated strings

AA A A NNN NNN NNN B B B C C C sarge-plain:~# ./temp.pl A NNN B C Tony Heal > -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED

RE: regex help

So since '?' will match the last character, group, or class 0 or 1 time the it matches the group of whatever happens to be in '.*' up to any spaces that are attached to the '$'. Is that correct? Tony Heal > -Original Message- > From: Chas Ow

regex help

Why doesn't this work? I want to take any leading or trailing white spaces out. If I remove the remark it works, but I do not understand why it requires the second line Script: #!/usr/bin/perl use strict; use warnings; my $string = " hello "; print "$s

perl IDE

I am looking for a good IDE for perl, I have eclipse and one of it's plugins, but I am wondering if I a spinning my wheels trying to set this up when there may be a better alternative. Tony Heal

parse mime email

I'm trying to read the body and the attachment in a mime message. I keep getting the folling error. Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Email/MIME/ContentType.pm line 24. #!/usr/bin/perl -w use Net::POP3; use Email::MIME; my ($mail_server, $username, $passwo

parse mime email

I'm trying to read the body and the attachment in a mime message. I keep getting the folling error. Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Email/MIME/ContentType.pm line 24. #!/usr/bin/perl -w use Net::POP3; use Email::MIME; my ($mail_server, $username, $pass

logic not working

s 'Month-{1|2|3}-{day of week)-{MMM}-{DD}-{} Anyone got any ideas? Oh, there is some code at the front that changes the system date from May 1 to 31 Thanks Tony #!/usr/bin/perl use warnings; use strict; my $today = `date +%m%d%H%M`; my $count = "501"

list test (please ignore)

RE: LibXML help

For those of you interested. Here was the problem and solution. the xconf (xml) file had a call to a dtd file at line 2 and that was causing all my headaches. I removed that line before parsing and all worked fine. Thanks to all for the help. Tony > -Original Message- > From

RE: LibXML help

oved, but that (I think) also tells me that the xls file gets parsed and the xconf does not, so it may be that the xconf file is not in the proper format. But if swapping the lines means what I think then the issue is inside the xconf file and not in the code. Does that logic work? Tony P.S. S

RE: LibXML help

Oops. BTW line 16 is my $source = $parser->parse_file( '/usr/local/twikixconf/tmpxconf/epace/src/conf/epace.xconf' ); Tony > -Original Message----- > From: Tony Heal [mailto:[EMAIL PROTECTED] > Sent: Monday, May 14, 2007 8:40 PM > To: beginners@perl.o

LibXML help

When I run this, I get 'No such file or directory at /usr/lib/perl5/XML/LibXML.pm line 518. at ./temp.pl line 16'. I have confirmed that the file exists and is readable. How do I T/S this? Tony #!/usr/bin/perl use warnings; use strict; use XML::LibXSLT; use X

Break up names

| Blow | [EMAIL PROTECTED] | JoeBlow | I can do all of this except break the original word apart. Tony

what does a lone percent sign mean?

? Tony

logic help

Any help would be great. Thanks Tony

RE: stats on partitions

the list I will get it. If you CC me I will get the reply twice. Thanks again Tony > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tom Phoenix > Sent: Monday, February 05, 2007 12:43 PM > To: [EMAIL PROTECTED] > Cc: beginners@perl.org >

RE: stats on partitions

OK, so bash is the shell I am using and the df utility is a standard Xnix command. My question is, is there a perl way of getting the stats on partitions without having to shell out using system() or exec()? Tony > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PRO

partition info

command does. Thanks Tony

time to post to this list

I sent this email at 11:36AM EST and I the below email was posted at 11:28AM EST. I guess I will see how long it take this email to post. But I would like to know why it took 2 hours to post the message below. Tony > -Original Message- > From: Tony Heal [mailto:[EMAIL PROTECTED]

stats on partitions

possible to do this in perl without shelling out to bash. Specifically I want to get the total, used and available space similar to what the bash df command does. Thanks Tony

getopt

I found an example using getopt on the web and I am trying to convert it to my use. Everything works except the last part. What am attempting to do is create a script which I can pass switches as arguments. Eventually this script will replace the rm command on my linux server, so that I can creat

RE: Perl connecting to Oracle and SQL Server databases ...

s a little harder search but I did find this The search was 'Using Perl DBI to interface to MS SQL' http://www.easysoft.com/developer/languages/perl/sql_server_unix_tutorial.ht ml Tony -Original Message- From: Benbart [mailto:[EMAIL PROTECTED] Sent: Sunday, December 17, 2006 4

call on script OR another

OK, the has to be an easy way to call one script OR another from within another, but I would like suggestions, as this does not work because there is no RegEx to put from here. #!/usr/bin/perl if ( -f '/usr/local/custom/backup.pl' || '/usr/local/custom/backup.sh' ) { system ("$&"); }

Re: PACK statement compile error

Hi list I found the problem. It was at line 10 print 'x[$x]"; should have been... print "x[$x]"; Thanks tony Tony Frasketi wrote: Hello list. I'm getting the following error message when compiling the program listed below ... Bad name after c' at /te

PACK statement compile error

Hello list. I'm getting the following error message when compiling the program listed below ... Bad name after c' at /test/test1.cgi line 22. line 22 is ' s/%(..)/pack('c', hex($1))/eg;' Need help in eliminating this error! thnx tony = #!/usr

sending email problem....

Hi everyone, The problem is really simple. When i try to send a message with this function with a wrong sender email address, my script just stops... as an exemple : sender address [EMAIL PROTECTED] the error message is - user not found on this server and the script stops. --

asdf 2

asdf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

sdf

asdfdsf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Deprecated perl hash reference statement problem

Thanks to all who answered - I really appreciate the help! Now busy reading perldoc perlreftut ! Tony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Deprecated perl hash reference statement problem

sh}{$key}. I seem to have a lot of problems with the perl language in that there are so many ways to accomplish (express) the same thing A wonderful feature but sometimes confusing as hell (to me at least). Anyway thanks again - Problem solved! No more error messages. Best regards Tony F

Re: Deprecated perl hash reference statement problem

hash <- Deprecated stmt print "get_form_data_1: Setting $key to [$value]"; #Debug } } Thanks Tony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Deprecated perl hash reference statement problem

hash as a reference is deprecated at /wpgen/wpgen.cgi line 399. I've tried Googling but have never found any thing that approaches what could be used instead of the deprecated statement Any help would be appreciated. Thanks Tony Frasketi -- To unsubscribe, e-mail: [EMAI

Re: Problem with backtick command to compile a perl program

Jeff 'japhy' Pinyan wrote: On Sep 13, Tony Frasketi said: my($filename) = "/home/blahblah/cgi-bin/ifgen/ifgen.cgi my($command) = "/usr/bin/perl -c $filename"; print "command[$command]"; my(@results) = `$command`; 'perl -c' send

Problem with backtick command to compile a perl program

- command[/usr/bin/perl -c /home/blahblah/cgi-bin/ifgen/ifgen.cgi] len[0] results of compileresults[] - Any help would be greatly appreciated TIA Tony Fraske

Re: %ENV

n the .profile file. Can you shed some light on why the variables do not show up on the web page? TIA tony Nahalingam Kanakavel wrote: hi, I think that it shows only the exported varaibles. I tried some thing like this ---try this-- 1) add one more variable with your own as prompt$ M

test

test -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Dot and Dubble Dot directory names

In a program such as the following - #!/usr/local/bin/perl -w $windir = "/home/users/tony"; opendir(NT, $windir) || die "no $windir?: $!"; while ($name = readdir(NT)) { # scalar context, one per loop

  1   2   3   >