[21831] in Perl-Users-Digest
Perl-Users Digest, Issue: 4035 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 27 18:06:26 2002
Date: Sun, 27 Oct 2002 15:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 27 Oct 2002 Volume: 10 Number: 4035
Today's topics:
[ANNOUNCE] make.pl (make with Perl syntax) initial rele <occitan@esperanto.org>
anno: perl books & culture review (Xah Lee)
Copying array elements? <md0nilhe@mdstud.chalmers.seNOSPAM>
Re: Copying array elements? <usenet@tinita.de>
DBI select with memo fields <dgardiner@houston.rr.com>
How can I make a set of objects? (tî'pô)
Re: MD5 password encryption <nobull@mail.com>
Re: Newbie-Qeustion (Tad McClellan)
Re: Newbie-Qeustion (Tad McClellan)
Re: Newbie-Qeustion <mstep@t-online.de>
Re: Newbie-Qeustion (ebchang)
Re: Newbie-Qeustion <krahnj@acm.org>
Re: newbie: Multiply picture lines in format doesn't wo <wksmith@optonline.net>
Re: Sendmail Bcc doesn't work (Tad McClellan)
Re: Win32: Hiding console window (donald)
Re: Wow <nobull@mail.com>
Re: Wow <jurgenex@hotmail.com>
Re: Wow (Tad McClellan)
Re: Wow <fatcat01010@yahoo.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 27 Oct 2002 23:18:33 +0100
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: [ANNOUNCE] make.pl (make with Perl syntax) initial release
Message-Id: <20021027231833.67ec14ef.occitan@esperanto.org>
Hi all,
Arcane make and its various derivatives (cook, GNU make, jam, makepp, ...) use a weird language mix of a variable and rule syntax with embedded shell (along with sed, awk ...) for actually doing something. The derivatives improve this language, but the improvements are not accessible with automake, and still don't make a really useable language.
Very clever make systems, like omniORB's GNU-make-based one are powerful, but hard to understand, because of the many tricks for building such a complex project.
There are several countermovements like ExtUtils::MakeMaker, a Makefile generator based on a Perl configuration spec, icmake, a language similar to C, or ant, which specifies the dependencies in XML and the operations in Java.
Here now comes a make in everybody's favourite programming language, Perl, giving you the best of both worlds. You can use it to write a plain makefile, though in Perl syntax. Or, at the other extreme, you can write a program, that among others does a few (file-) depency driven things.
http://dapfy.bei.t-online.de/make.pl/
My main question is, whether my rule function, commands and deferred variables make sence to you. It's still only a little tested, though working, prototype. Currently it only has a small rule base, for C and C++, though you can easily add your own.
Plans -- besides doing anything GNU make can -- are to automatically extract all dependencies incurred through #include. And to only recompile if there are changes other than comments or whitespace in the source or any included file. This is to be done in a configurable way, so you'll be able to write your own function for deciding these things.
Besides strings (either filenames or phony, like all or install) you'll be able to make Perl objects, as long as they have a timestamp method.
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
------------------------------
Date: 27 Oct 2002 14:38:46 -0800
From: xah@xahlee.org (Xah Lee)
Subject: anno: perl books & culture review
Message-Id: <7fe97cc4.0210271438.60355021@posting.google.com>
Reviews of all-time top about 8 perl books, with commentaries on Perl
the language and culture.
http://xahlee.org/UnixResource_dir/perlr.html
Xah
xah@xahlee.org
http://xahlee.org/PageTwo_dir/more.html
------------------------------
Date: Sun, 27 Oct 2002 18:50:06 +0100
From: Henrik Nilsson <md0nilhe@mdstud.chalmers.seNOSPAM>
Subject: Copying array elements?
Message-Id: <3DBC274E.2CCB088E@mdstud.chalmers.seNOSPAM>
Hello,
I'd like to copy a range of elements in one array to another, like
$newarray[1-1000] = $oldarray[1001-2000];
however I can't seem to be able to figure out the syntax. Does anyone
know it?
Thanks for your time,
Henrik N
------------------------------
Date: 27 Oct 2002 18:14:29 GMT
From: Tina Mueller <usenet@tinita.de>
Subject: Re: Copying array elements?
Message-Id: <aphae5$1gcrr$1@fu-berlin.de>
Henrik Nilsson <md0nilhe@mdstud.chalmers.senospam> wrote:
> I'd like to copy a range of elements in one array to another, like
> $newarray[1-1000] = $oldarray[1001-2000];
> however I can't seem to be able to figure out the syntax. Does anyone
> know it?
perldoc perlsyn
perldox perldata (array slice)
@a[1..100] = @b[101..200];
hth, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://PerlQuotes.tinita.de/ \ \ _,_\ __/\ __/_| /__/ perception
------------------------------
Date: Sun, 27 Oct 2002 22:57:49 GMT
From: "Doug" <dgardiner@houston.rr.com>
Subject: DBI select with memo fields
Message-Id: <Nb_u9.227857$121.6417516@twister.austin.rr.com>
Does anyone have any suggestions on selecting rows from a database that
include memo fields.
I have a select statement which works if the size of the contents from the
memo field are below 255. Is there a hidden switch or something to retrieve
the information?
The result has been, if I leave the field in the database for one row
untouched, the fetch returns nothing saying that it couldn't find anything
that matched the index ID of the row that I want. If I change the contents
of the memo field to something below 255 characters it returns fine.
I'm using Access at the moment for this, for testing purposes and for
development reasons. IS it something particular to the DBI module that only
accepts fields smaller than 255 characters?
$database_run=$dbh->prepare("SELECT * FROM PROJECT_LIST WHERE Project_ID=
?");
database_check() || debugger("prepare select project by project
id","passed");
$database_run->execute("$project_id");
database_check() || debugger("execute select project by project
id","passed");
This seems to work fine when the memo field is below 255 characters.
For reference, the database_check sub routine does the error checking and
depending on whether the debugger sub is enabled prints the error directly
to browser/and or the database log file. No errors show up in the database
log file, and nothing shows up in the trace log for the database either.
It just returns zero results from the search.
Since it isn't returning any errors I'm not sure if this is a constraint of
the DBI module or the ODBC interface. I would love to have an actual error
to look at.
------------------------------
Date: Sun, 27 Oct 2002 18:41:27 +0200
From: "Teh (tî'pô)" <teh@mindless.com>
Subject: How can I make a set of objects?
Message-Id: <fp2orusd96qvpp0c6n8dpe64pkgp8dht5g@4ax.com>
How can I make a set of objects AKA How can I use a reference as a
hash key?
Yes I know this is a FAQ but still...
I want to have a set of objects and the newbie that I am I started
coding this as a hash but even as I wrote it I realized that hash keys
are stringified. A google and a perldoc later I come to you with a set
of questions.
What are the drawbacks of having a hash with the key being the
stringified version of a reference to an object and the value being
the reference itself?
E.g. (semi tested)
package A;
use strict;
sub new {
my $self = bless {}, shift;
$self->{set} = {};
return $self;
}
sub insert {
my $self = shift;
for(@_) {
next unless eval { $_->isa("A"); }; # only accept As
$self->{set}->{$_} = $_;
}
}
sub remove {
my $self = shift;
delete $self->{set}->{$_} for(@_);
}
sub objs {
return values %{shift()->{set}};
}
sub DESTROY {
my $self = shift;
$self->remove($self->objs());
}
my $a = new A;
$a->insert($a, new A, new A, $a);
for( $a->objs() ) {
print $a," => ",$_,"\n";
}
(I get a "Use of uninitialized value during global destruction."
warning but I don't know how to get into DESTROY with the debugger,
help!)
One drawback I see is that I must remember to clear the set so that no
memory is leaked by creating circular dependencies.
But other than that I don't know.
Am I assured that the stringified version of a reference stays the
same during the lifetime of the object?
What advantages does Tie::RefHash have over said implementation (if
any) if I'm only interested in having a set and not assigning values
for keys?
Of course there is the "Use of uninitialized value during global
destruction." thingee, but other than that[0]...
--
[0] Rule number one in debugging, if you don't understand a bug, sweep
it under the carpet, it can't possible cause any real damage :o)
------------------------------
Date: 27 Oct 2002 16:49:38 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: MD5 password encryption
Message-Id: <u97kg3968t.fsf@wcl-l.bham.ac.uk>
"cheechew" <cheechew@hotmail.com> writes:
> Brian McCauley,
>
> Thanks for your explaination but I think you are over confidence of what
> you know.
While I'm sometimes guilty of this I do not think this is the case here.
> Please think of broader angle.
That's exactly what I was telling you when I said your real problem is
"I thought I wanted to do Y but Y is fundamentally impossible, what
else can I do instead to achieve X?"
> Why not think a scenario that
> everytime you need to execute a perl program, the user need to enter the
> passphrase manually.
Why not indeed. Sounds like an excellent idea. But all this is
language-independant. It has nothing to do with Perl.
> Even if I put a key in the system itself, or it can be on another system,
> all I need to do is secure the key file permission differently for different
> users. In this way, different use can access the program with their own key
> only. Now, you learn something?
No - I knew that! That is what I was trying to get _you_ to
realise. Experience has shown that this is one of those facts you
can't be told. You have to "discover it" for yourself (see Juha
Laiho's response).
> This is the OS security layer. Not here.
By "not here" I assume you are trying to say "I now realise that my
question was not not Perl related".
> I assume you are experience perl programmer before answering. There are a
> few module that can do 3DES. If you are experince enough, you will be able
> to tell me which is the best to suit my need.
If you are looking for a general purpose private key encrption module
for Perl with no other constraints I'd recommend Crypt::CBC with
Crypt::Blowfish but you could use it with Crypt::DES_EDE3.
> Everybody can do a search
> quickly, but do you get the right thing at first place.
Well, given that there are new ones you can pretty much discount the
older ones.
Well.. Crypt::TripleDES and TripleDES work in ECB mode so you can
discount them. I realise that for encrypting just a password (that
will fit in one cypher block) there's no difference between ECB anc CBC
but if you are going to bother to learn the API to a crpto module you
may as well learn one that is of general applicability.
> That is what news group to be, sharing knowledge.
If your question was "what's a good crypto module for Perl" why didn't
you simply ask that? Or better still look for answers given here to
that question previously? Newsgroups are searchable you know?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Sun, 27 Oct 2002 10:19:27 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newbie-Qeustion
Message-Id: <slrnaro4gf.9tt.tadmc@magna.augustmail.com>
Marek Stepanek <mstep@t-online.de> wrote:
> my @array = (a,b,c);
You should always enable warnings when developing Perl code!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 27 Oct 2002 10:18:28 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newbie-Qeustion
Message-Id: <slrnaro4ek.9tt.tadmc@magna.augustmail.com>
Marek Stepanek <mstep@t-online.de> wrote:
> Once again too quick:
Please put more thought into your articles *before* sending then
to thousands of people around the world.
> I want to do something, if $scalar is PART of my array ... I am reading in a
> FILE, which gives me a Line-by-Line-Scalar. I need to know, whether it is
> contained in my @array.
^^^^^^^^^
^^^^^^^^^
Please check the Perl FAQs *before* posting to the Perl newsgroup:
perldoc -q contain
"How can I tell whether a list or array contains a certain
element?"
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 27 Oct 2002 17:53:27 +0200
From: Marek Stepanek <mstep@t-online.de>
Subject: Re: Newbie-Qeustion
Message-Id: <B9E1D897.3345F%mstep@t-online.de>
In slrnaro4gf.9tt.tadmc@magna.augustmail.com on 27.10.2002 18:19 Uhr, Tad
McClellan, tadmc@augustmail.com wrote :
> Marek Stepanek <mstep@t-online.de> wrote:
>
>> my @array = (a,b,c);
>
>
> You should always enable warnings when developing Perl code!
>
Thanx to all who answered, also if my postings were really unclear as you
would expect it from a Perl-beginner (Sorry to Tad). I cogitated over your
suggestions, I read the recommended Perldoc chapters, but I think this
project is far over my knowledge ...
My last attempt before resigning and expatriate myself on a lonely island,
to read once again my Perl books, here my project:
falsify (or validate???) the "100-%-Working-Roulette-Systems ;-) of a good
friend. Has somebody scripted already such a beast (which "system" ever)?
To get started I tried to script a simple task: set with each game 5 Chips
on the same colour (red). I have a file ("permanenz.txt"), which is of the
form:
20
30
18
17
23
9
22
31
18
35
28
32
6
00
2
3
14
17
13
33
13
etc etc containing the "permanences" of one casino of one table of one day
...
My non working script so far --- and I will not be disappointed if there is
no answer, because this thread seems much too childish for this group and is
really to complicate for me.
#!perl -w
use diagnostics;
use strict;
my $datei = "permanenz.txt";
open DATEI, $datei or die "Error! $!\n;";
my ($FortunasNumber, $Turnover, $Stake, $Win, $Returns, $datei, $i);
my %red_numbers=qw(1 3 5 7 9 12 14 16 18 19 21 23 25 27 30 32 34 36);
my %black_numbers=qw(2 4 6 8 10 11 13 15 17 20 22 24 26 28 29 31 33 35);
my %green_numbers=qw(0 00);
my @FortunasNumber= <DATEI>;
@red_numbers{@FortunasNumber}=();
foreach my $i (0..$#FortunasNumber){
chomp($FortunasNumber[$i]);
if ($FortunasNumber eq $red_numbers[$i]) #I know this line is wrong!
{
$Win = $Stake * 2;
$Turnover += $Stake;
$Returns = $Win - $Turnover;
print "Sorted Number of Game $i was: $FortunasNumber[$i]: With
$red_numbers[$i] Turnover: $Turnover, Gewinn: $Win, Win after deduction of
all your stakes: $Returns\n";
}
elsif ($FortunasNumber eq $green_numbers[$i])
{
$Turnover += $Stake;
$Returns = $Win - $Turnover;
print "Sorted Number of Game $i was: $FortunasNumber[$i]: Mit
$green_numbers[$i] Turnover: $Turnover, Gewinn: $Win, Win after deduction of
all your stakes: $Returns\n";
}
else #that means, if the FortunasNumber is red
{
$Turnover += $Stake;
$Win = $Returns - $Turnover;
print "Sorted Number of Game $i was: $FortunasNumber[$i]: Turnover:
$Turnover, Gewinn: $Win, Win after deduction of all your stakes:
$Returns\n\n";
}
$i++;
}
close DATEI;
greetings from Munich (stormy here)
marek
______________________________________________________________________
___PODIUM_INTERNATIONAL_//_the_embassy_for_talented_young_musicians___
_______Marek_Stepanek__mstep_[at]_PodiumInternational_[dot]_de________
__________________http://www.PodiumInternational.de___________________
______________________________________________________________________
------------------------------
Date: Sun, 27 Oct 2002 18:55:44 GMT
From: echang@netstorm.net (ebchang)
Subject: Re: Newbie-Qeustion
Message-Id: <Xns92B48DB7339B2echangnetstormnet@207.106.92.86>
Marek Stepanek <mstep@t-online.de> wrote in
<B9E19924.3276A%mstep@t-online.de>:
>In B9E1959A.3261B%mstep@t-online.de on 27.10.2002 13:07 Uhr, Marek
>Stepanek, mstep@t-online.de wrote :
>
>> In slrnarnjn8.1ik6.pasdespam_desmond@lievre.voute.net on 27.10.2002
>> 13:32 Uhr, Desmond Coughlan, pasdespam_desmond@zeouane.org wrote :
>>
>>> Le Sun, 27 Oct 2002 11:18:01 +0100, Marek Stepanek
>>> <mstep@t-online.de> a écrit :
>>>> my @array (a, b, c);
>>>>
>>>> my $scalar = something #probably a b or c?
>>>>
>>>> how I ask, whether my $scalar is PART of @array, that means whether
>>>> it contains a, b or c ???
>>>
>>> Hey, I can answer that ... shouldn't it be,
>>>
>>> my @array = qw (a,b,c);
>>> my $scalar = $array[x];
>>>> where x is zero-indexed number
>>>
>>> ..?
>
>Once again too quick:
>
>I want to do something, if $scalar is PART of my array ... I am reading
>in a FILE, which gives me a Line-by-Line-Scalar. I need to know, whether
>it is contained in my @array.
>
>
>my @array = (a,b,c);
>my $scalar = d; #my scalar could also change to "c" for example, while
>the sript is reading in a file
>
>foreach $i (0..$#scalar)
>{
> if ($scalar eq $array[$i]) #here is my problem, is $scalar PART of
>@array??? not "eq" ??? only PART of ...
> {
See the answer to "How can I tell whether a certain element is contained in
a list or array?" in perlfaq4 at
http://perldoc.com/perl5.8.0/pod/perlfaq4.html or in your local
documentation.
hth
EBC
------------------------------
Date: Sun, 27 Oct 2002 20:39:26 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Newbie-Qeustion
Message-Id: <3DBC4EFA.EDABF21C@acm.org>
Marek Stepanek wrote:
>
> Thanx to all who answered, also if my postings were really unclear as you
> would expect it from a Perl-beginner (Sorry to Tad). I cogitated over your
> suggestions, I read the recommended Perldoc chapters, but I think this
> project is far over my knowledge ...
>
> My last attempt before resigning and expatriate myself on a lonely island,
> to read once again my Perl books, here my project:
>
> falsify (or validate???) the "100-%-Working-Roulette-Systems ;-) of a good
> friend. Has somebody scripted already such a beast (which "system" ever)?
>
> To get started I tried to script a simple task: set with each game 5 Chips
> on the same colour (red). I have a file ("permanenz.txt"), which is of the
> form:
>
> 20
> 30
> 18
> 17
> 23
> 9
> 22
> 31
> 18
> 35
> 28
> 32
> 6
> 00
> 2
> 3
> 14
> 17
> 13
> 33
> 13
>
> etc etc containing the "permanences" of one casino of one table of one day
> ...
>
> My non working script so far --- and I will not be disappointed if there is
> no answer, because this thread seems much too childish for this group and is
> really to complicate for me.
>
> #!perl -w
> use diagnostics;
> use strict;
>
> my $datei = "permanenz.txt";
> open DATEI, $datei or die "Error! $!\n;";
>
> my ($FortunasNumber, $Turnover, $Stake, $Win, $Returns, $datei, $i);
>
> my %red_numbers=qw(1 3 5 7 9 12 14 16 18 19 21 23 25 27 30 32 34 36);
This is equivalent to:
my %red_numbers = ( 1 => 3, 5 => 7, 9 => 12, 14 => 16, 18 => 19,
21 => 23, 25 => 27, 30 => 32, 34 => 36 );
Where the even numbered elements are the hash keys and the odd numbered
elements are the hash values.
> my %black_numbers=qw(2 4 6 8 10 11 13 15 17 20 22 24 26 28 29 31 33 35);
> my %green_numbers=qw(0 00);
Same with these two hashes.
> my @FortunasNumber= <DATEI>;
You should chomp the array here or do you really want to include the
newlines in the hash keys in the next statement?
chomp( my @FortunasNumber = <DATEI> );
> @red_numbers{@FortunasNumber}=();
>
> foreach my $i (0..$#FortunasNumber){
> chomp($FortunasNumber[$i]);
> if ($FortunasNumber eq $red_numbers[$i]) #I know this line is wrong!
^^^^
Hashes use {} for a scalar element.
if ( $FortunasNumber eq $red_numbers{$i} )
> {
> $Win = $Stake * 2;
> $Turnover += $Stake;
> $Returns = $Win - $Turnover;
> print "Sorted Number of Game $i was: $FortunasNumber[$i]: With
> $red_numbers[$i] Turnover: $Turnover, Gewinn: $Win, Win after deduction of
> all your stakes: $Returns\n";
> }
> elsif ($FortunasNumber eq $green_numbers[$i])
elsif ( $FortunasNumber eq $green_numbers{$i} )
> {
> $Turnover += $Stake;
> $Returns = $Win - $Turnover;
> print "Sorted Number of Game $i was: $FortunasNumber[$i]: Mit
> $green_numbers[$i] Turnover: $Turnover, Gewinn: $Win, Win after deduction of
> all your stakes: $Returns\n";
> }
> else #that means, if the FortunasNumber is red
> {
> $Turnover += $Stake;
> $Win = $Returns - $Turnover;
> print "Sorted Number of Game $i was: $FortunasNumber[$i]: Turnover:
> $Turnover, Gewinn: $Win, Win after deduction of all your stakes:
> $Returns\n\n";
> }
> $i++;
> }
> close DATEI;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 27 Oct 2002 19:23:18 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: newbie: Multiply picture lines in format doesn't work.
Message-Id: <G2Xu9.8263$mt.6940@news4.srv.hcvlny.cv.net>
"uncle_ziba" <uncle_ziba@yahoo.com> wrote in message
news:377e309d.0210261031.200bf6ab@posting.google.com...
> Hello, I've tried search and read through man perlform but I'm still
> having a mental block with the following.
>
> I'm trying to make a format using multiple picture lines but get an
> error "Can't find string terminator "" anywhere before EOF"
>
> here is the code:
>
> format STDOUT =
> +----------------------------------------------------+
> | Check No. @>>>>>>|
> | @ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
> | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
> | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
> | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<|
> | |
> | Pay to the |
> | order of: @<<<<<<<<<<<<<<<<<<<<<< @######.## |
> | |
> | For: @<<<<<<<<<<<<<<<<<<<<<<<<< Stamped Signature |
> +----------------------------------------------------+
> $chkno, $first, $last, $addr[1], $addr[2], $phone, $date, $payee,
> $amount, $memo
> .
> write STDOUT;
>
> What am I missing? The code works OK if put a variable after each
> line with @ but then the code does not look readable.
>
Refer to perldoc perlform
" The values are specified on the following line......."
Bill
------------------------------
Date: Sun, 27 Oct 2002 09:58:22 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Sendmail Bcc doesn't work
Message-Id: <slrnaro38u.9tt.tadmc@magna.augustmail.com>
Serge <pulsar10@email.com> wrote:
> tadmc@augustmail.com (Tad McClellan) wrote in message news:<slrnark3vf.1sf.tadmc@magna.augustmail.com>...
>> Serge <pulsar10@email.com> wrote:
>>
>> > The person submits his email without the "\" before the "@"
>> > so I used the following code to solve to put a backslash there:
>>
>>
>> Why do you think that you need to insert a backslash?
> I need the backslash
No you don't.
> because it is a special character.
It is "special" in _code_, not in data.
Distinguishing between what is code and what is data is pretty
fundamental. It this your first foray into programming?
> Otherwise Perl
> will think it's an array, wouldn't it?
What happened when you tried it?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 27 Oct 2002 10:27:30 -0800
From: dtk@berlin.com (donald)
Subject: Re: Win32: Hiding console window
Message-Id: <e43f4ba.0210271027.48196bde@posting.google.com>
"J rgen Exner" <jurgenex@hotmail.com> wrote in message news:<bCyu9.21830$wm6.21607@nwrddc01.gnilink.net>...
> donald wrote:
> > Well I have to run my script on logon (i use win2k) and it really
> > iritates to have that console box displayed as script is running. I
>
> If you are using ActiveState Perl (you didn't mention) then call wperl.exe
> instead of perl.exe.
>
> jue
Ok thanks, I tried wperl and it's ok. But still I see console window
when the script is starting and it would be really cool not to see it
at all :)
Is there some trick in windows that auto-minimizes that window, for
example some "pif" wrapper. Or maybe some command line program for
that?
------------------------------
Date: 27 Oct 2002 16:19:59 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Wow
Message-Id: <u9bs5f97m8.fsf@wcl-l.bham.ac.uk>
"Brian" <fatcat01010@yahoo.co.uk> writes:
> I'm new to this news group and new to Perl. I'm hoping to learn a bit from
> you guys while I'm here. Just read this thread.
Your post is the start of a new thread.
> Wow. Is all I can say.
> I've never come across such bullshit...
Hmmm.
------------------------------
Date: Sun, 27 Oct 2002 16:22:33 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Wow
Message-Id: <dpUu9.9827$FS5.4110@nwrddc04.gnilink.net>
Brian wrote:
> I'm new to this news group and new to Perl. I'm hoping to learn a
> bit from you guys while I'm here. Just read this thread.
Which thread? Your posting does not link to any other thread.
jue
------------------------------
Date: Sun, 27 Oct 2002 10:09:47 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Wow
Message-Id: <slrnaro3ub.9tt.tadmc@magna.augustmail.com>
Brian <fatcat01010@yahoo.co.uk> wrote:
> Just read this thread.
What thread?
There are no other articles in this thread, your's is the first.
If you have a comment on a thread, you should post your comment
_in that thread_, or at least quote a bit or something.
Noone has any idea what it is that you are talking about.
What is it that you are talking about?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 27 Oct 2002 20:55:39 +0000 (UTC)
From: "Brian" <fatcat01010@yahoo.co.uk>
Subject: Re: Wow
Message-Id: <aphjsb$k0f$1@knossos.btinternet.com>
Sorry.
I was refering to a posting on the 25th "Before I buy this book" Would have
helped if I replied ti the corect thread.
Oh well
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:dpUu9.9827$FS5.4110@nwrddc04.gnilink.net...
> Brian wrote:
> > I'm new to this news group and new to Perl. I'm hoping to learn a
> > bit from you guys while I'm here. Just read this thread.
>
> Which thread? Your posting does not link to any other thread.
>
> jue
>
>
------------------------------
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 4035
***************************************
