[11251] in Perl-Users-Digest
Perl-Users Digest, Issue: 4851 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 9 04:07:30 1999
Date: Tue, 9 Feb 99 01:00:22 -0800
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 Feb 1999 Volume: 8 Number: 4851
Today's topics:
Bug and cool debugging technique (5.004_04) ajs@ajs.com
Re: Bug and cool debugging technique (5.004_04) (Ilya Zakharevich)
Re: Comma insertion in numbers, 333,333 <chad@vcn.net>
Re: Comma insertion in numbers, 333,333 (Larry Rosler)
Re: Converting a Byte to it's respective bits <chad@vcn.net>
Re: execution order ( perl bug?) (Mark-Jason Dominus)
Re: Free perl debugger? <dieter.muecke@wueba.de>
Re: how can i post? <chad@vcn.net>
Re: how do I get a date in perl? <chad@vcn.net>
Re: implementing a find method for an object? <bmb@ginger.libs.uga.edu>
Re: implementing a find method for an object? (Mark-Jason Dominus)
Re: Jesus Rides a HOG(tm) : was :CONCLUSIVE PROOF: The <jackiej@acay.com.au>
Re: locking files <paul@rainbow.nwnet.co.uk>
Re: locking files <chad@vcn.net>
Re: locking files (Mark-Jason Dominus)
Re: My SQL <chad@vcn.net>
Re: performance penalty: bareword, single quoting, doub (Mark-Jason Dominus)
Re: performance penalty: bareword, single quoting, doub (Sean McAfee)
Re: perl compiler <m_ching@hotmail.com>
Re: Perl, PHP, Python, ColdFusion, MS Frontpage, which ghill@n2.net
Renaming filez <cybir@echoweb.net>
Re: Renaming filez <m_ching@hotmail.com>
Re: Rounding for Euro currency (Larry Rosler)
Re: Serial Port in WinNT and OS/2 (Bbirthisel)
Re: speed up the DBI/DBD dynamic module loading? <chad@vcn.net>
Re: Would love UNIX program that could read Excel binar <justin@nectar.com.au>
Re: Would love UNIX program that could read Excel binar (henner juengst)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 09 Feb 1999 05:53:13 GMT
From: ajs@ajs.com
Subject: Bug and cool debugging technique (5.004_04)
Message-Id: <79oig7$dqk$1@nnrp1.dejanews.com>
I've discovered a bug (causes SEGV) in 5.004_04, and was wondering if anyone
with quick access to 5.005 could test this for me:
for($i=0;$i<2;$i++) {
if ($i==1) {
$m++;
goto X; # Try to simulate switch/case drop-through
} elsif ($i == 0) {
X:
$m--;
}
}
This crashes 5.004_04 reliably on my RedHat Linux systems. It's the goto that
does it.
However, while I was trying to find it, I found this really neat way of
tracking down SEGV's (which, thankfully isn't all that useful for perl, in
the general case):
$SIG{SEGV}=sub{ package foo; use Carp; croak("SEGV") };
This line will cause perl to tell you what perl code was executing when the
interpreter woofed it's cookies, because it puts the signal handler in a
different package. croak() reports the first caller in a different package, so
it finds the code that gacked.
-AJS
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Feb 1999 06:56:09 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Bug and cool debugging technique (5.004_04)
Message-Id: <79om69$r19$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to
<ajs@ajs.com>],
who wrote in article <79oig7$dqk$1@nnrp1.dejanews.com>:
> $SIG{SEGV}=sub{ package foo; use Carp; croak("SEGV") };
>
> This line will cause perl to tell you what perl code was executing when the
> interpreter woofed it's cookies, because it puts the signal handler in a
> different package. croak() reports the first caller in a different package, so
> it finds the code that gacked.
Why not just run your code under Perl debugger? It will provide the
same info (using basically the same technique).
Ilya
------------------------------
Date: Tue, 09 Feb 1999 06:11:29 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: Comma insertion in numbers, 333,333
Message-Id: <79ojic$emp$1@nnrp1.dejanews.com>
#!/usr/bin/perl
$x = "123123123123123";
$x =~ s/(...)/$1,/g;
$y = $x;
print "$y\n";
exit;
there you go.
-chad
In article <79ivun$vlk$1@slave2.aa.net>,
Xeno Campanoli <xeno@bigger.aa.net> wrote:
> I know I knew this before, but now I don't and I can't figure it out.
>
> If I've got:
>
> $x = "123123123123123";
>
> and I want:
>
> $y eq "123,123,123,123,123"
>
> generated from the above $x, what do I do? I know I can do this
> awful and expensive constructions using:
>
> @x = split(//,$x);
> @rx = reverse @x;
> $z;
> @a;
> foreach $xpart ( @rx )
> {
> $z .= $xpart;
> if ( length($z) == 3 )
> {
> push(@a,$z);
> $z = "";
> }
> }
> push(@a,$z);
> @b = reverse @a;
> $c = join ",", @b;
>
> and I almost wonder if I could do it more efficiently in C. I'm almost
> sure I can, which for Perl means do it with substr piece by piece. Isn't
> there a way to do it with regular expressions or something that is fast
> and easy to understand?
>
> Thank you for any feedback.
> --
> Xeno Campanoli
> Email: xeno@aa.net
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 8 Feb 1999 23:58:13 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Comma insertion in numbers, 333,333
Message-Id: <MPG.11298a6962207784989a10@nntp.hpl.hp.com>
In article <79ojic$emp$1@nnrp1.dejanews.com> on Tue, 09 Feb 1999
06:11:29 GMT, Chad M. Townsend <chad@vcn.net> says...
> #!/usr/bin/perl
>
> $x = "123123123123123";
>
> $x =~ s/(...)/$1,/g;
>
> $y = $x;
>
> print "$y\n";
>
> exit;
>
> there you go.
That prints
123,123,123,123,123,
And if we add a '1' to the input string, it prints
123,123,123,123,123,1
I doubt very much that that is what the submitter wanted.
You should have tested your code before posting it. And in any case,
you should have referred him to the solution in perlfaq5: "How can I
output my numbers with commas added?", as others have. And you should
use a standard cut-mark "-- \n" for your signature.
There you go!
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 09 Feb 1999 07:18:37 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: Converting a Byte to it's respective bits
Message-Id: <79ong8$hn4$1@nnrp1.dejanews.com>
look into the 'unpack' function, maybe that will help.
-chad
> I'm reading information in from a binary file in bytes (using binmode
> and read).
>
> Cool fine and dandy. However, I can't figure out how to break that
> information out into its separate bits (I need to be able to read out
> the bit values).
>
> --
> ricks@duke.edu http://www.duke.edu/~ricks
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Feb 1999 02:21:00 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: execution order ( perl bug?)
Message-Id: <79onks$edj$1@monet.op.net>
In article <36BF7BE1.4C869F12@hwcae.honeywell.com>,
Niclas Karlsson <karlsson@hwcae.honeywell.com> wrote:
>Has anyone seen this before?
Yes. I expain this exact problem at
http://www.plover.com/~mjd/perl/FAQs/Buffering.html
------------------------------
Date: Tue, 09 Feb 1999 08:37:50 +0100
From: "Dieter M|cke" <dieter.muecke@wueba.de>
Subject: Re: Free perl debugger?
Message-Id: <36BFE5CE.D499DBBD@wueba.de>
http://world.std.com/~aep/ptkdb/
--
Dieter M|cke e-mail: Dieter.Muecke@wueba.de
www: http://www.wueba.de
,,,^..^,,,
------------------------------
Date: Tue, 09 Feb 1999 06:45:47 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: how can i post?
Message-Id: <79oliq$gce$1@nnrp1.dejanews.com>
What in the world are you talking about?
-chad
In article <79k7lq$mc9$1@jagalchi.cc.pusan.ac.kr>,
"1h?5EB" <yotakim@hyowon.cc.pusan.ac.kr> wrote:
> hi~
>
> i want to receive in the form at my site
> and post the input data to other sites..
>
> i succeed in finding the strings in the back of xxx.cgi? or xxx.pl?
>
> so i use like this
>
> exam 1 : ..... xxx.cgi?name=test&...
> i succeed
>
> exam 2 : .....xxxx.pl?name=test&...
> i fail ,, i receive message 'you don't forget to input name..'
>
> why?
> is there any difference between xxx.cgi and xxx.pl?
>
> please help.. me..!!
>
> from cheetah
>
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 09 Feb 1999 07:17:06 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: how do I get a date in perl?
Message-Id: <79ondd$hmp$1@nnrp1.dejanews.com>
Believe me when I tell you there is a perl function, module or package for
anything you might need. You need to hang around CPAN and http://www.perl.com
more.
-chad
> Duc Le <bamboo@best.com> wrote:
> >Hi!
> >
> >I don't know if Perl has any function for date manipulation besides
> >localtime(). I just want to do a simple task like getting the week date
> >from any given day of the month. For example, given "02/12/1999", I
> >would like to know what date of the week this day falls on.
>
> There are various Date modules on CPAN.
>
> http://www.cpan.org/modules/by-module/Date/
>
> HTH.
>
> --
>
> Alastair
> work : alastair@psoft.co.uk
> home : alastair@calliope.demon.co.uk
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 9 Feb 1999 02:04:13 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
To: Brian Lindsay <blindsay@bnr.ca>
Subject: Re: implementing a find method for an object?
Message-Id: <Pine.A41.4.02.9902090131560.13974-100000@ginger.libs.uga.edu>
On 9 Feb 1999, Brian Lindsay wrote:
> OK, here's the new method:
>
> sub new {
> my $proto = shift;
> my $class = ref($proto) || $proto;
> my $self = {};
> my $name = shift;
> $self->{NAME} = $name;
> bless($self);
> $objtable{$name} = $self; <== likely something fishy here?
> return $self;
> }
>
> and here's the find method:
>
> sub find
> #-------
> {
> my ($class, $name) = @_;
> $objtable{$name};
> }
>
>
> and if I try this...
>
> $fredsobj = dummy->find("fred");
> print ($freds_class->name);
a) Your class (package) name is 'dummy'?
b) You defined a method named 'name'?
c) If so, why not 'print ($fredsobj->name);'?
In other words, call your object method (name) with an object
($fredsobj).
Remember, an object is just a reference to a data structure (that
happens to know which class it belongs to by virtue of having been
blessed).
When you call an object method with an object, a) the object tells
perl where to look (i.e., which class) for the method, and b) perl
passes the reference as the first parameter, so the method can have
its way with the data structure.
When you call a class method, often you simply call it with the
class name. This a) tells perl where to look for the method, and
b) perl passes the class name (a simple string) as the first
parameter.
If you follow the instructions correctly (as you have with 'new'
above), you can define a class method to also be called with an
object. If it's truly a class method, it won't mess with the
data structure, though it might read from it (to make a cloning
constructor, for example).
OOP was not built in a day. You won't learn it that fast either
(as you're probably painfully aware). IMHO, Perl is the best place
to learn it, because it's easy to describe in plain (i.e.,
familiar) terms.
If you read anything in perltoot, etc., that contradicts what I've
told you, believe them, not me :-)
>
> I get the following:
>
> Can't call method "name" without a package or object reference at
> testit line 1
Regards,
-Brad
------------------------------
Date: 9 Feb 1999 02:19:01 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: implementing a find method for an object?
Message-Id: <79onh5$ecu$1@monet.op.net>
In article <79oi3n$ord$1@bmerhc5e.ca.nortel.com>,
Brian Lindsay <blindsay@bnr.ca> wrote:
>OK, here's the new method:
Looks fine.
>and here's the find method:
Also looks fine.
>and if I try this...
>
> $fredsobj = dummy->find("fred");
> print ($freds_class->name);
And this is a complete mystery. Why would you expect this to do
anything? What's in $freds_class? It's a variable, and you didn't
initialize it, so it's undef, and you got the message
>Can't call method "name" without a package or object reference
In Perl 5.005, this would be
Can't call method "name" on an undefined value
Which is the same.
If `find' worked properly, $fredsobj will be the object named Fred,
>and you can get its class by doing
print ref $fredsobj;
or you can get its name by doing
print $fredsobj->name;
But variables like $freds_class don't just spring into existence by
themselves, and I suppose you know this, so your question is
puzzling.
------------------------------
Date: Mon, 8 Feb 1999 17:32:38 +1100
From: "JAY JAY" <jackiej@acay.com.au>
Subject: Re: Jesus Rides a HOG(tm) : was :CONCLUSIVE PROOF: The Beatles are bigger than Jesus!
Message-Id: <36bf2e3f.0@nnrp1.acay.com.au>
PLEASE MAKE THIS GO AWAY JAY JAY
Olice (Oly) Certain wrote in message <78o71b$k27$1@news.unicomp.net>...
>
>grendal wrote in message <36AEED60.EAC2CC5B@buffnet.net>...
>Please stop cross-posting this thread to sci.astro.amateur.
>
>>Take sci.astro.amateur out of your list...or start posting something
>related.
>>Astro and riding aren't that far apart, unless you're a dip shit.
>>My 21 year old rebuilt honda cb 750 will tool you insignificant fuckers
>anyway.
>>Not saying I don't want a harley, but what am I supposed to do, kill
>>one of you? (Easier done then said, but you can't see the stars from
>>jail.) You probably don't ride anyway. If you want to debate the facts,
>>email me, you bloated jackass. (Or even better...
>>actually, I like this NG too much to go on.) Always good to have
>>my theory proven, genetics are in fact working in reverse.
>>
>>Ears wrote:
>>>
>>> On Wed, 27 Jan 1999 03:11:43 GMT,
>>> Spider Fighter <spiderfighter@REMOVETHISTOEMAILMEhotmail.com> wrote:
>>>
>>> >Well, _that_ was interesting.
>>> >Please don't post this thread to the rec.games.video.nintendo newsgroup
>any more.
>>>
>>> OK, consider it done. No longer crossposting there.
>>>
>>> BTW, did John Lennon ride a Harley ? Or any other bike, for that matter
?
>>>
>>> I'll bet if Harleys were around when Jesus was, he, and all his apostles
>>> would've ridden. Well, they did say he could see the future....
>>>
>>> BTW, this thread is no longer being posted to rec.games.video.nintendo.
>>> If you don't want this posted to your newsgroup either, reply to us here
>>> at rec.motorcycles.harley, and we will be glad to take it out of the
>>> header for you. Unless of course, you're smart enough to do it yourself
>>> before you repost.
>>>
>>> This thread is currently being maintained by bonafide Harley riders now.
>>>
>>> --
>>> *Ears* 98 XL 1200 Custom
>>> kd4zkw@amsat.org
>>> http://www.dialisdn.net/user/cdlevin
>
>
------------------------------
Date: Tue, 09 Feb 1999 06:58:45 +0000
From: Paul Williams <paul@rainbow.nwnet.co.uk>
To: dan <webmaster@macdaddyusa.com>
Subject: Re: locking files
Message-Id: <36BFDCA5.56D9E74E@rainbow.nwnet.co.uk>
Chris has explained it pretty well but I thought you might like to
know of a function which is available to perl without writing and then
checking the existance of a file ... flock();
A problem which may arise with checking for the existance of a file
though may be that the script might terminate before it had a chance to
delete the temporary lock file so the next access to your cgi script
would believe there is still a lock . Obviously this may be checked
with the -M option but who has time for that ;)
Well, if your machine doesn't implement either flock() or fcntl() you
will have to find time because they are not available ;) win95 = NOPE
Most U*IX will have flock() available...
--- snip ---
open(FILE, "file.txt") || die "$!";
# I am not sure if its available for NT, have missed it out anyway
flock(FILE, 2) if ($^O ne 'NT' && $^O ne 'MSWin32');
# In case someone wrote to the file (appended) while waiting...
seek(FILE, 0, 2);
while (<FILE>)
{
# File is read in a locked state so another implimentation
# of this program will have to wait until we have unlocked it
print $_;
}
close(FILE); # Will lift the lock
--- snip ---
dan wrote:
>
> can someone give me a quick rundown on what locking files is? thanks
------------------------------
Date: Tue, 09 Feb 1999 07:13:15 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: locking files
Message-Id: <79on67$hcj$1@nnrp1.dejanews.com>
> can someone give me a quick rundown on what locking files is? thanks
um, what part about 'locking' do you not understand?
-chad
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Feb 1999 02:38:08 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: locking files
Message-Id: <79ool0$ef8$1@monet.op.net>
In article <Ox0#737U#GA.123@nih2naae.prod2.compuserve.com>,
Mike Watkins <mwatkins@promotion4free.com> wrote:
>open (FILE, ">file.txt");
You blew it. If some other process was reading or writing this file,
you've just erased it.
>flock (FILE, LOCK_EX);
Since you've already ERASED the file, politely waiting for the lock
afterwards is a little silly.
It's a little like taking a crap on someone's doorstep, then ringing
the bell and asking to be allowed to come in to wash your hands.
------------------------------
Date: Tue, 09 Feb 1999 06:44:00 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: My SQL
Message-Id: <79olff$g2n$1@nnrp1.dejanews.com>
Your best bet is combing activestate.com (or what ever) mysql.net and
cgi-resources.com ... what do you mean by 'off line'? Use a Linux computer
for a desktop.
-chad
In article <79nh9a$36c$1@uranium.btinternet.com>,
"Bruce Davidson" <bruce.d@btinternet.com> wrote:
> Using Active Perl on W95. (GS port also available).
> I've installed W32 mysql shareware server.
> Could anyone offer a shopping list for modules needed to fire mysql commands
> and a sample perl sub to e.g., create table.
> Trying to build and populate tables off line.
> Thanks
>
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Feb 1999 02:27:56 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: performance penalty: bareword, single quoting, double quoting
Message-Id: <79oo1s$eef$1@monet.op.net>
In article <Pine.A41.4.02.9902081916590.13514-100000@ginger.libs.uga.edu>,
Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
> 9 ### Ambiguous use of {DESTROY} resolved to {"DESTROY"}
>10 ### at /export/home/bmb/bin/qt line 5.
>11 ### Ambiguous use of {x} resolved to {"x"}
>12 ### at /export/home/bmb/bin/qt line 6.
That confusing and pointless warning message went away in perl5.005,
I'm glad to say.
I can prove that the message is confusing:
>(Please note, perl did the right thing.) In those cases where you have
>to, just put those keys in quotes, i.e., $h{'DESTROY'}, $h{'x'}.
The quotes are unnecessary. Perl told you that it resolved your
`ambiguous' form to the quoted version automatically.
The only times you need to include the quotes are when the key is *not*
a single word, as in
$h{'3+5'}
$h{'s/foo/bar/'}
$h{'time()'}
$h{'+time'}
For simple alphanumeric strings like `x' and `DESTROY', the quotes are
always optional, because Perl will infer them:
> {DESTROY} resolved to {"DESTROY"}
just as it says. This will occur regardless of whether there is a
DESTROY function.
------------------------------
Date: Tue, 09 Feb 1999 08:22:45 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: performance penalty: bareword, single quoting, double quoting
Message-Id: <pfSv2.6351$Ge3.25736382@news.itd.umich.edu>
In article <Pine.A41.4.02.9902081916590.13514-100000@ginger.libs.uga.edu>,
Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
>I like barewords in those places where perl doesn't complain about
>them. Actually, -w doesn't complain about lower-case barewords.
Yes, it does.
> perl -lwe 'print STDOUT foo'
Unquoted string "foo" may clash with future reserved word at -e line 1.
foo
> perl -lwe 'print STDOUT Foo'
Foo
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Mon, 08 Feb 1999 10:29:36 -1000
From: Michael Ching <m_ching@hotmail.com>
Subject: Re: perl compiler
Message-Id: <36BF4930.B3971FA7@hotmail.com>
http://www.activestate.com
it is an interpreter. but i think it comes with perl2exe which compiles
it. but i think you want the interpreter
"Rak (remove dot)" wrote:
>
> is there a perl compiler for pc's?? i m currently doing a project and
> would like to test the scripts, but have no way of doing so unless i go
> to uni!!!
>
> any help much appreciated, thanks
>
> Rakesh
------------------------------
Date: Tue, 09 Feb 1999 06:43:47 GMT
From: ghill@n2.net
Subject: Re: Perl, PHP, Python, ColdFusion, MS Frontpage, which one for beginner
Message-Id: <79olf2$g2j$1@nnrp1.dejanews.com>
> use the one that fits your needs. languages are tools and as such
> have different strengths and specialities. you might even mix all
> of the options that you mentioned.
>
Point taken, but I would like to know which one is going to help me make
money sometime in the not to distant future. I would not choose C or C++ to
write the apps that I've developed in Visual dBASE. I have not even had to
touch those languages. I have occasionally wished for a little more speed
but it has not stopped me from selling my products. Is there a Visual dBASE,
Clipper, Visual Foxpro for the Web?
When I ask this question, I'm am factoring in the fact that the xBase
languages were suitable for the job in the way of Development turn around
time and performance and maintenance. One difference is the need for Multi
Platform. Thanks in advance. Greg Hill
> --
> brian d foy
> CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 08 Feb 1999 22:09:30 -0800
From: =?iso-8859-1?Q?Cyb=EER?= <cybir@echoweb.net>
Subject: Renaming filez
Message-Id: <36BFD11A.FCE00CF5@echoweb.net>
Does anybody know if its possible to rename local files without using
system backticks?
Thanx in advance,
+++++CybiR+++++
------------------------------
Date: Mon, 08 Feb 1999 10:24:40 -1000
From: Michael Ching <m_ching@hotmail.com>
Subject: Re: Renaming filez
Message-Id: <36BF4808.9F953D7B@hotmail.com>
perldoc -f rename
CybnR wrote:
>
> Does anybody know if its possible to rename local files without using
> system backticks?
>
> Thanx in advance,
> +++++CybiR+++++
------------------------------
Date: Mon, 8 Feb 1999 23:38:33 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Rounding for Euro currency
Message-Id: <MPG.112985c55a7a187b989a0f@nntp.hpl.hp.com>
In article <1dmxm1n.j4ewiz1qa0ekwN@bay1-326.quincy.ziplink.net> on Tue,
9 Feb 1999 00:05:29 -0500, Ronald J Kimball <rjk@linguist.dartmouth.edu>
says...
...
> $new = sprintf("%9.2f", sprintf("%9.0d", $old*20+.5) /20);
$new = sprintf("%9.2f", int($old*20+.5) /20);
should do just as well, and somewhat faster. Why pad to a nine-
character string when all you want is a number?
Someone should note that this 'add 0.5 and truncate to int'
algorithm fails if the value is negative. Probably the simplest way to
round an arbitrary number to integer is:
... sprintf('%.0f', $old * 20) ...
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 9 Feb 1999 06:22:17 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: Serial Port in WinNT and OS/2
Message-Id: <19990209012217.21508.00000323@ng-fd1.aol.com>
Hi Peter:
>Im trying to open the serial ports for read and
>write access in WinNT and OS/2. I have read the
>Perl FAQ (Part 8), but it was of little help.
Actually, this response in the FAQ is not accurate for NT.
I do not know about OS/2 and don't have a copy to test.
For NT (and Win95/98), the Win32::SerialPort module is
the solution of choice. Available from your favorite CPAN
site under authors/id/B/BB/BBIRTH
You can also get it at :
http://members.aol.com/bbirthisel/alpha.html
Win32::SerialPort relies on API calls - and is extremely
unlikely to be portable to OS/2 or anything else.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Tue, 09 Feb 1999 06:40:06 GMT
From: Chad M. Townsend <chad@vcn.net>
Subject: Re: speed up the DBI/DBD dynamic module loading?
Message-Id: <79ol85$g0l$1@nnrp1.dejanews.com>
This prob. has nothing to do with your question but you can load DBI objects
with the Apache web server and maybe others, so it load when you start the Web
Server, not the script.
-chad
http://perl.apache.org
In article <79ls6o$26p$1@netnews.csie.NCTU.edu.tw>,
dennis@info4.csie.nctu.edu.tw (GEMINI) wrote:
> hi all,
> I make all my perl modules using dynamic linking.
> The start up speed is acceptable for these modules
> except for the DBI/DBD module.
> It's much slower than other module to be loaded.
> With the exception of static linking,
> is there any way to speed up the loading time?
> is it possible to make the module (dynamic linking library, *.so)
> stay in memory permenently? and does it work?
> thanks.
>
>
--------------------------------------------------------
Chad M. Townsend Virtual Community Network, Inc.
Chief Technical Officer Your Local Community Online!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 09 Feb 1999 17:54:28 +1100
From: Justin Wills <justin@nectar.com.au>
Subject: Re: Would love UNIX program that could read Excel binary file...
Message-Id: <36BFDBA3.E0ED8E40@nectar.com.au>
Victor Wagner wrote:
staroffice. see http://mirror.aarnet.edu.au
> wsherrin <wsherrin@eccms1.dearborn.ford.com> wrote:
> : Hi techical friends -
>
> : Been surfing for a couple of days, but no luck...
>
> : Does anyone know of a FREE Magical Perl module or
>
> Try http://www.ice.ru/~vitus/catdoc/xls2csv.html
> --
> --------------------------------------------------------
> I have tin news and pine mail...
> Victor Wagner @ home = vitus@wagner.rinet.ru
--
Regards,
Justin Wills
justin@nectar.com.au
justin_wills@yahoo.com
------------------------------
Date: Mon, 08 Feb 1999 03:00:11 GMT
From: h.juengst@tirol.com (henner juengst)
Subject: Re: Would love UNIX program that could read Excel binary file...
Message-Id: <36be475d.3730944@news.apanet.at>
root@nowhere.uucp (root) wrote:
>Don't know if this is what you want or not, but if you want to run
>the whole thing from your end, you could just buy StarOffice (if it's
>available for your platform) and convert it in StarOffice from Excel to
>dBase or whatever.
Hi,
for Linux and private use StarOffice is free dowloadable in the net
but dont ask me for the adress
cordially,
Henner Juengst
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 4851
**************************************
