[23378] in Perl-Users-Digest
Perl-Users Digest, Issue: 5597 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 1 11:06:04 2003
Date: Wed, 1 Oct 2003 08:05:10 -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 Wed, 1 Oct 2003 Volume: 10 Number: 5597
Today's topics:
Re: Can another Perl script without using exec or syste (Tad McClellan)
Re: code not working..ideas please? (Tad McClellan)
Re: date in hash keys & sorting <noreply@gunnar.cc>
Re: English dictionary >>[word]<< list <chris@FLARBLEinfinitemonkeys.org.uk>
English dictionary world list <chris@FLARBLEinfinitemonkeys.org.uk>
Re: English dictionary world list <abigail@abigail.nl>
Re: English dictionary world list <ak+usenet@freeshell.org>
Re: Newbie Q - Nicer way to lc something? <tore@aursand.no>
Re: Newbie Q - Nicer way to lc something? <noreply@gunnar.cc>
Re: Newbie Q - Nicer way to lc something? <chris@FLARBLEinfinitemonkeys.org.uk>
Re: Newbie Q - Nicer way to lc something? <chris@FLARBLEinfinitemonkeys.org.uk>
Re: Newbie Q - Nicer way to lc something? <RobTM@fake.addr.ess>
Re: Newbie Q - Nicer way to lc something? <chris@FLARBLEinfinitemonkeys.org.uk>
Re: Newbie Q - Nicer way to lc something? (Tad McClellan)
Re: open (F, "$fname") vs open $F, $fname; (Tad McClellan)
Re: Passing Variables from One Perlscript to Another <x12code@yahoo.com>
Perl - Windows Service to Map Drive (John Ferrell)
Perl Book Recommendations <notspam@spamfree.dud>
Re: Perl Book Recommendations <chris@FLARBLEinfinitemonkeys.org.uk>
Re: Regexp - optimisation <peter@semantico.com>
Re: Regexp - optimisation <xx087@freenet.carleton.ca>
Re: regexp help (Tad McClellan)
Saving html form into oracle database (Nick)
WITS - bug tracking tool <seanw@#nospam#bigfoot.com>
Re: WITS - bug tracking tool <scriptyrich@yahoo.co.uk>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 1 Oct 2003 09:40:35 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Can another Perl script without using exec or system
Message-Id: <slrnbnlpr3.qg1.tadmc@magna.augustmail.com>
James Willmore <jwillmore@cyberia.com> wrote:
> On 30 Sep 2003 20:50:54 -0700
> deals@slip-12-64-108-121.mis.prserv.net (Great Deals) wrote:
>
>> I don't have shell access from the hosting company, so I cannot use
>> exec or system,
Your (the OP's) conclusion has no relationship to your hypothesis.
system() and backticks should work fine in your Perl programs,
regardless of whether you also have shell access or not.
Have you tried using system() already?
What happened when you tried it?
Are we working on a problem that does not even exist?
>> but I need to run several perl scripts at once. So
>> in a pure perl enviroment, totally indepentent from shell/os, how
>> can I call other perl scripts from another perl script? use,
>> include, ...?
>
> perldoc perlboot
> perldoc perltoot
> perldoc perlbot
> perldoc perlmod
I see nothing in the problem description that implies that objects
nor modules would be particularly helpful for this task.
> Take your pick :-)
(but don't pick any of the first four :-)
> You may also consider learning portable Perl.
That part is generally good advice though.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 1 Oct 2003 08:47:28 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: code not working..ideas please?
Message-Id: <slrnbnlmng.qg1.tadmc@magna.augustmail.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> On Tue, 30 Sep 2003 16:04:07 -0500, tadmc@augustmail.com (Tad
> McClellan) wrote:
>>Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>>
>>> $word =~ tr/A-Z/a-z/;
>>Your method does not respect locales:
> Thanks for your reply but "respect locales" ?
"locale"s are for dealing with languages other than English (sorta).
perldoc perllocale
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 01 Oct 2003 15:40:34 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: date in hash keys & sorting
Message-Id: <blelgv$at23p$1@ID-184292.news.uni-berlin.de>
King wrote:
>
> my $dates = "02-Aug-4"; #this could be 98-Aug-04
>
> my %months = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4,
> Maj => 5, Jun => 6, Jul => 7, Aug => 8,
--------------------^
You don't *need* to repeat my typo. 'Maj' is Swedish for 'May'. :)
> Sep => 9, Oct => 10, Nov => 11, Dec => 12 );
>
> my $pat;
> my $sortabledates = sprintf $pat,
----------------------------------^^^^
That variable has no value.
> ((map { /[a-z]{3}/i ? $months{$_} : $_ } split /-/, $dates)[0] > 35 ? $pat = 19'%d%02d%02d' : $pat = 20'%d%02d%02d') ;
Some more faulty logic...
> 19 and 20 before the pattern is what I need but this is not the
> correct way to do it, just to show you what I am thinking, how could
> it be written?
I just added a line to my dateconvert() function.
my $date = "02-Aug-4"; #this could be 98-Aug-04
print dateconvert($date);
sub dateconvert {
my $date = shift;
my %months = (
Jan => 1, Feb => 2, Mar => 3, Apr => 4,
May => 5, Jun => 6, Jul => 7, Aug => 8,
Sep => 9, Oct => 10, Nov => 11, Dec => 12
);
my ($year, $month, $day) = split /-/, $date;
$year += $year > 35 ? 1900 : 2000;
$month = $months{$month};
return sprintf '%d%02d%02d', $year, $month, $day;
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 01 Oct 2003 15:33:55 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: Re: English dictionary >>[word]<< list
Message-Id: <bleops$rc8$4$8300dec7@news.demon.co.uk>
It appears that I need it for more than test data. Thats supposed to read
word list!
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: Wed, 01 Oct 2003 15:26:52 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: English dictionary world list
Message-Id: <bleocl$rc8$2$8300dec7@news.demon.co.uk>
Hi,
Anyone know where to get an English dictionary word list in flat text format
without definitions?
I'm going to use the wordlist as test data for something rather large.
Preferably British English but any English will do as it's only test data.
Thanks,
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: 01 Oct 2003 14:37:54 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: English dictionary world list
Message-Id: <slrnbnlpm2.t35.abigail@alexandra.abigail.nl>
Chris Smith (chris@FLARBLEinfinitemonkeys.org.uk) wrote on MMMDCLXXXIII
September MCMXCIII in <URL:news:bleocl$rc8$2$8300dec7@news.demon.co.uk>:
&& Hi,
&&
&& Anyone know where to get an English dictionary word list in flat text format
&& without definitions?
&&
&& I'm going to use the wordlist as test data for something rather large.
&&
&& Preferably British English but any English will do as it's only test data.
Most UNIX systems will have one in /usr/share/dict/words, or /usr/dict/words.
But this has nothing at all to do with Perl.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Wed, 1 Oct 2003 14:42:45 +0000 (UTC)
From: Andreas Kahari <ak+usenet@freeshell.org>
Subject: Re: English dictionary world list
Message-Id: <slrnbnlpv3.o52.ak+usenet@norge.freeshell.org>
In article <bleocl$rc8$2$8300dec7@news.demon.co.uk>, Chris Smith wrote:
> Hi,
>
> Anyone know where to get an English dictionary word list in flat text format
> without definitions?
>
> I'm going to use the wordlist as test data for something rather large.
>
> Preferably British English but any English will do as it's only test data.
Most Unices have one in /usr/share/dict/words or similar
location. Here's one of many web resources for such a file (see
the web2 file):
http://www.openbsd.org/cgi-bin/cvsweb/src/share/dict/
--
Andreas Kähäri |
| Make it idiot proof, and someone will wrap it
| in a dysfunctional GUI.
------------------------------
Date: Wed, 01 Oct 2003 15:41:08 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <pan.2003.10.01.13.40.36.978488@aursand.no>
On Wed, 01 Oct 2003 13:41:02 +0100, Chris Smith wrote:
> Is there a nicer way of doing the following?
>
> $a = lc($a);
>
> Doesn't look "perlish" if you know what I mean.
No. I don't know what you mean. What do you mean? Do you find solutions
like this one more "perlish"?
$a =~ tr/A-Z/a-z/;
If so, you shouldn't be using Perl. :-)
--
Tore Aursand <tore@aursand.no>
------------------------------
Date: Wed, 01 Oct 2003 15:49:24 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <blem1h$at23p$2@ID-184292.news.uni-berlin.de>
Chris Smith wrote:
> Is there a nicer way of doing the following?
>
> $a = lc($a);
>
> Doesn't look "perlish" if you know what I mean.
I don't know that. Looks nice enough to me.
You'd better avoid using $a (as well as $b) outside the sort()
function, though.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 01 Oct 2003 14:51:05 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <blem9i$p0i$1$8300dec7@news.demon.co.uk>
Tore Aursand wrote:
> On Wed, 01 Oct 2003 13:41:02 +0100, Chris Smith wrote:
>> Is there a nicer way of doing the following?
>>
>> $a = lc($a);
>>
>> Doesn't look "perlish" if you know what I mean.
>
> No. I don't know what you mean. What do you mean? Do you find solutions
> like this one more "perlish"?
>
> $a =~ tr/A-Z/a-z/;
>
> If so, you shouldn't be using Perl. :-)
I'm talking more like:
lc $a;
And return the value in $a rather than $_
$a=lc($a);
is very BASIC-like if you know what I mean.
Perhaps it's just me being fussy :/
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: Wed, 01 Oct 2003 15:02:14 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <blemuf$pqv$1$8300dec7@news.demon.co.uk>
Gunnar Hjalmarsson wrote:
> Chris Smith wrote:
>> Is there a nicer way of doing the following?
>>
>> $a = lc($a);
>>
>> Doesn't look "perlish" if you know what I mean.
>
> I don't know that. Looks nice enough to me.
>
> You'd better avoid using $a (as well as $b) outside the sort()
> function, though.
Have done - the real code is:
$article = lc($article);
Just shortening it for the example.
Thanks for the tip though - didn't know $a and $b were "recommended
avoidables".
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: Wed, 1 Oct 2003 14:21:33 +0000 (UTC)
From: Robert Szczygiel <RobTM@fake.addr.ess>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <slrn.pl.bnlond.tem.RobTM@pcatlas4.ifj.edu.pl>
Chris Smith wrote:
> $a=lc($a);
> is very BASIC-like if you know what I mean.
Does :
$a=lc$a;
look better? :-))
RobTM:)
------------------------------
Date: Wed, 01 Oct 2003 15:27:48 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <bleoed$rc8$3$8300dec7@news.demon.co.uk>
Robert Szczygiel wrote:
> Chris Smith wrote:
>> $a=lc($a);
>> is very BASIC-like if you know what I mean.
>
> Does :
>
> $a=lc$a;
>
> look better? :-))
Even worse. I get your point ;-)
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: Wed, 1 Oct 2003 09:45:48 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newbie Q - Nicer way to lc something?
Message-Id: <slrnbnlq4s.qg1.tadmc@magna.augustmail.com>
Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk> wrote:
> Is there a nicer way of doing the following?
Maybe.
> $a = lc($a);
Show us where $a _first_ gets its value.
You can lowercase it there without needing a separate step.
eg:
$a = lc $1;
$a = "\Qother $1 stuff"; # OTHER $1 STUFF
$a = "other \Q$1 stuff"; # other $1 STUFF
$a = "other \Q$1\E stuff"; # other $1 stuff
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 1 Oct 2003 09:15:30 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: open (F, "$fname") vs open $F, $fname;
Message-Id: <slrnbnloc2.qg1.tadmc@magna.augustmail.com>
Great Deals <deals@slip-12-64-108-121.mis.prserv.net> wrote:
> what is the difference here?
What is the difference _where_?
(please put the code in the body of your message too)
Subject: open (F, "$fname") vs open $F, $fname;
There are at least 3 differences, so I don't know which difference
is the one that you are asking about...
1) the 1st one has a useless use of double quotes,
the 2nd one doesn't.
2) the 1st one has parens around open's argument list,
the 2nd one doesn't.
3) The 1st one has a filehandle as the first argument,
the 2nd one has a scalar as the first argument.
> I can add my to open my $F, $fname, but
> not open (my F, "$fname").
Looks like you mean difference #3, so let's factor out
the first two differences:
open F, $fname vs open $F, $fname;
> Can I use $F the same as F?
Yes and no, depending on what you mean by "use the same".
The best and most general answer is: No
See Abigail's followup regarding how a scalar and a filehandle differ.
OTOH, if you meant "use the same" as in doing input/output,
then the answer is: Yes
<F> # input with a filehandle
<$F> # input with a ref to anon filehandle (see: perldoc -f open)
print F "stuff\n" # output with a filehandle
print $F "stuff\n" # output with a ref to anon filehandle
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 01 Oct 2003 09:33:32 -0500
From: David McDivitt <x12code@yahoo.com>
Subject: Re: Passing Variables from One Perlscript to Another
Message-Id: <r2plnvk71p2qtp34u6ag9qk96mqg7jm2nm@4ax.com>
>Subject: Passing Variables from One Perlscript to Another
>Date: Tue, 30 Sep 2003 18:16:20 -0400
>
>I am trying to write a Perlscript to be used with some HTML pages. Here is
>how it works:
>
>
>
> 1.. The first HTML page has a form which requests for user input. Then it
>passes the QUERY_STRING to a Perl script.
> 2.. The Perl script will then validate the data. If input validation
>fails, it returns to the previous screen and asks the user to retry. If the
>validation passes, it display the user input and asks for confirmation.
> 3.. If the user chooses okay to proceed, it will pass the validated data
>to another Perl script to execute some queries from a database.
>
>
>I can manage to go from step 1 to step 2. But I don't know how to pass the
>variables from one Perl script to another. I am not sure if I should use
>the POST or GET method. I think there should be some better ways.
>
I use a set number of fields for all data I need to persist. The fields are
hidden except on the page which prompts for that specific data. One page may
prompt name and ID so those fields are not hidden on that page. Another page
may prompt for date so that field is not hidden on that page. All scripts
include a module which gets environment info and makes sure needed hash
values are not undef.
------------------------------
Date: 1 Oct 2003 06:36:01 -0700
From: jdferrell3@yahoo.com (John Ferrell)
Subject: Perl - Windows Service to Map Drive
Message-Id: <43d3c4fa.0310010536.25c7f467@posting.google.com>
I am trying to write a Windows service using the Perl Dev Kit from
ActiveState, to map a network drive and copy a file to the mapped
drive at regular intervals.
The code I have works fine when I run the script from the command
prompt. However when I run it as a service the drive is not mapped.
I have tried to run the service using my account on the machine
instead of the system account, but cannot get that to work either.
Any suggestions would be greatly appreciated.
#!d:/perl/bin/perl.exe -w
package PerlSvc;
use File::Copy;
use Win32::NetResource;
our %Config;
$hostname = $ENV{'computername'};
sub Startup {
# here's where your startup code will go
while (ContinueRun(60)) {
# do some work here
#map the drive if need be
if (!-e "v:\\$hostname.log")
{
%NetResource = (
LocalName => "V:",
RemoteName => "\\\\129.2.112.15\\logs"
);
$User = "cjones";
$Password = "cj0n3s~";
Win32::NetResource::AddConnection( \%NetResource, $Password, $User, 0
);
}
#copy file
chomp($hostname);
copy("c:\\program files\\pwrchute\\$hostname.log",
"v:\\$hostname.log") or die "file copy failed\n";
}
}
------------------------------
Date: Wed, 01 Oct 2003 14:07:25 GMT
From: Sean O'Dwyer <notspam@spamfree.dud>
Subject: Perl Book Recommendations
Message-Id: <notspam-CC6D50.10082301102003@news-server.nyc.rr.com>
Hello,
I've written some fairly complicated database software for clients based
on the Perl I learned in "Perl 5 for Dummies" (which is non-technical in
tone, which I like, even if it's not a particularily great Perl book)
and using help I've received here.
Now I'm looking for something more comprehensive, something that tackles
more complicated functions like file management, common Perl modules,
system level tricks, etc. I'd prefer something with its chapters based
on topics or on commands grouped by similar function, rather than, say,
an alphabetical detailed explanation of every Perl command. I learn best
from short examples.
Any recommendations?
TIA,
Sean
------------------------------
Date: Wed, 01 Oct 2003 15:22:51 +0100
From: Chris Smith <chris@FLARBLEinfinitemonkeys.org.uk>
Subject: Re: Perl Book Recommendations
Message-Id: <bleo54$rc8$1$8300dec7@news.demon.co.uk>
Sean O'Dwyer wrote:
> Hello,
>
> I've written some fairly complicated database software for clients based
> on the Perl I learned in "Perl 5 for Dummies" (which is non-technical in
> tone, which I like, even if it's not a particularily great Perl book)
> and using help I've received here.
>
> Now I'm looking for something more comprehensive, something that tackles
> more complicated functions like file management, common Perl modules,
> system level tricks, etc. I'd prefer something with its chapters based
> on topics or on commands grouped by similar function, rather than, say,
> an alphabetical detailed explanation of every Perl command. I learn best
> from short examples.
>
> Any recommendations?
OReilly Programming Perl (The Camel Book)
OReilly Perl Cookbook
--
Chris Smith
http://www.infinitemonkeys.org.uk/
------------------------------
Date: Wed, 01 Oct 2003 14:53:27 +0100
From: Peter Hickman <peter@semantico.com>
Subject: Re: Regexp - optimisation
Message-Id: <3f7adc57$0$24261$afc38c87@news.easynet.co.uk>
Stephen Adam wrote:
> Thanks for the help Abigail,
>
> It seems to recognise all the e-mail addresses i've tested it with though I
> know its pretty limited.
>
> Take Care
>
>
> Steve
>
>
>
>
There is the Email::Valid module from CPAN
------------------------------
Date: 1 Oct 2003 14:02:15 GMT
From: Glenn Jackman <xx087@freenet.carleton.ca>
Subject: Re: Regexp - optimisation
Message-Id: <slrnbnlnk6.7er.xx087@smeagol.ncf.ca>
Helgi Briem <HelgiBriem_1@hotmail.com> wrote:
> On Tue, 30 Sep 2003 22:24:44 +0100, "Stephen Adam"
> <stephen.adam@ntlworld.com> wrote:
>
> >It seems to recognise all the e-mail addresses i've tested it
> >with though I know its pretty limited.
>
> Read perldoc -q "valid mail"
>
> E-mail addresses are far too complicated to be
> validated by a single regex.
This is either very clever or very foolish (you decide), but I lifted
this from the "Mastering Regular Expressions" book:
# generate a regex to match an email address.
# remember to use /x !!
sub addressSpec
{
my ($esc, $space, $tab, $period) = ('\\\\', '\040', '\t', '\.');
my ($lBr, $rBr, $lPa, $rPa) = ('\[', '\]', '\(', '\)');
my ($nonAscii, $ctrl, $CRlist) = ('\200-\377', '\000-\037', '\n\015');
my $qtext = qq{ [^$esc$nonAscii$CRlist] }; # within "..."
my $dtext = qq{ [^$esc$nonAscii$CRlist$lBr$rBr] }; # within [...]
my $ctext = qq{ [^$esc$nonAscii$CRlist()] }; # within (...)
my $quoted_pair = qq{ $esc [^$nonAscii] }; # an escaped char
my $atom_char = qq{ [^()$space<>\@,;:".$esc$lBr$rBr$ctrl$nonAscii] };
my $atom = qq{ $atom_char+ # some atom chars
(?!$atom_char) # NOT followed by part of an atom
};
# rfc822 comments are (enclosed (in parentheses) like this)
my $cNested = qq{ $lPa (?: $ctext | $quoted_pair )* $rPa };
my $comment = qq{ $lPa (?: $ctext | $quoted_pair | $cNested )* $rPa };
# whitespace and comments may be scattered liberally
my $X = qq{ (?: [$space$tab] | $comment )* };
my $quoted_str = qq{ " (?: $qtext | $quoted_pair )* " };
my $word = qq{ (?: $atom | $quoted_str ) };
my $domain_ref = $atom;
my $domain_lit = qq{ $lBr (?: $dtext | $quoted_pair )* $rBr };
my $sub_domain = qq{ (?: $domain_ref | $domain_lit ) };
my $domain = qq{ $sub_domain (?: $X $period $X $sub_domain )* };
my $local_part = qq{ $word (?: $X $period $X $word )* };
my $addr_spec = qq{ $local_part $X \@ $X $domain };
# remember to use the //x modifier with this regex!
return $addr_spec;
}
--
Glenn Jackman
NCF Sysadmin
glennj@ncf.ca
------------------------------
Date: Wed, 1 Oct 2003 09:25:15 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: regexp help
Message-Id: <slrnbnloub.qg1.tadmc@magna.augustmail.com>
mani <indian_spindoctor@yahoo.com> wrote:
> Martien, I am ok at reading documents but sometimes
> i find it better discussing with some good people like you guys :).
Reading the applicable docs, then posting if you don't understand is OK.
Asking us to read the docs for you is not OK.
(there is one of "you" and thousands of "us". Not an efficient use of time.)
> How does that \s help?. I mean what does it mean?.....
The docs for regular expressions say:
perldoc perlre
\s Match a whitespace character
> Can u tell me?.
Yes. It will match a whitespace character.
> I thought it is
Guessing at a language's features is no way to go about
software development.
> /^s*#/.. My interpretation is anything that starts with a space
No, that is anything that starts with the character "s".
[ snip full-quote.
Please see the Posting Guidelines that are posted here frequently.
]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 1 Oct 2003 08:04:58 -0700
From: nick77074@hotmail.com (Nick)
Subject: Saving html form into oracle database
Message-Id: <3db2b381.0310010704.665891ad@posting.google.com>
I'm new to perl programming. Just wanted to know if there is a way I
could save the whole HTML FORM into database rather then saving it by
individual fields.
Someone mentioned it to me that it can be done. I just don't know how
to do it.
Reason I'm trying to do this is because im working on a FORM with
about 50 input fields. All I need is a way to save this form and pull
it back with the data and be able to make changes to it and save it
again. I know I can run a sql query and save all the fields
individually and do the same when I put the data back into the FORM
before showing it but thats kinda lengthy approach. Anyone know a
better way of doing this?? Don't know much about cgi.pm either.
Thanks for your help.
Nick
------------------------------
Date: Wed, 01 Oct 2003 14:19:18 GMT
From: sgw <seanw@#nospam#bigfoot.com>
Subject: WITS - bug tracking tool
Message-Id: <GnBeb.6079$g12.2534@news.cpqcorp.net>
Hi,
I've been told that WITS is aan effective Bug tracking tool written
in Perl. I've not yet been able to find any information on the web -
has anyone here had any experience of it, or knows where I can find out
more?
Thanks.
------------------------------
Date: Wed, 01 Oct 2003 16:02:30 +0100
From: Rich <scriptyrich@yahoo.co.uk>
Subject: Re: WITS - bug tracking tool
Message-Id: <bleq2p$u1i$1@news7.svr.pol.co.uk>
sgw wrote:
> Hi,
> I've been told that WITS is aan effective Bug tracking tool written
> in Perl. I've not yet been able to find any information on the web -
> has anyone here had any experience of it, or knows where I can find out
> more?
>
> Thanks.
Hmm, no idea - but RT would be my choice for bug tracking:
http://www.bestpractical.com/rt/
Cheers,
--
Rich
scriptyrich@yahoo.co.uk
------------------------------
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 5597
***************************************
