[23253] in Perl-Users-Digest
Perl-Users Digest, Issue: 5474 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 10 00:05:42 2003
Date: Tue, 9 Sep 2003 21:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 9 Sep 2003 Volume: 10 Number: 5474
Today's topics:
Re: Counting files (Tom)
how should i fix this?? (jend)
Re: how should i fix this?? <noreply@gunnar.cc>
Re: how should i fix this?? <bwalton@rochester.rr.com>
How To Make Filehandle Global To Package? <mooseshoes@gmx.net>
Re: How To Make Filehandle Global To Package? <uri@stemsystems.com>
Re: How To Make Filehandle Global To Package? <mooseshoes@gmx.net>
looping every x seconds <surakshan@removethisYahooRemove.com>
Re: looping every x seconds <surakshan@removethisYahooRemove.com>
Parsing to insert single quotes <nospam@xx.com>
Re: Parsing to insert single quotes <nospam@xx.com>
Re: Parsing to insert single quotes <nospam@xx.com>
Re: Parsing to insert single quotes (Jay Tilton)
Re: Parsing to insert single quotes <nospam@xx.com>
Re: Parsing to insert single quotes <nospam@xx.com>
Passing data to perl script from Web page <ducott@hotmail.com>
Re: Perl vs TCL <jwillmore@cyberia.com>
Re: Perl vs TCL <rubyguru@hotmail.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Sep 2003 18:50:32 -0700
From: tom@ztml.com (Tom)
Subject: Re: Counting files
Message-Id: <59b4279a.0309091750.7d4e3069@posting.google.com>
Shawn Corey <shawn@magma.ca> wrote in message news:<b9SdncIafYkfjMOiU-KYuQ@magma.ca>...
> Hi,
>
> I have a list:
>
> file1
> file2
> dir1/file3
> dir1/file4
> dir1/subdir1/file5
> dir2/file6
> ...
>
> I want to count them like:
>
> $File{.}{file1} = count;
> $File{.}{file2} = count;
> $File{dir1}{file3} = count;
> $File{dir1}{file4} = count;
> $File{dir1}{subdir1}{file5} = count;
> $file{dir2}{file6} = count;
> ...
>
> Is the a nifty way of doing this in Perl-speak?
If your list is from a directory, you can do this to count the number
of files in each directory:
#!/usr/bin/perl -w
use strict;
use File::stat;
my %counts;
countFiles($ARGV[0]);
foreach my $file(sort keys %counts)
{
print "$file = $counts{$file}\n";
}
sub countFiles
{
my ($directory) = $_[0];
my $fh;
if(! opendir $fh,$directory)
{
print "Error in accessing $directory.";
return;
}
while( defined(my $file=readdir($fh)))
{
next if $file =~ /^\./;
my $stat = stat("$directory/$file");
if($stat->mode()&040000) { countFiles("$directory/$file") }
else { $counts{"$directory"}++ }
}
closedir($fh);
}
The output generated will be like this:
/list = 2
/list/dir1 = 2
/list/dir1/subdir1 = 1
/list/dir2 = 1
If the output is in a format as you specified, there is no counting.
Tom
ztml.com
------------------------------
Date: 9 Sep 2003 18:27:45 -0700
From: dejen321@yahoo.com (jend)
Subject: how should i fix this??
Message-Id: <cc028093.0309091727.7f2ddd71@posting.google.com>
my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
: $_ } @thoseLabels)."'";
print $this_array;
>> '1','1','1','mike','blah','bloh'
However I want it to come out like this:
>> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'
is it possible to rewrite this one liner to do this?
any tips would be greatly appreciated!!
~D
------------------------------
Date: Wed, 10 Sep 2003 03:44:44 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: how should i fix this??
Message-Id: <bjm00c$klelv$1@ID-184292.news.uni-berlin.de>
jend wrote:
> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
> : $_ } @thoseLabels)."'";
>
> print $this_array;
>
>>>'1','1','1','mike','blah','bloh'
>
> However I want it to come out like this:
>
>>>'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'
>
>
> is it possible to rewrite this one liner to do this?
my $this_array =
"'".join("','", map { s/'/\\'/g; $_ } @thoseLabels)."'";
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 10 Sep 2003 01:53:13 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: how should i fix this??
Message-Id: <3F5E8332.1040107@rochester.rr.com>
jend wrote:
> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
> : $_ } @thoseLabels)."'";
>
> print $this_array;
>
>
>>>'1','1','1','mike','blah','bloh'
>>>
>
> However I want it to come out like this:
>
>
>>>'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'
>>>
>
>
> is it possible to rewrite this one liner to do this?
...
> ~D
Try:
my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
my $this_array="'".join("','",map{$_=~/'/?$_=~ s/'/\\'/g
:$_;$_}@thoseLabels)."'";
print $this_array;
Read carefully about what values map() and s///g return. Also, ' is not
a regexp metacharacter, so it is not necessary to quote it in a regexp.
--
Bob Walton
------------------------------
Date: Wed, 10 Sep 2003 03:18:38 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: How To Make Filehandle Global To Package?
Message-Id: <iKw7b.2503$n45.223@newssvr25.news.prodigy.com>
All:
I have a main program that calls methods in a module/package. A method call
to the subroutine below opens a socket which I want to make global to the
package (eg. other subroutines will read and write from/to the socket).
Currently, the socket is considered closed by other methods that attempt to
use it.
I've tried to get the answer from the following sources:
- Programming Perl
- perlopentut
- various perldoc requests
- perlfaq5 - How do I pass filehandles between subroutines?
There is plenty of information but I still can't quite figure it out.
Thanks for your understanding and aid.
Moose
#SUBROUTINE
sub open_UDP_socket {
my $local_ipaddr;
my $portaddr;
my $local_port = 7082;
print "Opening socket...\n";
$local_ipaddr = gethostbyname(hostname());
$portaddr = sockaddr_in($local_port, INADDR_ANY);
socket(SOCKHANDLE, PF_INET, SOCK_DGRAM, getprotobyname("udp"))
|| die "socket: $!";
setsockopt(SOCKHANDLE, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or
die "setsockopt: $!";
bind(SOCKHANDLE, $portaddr) || die "bind: $!";
} # end sub open_UDP_socket
------------------------------
Date: Wed, 10 Sep 2003 03:28:53 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How To Make Filehandle Global To Package?
Message-Id: <x7znhdcoej.fsf@mail.sysarch.com>
>>>>> "m" == mooseshoes <mooseshoes@gmx.net> writes:
m> I have a main program that calls methods in a module/package. A
m> method call to the subroutine below opens a socket which I want to
m> make global to the package (eg. other subroutines will read and
m> write from/to the socket). Currently, the socket is considered
m> closed by other methods that attempt to use it.
so just store the handle in a package var. or even better if the class code
is all in one file, store the handle in a file scoped lexical.
m> I've tried to get the answer from the following sources:
m> - Programming Perl
m> - perlopentut
that would have nothing on where to store handles.
m> - various perldoc requests
which ones?
m> - perlfaq5 - How do I pass filehandles between subroutines?
did you learn that handles can be stored anywhere?
m> sub open_UDP_socket {
m> my $local_ipaddr;
m> my $portaddr;
m> my $local_port = 7082;
m> print "Opening socket...\n";
m> $local_ipaddr = gethostbyname(hostname());
m> $portaddr = sockaddr_in($local_port, INADDR_ANY);
m> socket(SOCKHANDLE, PF_INET, SOCK_DGRAM, getprotobyname("udp"))
m> || die "socket: $!";
m> setsockopt(SOCKHANDLE, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or
m> die "setsockopt: $!";
m> bind(SOCKHANDLE, $portaddr) || die "bind: $!";
bah, use IO::Socket and remove all that mess.
you are using a named handle. that IS package scoped so any code
in the package could access it by that name. nothing else needs to be
done but that is a poor solution. the IO::Socket module will return a
handle to you that you can store anywhere. a file lexical is best (given
what you said so far). if this module were OO i would store the handle
in the object (a very common place for it).
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Class in Boston - Sept 2003 -- http://www.stemsystems.com/class
------------------------------
Date: Wed, 10 Sep 2003 03:53:53 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: Re: How To Make Filehandle Global To Package?
Message-Id: <lfx7b.836$Q83.97@newssvr29.news.prodigy.com>
Hey Uri. Thanks for the responses.
<snip>
> so just store the handle in a package var. or even better if the class
> code is all in one file, store the handle in a file scoped lexical.
>
<<< I did try declaring "our $socket_handle" for the package and using that
instead of the named handle but ran into the same problem. If it is that
simple, then I'm likely doing something else wrong such that another
subroutine in the same package thinks the filehandle is closed.
<snip>
> did you learn that handles can be stored anywhere?
<<< Yep.
<snip>
> bah, use IO::Socket and remove all that mess.
<<< It was originally done with IO::Socket. I ran into trouble with it
because socket sends are done independent of socket receives (eg. can't
take advantage of the stored peer address) and for multiple clients. The
portaddr needs to get set outside the socket declaration and for some
reason IO::Socket gives me "can't find peer address" errors during sends
even when I seemingly set the portaddr correctly and include it in send
command.
<snip>
> you are using a named handle. that IS package scoped so any code
> in the package could access it by that name. nothing else needs to be
> done but that is a poor solution. the IO::Socket module will return a
> handle to you that you can store anywhere. a file lexical is best (given
> what you said so far). if this module were OO i would store the handle
> in the object (a very common place for it).
<<< I haven't done much with OO but can see how much cleaner it is. I'll
try to give IO::Socket another try and store the handle.
Thanks again.
Cheers,
Moose
------------------------------
Date: Wed, 10 Sep 2003 10:12:15 +0800
From: kernal32 <surakshan@removethisYahooRemove.com>
Subject: looping every x seconds
Message-Id: <bjm19u$hk3$1@enyo.uwa.edu.au>
Hello,
In PERL how do I execute a block of code every "x" seconds?
I'm talking a loop or similar but it runs every x seconds, where x is given.
------------------------------
Date: Wed, 10 Sep 2003 10:57:28 +0800
From: kernal32 <surakshan@removethisYahooRemove.com>
Subject: Re: looping every x seconds
Message-Id: <bjm3un$ij0$1@enyo.uwa.edu.au>
> Hello,
>
> In PERL how do I execute a block of code every "x" seconds?
> I'm talking a loop or similar but it runs every x seconds, where x is
> given.
Sorry I didnt think I was clear.
I'm using sleep 5 to wait 5 second before executing some code.
my question is, how can I keep the rest of the program running whilst the
loop continues in pararel
------------------------------
Date: Tue, 09 Sep 2003 18:45:00 -0700
From: Eric <nospam@xx.com>
Subject: Parsing to insert single quotes
Message-Id: <3F5E821C.30018D84@xx.com>
I have a .csv file with 1750 records to reformat from time to time which
look like:
Zenia,7.25,Trinity
So far, I'm now getting:
(1749,'Zamora,7.25,Yolo'),
The left-right parens and autoincrement working, but am
stuck trying to add a single quote to the end of the City
field and a single quote to the beginning of the County
field like:
(1749,'Zamora',7.25,'Yolo'),
It would be helpful to add a semi-colon to the END of the
very LAST line like:
(1750,'Zenia',7.25,'Trinity');
But I'm stumped on that one also.
Any help would be greatly appreciated.
Thank you.
===SCRIPT===
#!/usr/bin/perl -w
#
use strict;
my $line;
print "Enter File Name To Tweak: ";
$filename = <STDIN>;
print "Enter Output File Name: ";
$outfile = <STDIN>;
open (INFILE, "$filename");
$totalrecs = 0;
$increment = 1;
while ($line = <INFILE>) {
chomp($line);
&write2outfile;
$increment++;
}
close (INFILE); #close input file
print "Net Records: $totalrecs -1\n";
### SUBROUTINE TO PRINT TO ASCII .CSV FILE
sub write2outfile
{
open (FILE ,">>$outfile");
if ($totalrecs >0) {
print FILE "\($increment\,\'$line\'\)\,\n";
} else {
print FILE "INSERT INTO column1 (ID, taxcity, taxrate, taxcounty)
VALUES\n";
}
close (FILE);
$totalrecs++;
}
# END
------------------------------
Date: Tue, 09 Sep 2003 18:51:19 -0700
From: Eric <nospam@xx.com>
Subject: Re: Parsing to insert single quotes
Message-Id: <3F5E8397.793CC2D0@xx.com>
Oh Oh...
I just discovered I am missing record #1 in the output file...my counter
approach is apparently flawed.
Sorry to have overlooked this in the initial post.
------------------------------
Date: Tue, 09 Sep 2003 19:47:05 -0700
From: Eric <nospam@xx.com>
Subject: Re: Parsing to insert single quotes
Message-Id: <3F5E90A9.5EF5B7E@xx.com>
Eric wrote:
>
> Oh Oh...
>
> I just discovered I am missing record #1 in the output file...my counter
> approach is apparently flawed.
>
> Sorry to have overlooked this in the initial post.
Here is my latest attempt to parse out the fields, but still getting an
uninitialized value in concatenation <.> or string in the print $1, etc.
line.
#!/usr/bin/perl -w
#
use strict;
my $line;
my $increment;
my $outfile;
my $filename;
my $totalrecs;
my $city;
my $tax;
my $county;
print "Enter File Name To Tweak: ";
$filename = <STDIN>;
print "Enter Output File Name: ";
$outfile = <STDIN>;
open (INFILE, "$filename");
$totalrecs = 0;
$increment = 1;
while ($line = <INFILE>) {
chomp($line);
&write2outfile;
$increment++;
}
close (INFILE); #close input file
print "Net Records: $totalrecs -1\n";
### SUBROUTINE TO PRINT TO ASCII .CSV FILE
sub write2outfile
{
open (FILE ,">>$outfile");
if ($totalrecs >0) {
$line =~ /([\s\w]+)\,([\d]+)\,([\s\w]+)/;
$city = $1;
$tax = $2;
$county = $3;
print FILE "\($increment\,\'$city\',\'$tax\',\'$county\')\,\n";
} else {
print FILE "INSERT INTO column1 (ID, taxcity, taxrate,taxcounty)
VALUES\n";
}
close (FILE);
$totalrecs++;
}
# END
------------------------------
Date: Wed, 10 Sep 2003 02:55:49 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Parsing to insert single quotes
Message-Id: <3f5e8c7f.617919491@news.erols.com>
Eric <nospam@xx.com> wrote:
: I have a .csv file with 1750 records to reformat from time to time which
: look like:
:
: Zenia,7.25,Trinity
:
: So far, I'm now getting:
:
: (1749,'Zamora,7.25,Yolo'),
:
: The left-right parens and autoincrement working, but am
: stuck trying to add a single quote to the end of the City
: field and a single quote to the beginning of the County
: field like:
:
: (1749,'Zamora',7.25,'Yolo'),
:
: It would be helpful to add a semi-colon to the END of the
: very LAST line like:
:
: (1750,'Zenia',7.25,'Trinity');
:
: But I'm stumped on that one also.
:
: ===SCRIPT===
: #!/usr/bin/perl -w
: #
: use strict;
Nice touch, but your program doesn't even get through compilation
because of all the undeclared variables.
: my $line;
: print "Enter File Name To Tweak: ";
: $filename = <STDIN>;
: print "Enter Output File Name: ";
: $outfile = <STDIN>;
You should probably want to chomp() those values before trying to use
them as filenames.
: open (INFILE, "$filename");
^ ^
Useless use of quotes.
Always check the return from open() for success.
: $totalrecs = 0;
: $increment = 1;
: while ($line = <INFILE>) {
: chomp($line);
: &write2outfile;
^
Prefer to use the write2outfile() form of subroutine call.
: $increment++;
: }
: close (INFILE); #close input file
: print "Net Records: $totalrecs -1\n";
:
: ### SUBROUTINE TO PRINT TO ASCII .CSV FILE
: sub write2outfile
: {
: open (FILE ,">>$outfile");
How about opening the file once before writing then closing it when all
writing is complete, instead of re-opening and re-closing every time
another line is to be added.
: if ($totalrecs >0) {
: print FILE "\($increment\,\'$line\'\)\,\n";
^ ^ ^ ^ ^ ^
Why did you backslash-escape all those characters that have no special
meaning in a double-quoted string?
: } else {
: print FILE "INSERT INTO column1 (ID, taxcity, taxrate, taxcounty)
: VALUES\n";
: }
That if/else construct will effectively discard the first line of input.
: close (FILE);
: $totalrecs++;
: }
: # END
The split() and printf() functions can be used to wrap certain fields in
single quotes with mimimum fuss.
To get a semicolon on the final line, check whether INFILE has reached
EOF and alter the line's last character accordingly.
#!/usr/bin/perl
use warnings;
use strict;
print "Enter File Name To Tweak: ";
chomp( my $filename = <STDIN> );
print "Enter Output File Name: ";
chomp( my $outfile = <STDIN> );
open (INFILE, '<', $filename)
or die "Cannot open '$filename' for read: $!";
open (FILE , '>>', $outfile)
or die "Cannot open '$outfile' for append: $!";
print FILE
"INSERT INTO column1 (ID, taxcity, taxrate, taxcounty) VALUES\n";
while (<INFILE>) {
chomp;
printf FILE "(%d,'%s',%f,'%s')%s\n",
$. ,
split(/,/) ,
eof(INFILE) ? ';' : ',';
}
close(INFILE);
close(FILE);
It seems a roundabout way of transferring records from one database to
another when the DBI module is available, though.
------------------------------
Date: Tue, 09 Sep 2003 20:48:35 -0700
From: Eric <nospam@xx.com>
Subject: Re: Parsing to insert single quotes
Message-Id: <3F5E9F13.7560C54B@xx.com>
Jay Tilton wrote:
Thank you very much, Jay, for your insightful comments and help.
> :
> : ===SCRIPT===
> : #!/usr/bin/perl -w
> : #
> : use strict;
>
> Nice touch, but your program doesn't even get through compilation
> because of all the undeclared variables.
Umh, my bad I added a bunch in the revision but it still didn't cut the
mustard.
> : open (INFILE, "$filename");
> ^ ^
> Useless use of quotes.
Yup. I need to watch that.
>
> Always check the return from open() for success.
Yup. Ditto.
> : open (FILE ,">>$outfile");
>
> How about opening the file once before writing then closing it when all
> writing is complete, instead of re-opening and re-closing every time
> another line is to be added.
Old bad habit in the script I was trying to hack up.
> : if ($totalrecs >0) {
> : print FILE "\($increment\,\'$line\'\)\,\n";
> ^ ^ ^ ^ ^ ^
> Why did you backslash-escape all those characters that have no special
> meaning in a double-quoted string?
Same thing ;-(
>
> : } else {
> : print FILE "INSERT INTO column1 (ID, taxcity, taxrate, taxcounty)
> : VALUES\n";
> : }
>
> That if/else construct will effectively discard the first line of input.
Yup...so I now realize.
> The split() and printf() functions can be used to wrap certain fields in
> single quotes with mimimum fuss.
I just learned something important. Thanks!
>
> To get a semicolon on the final line, check whether INFILE has reached
> EOF and alter the line's last character accordingly.
Didn't know how to do this so thanks for the instructional help.
> It seems a roundabout way of transferring records from one database to
> another when the DBI module is available, though.
Yup, however the output is for quick copy & paste via MYSQLCC on the PC
into a MySQL table...and may be combined with some table creation code
to do several things all at once.
Sincere thanks again for taking the time to help and especially the
instructional info. BTW, I took a quick test drive and your code worked
flawlessly. The learing continues here, as sporadic as it might be.
Regards,
Eric
------------------------------
Date: Tue, 09 Sep 2003 20:50:48 -0700
From: Eric <nospam@xx.com>
Subject: Re: Parsing to insert single quotes
Message-Id: <3F5E9F98.564053D8@xx.com>
Ooops...just noticed that FOUR zeros get added onto each of the numbers
in the numeric/decimail field from:
> printf FILE "(%d,'%s',%f,'%s')%s\n",
How can I correct this?
Thanks.
------------------------------
Date: Wed, 10 Sep 2003 02:23:33 GMT
From: "\"Dandy\" Randy" <ducott@hotmail.com>
Subject: Passing data to perl script from Web page
Message-Id: <FWv7b.122617$la.2698230@news1.calgary.shaw.ca>
Hey peoples, perhaps you could help me with this tricky code I'm hoping to
build. I have developed a small emailing program for my business. At the
bottom of the emails that get sent out, there is an option for a recipient
to remove themselves from my mailing list.
Here is what I am looking to do. At the bottom of the email, the removal
link would contain something like this:
To remove yourself from my mailing list, click here:
http://www.mysite.com/cgi-bin/remove.pl?user=theemail@address.com
I am looking to have my perl script read the referring link and detect the
user= tag ... them perform the necessary function to splice that email from
my database ... Can Perl do this? Below is an example of the theoretical
code. Note: the second line is not valid perl code obviously, simply my
goal:
#!/usr/bin/perl
$theuser = HTTP{REFFERAL_TAG, 'user'}; #scan the reffering html URL for the
"user" variable
open (ADDRESSES, "<data/addressbook.txt") or !die ("Unable to open");
@recipients=<ADDRESSES>;
close(ADDRESSES);
foreach $recipients(@recipients) {
$count++;
if ($recipients =~ /$theuser/i) {
$count--;
splice(@recipients, $count, 1);
}
print "Location: $confpage\n\n"; #redirects to a confirmation page
Please let me know if this can be done, and/or if it cannot be done and you
have an alternate idea. Code examples are welcomed. Thanx everyone!
Randy
------------------------------
Date: Wed, 10 Sep 2003 01:55:24 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Perl vs TCL
Message-Id: <20030909215529.20f28443.jwillmore@cyberia.com>
On Tue, 09 Sep 2003 15:38:16 -0500
"Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote:
> James Willmore <jwillmore@cyberia.com> wrote in
> news:20030909123749.0cfa013b.jwillmore@cyberia.com:
> > Each language has its strengths and its weaknesses.
> What are Befunge's strengths? ;-)
Well, I had to Google for this one. And after I did, I can now say I
stand corrected. I got a headache after one example.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
You worry too much about your job. Stop it. You're not paid
enough to worry.
------------------------------
Date: Wed, 10 Sep 2003 02:51:53 GMT
From: "Chris Dutton" <rubyguru@hotmail.com>
Subject: Re: Perl vs TCL
Message-Id: <dlw7b.2736$oa1.2339@pd7tw2no>
"Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote in message
news:Xns93F1A965361Bsdn.comcast@206.127.4.25...
> What are Befunge's strengths? ;-)
Job security.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 8/19/2003
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 5474
***************************************
