[9682] in Perl-Users-Digest
Perl-Users Digest, Issue: 3276 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 28 13:07:17 1998
Date: Tue, 28 Jul 98 10:00:32 -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 Tue, 28 Jul 1998 Volume: 8 Number: 3276
Today's topics:
@ISA a kludge? <Luke.Y.Lu@usa.net>
Re: @ISA a kludge? (Sean McAfee)
[Q] Regexp, speed, stringsplit <frodeste+news@pvv.org>
ActiveState's ActivePerl and PerlEx thoughtforms@my-dejanews.com
Can I use CRC to code a piece of text? (Gaspard Gendreau)
Re: CHOMP not working on some servers (Bart Lateur)
Re: FTP without Net::FTP module <nguyend7@egr.msu.edu>
Re: Help reg. exp: shouldn't ^ match at beginning only? fandino@usa.net
Re: how does bless work <jdporter@min.net>
Inheritance broken when objects share a file? Karmadon@my-dejanews.com
Perl 5.005_01 win32 MSVC 5.0 Backtick problems <nospam-R.J.Rainthorpe@gre.ac.uk>
Re: Perl 5.005_01 win32 MSVC 5.0 Backtick problems <nospam-R.J.Rainthorpe@gre.ac.uk>
Re: Perl and NT <stepherd@gusun.georgetown.edu>
Re: perl/mysql connect problem <lavoie@zeus.genie.uottawa.ca>
Re: reading a file listing? salvador@my-dejanews.com
Re: regexp question (William Wueppelmann)
s/// Regexp parsing oddity with negative lookahead asse <bmcmahon@iol.ie>
Sorting for Uniques <george@tapestry.net>
Re: Submit only Once (Bart Lateur)
Re: Try perl on Ms Dos (Larry Rosler)
Re: upload form variables (500 Internal Error) <perlguy@inlink.com>
Re: Uploading Large Files with Perl philc@hempseed.com
Win32 and non-blocking sockets (Lupe Christoph)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 28 Jul 1998 09:59:58 -0500
From: Luke <Luke.Y.Lu@usa.net>
Subject: @ISA a kludge?
Message-Id: <35BDE76D.9CDA8AA5@lgc.com>
package Isatest;
B->new->method;
package A;
sub method { print "A::method\n"; }
package B;
@ISA = qw(A);
sub new { my $type = shift; bless {}, $type }
ought to work, but it doesn't. because @ISA is not initialized at the
time of the call. moving the call to the end will make it work.
inheritance should really be resolved at compile time. using @ISA array
looks like a huge half-baked hack to realize inheritance. Why don't we
just use something like:
package derived, qw(base1 base2);
Had to complain about it, 'cause time is wasted finding out this
bug/feature .
__Luke
------------------------------
Date: Tue, 28 Jul 1998 16:09:27 GMT
From: mcafee@choplifter.rs.itd.umich.edu (Sean McAfee)
Subject: Re: @ISA a kludge?
Message-Id: <XImv1.5553$24.32583117@news.itd.umich.edu>
In article <35BDE76D.9CDA8AA5@lgc.com>, Luke <Luke.Y.Lu@usa.net> wrote:
>package Isatest;
>B->new->method;
>package A;
>sub method { print "A::method\n"; }
>package B;
>@ISA = qw(A);
>sub new { my $type = shift; bless {}, $type }
>ought to work, but it doesn't. because @ISA is not initialized at the
>time of the call. moving the call to the end will make it work.
>inheritance should really be resolved at compile time.
Yes, that's what BEGIN blocks are for. Just use
BEGIN { @ISA = qw(A); }
and all will be well.
>using @ISA array
>looks like a huge half-baked hack to realize inheritance. Why don't we
>just use something like:
>package derived, qw(base1 base2);
We have more generality now than would be allowed by that sort of
construct. For instance:
package Foo;
BEGIN {
if ($ENV{VAR} eq "this") {
@ISA = qw(Bar);
} else {
@ISA = qw(Baz);
}
}
--
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 Jul 1998 18:35:18 +0200
From: "Frode Stenstrxm" <frodeste+news@pvv.org>
Subject: [Q] Regexp, speed, stringsplit
Message-Id: <i6qaf5u9bnd.fsf@pvv.org>
What's the fastest way to splitt a string (eg. "John-F M. F Doe")
to two variables like firstname and lastname ($lastname="Doe")?
I've fiddled with split
($first, $last) = split (/\s+/, $string, 2);
But this does not quite give me what I want. Two rules apply:
1. Space is the only seperator
2. Last word in string is _always_ $last (name).
Yes, I have RTFM, but I'm new to regexp.
------------------------------
Date: Tue, 28 Jul 1998 16:02:21 GMT
From: thoughtforms@my-dejanews.com
Subject: ActiveState's ActivePerl and PerlEx
Message-Id: <6pksmd$1d9$1@nnrp1.dejanews.com>
Can anybody confirm that I *can't* run ActiveState's PerlEx with their
ActivePerl Beta release, only with Perl for Win32 the non-CPAN friendly port ?
AtDhVaAnNkCsE
Simon Reekie
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 28 Jul 1998 18:04:27 +0200
From: Ggendrea@esrin.esa.it (Gaspard Gendreau)
Subject: Can I use CRC to code a piece of text?
Message-Id: <Ggendrea-2807981804270001@macgas.esrin.esa.it>
Hello,
I need to identify a piece of text in a code which should be made of
characters valid for UNIX file names. I only need to encode the text, I'll
never need to retrive it from the code, because the text itself will be
stored in the file.
The text will be of variable lengths, from few characters to not more than
200 or 300 charcters.
I will use this code to quickly know if I already have a file with the
same piece of text. Ideally, the code should be around 32 characters.
Can I use the CRC (Cyclic redundency check generation) for this?
What about String::CRC found on CPAN?
Is there any better method?
Thank-you.
Gaspard Gendreau
(ps. Please send a copy of your reply as e-mail)
------------------------------
Date: Tue, 28 Jul 1998 16:46:21 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: CHOMP not working on some servers
Message-Id: <35bdff4b.516240@news.tornado.be>
Chris Denman wrote:
> I found that chomp
>only took the last character off of the string and left some
>crap (I thought that chomp took off all of the crap off the end
>of a string?).
chomp() is supposed to remove the value of $/ from the end of the
string, if present. This is much like what it does:
s[$/$][];
The "crap" you're talking about, is probably "\n", "\r" or something
similar. It could be submitted by the browser.
The safest bet is to use this line instead of chomp:
tr/\r\n//d;
HTH,
Bart.
------------------------------
Date: 28 Jul 1998 14:57:14 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: FTP without Net::FTP module
Message-Id: <6pkosa$qu4$3@msunews.cl.msu.edu>
pjgeer@my-dejanews.com wrote:
: annoying boorocratic reasons I cant use the handy Net::FTP module.
Your sys-admin refuses to install it (or doesn't know how??).
I'd recommend just installing it in your own home directory.
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Tue, 28 Jul 1998 15:58:25 GMT
From: fandino@usa.net
Subject: Re: Help reg. exp: shouldn't ^ match at beginning only?
Message-Id: <6pksf1$18v$1@nnrp1.dejanews.com>
In article <6pjb9k$7u0$1@nnrp1.dejanews.com>,
cortez@ali.com.au wrote:
> Hello, could anybody explain why the following works as it does?:
>
> ...........................................
> $s = 'This is a test line';
> $s =~ /^([^ ]* )*/;
> print $1, "\n";
> ...........................................
>
> The script above will give:
> test
the first ^ match the beginning of the string,
the second ^ inside the [] has a different meaning,
a reg exp like [abc] match the chars a b or c,
the ^ inverts the list of chars so [^abc] match any char but a, b, c.
in your code [^ ] match any char not being a space,
([^ ]* ) match any word with a space after it: 'This ','is ','a ' and 'test'
your complete reg exp match 'This is a test ' being 'test ' the last string
matched by the substring betwen the () so it's the value assigned to $1
> Isn't ' ^ ' suppossed to match at the beginning of the string only?
> The same result is obtained with : $s =~ /^([^ ]* )+/
>
> And if this is not necessarily the case, how come the following does work as
> intended?:
>
> ...........................................
> $s = 'This is a test line';
> $s =~ /^([^ ]* ) */;
> print $1, "\n";
> ...........................................
>
> The script above will give:
> This
>
^ anchors to the beginning of the string ([^ ]* ) match 'This ' and it's
assigned to $1 ' *' match an empty string but this is correct because the *
match any number of chars between 0 and infinity (teoricaly:-)
> I would appreciate any explanation.
>
> Carlos
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 28 Jul 1998 14:56:33 GMT
From: John Porter <jdporter@min.net>
Subject: Re: how does bless work
Message-Id: <35BDE710.5311@min.net>
Jimmy Zhengyu Zhang wrote:
>
> But how does the object actually know which class it belongs to, or
> in other words, what is the magic of bless, or said yet in another way,
> how does the object store the class name information?
It's stored internally. You would have to look at the C source of
the perl interpreter to see how it's done. bless and ref know
how to access the internals of an object structure, so you don't
have to.
--
John Porter
------------------------------
Date: Tue, 28 Jul 1998 16:22:50 GMT
From: Karmadon@my-dejanews.com
Subject: Inheritance broken when objects share a file?
Message-Id: <6pktsq$350$1@nnrp1.dejanews.com>
Hi, all.
I cannot use base class methods unless each package is in a separate file.
Am I wrong assuming it as a bug? "Advanced Perl Programming" has an example
with several packages in a single file which will break as well as the
following example demonstrating the problem:
Script started on Tue Jul 28 12:11:54 1998
hopper% cat p1
use B;
use D;
D->new();
hopper% cat B.pm
package B;
sub alloc { bless {}, $_[0]; }
1;
hopper% cat D.pm
package D;
@ISA = qw(B);
sub new { $_[0]->alloc(); }
1;
hopper% perl -I. -w p1
hopper% cat p2
D->new();
package B;
sub alloc { bless {}, $_[0]; }
package D;
@ISA = qw(B);
sub new { $_[0]->alloc(); }
hopper% perl -w p2
Can't locate object method "alloc" via package "D" at p2 line 8.
hopper% exit
If replying by mail, please use "ishpigel at platform dot com" address.
Thanks.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Jul 1998 15:41:11 +0100
From: Rob Rainthorpe <nospam-R.J.Rainthorpe@gre.ac.uk>
Subject: Perl 5.005_01 win32 MSVC 5.0 Backtick problems
Message-Id: <ud8aqxcl4.fsf@gre.ac.uk>
I'm compiling the source for the first patch of the perl 5.005
release using Microsoft Visual C++ 5.0 (SP3) targeting an executable
using a DLL running on the Windows NT platform. I'm not using threads.
The only option I changed in Makefile was the target location.
1. I run nmake
2. I run nmake test
3. The test fails in base/term (test 2)
The test is shown below:
# check `` processing
$x = `echo hi there`;
if ($x eq "hi there\n") {print "ok 2\n";} else {print "not ok 2\n";}
The test checks out the operation of the backtick. The test should produce
the output "hi there\n", but instead produces "hi there \n" (note the
extra space).
Does anyone else have this problem?
--
Robert Rainthorpe - Central Systems Group, Computing Services
the University of Greenwich
16 - 32 Wellington Street, Tel. (+44) (0)181 331 8738
Woolwich, Fax. (+44) (0)181 331 8385
London SE18 6PF Email. (remove nospam- from above)
------------------------------
Date: 28 Jul 1998 16:49:43 +0100
From: Rob Rainthorpe <nospam-R.J.Rainthorpe@gre.ac.uk>
Subject: Re: Perl 5.005_01 win32 MSVC 5.0 Backtick problems
Message-Id: <ubtqax9ew.fsf@gre.ac.uk>
Further info.
Same behaviour exhibited when compiled with USE_PERLCRT defined.
Rob.
--
Robert Rainthorpe - Central Systems Group, Computing Services
the University of Greenwich
16 - 32 Wellington Street, Tel. (+44) (0)181 331 8738
Woolwich, Fax. (+44) (0)181 331 8385
London SE18 6PF Email. (remove nospam- from above)
------------------------------
Date: Tue, 28 Jul 1998 11:29:47 -0400
From: Dave Stephens <stepherd@gusun.georgetown.edu>
To: askey@my-dejanews.com
Subject: Re: Perl and NT
Message-Id: <35BDEE6B.BAA2D4EC@gusun.georgetown.edu>
Couple of suggestions:
Did you make sure to set your SMTP host in the wsendmail.ini file in your windows
directory?
Are you using the -CGI option in the call?
i.e.
open(MAIL,"|wsendmail.exe -CGI -f($from) -s($subject) $email email.txt");
close (MAIL);
Hope this is marginally helpful.
--Dave Stephens
askey@my-dejanews.com wrote:
> Confession: I'm totally new to Perl and am not much of a programmer
> (e.g.-JavaScript gives me a headache).
>
> Problem: Running IIS 3.0 on NT 4.0. I've read dozens of posts looking for my
> answer but have yet to find it. I've installed Perl successfully (from NT
> Resource Kit), modified my registry to address .pl files, and created and
> tested a script from a Web page. Now I've got a script I downloaded from a
> web site that is a form handler designed for UNIX. I've corrected the #! line
> at the beginning to tell it where Perl dwells, but I have no idea how to tell
> it where to find my NT sendmail program, wSendmail. wSendmail works fine from
> a command prompt and from a web page (if accessed directly in the script
> directory), but I cannot call it from the original script I was tinkering
> with. I've tried $DOS_path, $smtp=, and numerous other syntaxes, but the mail
> will not go. Basically, I want to call wSendmail from another script on my
> server. If that won't work, I'd be happy to point to our VMS mail server, if
> only I knew the syntax. Is there a simple answer, besides 42, to this
> rambling question?
>
> Many thanks in advance,
>
> Dale Askey
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Jul 1998 11:03:34 -0400
From: Lavoie Philippe <lavoie@zeus.genie.uottawa.ca>
Subject: Re: perl/mysql connect problem
Message-Id: <y6u342t3uh.fsf@yoho.genie.uottawa.ca>
alex-nospam@helispot.com (HeliSpot) writes:
> HELP!!!
>
> Hi folks. I joined a new virtual hosting company last week that
> offers mysql. They verified that my mysql database had been setup,
> then I used their "control panel" web page to create a table and put
> some data in it. (I knew how to do this using SQL commands, but the
> control panel site was easier. Plus, this was just to test out mysql
> anyway.)
>
> So, I wrote this quick script to try to connect to the database, just
> to test it out. I think I have the syntax wrong in the connect->
> line, because any commands after that are non-responsive.
>
> Any thoughts?
>
Something like this works for me.
use Mysql ;
my $dbh = Mysql->connect('localhost','cppdocdb');
my $sth ;
my @row ;
$sth = $dbh->query("SELECT id FROM Routine ORDER BY name") ;
while(@row = $sth->fetchrow()){
print "id = $row[0]\n" ;
}
1;
------------------------------
Date: Tue, 28 Jul 1998 16:27:28 GMT
From: salvador@my-dejanews.com
Subject: Re: reading a file listing?
Message-Id: <6pku5g$3j9$1@nnrp1.dejanews.com>
In article <35BD9A1E.2251A196@usa.net>,
Jason Clark <clarkjason@usa.net> wrote:
> I'm trying to quite simply read a file listing from a given directory.
> The files I want to list will change so
> I will need to use a varible with my wild card expressions.
> The (foreach) loop used dos not reconise the format of my Var. and
> replys in the below code, One file which is my wild card syntax.
>
> ----------------------------------------------
> $filename = "123.txt"; # Files already exist
> of 123.txt.001 / 123.txt.002 / 123.txt.003
> $FileParttern = "<".$filename."*>";
> print $FilePatterm; # Returns
> <123.txt*>
>
> foreach $files ($FilePattern) # If I use <123.txt*> it
> works/ But not with the Var.
> {
> print $files; # Returns the
> FilePattern. <123.txt*>
> }
> ------------------------------------------------
>
> Can Any one help me. I must be doing somthing stupid???
>
try replacing the foreach sentence with
foreach $files (eval $Filepattern) {
...
}
bye!
- Salva.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Jul 1998 14:37:20 GMT
From: william@host.ott.igs.net (William Wueppelmann)
Subject: Re: regexp question
Message-Id: <6pknn0$pam$2@news.igs.net>
Kelly Hirano (hirano@Xenon.Stanford.EDU) wrote:
: In article <6palvt$be7$1@news.igs.net>,
: William Wueppelmann <william@host.ott.igs.net> wrote:
: >
: >Is '*?' supposed do something? (It may, but it seems to me like an error.)
: the '?' makes the match non-greedy instead of greedy. that is, it looks for
: the shortest possible matchi instead of the longest.
Oh yeah... d'oh. (Amazing what you forget when you don't use it often.)
William.
------------------------------
Date: Tue, 28 Jul 1998 16:19:14 +0100
From: "Brendan McMahon" <bmcmahon@iol.ie>
Subject: s/// Regexp parsing oddity with negative lookahead assertion
Message-Id: <6pkq5n$dia$1@ezekiel.eunet.ie>
I'm trying to scan a HTML file and repeatedly remove paired open/close tags
which may be recursively nested, using a '1 while s///' type repeat.
To do this, I figured the nested tags can only be identified from the inside
out, i.e. opening-tag not followed by any more opening tags before
encountering a closing tag.
If <f> and <xf> represent the opening and closing tags, I figured that the
following, based on a negative lookahead assertion, would work, and it does:
C:\>perl -e "$_='a<f>b<f>c<f>d<xf>e<xf>f<xf>g';
s/<f>(?!.*?<f>.*?<xf>)(.*?)<xf>/$1/gsi ;print"
a<f>b<f>cde<xf>f<xf>g
However, the problem is that the opening tag can contain attributes, so I
made the obvious changes:
C:\>perl -e "$_='a<f>b<f>c<f>d<xf>e<xf>f<xf>g';
s/<f.*?>(?!.*?<f.*?>.*?<xf>)(.*?)<xf>/$1/gsi;print"
ade<xf>f<xf>g
which does not work. Various tests using .{0,X}? instead of the first .*?
show that this term is matching greedily, despite the ? lazy match
quantifier.
Is this a bug (of Perl in general or the Activeware NT port) or a "feature"
that I am misunderstanding?
More generally, is there any better approach to what I am attempting?
Any thoughts gratefully received,
Brendan McMahon
ESB (Ireland)
------------------------------
Date: 28 Jul 1998 16:42:07 GMT
From: "George H" <george@tapestry.net>
Subject: Sorting for Uniques
Message-Id: <01bdba46$79484b60$9596cdcf@hp-customer>
Is there an easy way to sort an array for uniques? ... like the 'sort -u'
command line in UNIX. I am reading an array of clients from a huge file
and I want to sort it for unique client names. I was hoping to sort
without runing a UNIX command.
Thanks in advance,
george@tapestry.net
------------------------------
Date: Tue, 28 Jul 1998 15:34:09 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Submit only Once
Message-Id: <35bfeb6c.29022644@news.tornado.be>
Jim Woodgate wrote:
>You could generate a random number, store it in a hidden field (which
>would need to be recalculated on a form reset), then store that
>hidden/random number in a database when they submit a *good* form.
I love it. Brilliant. Generate the form from within a CGI script, and
you're set.
>The first thing you'd check on a form is whether or not the hidden
>field matches anything in the database, if it does, you send them a
>message saying the need to hit "reset" if they want to submit a new
>form.
Reset won't work. Reload will: this will regenerate the form, with a new
submit ID. All visible fields will be cleared.
>You might also want to save the random number initially, so the user
>can't modify the form and put in his/her own random numbers, but that
>seems a bit excessive
They may modify it. I'd let them. You could add some validity check,
e.g. similar to the checksum digit for barcodes or credit cards. If the
people want to hack it, fine. But it's a lot of work with little
benefit, especially if they don't know the exact validation rule.
You could keep a database of "pending submissions", and remove anything
that is too old, or has actually been processed.
Bart.
------------------------------
Date: Tue, 28 Jul 1998 08:32:04 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Try perl on Ms Dos
Message-Id: <MPG.10278ecd4853fc29989798@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <6pkoo4$qu4$2@msunews.cl.msu.edu> on 28 Jul 1998 14:55:00 GMT,
Dan Nguyen <nguyend7@egr.msu.edu> says...
> Suruchi <sursood@mail.emirates.net.ae> wrote:
> : i'm using notepad to make the program.
>
> There's your problem, your using notepad. Notepad will not let you
> save in any extensions it doesn't know about. You'll have to edit the
> registry and add the pl extension. Hopefully then it should work.
Not so. You can save a file with any extension you want, simply by
enclosing the entire name within double quotes.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 28 Jul 1998 15:46:16 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: upload form variables (500 Internal Error)
Message-Id: <35BDF248.46BE663D@inlink.com>
Charly wrote:
>
> I have to write a script that allows me to store about
> 5 lines of text, submitted by a textarea named notes in
> a file named test.htm. I wrote this perl-script (my first
> one) and I am getting always an 500 Internal Error.
> My FTP is configured to ascii so there is definitely no ^M.
> And chmoded to 777, perl-location is ok, too. What do I
> do wrong?
>
> +++++++++++++++ text.htm +++++++++++++++
>
> <form action=store.pl method=post>
> <textarea name=notes>
> </textarea>
> </form>
>
> ++++++++++++ store.pl +++++++++++++
>
> #!/usr/bin/perl
>
> open (FILE,">test.htm");
> print FILE "***$FORM{'notes'}\n";
> print FILE "***\n";
> close (FILE);
- You say that you chmod(ed) the file to 777. What about the
directory? If you are creating a new file, which you are, the directory
that it is being created in must also have sufficient rights for
whatever user the web server is running as to create files.
HTH,
Brent
------------------------------
Date: Tue, 28 Jul 1998 14:48:23 GMT
From: philc@hempseed.com
Subject: Re: Uploading Large Files with Perl
Message-Id: <6pkobn$s73$1@nnrp1.dejanews.com>
> I would like to use ftp, but MS IE doesn't support ftp://username@host syntax,
> and can only use ftp://username:passwd@host. Users (IntrAnet only) freak out
> when they see their password flashing on their screen.
If that is their only concern, just put it in a frame (i.e. one set at %100).
Then the URL displayed would be of the frameset, not the FTP session...
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Jul 1998 12:58:59 +0200
From: lupe@alanya.m.isar.de (Lupe Christoph)
Subject: Win32 and non-blocking sockets
Message-Id: <6pkatj$46n$1@alanya.m.isar.de>
AFAIK, in Win32, non-blocking I/O is generally not available, but
can be used for sockets. I have a pTk program that uses fileevent
to listen for incoming data on a socket and sets that socket
to nonblocking via Tk::IO.
So far so good. This works fine under Unix, but Tk800.008 does
a croak on the attempt to set non-blocking. Graham Barr's
IO-1.20 uses only Unix methods to manipulate the non-blocking
bit. The win32 part of 5.004_04 and 5.005 mentions non-blocking
sockets, but does not include an example how to use it, it it
is possible at all.
I have to confess I'm a Unix weenie, and I have not found any
helpful thing about Winsock on the NT machine I set up for
this port. Using Borland C++ 5.02. The help files do not even
mention Winsock. Sigh.
So I'm asking this crowd for code to make a socket non-blocking
in Win32, *any* perl version.
--
| lupe@alanya.m.isar.de (private) | lupe@octogon.de (business) |
| "In short, just as the Multics mentality of careful access controls |
| shows up throughout Unix, the cretinous CP/M mentality of uncontrolled |
| havoc shows up in DOS and all its mutant children." Tom Christiansen |
------------------------------
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 3276
**************************************
