[15843] in Perl-Users-Digest
Perl-Users Digest, Issue: 3256 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 5 14:15:50 2000
Date: Mon, 5 Jun 2000 11:15:25 -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: <960228925-v9-i3256@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 5 Jun 2000 Volume: 9 Number: 3256
Today's topics:
Re: Perl vs Python for Numerical Analysis <glauber.ribeiroNOglSPAM@experian.com.invalid>
please?? <helza@planet.nl>
problem with regex frankgroch@my-deja.com
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Still a little puzzled (Was Re: Globbing with Activ <sweeheng@usa.net>
Re: Still a little puzzled (Was Re: Globbing with Activ (jason)
Test (LMC)
Re: Thanks - Networking Perl for NT (TheGregster)
time/date calculation <bachelart.pierre@skynet.be>
Typemap entry for 'int * array[]' from C to XS? <rjs@blue-cove.com>
Why read 1024? <abuse@localhost>
Re: Why read 1024? (Bart Lateur)
win32: How do i build gui app mmfiber@my-deja.com
Re: win32: How do i build gui app <blah@nospam.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 05 Jun 2000 06:34:02 -0700
From: glauber <glauber.ribeiroNOglSPAM@experian.com.invalid>
Subject: Re: Perl vs Python for Numerical Analysis
Message-Id: <10611dce.c50fa3b2@usw-ex0102-014.remarq.com>
In article <1aaeh04aav.fsf@odin.funcom.com>, Tobias Brox
<tobix@fsck.com> wrote:
>zenin@bawdycaste.org writes:
>
>> Convincing Python advocates that Perl is anything beyond
the spawn
>> of Satin is typically a lost cause...they typically just
won't
>> listen. :-(
>
>Why not just admit that we're satanists - and happy with it? :)
I think he said Satinists, not Satanists. :-)
glauber
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 5 Jun 2000 19:11:20 +0200
From: "Helza" <helza@planet.nl>
Subject: please??
Message-Id: <8hgn4e$895mb$1@reader1.wxs.nl>
I'm still not much futher :(
I just started with perl (sorry) but i have this project i'm working which
is completely stuck until i can fix this :(
Can anyone please help.
Greetings Helza
Helza <helza@planet.nl> wrote in message
news:8hbq3i$85vhp$1@reader1.wxs.nl...
> Hi,
>
> I really need some help here. I'm building a program which gets
information
> from Servers which are running. (cgi)
> Which goes perfect as long as the server is up.
> But as soon as a invalid IP/port is entered or the server is down the
> program will load like crazy but nothing happens for a long time, until
> after a long time it finally gives any form of error.
>
> And because the program will have to load a number of ip's entered by
> visitors and loads these i'm pretty sure always a couple of those ip's
will
> be offline :(
>
> How do i make a quick ip/port check to see if the server is online?
>
> Currently i use this code:
>
> --------------------
>
>
>
> #!/usr/bin/perl
>
> use Socket;
>
> $host = shift || "130.89.225.137";
> $port = shift || 63881;
>
> $request =
>
"\xE0\x69\x88\xCF\x10\x10\x14\x00\x00\xFC\x43\xE2\x35\x6B\xD1\x11\x87\x87\x0
> 0\xC0\xF0\x16\xAF\x25";
>
> @Type = ( "COOPERATIVE","DEATHMATCH","TEAM DEATHMATCH","KING OF THE
> HILL","TEAM KING OF THE HILL","CAPTURE THE FLAG","SEARCH AND
DESTROY","ATACK
> AND DEFEND","TEAM FLAGBALL" );
> @Server = ( "Serve & Play", "Dedicated" );
>
> $iaddr = inet_aton("0.0.0.0");
> $proto = getprotobyname('udp');
> $paddr = sockaddr_in(3568, $iaddr);
>
> socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) || die "socket: $!";
> bind(SOCKET, $paddr) || die "bind: $!";
> $| = 1;
> $hisiaddr = inet_aton($host) || die "unknown host";
> $hispaddr = sockaddr_in($port, $hisiaddr);
>
> defined(send(SOCKET, $request, 0, $hispaddr)) || die "send $host: $!";
>
> $rin = 0;
> vec($rin, fileno(SOCKET), 1) = 1;
>
> if( select($rout = $rin, undef, undef, 2) == 0 ) {
> print "Content-type: text/html\n\n<font class=R>Server is down</font>\n";
> exit;
> }
>
> ($hispaddr = recv(SOCKET, $responce, 512, 0)) || die "recv: $!";
>
> ($type,$dedicated,@ver) = (unpack("C260",
> $responce))[248,252,259,258,257,256];
> ( $mask, @data ) = unpack( "V C36", $responce );
>
> for( $i=0; $i < 32; $i++ ) {
> $data[$i] = $data[$i] & ~1 | $mask & 1;
> $mask = $mask >> 1;
> }
>
> etcetc..and goes on here with the information it got from server :)
>
>
>
>
------------------------------
Date: Mon, 05 Jun 2000 17:20:39 GMT
From: frankgroch@my-deja.com
Subject: problem with regex
Message-Id: <8hgngj$aap$1@nnrp1.deja.com>
hello!
i'm searching for a regex, which replaces lines in a file between two
given keys.
i can find what i'm searching for with:
'print if /key1/ ... /key2/;'
but i don't know, how to replace it.
could anybody offer some help?
frank
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 05 Jun 2000 15:19:07 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <sjnh7bbh5ri178@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 29 May 2000 16:18:35 GMT and ending at
05 Jun 2000 22:53:54 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 499
Articles: 1491 (541 with cutlined signatures)
Threads: 410
Volume generated: 2554.7 kb
- headers: 1206.8 kb (23,738 lines)
- bodies: 1283.9 kb (42,549 lines)
- original: 813.0 kb (29,489 lines)
- signatures: 62.5 kb (1,637 lines)
Original Content Rating: 0.633
Averages
========
Posts per poster: 3.0
median: 1 post
mode: 1 post - 295 posters
s: 5.5 posts
Posts per thread: 3.6
median: 3.0 posts
mode: 1 post - 116 threads
s: 4.8 posts
Message size: 1754.5 bytes
- header: 828.8 bytes (15.9 lines)
- body: 881.8 bytes (28.5 lines)
- original: 558.4 bytes (19.8 lines)
- signature: 42.9 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
62 105.5 ( 54.0/ 50.3/ 22.0) Jonathan Stowe <gellyfish@gellyfish.com>
41 57.5 ( 30.8/ 26.8/ 12.2) abigail@arena-i.com
34 51.8 ( 23.2/ 23.0/ 10.2) news@tinita.de
31 54.6 ( 20.2/ 30.9/ 15.7) Larry Rosler <lr@hpl.hp.com>
30 50.0 ( 25.4/ 24.3/ 15.4) Bart Lateur <bart.lateur@skynet.be>
27 42.7 ( 19.1/ 21.1/ 10.9) Tony Curtis <tony_curtis32@yahoo.com>
26 43.7 ( 21.6/ 21.1/ 10.0) jason <elephant@squirrelgroup.com>
26 63.5 ( 28.8/ 34.7/ 24.5) "Godzilla!" <godzilla@stomp.stomp.tokyo>
23 34.0 ( 13.6/ 17.2/ 10.2) Tad McClellan <tadmc@metronet.com>
23 37.2 ( 22.7/ 14.5/ 8.9) Elaine Ashton <elaine@chaos.wustl.edu>
These posters accounted for 21.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
105.5 ( 54.0/ 50.3/ 22.0) 62 Jonathan Stowe <gellyfish@gellyfish.com>
64.5 ( 21.2/ 37.1/ 36.1) 22 The WebDragon <nospam@devnull.com>
63.5 ( 28.8/ 34.7/ 24.5) 26 "Godzilla!" <godzilla@stomp.stomp.tokyo>
57.5 ( 30.8/ 26.8/ 12.2) 41 abigail@arena-i.com
54.6 ( 20.2/ 30.9/ 15.7) 31 Larry Rosler <lr@hpl.hp.com>
51.8 ( 23.2/ 23.0/ 10.2) 34 news@tinita.de
50.0 ( 25.4/ 24.3/ 15.4) 30 Bart Lateur <bart.lateur@skynet.be>
43.7 ( 21.6/ 21.1/ 10.0) 26 jason <elephant@squirrelgroup.com>
42.7 ( 19.1/ 21.1/ 10.9) 27 Tony Curtis <tony_curtis32@yahoo.com>
42.6 ( 19.4/ 22.9/ 11.5) 22 Abe Timmerman <abe@ztreet.demon.nl>
These posters accounted for 22.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.973 ( 36.1 / 37.1) 22 The WebDragon <nospam@devnull.com>
0.964 ( 2.7 / 2.8) 8 "scott thomason" <scott@industrial-linux.org>
0.946 ( 5.6 / 6.0) 5 "Michael Schlueter" <michael.schlueter@philips.com>
0.933 ( 17.5 / 18.8) 7 Greg Bacon <gbacon@cs.uah.edu>
0.878 ( 4.2 / 4.8) 7 "Thaddeus" <nayler@ses.curtin.edu.au>
0.855 ( 1.5 / 1.7) 7 "A Pietro" <apietro@my-deja.com>
0.792 ( 4.6 / 5.8) 7 "Bill" <bill@billcampbell.com>
0.770 ( 10.2 / 13.2) 11 Denis Haskin <dwhaskin@earthlink.net>
0.769 ( 4.1 / 5.4) 6 Fearless <philip@my-deja.com>
0.764 ( 2.4 / 3.1) 5 Clinton A. Pierce <clintp@geeksalad.org>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.437 ( 22.0 / 50.3) 62 Jonathan Stowe <gellyfish@gellyfish.com>
0.430 ( 4.0 / 9.4) 8 Andreas Kahari <andkaha@my-deja.com>
0.425 ( 4.6 / 10.9) 10 Dave Cross <dave@dave.org.uk>
0.403 ( 2.3 / 5.6) 7 Russell Bornschlegel <kaleja@estarcion.com>
0.396 ( 5.6 / 14.1) 9 Vincent Voois <vvacme@worldonline.nl>
0.375 ( 0.7 / 2.0) 5 bmetcalf@baynetworks.com
0.313 ( 1.0 / 3.0) 10 Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
0.309 ( 2.5 / 7.9) 7 phill@modulus.com.au
0.282 ( 1.5 / 5.3) 8 Brad Baxter <bmb@ginger.libs.uga.edu>
0.253 ( 1.9 / 7.6) 8 H C <carvdawg@patriot.net>
65 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
42 Perl unusable as a programming language
42 Waxing Philosophical
30 C to perl?
22 HALL OF SHAME :-)
20 seeking method to encode email addresses in web page forms
15 How do I make perl flush?
15 AAAARRRRGGHHH! Please help
14 Help reading data from file
14 newbee regex question
13 the end of perl?
These threads accounted for 15.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
94.1 ( 46.2/ 46.0/ 27.9) 42 Perl unusable as a programming language
87.9 ( 41.4/ 45.0/ 27.3) 42 Waxing Philosophical
52.0 ( 27.1/ 23.3/ 12.1) 30 C to perl?
44.4 ( 23.2/ 19.5/ 14.8) 20 seeking method to encode email addresses in web page forms
42.2 ( 21.7/ 19.8/ 11.7) 22 HALL OF SHAME :-)
40.7 ( 14.1/ 24.9/ 22.8) 11 oops Re: seeking method to encode email addresses in web pageforms
25.9 ( 11.3/ 14.0/ 9.7) 13 How do I update records in a file? (cgi & perl)
24.0 ( 11.6/ 11.3/ 6.5) 15 AAAARRRRGGHHH! Please help
23.8 ( 10.4/ 12.1/ 6.9) 12 my Foo $self = shift;
23.5 ( 10.6/ 12.1/ 8.3) 15 How do I make perl flush?
These threads accounted for 17.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.916 ( 22.8/ 24.9) 11 oops Re: seeking method to encode email addresses in web pageforms
0.901 ( 6.8/ 7.5) 5 Strategies for determining if there's a memory leak?
0.819 ( 3.9/ 4.7) 10 runtime errors - Q how to do this
0.799 ( 6.5/ 8.1) 5 Not shifting what I want from an array
0.798 ( 8.5/ 10.6) 9 perl-5.6.0 and UTF8 character weirdness
0.785 ( 5.2/ 6.7) 5 How to find out height and width of a PNG graphic
0.776 ( 3.4/ 4.4) 9 Perl and notepad aren't playing nice.
0.772 ( 2.5/ 3.3) 5 First (implicit) argument passed to a method?
0.761 ( 2.8/ 3.6) 6 simple array and scalar question
0.755 ( 14.8/ 19.5) 20 seeking method to encode email addresses in web page forms
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.454 ( 0.8 / 1.7) 5 global chown ??
0.451 ( 3.4 / 7.4) 8 Problem using command line arguments
0.425 ( 7.1 / 16.6) 7 how do you create scalar vars from a hash?
0.420 ( 2.3 / 5.5) 7 Perl to write to a text file
0.416 ( 1.8 / 4.4) 8 Newbie
0.385 ( 1.2 / 3.1) 5 Newbie in need of help...
0.380 ( 1.7 / 4.5) 5 Win32::Eventlog
0.370 ( 2.2 / 5.9) 5 Get the time, plus one hour (was: code cleanup)
0.358 ( 1.8 / 4.9) 6 Email this story to a friend - html to text
0.278 ( 0.8 / 2.8) 5 Converting an alphanumeric string into an integer number
101 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
54 comp.lang.perl.moderated
39 comp.lang.perl
34 comp.lang.perl.modules
5 alt.perl
5 comp.unix.shell
4 comp.infosystems.www.servers.unix
3 comp.databases.oracle.server
2 comp.answers
2 news.answers
2 alt.html
Top 10 Crossposters
===================
Articles Address
-------- -------
8 Ilya Zakharevich <ilya@math.ohio-state.edu>
7 Dan Sugalski <dan@tuatha.sidhe.org>
7 Russell Bornschlegel <kaleja@estarcion.com>
5 Malcolm Dew-Jones <yf110@victoria.tc.ca>
5 Denis Haskin <dwhaskin@earthlink.net>
5 twma <twma@maths.uwa.edu.au>
4 Simon Cozens <simon@brecon.co.uk>
4 jim@buttafuoco.org
4 "Mösl Roland" <founder@pege.org>
4 "Alan J. Flavell" <flavell@mail.cern.ch>
------------------------------
Date: Mon, 5 Jun 2000 21:28:59 +0800
From: "Swee Heng" <sweeheng@usa.net>
Subject: Re: Still a little puzzled (Was Re: Globbing with ActivePerl)
Message-Id: <8hg9k3$sl0$1@mawar.singnet.com.sg>
Swee Heng <sweeheng@usa.net> wrote in message
news:8hg76k$quk$1@mawar.singnet.com.sg...
> > Whenever I try this little program:
> > # start program scan.pl
> > while ( <> ) {
> > print "Scanning file $ARGV ...\n";
> > }
> > # end program scan.pl
>
> What is $ARGV doing there? @ARGV has nothing to do with $ARGV. And $ARGV
has
> nothing to do with $ARGV[0]. But @ARGV is related to $ARGV[i] - the latter
> being the (i+1)-th element of the former. Got it?
My sincere apologies. I should have followed the entire thread instead of
jumping into it mid-stream. I started with later versions of Perl and does
not know about the $ARGV variable in older versions. I should have let
people with more experience handle the thread of mails.
Swee Heng
------------------------------
Date: Mon, 05 Jun 2000 14:53:37 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Still a little puzzled (Was Re: Globbing with ActivePerl)
Message-Id: <MPG.13a65c19f6275d1f989710@news>
Pieter Brouwer writes ..
>I would still like to pass some kind of wildcard from the
>command-line. *.* (or *) will not do in my case, only something like
>*.xw (or someting like *.x?). I allways end up with the same
>error-message.
>
>Whenever I try this little program:
># start program scan.pl
>while ( <> ) {
> print "Scanning file $ARGV ...\n";
>}
># end program scan.pl
>
>And run it with:
>>perl scan.pl *.wx
>
>I get the message:
>Can't open *.xw: No such file or directory at scan.pl line 2.
see the problem is that the shell is not doing any globbing at all ..
the most likely reason is that ActivePerl is not passing the command
line argument to the shell for processing prior to dealing with it
itself
so instead it is passing a literal '*.xw' and that's what your Perl
script is looking for (and not finding)
the neatest way that I can see to do this is to use an eval statement
something like this should work (I'm testing in 5.005_03)
#!perl -w
use strict;
my $begin = 'while(<';
my $end = '>)
{
print "Scanning file $_ ...\n";
}
';
eval $begin. shift(). $end;
__END__
>If I change the program like this:
># start program scan.pl
>while ( <$ARGV[0]> ) {
> print "Scanning file $ARGV ...\n";
>}
># end program scan.pl
always start your scripts with
#!perl -w
use strict;
and you will be warned of use of undefined variables .. $ARGV is
meaningless in Perl unless you have a <> .. you have a <$ARGV[0]>
which is a different thing entirely from a <>
>and run it the same way, something is indeed happening, but it seems
>that I am not getting what I was hoping for. The result is that the
>filename is placed in $_ and $ARGV is empty.
of course it is .. look up the while() construct in the
documentation .. and at the <> operator documentation
perldoc perlsyn
and
perldoc perlop
and maybe even
perldoc -f glob
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Mon, 05 Jun 2000 10:24:53 -0400
From: "Martin C Dore (LMC)" <lmcmcad@lmc.ericsson.se>
Subject: Test
Message-Id: <393BB835.88A147B1@lmc.ericsson.se>
------------------------------
Date: Mon, 05 Jun 2000 16:29:40 GMT
From: greg.niemiec@per-se.com (TheGregster)
Subject: Re: Thanks - Networking Perl for NT
Message-Id: <UzQ_4.3917$vc5.317515@bgtnsc04-news.ops.worldnet.att.net>
Thanks everyone, I have enough now to get going. I appreciate you feedback.
Greg
Petri Oksanen <Petri_member@newsguy.com> wrote:
>In article <8h7u6o$6m3$1@soap.pipex.net>, "Paul says...
>>> I am having difficulty networking perl in an Windows environment.
>>> I want perl to reside on the server and I want everyone to access
>>> it including any packages that I install.
>>> Its a centralization issue and I can't seem to get the clients to
>>> work properly. Once I map the drive to the server I do a simple
>>> "Perl -V" and it can't see the libaries.
>
>> Which version of Perl? Most NT versions I've seen set registry
>> entries which indicate where the libraries are (as indicated by
>> the INC array).
>
>Isn't this what PERLLIB and the other environment variables are for?
>Why hack the registry, follow perldoc perlrun instead.
>
>
>Petri Oksanen
------------------------------
Date: Mon, 05 Jun 2000 17:51:35 +0000
From: carex <bachelart.pierre@skynet.be>
Subject: time/date calculation
Message-Id: <393BE8A7.FFB5CA9B@skynet.be>
Hello,
I have to add 2 min to a date/time value
eg. 06/03/2000 23h56 + 2min = 06/03/2000 23h58
06/03/2000 23h58 + 2min = 06/04/2000 00h00
06/30/2000 23h58 + 2min = 07/01/2000 00h00
and so on.
Which perl module is the best suited for this task ?
Many thanks.
Pierre Bachelart.
------------------------------
Date: Mon, 5 Jun 2000 10:38:02 -0700
From: "R J S" <rjs@blue-cove.com>
Subject: Typemap entry for 'int * array[]' from C to XS?
Message-Id: <sjnomgr15ri28@corp.supernews.com>
Hello,
I'm trying to write a Perl extension for a C library which takes a reference
to an array as an input parameter.
Ex:
int map_input(int map_id,int *state,int *weights[])
Running make revealed:
Error: invalid argument declaration 'int * weights[]' in iRACE.xs, line
181
Another post about trying the reverse (passing Perl array ref to C) got this
response from someone:
---
... You're better off taking a reference in
and having your code iterate through the array and explicitly snag the
double values (well, NV values) out of the array with
SvNV.
---
Which sounds like what I might have to do.
I'm hoping that someone who has run into this could post a code snippet to
outline the solution, as it is probably not that uncommon.
Thank you,
Ray Schumacher
CC: to
webmaster=>Blue-Cove"dot"com
------------------------------
Date: Mon, 5 Jun 2000 23:04:35 +0800
From: "multiplexor" <abuse@localhost>
Subject: Why read 1024?
Message-Id: <8hgf3t$lfs4@imsp212.netvigator.com>
I saw the statement "read($filename, $buffer, 1024)" in serveral HTTP upload
CGI scripts. I just want to know why 1024 is chosen. Because of physical
device? Can this value be 256, 2048, 4096, etc.?
Thanks
------------------------------
Date: Mon, 05 Jun 2000 15:41:44 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Why read 1024?
Message-Id: <393bc994.25316854@news.skynet.be>
multiplexor wrote:
>I saw the statement "read($filename, $buffer, 1024)" in serveral HTTP upload
>CGI scripts. I just want to know why 1024 is chosen.
Because disk block sizes are usually a multiple of 1024 bytes. Saving a
file in blocks of 1024 bytes is therefore more efficient than in blocks
of, say, 1000 bytes. In the latter case, the block you save will be
stored in more than one disk block, which implies two disk block
accesses instead of one.
> Because of physical
>device? Can this value be 256, 2048, 4096, etc.?
It can. It's a compromise between large blocks and too many blocks/too
many loops in your program.
--
Bart.
------------------------------
Date: Mon, 05 Jun 2000 15:51:53 GMT
From: mmfiber@my-deja.com
Subject: win32: How do i build gui app
Message-Id: <8hgiag$60c$1@nnrp1.deja.com>
Hope everyone had a great weekend
I'm looking to build a gui app around my perl script on Win NT. Which
tools make sense and if you have a preference let me know which is your
favorite.
Mike
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 05 Jun 2000 18:06:02 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: win32: How do i build gui app
Message-Id: <393BCFEA.AAFD5CAA@nospam.com>
Mike,
mmfiber@my-deja.com wrote:
> I'm looking to build a gui app around my perl script on Win NT.
> Which tools make sense and if you have a preference let me know
> which is your favorite.
Although a Win32::GUI module is provided in the ActiveState Win32 PERL
porting, my opinion is that the Tk modules can result more portable and
easy to use.
Best regards,
Marco
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3256
**************************************
