[19108] in Perl-Users-Digest
Perl-Users Digest, Issue: 1303 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 14 00:05:41 2001
Date: Fri, 13 Jul 2001 21:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <995083515-v10-i1303@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 13 Jul 2001 Volume: 10 Number: 1303
Today's topics:
Advice, SSI or perl <mail@enricong.com>
Re: easy multi-file find & replace? <yahoo_com@francis.uy>
Executing NT exe from Perl (Cosmic Cruizer)
Re: Executing NT exe from Perl <krahnj@acm.org>
FAQ: Where do I send bug reports? <faq@denver.pm.org>
file comparison problem <ds@ss.com>
Re: file comparison problem <tony_curtis32@yahoo.com>
Re: Finding size of HTML page via HTTP <jeremyalansmith@netscapeonline.co.uk>
Re: Finding size of HTML page via HTTP (Alan Barclay)
How do I execute an executable on Windows NT? <bigbanana@barclays.net>
Re: How do I execute an executable on Windows NT? <gtoomey@usa.net>
Re: How do I execute an executable on Windows NT? <wyzelli@yahoo.com>
Re: How do I execute an executable on Windows NT? (Drew)
Re: How I came to love Perl... (Chris Milton)
Re: How to do this in perl? <krahnj@acm.org>
How to make a text or html file into an image <mail@enricong.com>
Re: How to make a text or html file into an image <tony_curtis32@yahoo.com>
Re: How to make a text or html file into an image <mail@enricong.com>
negating qr// regexp <hans@artax.karlin.mff.cuni.cz>
Re: negating qr// regexp <krahnj@acm.org>
newbe question <jwarpup1@home.com>
OT: Geek Nostalgia (was: Re: Active State) (Tim Hammerquist)
perl debugger (Chad Yoshikawa)
Re: problem perl 5.6.1 MCPAN <randy@theory.uwinnipeg.ca>
Re: redirect in Perl <mbudash@sonic.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 13 Jul 2001 22:07:39 -0500
From: "Enrico Ng" <mail@enricong.com>
Subject: Advice, SSI or perl
Message-Id: <9iod23$of8$1@info1.fnal.gov>
I have a web site that uses three frames.
there are buttons on the top and bottom.
http://rhatv.rcsnetwork.com
anyways, I made it so that I use perl to generate the pages on the fly.
I used cookies to keep track of which page to spitout.
this is nice because it makes it very easy to generate pages.
the problem is that it is hard to make links.
I figured maybe i should switch to html/shtml files
but thats not good because I cant make good links that way.
any ideas?
--
--
Enrico Ng <mail@enricong.com>
------------------------------
Date: Sat, 14 Jul 2001 03:35:07 GMT
From: Frank Nospam <yahoo_com@francis.uy>
Subject: Re: easy multi-file find & replace?
Message-Id: <yahoo_com-9BAE74.23351113072001@news1.rdc1.md.home.com>
cberry@cinenet.net (Craig Berry) wrote:
> find public_html -name '*.html' -exec perl -pi -e 's/foobar/fubar/' {} \;
Thanks much Craig, that's exactly the syntax I needed.
Now I ought learn what those switches mean, but I can
get that from the man.
IlyaZ's pfind sounds intriguing, but it's not installed
on any of my campus boxes. Always something for later...
-F.
------------------------------
Date: Sat, 14 Jul 2001 01:15:06 GMT
From: spam.killer@home.com_nospam (Cosmic Cruizer)
Subject: Executing NT exe from Perl
Message-Id: <Xns90DDB92955BC1ccruizermydejacom@24.0.0.25>
I have an exe that I need to execute from a perl program. The syntax is:
E:\scripts\event.exe -s W -c 100 "This text field contains multiple
results"
The text field contains the data from three environmental variables. I've
tried both of the following without success:
$text = VAR1 . " " . VAR2 . " " . VAR3;
`E:\scripts\event.exe -s W -c 100 $text`;
and
system("E:\scripts\event.exe -s W -c 100 $text);
I created an if/else statement to see if it's returning a true result...
and it does. The problem is, the results are not coming out of the
event.exe.
I can execute:
E:\scripts\event.exe -s W -c 100 "Test 5: group 4, failed"
from a batch file without any problems. I can also get the results of
something like system("time"); to write to my text file.
I'm using Perl 5.001m build 107 on an NT 4.0 sytem. Any suggestions?
------------------------------
Date: Sat, 14 Jul 2001 02:54:21 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Executing NT exe from Perl
Message-Id: <3B4FB460.8F8006CD@acm.org>
Cosmic Cruizer wrote:
>
> I have an exe that I need to execute from a perl program. The syntax is:
> E:\scripts\event.exe -s W -c 100 "This text field contains multiple
> results"
>
> The text field contains the data from three environmental variables. I've
> tried both of the following without success:
>
> $text = VAR1 . " " . VAR2 . " " . VAR3;
>
> `E:\scripts\event.exe -s W -c 100 $text`;
`E:\scripts\event.exe -s W -c 100 "$text"`;
> and
>
> system("E:\scripts\event.exe -s W -c 100 $text);
system qq(E:\scripts\event.exe -s W -c 100 "$text");
> I created an if/else statement to see if it's returning a true result...
> and it does. The problem is, the results are not coming out of the
> event.exe.
>
> I can execute:
> E:\scripts\event.exe -s W -c 100 "Test 5: group 4, failed"
> from a batch file without any problems. I can also get the results of
> something like system("time"); to write to my text file.
>
> I'm using Perl 5.001m build 107 on an NT 4.0 sytem. Any suggestions?
^^^^^
Time to upgrade!
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sat, 14 Jul 2001 00:17:01 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: Where do I send bug reports?
Message-Id: <1cM37.125$T3.191664128@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
Where do I send bug reports?
If you are reporting a bug in the perl interpreter or the modules
shipped with Perl, use the *perlbug* program in the Perl distribution or
mail your report to perlbug@perl.org .
If you are posting a bug with a non-standard port (see the answer to
"What platforms is Perl available for?"), a binary distribution, or a
non-standard module (such as Tk, CGI, etc), then please see the
documentation that came with it to determine the correct place to post
bugs.
Read the perlbug(1) man page (perl5.004 or later) for more information.
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to
news:news.answers
or to the many thousands of other useful Usenet news groups.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
02.17
--
This space intentionally left blank
------------------------------
Date: Sat, 14 Jul 2001 02:41:21 GMT
From: GunneR <ds@ss.com>
Subject: file comparison problem
Message-Id: <7702ltsj939v5a7gvhv8pps8r21sacmklr@4ax.com>
Trying to compare two files and print out any differences between the
two.
open(FILE1, "c:/perl/1.txt");
open(FILE2, "c:/perl/2.txt");
foreach $line (<FILE1>) {
if ($line =~ <FILE2>) { #prob is here
print "Found matching line in file 2!\n";
}
else { print "$line not found in file 2\n";
}
}
I know my problem is with the $line =~ <FILE2> but im not sure what to
use. Thanks for any help :)
R
------------------------------
Date: 13 Jul 2001 22:10:50 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: file comparison problem
Message-Id: <87r8vk5hol.fsf@limey.hpcc.uh.edu>
>> On Sat, 14 Jul 2001 02:41:21 GMT,
>> GunneR <ds@ss.com> said:
> Trying to compare two files and print out any
> differences between the two.
http://search.cpan.org/
look for "diff".
hth
t
--
Beep beep! Out of my way, I'm a motorist!
------------------------------
Date: Fri, 13 Jul 2001 22:19:30 GMT
From: "Jeremy Smith" <jeremyalansmith@netscapeonline.co.uk>
Subject: Re: Finding size of HTML page via HTTP
Message-Id: <01c10bea$280d5620$1a6afc3e@jeremysm>
> So why did you post to a *Perl* group? In private email, it's because
> you said "it's HTTP, therefore Perl". Double dumb move.
Well, nobody knew the answer anyway! You probably don't!
> First, misposting.
> Second, not "getting it" about being criticized.
> Third, sending a different message to the group from the message you sent
me.
>
> Three strikes.
This isn't baseball, m8, it's a newsgroup! :-)
Or do you make the rules up as you go along?
> Methinks you'll be plonked for a good long time as an
> untrainable, therefore unhelpable lunkhead. Enjoy.
I'm not a pet, you don't have to 'train' me, just give me the benefit of
the doubt.
Methinks I think I'll enjoy being "plonked", it sounds fun.
Have fun! I won't be posting here for a while anyway, so there'll be no
'plonking' for you to do.
Jeremy.
------------------------------
Date: 13 Jul 2001 22:07:15 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: Finding size of HTML page via HTTP
Message-Id: <995062033.166830@elaine.furryape.com>
In article <01c10bdb$e8905140$1a6afc3e@jeremysm>,
Jeremy Smith <jeremyalansmith@netscapeonline.co.uk> wrote:
>> > BTW, if you are saving it to a file, doesn't that mean you are loading
>it
>> > into memory already?
>>
>> Not necessarily all at once. He might be reading, say, 32K at a time
>> from the socket and writing that chunk to a file, then read the next
>> chunk, etc.
>
>That's correct!
>
>It's hard to find the length of a HTML file, because if you send a HEAD
>request:
>
>HEAD / HTTP1/1
>
>Apache servers (surprisingly), return an Apache header, and don't tell you
>the length of the file (I'm surprised Apache break the HTTP spec like
>this).
it's not breaking the spec. A Content-Length header is optional. There
are many circumstances where the server will not know the length, and
therefore cannot provide it, eg if the output is produced by a CGI program.
------------------------------
Date: Sat, 14 Jul 2001 00:30:38 +0100
From: "Big Banana" <bigbanana@barclays.net>
Subject: How do I execute an executable on Windows NT?
Message-Id: <9insv6$d6$1@newsg3.svr.pol.co.uk>
I'm trying to execute an executable on an NT server.
The executable is normally graphics based...
But you can invoke it on the command line...
I'm supplying the right arguements...
I'm sure I have the path right...
But... nothing seems to be happening?
The code I'm trying to execute is given below:
$execute = "program.exe file.txt";
system($execute);
Apart from that there isn't anything else...
I don't get any errors generated...
[Though, that's probably because it's meant to be a graphical program.]
I should be ending with another resultant file... but I don't. : )
I know there isn't any write or other permission errors...
Can anyone help?
Any help would be greatly appreciated.
Thanks.
BB
------------------------------
Date: Sat, 14 Jul 2001 09:10:30 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: How do I execute an executable on Windows NT?
Message-Id: <d%K37.781$a04.3611@newsfeeds.bigpond.com>
"Big Banana" <bigbanana@barclays.net> wrote in message
news:9insv6$d6$1@newsg3.svr.pol.co.uk...
> I'm trying to execute an executable on an NT server.
> The executable is normally graphics based...
> But you can invoke it on the command line...
>
> I'm supplying the right arguements...
> I'm sure I have the path right...
> But... nothing seems to be happening?
>
> The code I'm trying to execute is given below:
>
> $execute = "program.exe file.txt";
> system($execute);
...
Are you in the right directory?
Maybe you need: $execute = "C:\path\program.exe file.txt";
gtoomey
------------------------------
Date: Sat, 14 Jul 2001 10:57:43 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: How do I execute an executable on Windows NT?
Message-Id: <N8N37.3$dw4.649@vic.nntp.telstra.net>
"Gregory Toomey" <gtoomey@usa.net> wrote in message
news:d%K37.781$a04.3611@newsfeeds.bigpond.com...
> "Big Banana" <bigbanana@barclays.net> wrote in message
> news:9insv6$d6$1@newsg3.svr.pol.co.uk...
> >
> > $execute = "program.exe file.txt";
> > system($execute);
> ...
>
> Are you in the right directory?
> Maybe you need: $execute = "C:\path\program.exe file.txt";
You probably mean $execute = 'C:\path\program.exe file.txt'; which may be a
hint to the problem if the path is included in the real code for the OP's
program.
Wyzelli
--
push@x,$_ for(a..z);push@x,' ';
@z='092018192600131419070417261504171126070002100417'=~/(..)/g;
foreach $y(@z){$_.=$x[$y]}y/jp/JP/;print;
------------------------------
Date: 13 Jul 2001 20:55:55 -0700
From: cmdir@juno.com (Drew)
Subject: Re: How do I execute an executable on Windows NT?
Message-Id: <c5ee209c.0107131955.43ee7e54@posting.google.com>
Take a look at the Win32 modules...
------------------------------
Date: 13 Jul 2001 16:57:38 -0700
From: cmilton@oco.net (Chris Milton)
Subject: Re: How I came to love Perl...
Message-Id: <ae1a8f30.0107131557.49ce948d@posting.google.com>
damian@qimr.edu.au (Damian James) wrote in message news:<slrn9kn21p.g6k.damian@puma.qimr.edu.au>...
> Yes, and I love Perl, too. I keep meaning to have a go at picking up C,
> Java, Python, Lisp and even Haskell (yes, I have Lisp and Python interpreters
> on my Palm -- one day I'd like to see perl there too), but never seem to
> find the time.
I have BA in linguistics (1989) and first programmed in Dartmouth BASIC
on a copy of DTSS running on the US Coast Guard Academy's mainfraim back
when my dad taught there. I learned LISP in summer school in high school.
I spent a lot of the '80s programming basic on a Timex Sinclair 1000 and
then on an Apple ][e, though from 1986 to 1993 I was mostly w/o any
computer I was allowed to program. It was painful, but I concentrated
on earning a degree and money until I bought a 386 laptop in 1993.
Since then, I've learned Perl, shell scripting, Pascal, SQL, some C and
Fortran, JavaScript, Haskell, {Standard|Moscow} ML, Caml (working on O'Caml),
and even some C++, Java, PHP, and a tiny bit of Python.
I now earn my living programming in object-oriented Perl and PL/SQL,
at least when I'm employed.
Chris Milton
cmilton@oco.net
------------------------------
Date: Fri, 13 Jul 2001 22:31:33 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: How to do this in perl?
Message-Id: <3B4F76C9.8FAE76F4@acm.org>
BCC wrote:
>
> Hi,
>
> I have a system() call output that I need to parse...
>
> For example, in my script I have:
> $qstatout = system("/usr/pbs/bin/qstat -na");
>
> In this case, $qstatout is something like this:
>
> <starts here>
>
> [ snip ]
>
> <ends here>
>
> What I would like to do is write a sub that takes Jobname as an
> argument, get the 'S' column value corresponding to 'Jobname'. So if I
> want to find the 'S' (status) of Jobname 5053232920, I can call the sub,
> and return the status.
>
> I was trying to match the position of 'S' in line 3, but then did not
> know how to begin the next match at that position. I read about using
> pos() and \g, but Im not sure thats what I need. Is this the best way
> to approach this?
>
> Im sure this is pretty simple, but Im not so great at regular
> expressions yet...
sub status {
my $jobname = shift;
my $qstatout;
/\b$jobname\b/ and $qstatout = substr $_, 73, 1 for
`/usr/pbs/bin/qstat -na`;
return $qstatout;
}
John
--
use Perl;
program
fulfillment
------------------------------
Date: Fri, 13 Jul 2001 21:57:12 -0500
From: "Enrico Ng" <mail@enricong.com>
Subject: How to make a text or html file into an image
Message-Id: <9ioceg$o4o$1@info1.fnal.gov>
Is there a way I can have a perl script take text such as an html file
and make it into an image.
--
Enrico Ng <mail@enricong.com>
------------------------------
Date: 13 Jul 2001 22:11:53 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: How to make a text or html file into an image
Message-Id: <87n1685hmu.fsf@limey.hpcc.uh.edu>
>> On Fri, 13 Jul 2001 21:57:12 -0500,
>> "Enrico Ng" <mail@enricong.com> said:
> Is there a way I can have a perl script take text such
> as an html file and make it into an image.
You could convert it into Postscript I suppose.
Your question is too vague for anyone to formulate a
useful answer.
--
Beep beep! Out of my way, I'm a motorist!
------------------------------
Date: Fri, 13 Jul 2001 22:46:22 -0500
From: "Enrico Ng" <mail@enricong.com>
Subject: Re: How to make a text or html file into an image
Message-Id: <9iofam$pc9$1@info1.fnal.gov>
I want to make a post on a message board and have it automatically
update with the latest info from a news script I have. I can only write
messages and post images. so I figured I would have something that
would convert my news to an image everytime I updated it. then,
whenever anyone went to my post, it would be updated. I have seen
places on the web that would do things like put my name on a picture of
a creditcard to see what it looks like, or places that allowed me to see
what a business card looks like on the web and try out different styles.
--
--
Enrico Ng <mail@enricong.com>
"Tony Curtis" <tony_curtis32@yahoo.com> wrote in message
news:87n1685hmu.fsf@limey.hpcc.uh.edu...
> >> On Fri, 13 Jul 2001 21:57:12 -0500,
> >> "Enrico Ng" <mail@enricong.com> said:
>
> > Is there a way I can have a perl script take text such
> > as an html file and make it into an image.
>
> You could convert it into Postscript I suppose.
>
> Your question is too vague for anyone to formulate a
> useful answer.
>
> --
> Beep beep! Out of my way, I'm a motorist!
------------------------------
Date: Wed, 11 Jul 2001 16:30:11 +0200
From: Hans Ginzel <hans@artax.karlin.mff.cuni.cz>
Subject: negating qr// regexp
Message-Id: <Pine.LNX.3.96.1010711161047.30003A-100000@artax.karlin.mff.cuni.cz>
Hallo,
How to negate a regular expressin, which is stored in a varible:
$safe = qr![\w\-\+\=\@\.\,\:\/]!;
$_ = "a b";
/[^$save]/o and die "Unsafe";
# perl v 5.6.1 on debian woody returns
# Unmatched ) before HERE mark in regex
# m/[^(?-xism:[\w\-\+\=\@\.\,\:\/]) << HERE ]/ at qr_bug.pl line 5.
I know that fore this keys I have other possibilities how to write it.
But this is a demonstration what I consider as bug.
Why perl searches for ending / inside the compiled subexpression?
Thanks
Hans
------------------------------
Date: Sat, 14 Jul 2001 02:46:46 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: negating qr// regexp
Message-Id: <3B4FB299.5AB815B2@acm.org>
Hans Ginzel wrote:
>
> Hallo,
>
> How to negate a regular expressin, which is stored in a varible:
>
> $safe = qr![\w\-\+\=\@\.\,\:\/]!;
>
> $_ = "a b";
>
> /[^$save]/o and die "Unsafe";
>
> # perl v 5.6.1 on debian woody returns
> # Unmatched ) before HERE mark in regex
> # m/[^(?-xism:[\w\-\+\=\@\.\,\:\/]) << HERE ]/ at qr_bug.pl line 5.
>
> I know that fore this keys I have other possibilities how to write it.
> But this is a demonstration what I consider as bug.
> Why perl searches for ending / inside the compiled subexpression?
You are trying to use a character class inside a character class, don't
do that. You don't need the /o modifier because qr// already compiled
your regex.
$safe = qr![^\w+=@.,:/-]!;
$_ = "a b";
/$save/ and die "Unsafe";
John
--
use Perl;
program
fulfillment
------------------------------
Date: Fri, 13 Jul 2001 23:42:05 -0400
From: "James Warpup" <jwarpup1@home.com>
Subject: newbe question
Message-Id: <29P37.19408$u76.925016@e420r-atl3.usenetserver.com>
infact, this is my first script.
and already i can't find the answer.
first, this is going to be a handy little tool that i'll use to grab the
mask off a mask length. here is a sample $line
2 255.192.0.0 /10 2 4194302
(bits mask length subnets hosts)
here's the script....
#!perl;
$FILE = 'mask.txt';
$NUM = 0;
print "What is the part of the mask you know?";
$DoSearch = <STDIN>;
$WHO = $DoSearch;
open (INFO, $FILE);
while ($line = <INFO>) {
$_ = $line;
chomp $WHO;
chomp;
$NUM = $NUM + 1;
if (/(\d*)\s(...\....\..+\..+)\s\/(\d*)\s(\d*)\s(\d*)/) {
$BIT =$1;
$MASK = $2;
$LENGTH = $3;
$NETS = $4;
$HOSTS = $5;
if ($WHO == $BIT){
print "1 Bytes:$BIT\n"."Mask: $MASK\n"."Lenght: \/$LENGTH\n"."Number
of Subnets: $NETS,\n"."Number of hosts: $HOSTS\n";
}
elsif ($WHO == $MASK){
print "2 Bytes:$BIT\n"."Mask: $MASK\n"."Lenght: \/$LENGTH\n"."Number
of Subnets: $NETS,\n"."Number of hosts: $HOSTS\n";
}
elsif ($WHO == $LENGTH){
print "3 Bytes:$BIT\n"."Mask: $MASK\n"."Lenght: \/$LENGTH\n"."Number
of Subnets: $NETS,\n"."Number of hosts: $HOSTS\n";
}
elsif ($WHO == $NETS){
print "4 Bytes:$BIT\n"."Mask: $MASK\n"."Lenght: \/$LENGTH\n"."Number
of Subnets: $NETS,\n"."Number of hosts: $HOSTS\n";
}
elsif ($WHO == $HOSTS){
print "5 Bytes:$BIT\n"."Mask: $MASK\n"."Lenght: \/$LENGTH\n"."Number
of Subnets: $NETS,\n"."Number of hosts: $HOSTS\n";
}
}
}
#print "$BIT, $MASK, $LENGTH $NETS, $HOSTS, 1\n";
here's the problem, i need to figure out how to set a unique identifier
for each number variable so that i can tell the script which piece of
information i have.
for example, lets say i know that it's a 2 bit mask.
i run the program, it asks "What is the part of the mask you know?"
i say 2, and it pulls any record with that matches =~ /2/ (in mask.txt
that means 2 values)
what i would like to do is be able to say "2 bits" and have it pull only
records that match =~ /2 bits/
but i can't figure it out.... Help please!
also, as a side note, if else is one or the other, while if elsif is maybe 1
then maybe 2 ect... ad nausim. how do you do more than 2 statements that
folow this pattern,
if (statement 1 ) (action)
ifnot (statement 1) but (statement 2) then (action 2)
ifnot (statment 1) or (statemnt 2) then (action 3) ect....
thanks
Jimmy
ps, yes, i know i could do this with math. i haven't figured out how to do
it this way yet.... one thing at a time.
------------------------------
Date: Fri, 13 Jul 2001 23:08:32 GMT
From: tim@vegeta.ath.cx (Tim Hammerquist)
Subject: OT: Geek Nostalgia (was: Re: Active State)
Message-Id: <slrn9kv0i5.7ur.tim@vegeta.ath.cx>
Me parece que Chris Stith <mischief@velma.motion.net> dijo:
> Generation gap? I'm not sure about that... I'm only 25, and my first computer
> had 48k of RAM and built-in BASIC. My first PC compatible came with a 20Mhz
> processor, 1 meg of RAM, a 40-meg hard drive, 5 1/4" and 3 1/2" floppies,
> and an EGA video system. It ran DOS 5.0 and eventually 6.2 rather well,
> but no Windows. I think maybe it's more of a geekiness gap than anything.
> All these newcomers just weren't interested in computers before the
> Pretty Picture Revolution made it the PCs.
Ah! The luxuries you had! =)
First box:
TRS-80 Color Computer w/ ~32K RAM
5 1/4 floppy on an expansion card (God, I felt cool then!)
RF signal video output to 12" black and white TV
BASIC built-in
First PC:
Tandy 1000 (i8088 w/ 128K RAM expanded to 640K)
5-1/4 floppy and full-height 20MB hard drive
Advanced 4-color CGA graphics mode.
Current PC:
Gateway Pentium III 450Mhz
20GB HD with Win98SE (hasn't crashed in the last 6 months)
15GB with Mandrake Linux 7.1 (hasn't crashed...period)
7.5+GB in MP3s =)
Oh yeah, and I'm 23. All I can say is, I'm grateful. We've all come a
long way. =) Many of us had a lot of fun playing Pong, but I'm grateful
I can play Final Fantasy VII now!
I think you're on to something about the Pretty Pic Rev. ;)
BTW, I've never had a complaint about my Gateway box.
--
-Tim Hammerquist <timmy@cpan.org>
Did I listen to pop music because I was miserable...
Or was I miserable because I listened to pop music?
-- John Cusack, "High Fidelity"
------------------------------
Date: Sat, 14 Jul 2001 01:05:49 GMT
From: m_010@yahoo.com (Chad Yoshikawa)
Subject: perl debugger
Message-Id: <3b549a35.23305062@enews.newsguy.com>
Is there an easy-to-setup perl debugger on windows? I had heard there
is one for windows before but I also heard that it's very hard to
configure.
I found programming in perl is hard since It don't have a nice
debugger. What do you guys think?
Thanks.
------------------------------
Date: Fri, 13 Jul 2001 22:07:52 -0500
From: "Randy Kobes" <randy@theory.uwinnipeg.ca>
Subject: Re: problem perl 5.6.1 MCPAN
Message-Id: <9iodin$o7q$1@canopus.cc.umanitoba.ca>
"Les Ander" <citykid@nospam.com> wrote in message
news:Pine.LNX.4.33.0107131429580.23158-100000@schewanella.stanford.edu...
> Hi, I tried to install the Net-SSH-Perl-1.20 bundle. Unfortunately, it
> downloaded perl 5.6.1 and now i get conflict errors when i try to install
> another module
[ ... ]
> i am using redhat 7.1.
> can someone help me fix this problem (i would like to get things
> back to the way they were. Is there a way i can uninstall perl 5.6.1?)
Probably the most straightforward way is to delete all the
directories where perl is (/usr/lib/perl5/?, plus binaries),
plus uninstall any traces of perl rpms. You could then reinstall
the desired rpm or, for more control, compile the sources
yourself - on linux it's usually a very clean build.
best regards,
randy kobes
------------------------------
Date: Sat, 14 Jul 2001 03:07:53 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: redirect in Perl
Message-Id: <mbudash-99F6DD.20075813072001@news.sonic.net>
In article <113301c6.0107130649.29913644@posting.google.com>,
spanchenko@iqsale.com (sergey) wrote:
> I redesign VBScript ASP site to PerlScript ASP site. All worked as for
> today under Windows and under Linux.
> But now I have module from Cybercash which work on Perl instead of
> Perlscript.
> My question is : could I have in Perl something like
> $Response->Redirect in
> PerlScript (realy in ASP) - unconditional redirect to another URL
> without pushing any button ?
> script could be:
> if ($POP{'pop.status'} =~ /^success/) {
> $Response->Redirect 'new URL'; # and I am on another page.
> };
>
> Perl - ?
> In sample I have HTML:
> <FORM ACTION='new URL' METHOD='POST'>
> but I don't like to have any button.
> Thanks,
> sergey
if i understand your questions, you have as many as several choices,
depending on your exact needs:
if you MUST use the post method, you must use the LWP perl module. if
you can us the get method, you can use a simple redirect via the
Location HTTP header.
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
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 1303
***************************************
