[10247] in Perl-Users-Digest
Perl-Users Digest, Issue: 3840 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 28 09:07:17 1998
Date: Mon, 28 Sep 98 06:00:20 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 28 Sep 1998 Volume: 8 Number: 3840
Today's topics:
Re: A CGI question about Linux + Apache (Ang Chin Han)
Re: an observation on why python will fail <eashton@bbnplanet.com>
Re: Best Editor for Perl (under WinNT4) - Syntax Colori (Marc Bissonnette)
Re: Best Editor for Perl (under WinNT4) - Syntax Colori (Alec Stewart)
Re: Best Editor for Perl (under WinNT4) - Syntax Colori (Alec Stewart)
How do I do this c-ish pointerly thing in perl? (Jedediah D. Parsons)
Re: How do I do this c-ish pointerly thing in perl? (Sean McAfee)
Re: How do I do this c-ish pointerly thing in perl? (Craig Berry)
Re: How do i unpack a 64-bit long? <zenin@bawdycaste.org>
Re: How do i unpack a 64-bit long? <zenin@bawdycaste.org>
Re: How to read contents of all *.TXT files in director <spamsux-tex@habit.com>
Re: how to use variables declared in other file (David A. Black)
need help with bar graph creation <dexter@coolcounter.com>
Re: need help with bar graph creation (Bart Lateur)
Re: perl 5 on Freebsd - dbm Problems <zenin@bawdycaste.org>
Re: Perl not terminating (Marc Bissonnette)
Re: Perl not terminating <michel.prevost@cactuscom.ca_REMOVE_TO_MAIL>
Re: PerlShop and CyberCash <greg@hassan.com>
Re: POSIX test hangs in 5.005_02 install <spamsux-tex@habit.com>
Re: printing a two column sorted HTML table (Koos Pol)
Re: Require NT console to act as a terminal. <pgunn01@ibm.net>
Re: script: scriptMangle! (Craig Berry)
Re: script: scriptMangle! <eashton@bbnplanet.com>
Re: script: scriptMangle! <eashton@bbnplanet.com>
Re: Search engine <greg@hassan.com>
Shell command sblenkhorn@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Sep 1998 06:56:45 GMT
From: angch@yoyo.cc.monash.edu.au (Ang Chin Han)
Subject: Re: A CGI question about Linux + Apache
Message-Id: <slrn70ucq4.2do.angch@szap.ml.org>
On Sun, 27 Sep 1998 16:01:32 GMT, chifuwang@my-dejanews.com
<chifuwang@my-dejanews.com> wrote:
[snip]
> #!/usr/bin/perl
> print "Content-type: text\html\n\n";
^
> print "<H1>Simple CGI Script</H1>\n";
> print "This is my first CGI script!\n";
s/text\\html/text\/html/
HTH.
--
|) Ang Chin Han <angch@yoyo.cc.monash.edu.au> sza|)
|)ee SMCH '94 page: http://yoyo.cc.monash.edu.au/~angch/ |
perl -e'$_=" "x4;for $a(split //,"Japhuneasorcttlk:h:e:e:r:r:::")\
{s/:*~/ /g&push @j,$_ until s/ /$a~/}print join("-->\n",@j),"\n";'
------------------------------
Date: Mon, 28 Sep 1998 12:40:09 GMT
From: "Elaine -HappyFunBall- Ashton" <eashton@bbnplanet.com>
Subject: Re: an observation on why python will fail
Message-Id: <JsLP1.3$94.119760@burlma1-snr1.gtei.net>
>Lloyd Wood <eep1lw@surrey.ac.uk> wrote:
>>It always comes down to the most visible leading advocate and exemplar:
>Bullshit.
While I do believe that is a pretty hasty gross generalisation, at the core
it does have some merit. Larry Wall is somewhat charismatic, seemingly
diplomatic and has encouraged the diversity of contribution from others to
make Perl the language that it is. Python has not failed, but has not gained
the popularity that Perl has primarily because it lacks all of those.
Mussolini made the trains run on time but at what cost?
e.
------------------------------
Date: 28 Sep 1998 05:06:49 GMT
From: dragnet@internalysis.com (Marc Bissonnette)
Subject: Re: Best Editor for Perl (under WinNT4) - Syntax Coloring ?
Message-Id: <6un5h9$7a4$2@news.interlog.com>
In article <360EF00D.5A1E@datamail.co.nz>, arranp@datamail.co.nz says...
>
>Alec Stewart wrote:
>>
>> Can anyone recommend a decent Editor for Perl (5) ?
>> - Ideally something with Syntax Coloring
>> (like KEDIT seems to do for other languages...)
>>
>ultraedit.com
I'll second ultraedit, it rocks :)
--
Marc Bissonnette
InternAlysis
Corporate Internet Research and Results!
http://www.internalysis.com
------------------------------
Date: Mon, 28 Sep 1998 12:39:10 GMT
From: alec@venus.co.uk (Alec Stewart)
Subject: Re: Best Editor for Perl (under WinNT4) - Syntax Coloring ?
Message-Id: <360f8343.159494731@news.demon.co.uk>
Yeah but which is do you *recommend* ?
yrs
Alec
On 26 Sep 1998 14:12:45 -0400, clay@panix.com (clay irving) wrote:
>In <360d29c5.5512867@news.demon.co.uk> alec@venus.co.uk (Alec Stewart) writes:
>
>>Can anyone recommend a decent Editor for Perl (5) ?
>>- Ideally something with Syntax Coloring
>>(like KEDIT seems to do for other languages...)
>
>
>>I am running under WinNT 4 (SP3).
>
>Check the "editors" section of Perl Reference <http://reference/perl.com>,
>
>--
>clay irving
>clay@panix.com
>http://www.panix.com/~clay/
------------------------------
Date: Mon, 28 Sep 1998 12:43:52 GMT
From: alec@venus.co.uk (Alec Stewart)
Subject: Re: Best Editor for Perl (under WinNT4) - Syntax Coloring ?
Message-Id: <360f8470.159795533@news.demon.co.uk>
Yeah but which is best ?!
Alec
On 26 Sep 1998 14:12:45 -0400, clay@panix.com (clay irving) wrote:
>In <360d29c5.5512867@news.demon.co.uk> alec@venus.co.uk (Alec Stewart) writes:
>
>>Can anyone recommend a decent Editor for Perl (5) ?
>>- Ideally something with Syntax Coloring
>>(like KEDIT seems to do for other languages...)
>
>
>>I am running under WinNT 4 (SP3).
>
>Check the "editors" section of Perl Reference <http://reference/perl.com>,
>
>--
>clay irving
>clay@panix.com
>http://www.panix.com/~clay/
------------------------------
Date: 28 Sep 1998 05:53:05 GMT
From: jed@glug.hip.berkeley.edu (Jedediah D. Parsons)
Subject: How do I do this c-ish pointerly thing in perl?
Message-Id: <slrn70u95e.psk.jed@glug.hip.berkeley.edu>
Greetings:
What's a perl equivalent for this?:
sub_p (char *a)
{
while (*a != '\0') do_something_with(a++);
}
In my case, *a points to a rather long string, so I want to avoid
substr and arrays, if possible.
Many thanks,
Jed
--
Jed Parsons: ``Lingua balbus, hebes ingenio
Harpsichordist, Classicist, Homebrewer. Viris doctis sermonem facio.''
mailto:jed@socrates.berkeley.edu -- Archipoeta
http://www.OCF.Berkeley.EDU/~jparsons/
------------------------------
Date: Mon, 28 Sep 1998 06:23:08 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: How do I do this c-ish pointerly thing in perl?
Message-Id: <gXFP1.5083$F7.18881621@news.itd.umich.edu>
In article <slrn70u95e.psk.jed@glug.hip.berkeley.edu>,
Jedediah D. Parsons <jed@glug.hip.berkeley.edu> wrote:
>What's a perl equivalent for this?:
>sub_p (char *a)
> {
> while (*a != '\0') do_something_with(a++);
> }
>In my case, *a points to a rather long string, so I want to avoid
>substr and arrays, if possible.
I think the most straightforward approach is this:
sub sub_p {
my $a = shift;
while ($a =~ /(.)/gs) {
do_something_with($1);
}
}
Alternately, you could write an extension which accesses the internal
representation of the string, and loops through the characters in pretty
much the same way as in your sample code.
--
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: 28 Sep 1998 06:48:04 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: How do I do this c-ish pointerly thing in perl?
Message-Id: <6unbf4$f9q$2@marina.cinenet.net>
Jedediah D. Parsons (jed@glug.hip.berkeley.edu) wrote:
: What's a perl equivalent for this?:
:
: sub_p (char *a)
: {
: while (*a != '\0') do_something_with(a++);
: }
:
: In my case, *a points to a rather long string, so I want to avoid
: substr and arrays, if possible.
Well, substr might be your best bet, but following your specs, how about:
sub sub_p
{
my $str_ref = shift;
$$str_ref =~ s/(.)/do_something_with($1)/egs;
}
...if your intent is to modfify the argument, that is, which is how I read
your question. Note you'd pass this func a reference to a scalar
containing your string.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "Ripple in still water, when there is no pebble tossed,
nor wind to blow..."
------------------------------
Date: 28 Sep 1998 09:24:32 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: How do i unpack a 64-bit long?
Message-Id: <906974601.733789@thrush.omix.com>
Larry Rosler <lr@hpl.hp.com> wrote:
>snip<
: So a partial solution to the original problem, assuming a 64-bit big-
: endian integer has been read from the file into eight bytes of a string,
: is:
: my ($high, $low) = unpack 'NN' => $string;
: my $bignum = $high * 2 ** 32 + $low;
: But this fails (loses precision) when the result is too large to fit into
: the mantissa of the floating-point number (52 or 53 bits). I'm sure the
: Math::BigInteger or Math::BigInt modules can handle this precisely, but
: can't show how as I haven't used them myself (yet?).
Maybe like this:
use Math::BigInt;
my ($high, $low) = unpack 'NN' => $string;
$high = new Math::BigInt ($high);
$low = new Math::BigInt ($low);
my $bignum = $high * 2 ** 32 + $low;
Hmm, maybe a Math::BigInt::unpack() is in order?
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 28 Sep 1998 11:01:05 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: How do i unpack a 64-bit long?
Message-Id: <906980394.597804@thrush.omix.com>
Zenin <zenin@bawdycaste.org> wrote:
: Maybe like this:
: use Math::BigInt;
: my ($high, $low) = unpack 'NN' => $string;
: $high = new Math::BigInt ($high);
: $low = new Math::BigInt ($low);
: my $bignum = $high * 2 ** 32 + $low;
Woops! That should be:
my $bignum = new Math::BigInt ($high * 2 ** 32 + $low);
:-)
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Mon, 28 Sep 1998 00:43:21 +0000
From: Austin Schutz <spamsux-tex@habit.com>
Subject: Re: How to read contents of all *.TXT files in directory into one file?
Message-Id: <360EDBA9.4B11@habit.com>
> >If you're going to use a shell command, why not just cat?
>
> >cat *.txt > output.all
>
> Well, yeah, that was the point of the joke (you left out the :-) in
> quoting me) - the original author had stipulated a solution "using
> Perl".
>
#!/usr/local/bin/perl
`cat *.TXT > $ARGV[0]`
Yeah, I know, I'm a smartass.
Austin
------------------------------
Date: Sun, 27 Sep 1998 16:10:09 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: how to use variables declared in other file
Message-Id: <6um631$a9u$1@earth.superlink.net>
Hello -
Bob Berman <rjberman@mindspring.com> writes:
>I have a file in which I declare some variables like so:
>varx.pm:
>@array1=('a','b','c');
>$PI=3.14;
>1;
>In my main Perl script, which happens to start with a package declaration,
>I am attempting to make use of the variables in varx.pm. What's the best way
>to do this? With a require or a use or what? If in my main script, I do:
>package test;
>use lib qw(./);
>use varx;
>print $array[0];
>the use is never done. If I follow it in the debugger, the use is skipped right
>over. OK, "use" is done at compile time, but I never see the variables defined
Well, right, it is done at compile time, as advertised in the documentation.
Why do you equate that with its being "skipped right over"?
>It seems to work if I use "require" in this small example, but "require"
>is skipped right over if it's in a method of an object.
Not if the method executes.
I understand wanting to post the simplest case, but here I think you need
to post more code. Since changing use to require makes it work in your
example, this isn't the simplest case of whatever it is that you can't
solve.
David Black
dblack@saturn.superlink.net
------------------------------
Date: Sun, 27 Sep 1998 23:53:19 -0700
From: "Dexter Maxwell" <dexter@coolcounter.com>
Subject: need help with bar graph creation
Message-Id: <360f328b.0@blushng.jps.net>
To whom it may concern,
I am in trying to make a bar graph for a program I am writing, but
something keeps going wrong. Maybe you can help me. Here is what I've got:
#Let's just say I've got some values here:
$digit_1 = 14;
$digit_2 = 93;
$digit_3 = 0;
# Now I want to sort them so I can choose the highest value
@bar = ($po1, $po2, $po3);
@Newbar = sort @bar;
&graph(@Newbar);
# Here's where I multiply the digit by 150 and try to divide
# by the highest value so that the longest bar in the graph
# is only 150 (for the width in pixels for a graphic) and the
# rest of the bars correspond to the length of the longest.
sub graph {
$bar_1 = int (($digit_1 * 150) / $_[0]);
$bar_2 = int (($digit_2 * 150) / $_[0]);
$bar_3 = int (($digit_3 * 150) / $_[0]);
}
The problem comes when I've got a value of "0" for one in the list. It is
not sorting it correctly. I have also tried @Newbar = sort reverse @bar;
But that didn't work either.
Or if I don't have a value of "0" for one in the list, the bar lengths are
not correct. I think it has to do with the $_[0] value, but I'm not sure.
I'm not too good at Perl yet, so I'm sure this seems simple to you. If you
can help me out here, I would be grateful. :)
Thanks so much!
Dexter
------------------------------
Date: Mon, 28 Sep 1998 12:18:41 GMT
From: bart.mediamind@ping.be (Bart Lateur)
Subject: Re: need help with bar graph creation
Message-Id: <36127cd4.5702148@news.ping.be>
Dexter Maxwell wrote:
>#Let's just say I've got some values here:
>$digit_1 = 14;
>$digit_2 = 93;
>$digit_3 = 0;
>
># Now I want to sort them so I can choose the highest value
>@bar = ($po1, $po2, $po3);
>@Newbar = sort @bar;
>
>&graph(@Newbar);
>
># Here's where I multiply the digit by 150 and try to divide
># by the highest value so that the longest bar in the graph
># is only 150 (for the width in pixels for a graphic) and the
># rest of the bars correspond to the length of the longest.
>sub graph {
>$bar_1 = int (($digit_1 * 150) / $_[0]);
>$bar_2 = int (($digit_2 * 150) / $_[0]);
>$bar_3 = int (($digit_3 * 150) / $_[0]);
>}
>
>The problem comes when I've got a value of "0" for one in the list. It is
>not sorting it correctly. I have also tried @Newbar = sort reverse @bar;
>But that didn't work either.
I think you're sorting alphabetically. You should sort numerically.
@sorted = sort { $a <=> $b } @bar;
And if you want the first value to be the largest one, you should indeed
use reverse, or alternatively swap the $a and the $b.
But, al you want is the largest value. I think this call for a max
function.
sub max {
my($max) = shift;
foreach (@_) {
$max = $_ if $_ > $max;
}
return $max;
}
and use it like this:
$largest = &max($digit_1, $digit_2,$digit_3);
And I think you should throw in some minimal value as well, for in case
the maximum is negative or zero:
$barscale = &max(1,$digit_1, $digit_2,$digit_3);
HTH,
Bart.
------------------------------
Date: 28 Sep 1998 09:16:17 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: perl 5 on Freebsd - dbm Problems
Message-Id: <906974107.199284@thrush.omix.com>
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
: dbm is not installed with the Perl and not always installed with the OS.
Perl *always* ships with SDBM, reguardless of the OS.
FreeBSD natively has Berkeley DB (DB_File).
: Also, gdbm is not the same as dbm. Did you read the README?
Doesn't matter. dbmopen() and friends use AnyDBM_File, which
will always look for DB_File, GDBM_File, and SDBM_File (among
others) unless you explicitly tell it otherwise.
For the original poster, could you show us a small (but complete)
code snip that demonstrates your problem?
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 28 Sep 1998 05:09:52 GMT
From: dragnet@internalysis.com (Marc Bissonnette)
Subject: Re: Perl not terminating
Message-Id: <6un5n0$7a4$3@news.interlog.com>
In article <360D284A.A02071A9@cactuscom.ca_REMOVE_TO_MAIL>,
michel.prevost@cactuscom.ca_REMOVE_TO_MAIL says...
>
>Hi all
>
>Have anyone ever experienced a perl script not terminating and found the
>solution?
If you're talking about a CGI running away while printing to http, yep, I've
ran into that. The solution? Save the templates the script was reading from
from Mac to Unix (Not my mac files!!! Despite the fact that I always tell
people w/ macs to save w/ unix linefeeds, they keep sending em!)
--
Marc Bissonnette
InternAlysis
Corporate Internet Research and Results!
http://www.internalysis.com
------------------------------
Date: Mon, 28 Sep 1998 08:43:04 -0400
From: Michel Prevost <michel.prevost@cactuscom.ca_REMOVE_TO_MAIL>
Subject: Re: Perl not terminating
Message-Id: <360F8458.29404A6E@cactuscom.ca_REMOVE_TO_MAIL>
I know that the script is in exit() because i put the folllowing:
print "about to exit\n";
exit(0);
I did that to make sure that the script was exiting (or trying to or whatever). In
fact, this began to happen to many scripts that haven't been touched since eons.
It may be because of some module(s) we updated. Maybe there is an infinite loop in
some DESTROY function.
I will try truss. It may help
Tx
Michel
Jonathan Stowe wrote:
> On 26 Sep 1998 20:14:05 GMT Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
> > [A complimentary Cc of this posting was sent to Michel Prevost
> > <michel.prevost@cactuscom.ca_REMOVE_TO_MAIL>],
> > who wrote in article <360D3807.1F1060BB@cactuscom.ca_REMOVE_TO_MAIL>:
> >> That is what we do to make it stop. But i want the script to terminate by
> >> itself. For a reason I don't know, the script won't terminate after the
> >> exit() call.
> >>
> >> The script have perfectly performed its job, but it don't exit.
>
> > How do you know it called exit()? Did you try to trace/truce (sp?)
>
> truss - I think but why is it called that ?
>
> That is you can do truss -p <PID> to see what the process is doing.
>
> Of course this probably not available on BSD based OS's.
>
> /J\
> --
> Jonathan Stowe <jns@btinternet.com>
> Some of your questions answered:
> <URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Mon, 28 Sep 1998 06:56:23 -0500
From: Greg Hassan <greg@hassan.com>
To: roy_tharpe@my-dejanews.com
Subject: Re: PerlShop and CyberCash
Message-Id: <360F7967.D037CE05@hassan.com>
roy_tharpe@my-dejanews.com wrote:
> Has anyone successfully integrated PerlShop and CyberCash on Solaris. I've
> had moderate success at completing the transaction from the storefront to
> CyberCash, but PerlShop does not seem to complete its processing correctly.
> That is, it does not clean up it's tokens, temp_orders, or temp_customers
> correctly. I know that I need to get back into the perlshop.cgi from the
> directpaycredit.cgi but I just haven't figured it out yet. I thought I would
> post to the group to see if anyone had successfully done this sort of
> integration and might have any *perls* of wisdom to impart.
Purchase another cart which includes free installation:
The Super Cart: http://www.hassan.com/shopcart/
-Greg
--
===============================================================
Greg Hassan, The Independent Solution (CGI,Java,SQL,Perl...)
http://www.hassan.com/, 1-607-225-4214, ICQ #: 8048297, E-Mail Preferred
===============================================================
Host your own specialized internet search engine:
http://www.hassan.com/site_searcher/
===============================================================
------------------------------
Date: Mon, 28 Sep 1998 00:50:07 +0000
From: Austin Schutz <spamsux-tex@habit.com>
Subject: Re: POSIX test hangs in 5.005_02 install
Message-Id: <360EDD3F.4F3D@habit.com>
> #!./perl
>
> BEGIN {
> chdir 't' if -d 't';
> @INC = '../lib';
> # require Config; import Config;
> # if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
> # print "1..0\n";
> # exit 0;
> # }
> }
>
> Any ideas on what's up with my Solaris 2.5.1 runtime environment or why this
> portion of the posix test would hang? Or for that matter why the Config module
> is an "issue" here?
Maybe you have some sort of problems with symlinks and what ../lib
points to? You might try using truss to figure out what is
being done under the hood of Config and why it is getting stuck.
Austin
------------------------------
Date: 28 Sep 1998 10:07:01 GMT
From: koos_pol@nl.compuware.com.NO_JUNK_MAIL (Koos Pol)
Subject: Re: printing a two column sorted HTML table
Message-Id: <6unn45$cp1@news.nl.compuware.com>
A slight cosmetic "enhancement", by breaking the list not exactly in
the middle. I prefer the asymmetric look:
use integer; # provides instant float chopping
SWITCH:{
@list == 0 and $split = 0, last SWITCH;
@list == 1 and $split = 1, last SWITCH;
@list == 2 and $split = 1, last SWITCH;
$split = @list/2 + 1; # visual: left column is 1 or 2 entries longer
# than the right
}
Now you can print upto the split point and continue with the second
column from there on.
--
Koos Pol
----------------------------------------------------------------------
S.C. Pol - Systems Administrator - Compuware Europe B.V. - Amsterdam
T:+31 20 3116122 F:+31 20 3116200 E:koos_pol@nl.compuware.com
Check my email address when you hit "Reply".
------------------------------
Date: Mon, 28 Sep 1998 01:44:03 -0400
From: Pat Gunn <pgunn01@ibm.net>
Subject: Re: Require NT console to act as a terminal.
Message-Id: <360F2223.42D0@ibm.net>
Cecil Livingston wrote:
>
> Hello:
>
> I am new to Perl and must be missing something. I see there are packages for
> ANSI console output where color and other attributes can be set for console
> output but I am at a loss as to how. I must be missing something pretty
> major, the NT information I have says that only a DOS driver can be
> installed to get the ANSI output. Not what I want.
>
> I am looking to do some tools for NT 4.0 for developers and need something
> more than 1 question at a time, I need the screen to act as a terminal.
>
> Is PERL on NT different, I have not found any documentation on setting up NT
> to act as a terminal from the console. Is there any documentation available?
>
> What about curses? I don't want to do graphic screens, text mode is fine.
I'm calling on admittedly sketchy memory, but you might be able to
enable ANSI emulation by typing "ANSI ON" on the console prompt.
--
---------------------------------------------------
Pat Gunn, moderator:comp.sys.newton.announce
comoderator:comp.os.os2.moderated
"You can always judge a man by the quality of his enemies." -- Dr Who
http://junior.apk.net/~qc
------------------------------------------------
------------------------------
Date: 28 Sep 1998 06:37:01 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: script: scriptMangle!
Message-Id: <6unaqd$f9q$1@marina.cinenet.net>
Marc Bissonnette (dragnet@internalysis.com) wrote:
[Excellent commentary snipped]
: So, to sum up what I probably could have said in a sentance or two: While
: hiding your Perl source isn't necessarily evil, it does (to me, at least) go
: against the general heart of the Perl community in that open source makes for
: better programmers all around.
Extremely well stated, and it's a sentiment which I share. Many thanks to
all of those who contributed to answering my questions about the moral
issues surrounding free software, both on-group and in private email. I
was going to post a summary of my conclusions, but Marc beat me to the
punch. :) In brief, the free-ness of software is not a moral issue per
se, but is instead a question of personal values -- and it takes a Jesuit
to disentangle those, sometimes! The fact that people care very deeply
about their values accounts for the relatively high heat to light ratio
during portions of this debate.
And on a vaguely related note, I just released my first GPL'd piece of
software (not Perl, but C++). I certainly felt a richer sense of context
and intent as I packaged it for release, thanks to this discussion. I
love this newsgroup! :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "Ripple in still water, when there is no pebble tossed,
nor wind to blow..."
------------------------------
Date: Mon, 28 Sep 1998 12:45:56 GMT
From: "Elaine -HappyFunBall- Ashton" <eashton@bbnplanet.com>
Subject: Re: script: scriptMangle!
Message-Id: <8yLP1.4$94.122352@burlma1-snr1.gtei.net>
Russell Schulz wrote in message
<19980927.134531.4H0.rnr.w164w@locutus.ofB.ORG>...
>> To make Perl 'unreadable' is almost blasphemy.
>I thought it was the point of the Obfuscated Perl Contest.
To obfuscate is different than to obscure. Perhaps a dictionary will help?
My point was that a majority of the Perl community believes in 'open
source'. Writing ugly unreadable code is one thing. Hiding it is another.
Microsoft hides theirs but damn, why would I want it?
e.
------------------------------
Date: Mon, 28 Sep 1998 12:55:32 GMT
From: "Elaine -HappyFunBall- Ashton" <eashton@bbnplanet.com>
Subject: Re: script: scriptMangle!
Message-Id: <8HLP1.5$94.125561@burlma1-snr1.gtei.net>
Craig Berry wrote in message <6unaqd$f9q$1@marina.cinenet.net>...
>Extremely well stated, and it's a sentiment which I share. Many thanks to
>all of those who contributed to answering my questions about the moral
>issues surrounding free software, both on-group and in private email. I
>was going to post a summary of my conclusions, but Marc beat me to the
>punch. :) In brief, the free-ness of software is not a moral issue per
>se, but is instead a question of personal values -- and it takes a Jesuit
>to disentangle those, sometimes! The fact that people care very deeply
>about their values accounts for the relatively high heat to light ratio
>during portions of this debate.
Open source is more than a personal value, it goes back to the roots of what
it is to be part of the community that is programming. It is pride in your
work, respect for your peers and knowing that the majority of people here
will respect you, your work and behave in kind. Doesn't mean you won't get a
jolly flame session going on now and then. :) It is the soul of the machine.
It doesn't take a Jesuit, just a finger on the pulse.
>And on a vaguely related note, I just released my first GPL'd piece of
>software (not Perl, but C++). I certainly felt a richer sense of context
>and intent as I packaged it for release, thanks to this discussion. I
>love this newsgroup! :)
Cool!
e.
------------------------------
Date: Mon, 28 Sep 1998 07:06:16 -0500
From: Greg Hassan <greg@hassan.com>
To: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Search engine
Message-Id: <360F7BB8.CDCB5708@hassan.com>
Jonathan Stowe wrote:
>
> > Does anyone know of a perl/cgi serach engine available. Not a search for
> > your site but for the net as a whole. Similar to yahoo, excite, lycos etc.,
> > etc., etc.
>
>
Hmm:
Host your own specialized internet search engine:
http://www.hassan.com/site_searcher/
--
===============================================================
Greg Hassan, The Independent Solution (CGI,Java,SQL,Perl...)
http://www.hassan.com/, 1-607-225-4214, ICQ #: 8048297, E-Mail Preferred
===============================================================
Sell your products in style, The Super Cart:
http://www.hassan.com/shopcart/
===============================================================
------------------------------
Date: Mon, 28 Sep 1998 12:44:49 GMT
From: sblenkhorn@my-dejanews.com
Subject: Shell command
Message-Id: <6uo0c1$4rb$1@nnrp1.dejanews.com>
I am having problems with a perl script where I am trying to run a command
line pkzip and create a self-extracting exe. The script is running on a NT
Server running IIS3.0. Here is the line that isn't doing what it is suppose
to:
system("pkzip25 -add -sfx d:\www\rp\main\$dir_type\$dir_name\$file_name
d:\www\rp\main\$dir_type\$dir_name\*.*");
Can anyone help me with this problem? I think it just must be my syntax.
Thanks in advance,
Sean Blenkhorn
PERC Intranet Development Team, CIBC
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3840
**************************************
