[9280] in Perl-Users-Digest
Perl-Users Digest, Issue: 2875 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 15 12:17:16 1998
Date: Mon, 15 Jun 98 09:00:24 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 15 Jun 1998 Volume: 8 Number: 2875
Today's topics:
Re: 3rd try:prob compil perl5.004_04 under SCO unix wit <bill@TechServSys.com>
Re: Certified Perl Programmers (Clinton Pierce)
Re: Command line substitution thru subdirectories <jdporter@min.net>
Re: Handling of the ASCII behavior of ^M <demaille@inf.enst.fr>
Re: Have we got a good free Perl manual? <jdporter@min.net>
Re: Help With Perl On UNIX to MS-SQL on NT scott@softbase.com
HELP WITH SOME NEWBIE HACKED CODE??? <steph@hotkey.net.au>
Help with using Time in PERL dgower@ibm.net
Re: How do I use FileHandle using array ? <tchrist@mox.perl.com>
Re: how to create a bidirectional pipe? <tchrist@mox.perl.com>
Re: How to do a non-numeric sort of a hash? <psdspss@execpc.com>
Re: I want threads, threads and more threads! <jdporter@min.net>
Re: Is this insane? (Stuart McDow)
Re: Large files (>2GB) on Solaris 2.6 (Stuart McDow)
Re: Large files (>2GB) on Solaris 2.6 (Stefan Berglund)
mod_perl newsgroup? <kmiles@erols.com>
Re: Remove repeats script in Perl <quednauf@nortel.co.uk>
Re: REVIEW: Perl CGI Programming - No Experience Requir <tchrist@mox.perl.com>
Re: REVIEW: Perl CGI Programming - No Experience Requir <prophet@skepticult.org>
Re: REVIEW: Perl CGI Programming - No Experience Requir <gnat@frii.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Jun 1998 08:10:51 -0400
From: -bill- <bill@TechServSys.com>
Subject: Re: 3rd try:prob compil perl5.004_04 under SCO unix with cc
Message-Id: <35850F4B.41C6@TechServSys.com>
I posted this twice before and either:
the question/answers scrolled
they went into hyperspace
my newsreader doesn't like me
so forgive me if you have answered this before.
or nobody loves me.......I am drowning here.
I think that this is a small problem if you could just point me in the
right direction
It would be nice if you would send me a courtesy email reply
when I get to "make" after the configure for perl5.004_04
I get the following error:
./miniperl configpm tmp
sh mv-if-diff tmp lib/Config.pm
File lib/Config.pm not changed.
AutoSplitting perl library
Making DynaLoader (static)
Making utilities
Making x2p stuff
`all' is up to date.
Making Fcntl (dynamic)
LD_RUN_PATH="" ld -o ../../lib/auto/Fcntl/Fcntl.so
-L/usr/local/lib -L/f/perl/sfio/lib Fcntl.o
undefined first referenced
symbol in file
__stat32 Fcntl.o
__fstat32 Fcntl.o
__lstat32 Fcntl.o
__statlstat32 Fcntl.o
Perl_croak Fcntl.o
errno Fcntl.o
strncmp Fcntl.o
strcmp Fcntl.o
Perl_stack_sp Fcntl.o
Perl_stack_base Fcntl.o
Perl_markstack_ptr Fcntl.o
Perl_na Fcntl.o
Perl_sv_2pv Fcntl.o
Perl_sv_2iv Fcntl.o
Perl_sv_newmortal Fcntl.o
Perl_sv_setnv Fcntl.o
Perl_Sv Fcntl.o
Perl_form Fcntl.o
perl_get_sv Fcntl.o
Perl_newXS Fcntl.o
Perl_sv_yes Fcntl.o
i386ld fatal: Symbol referencing errors. No output written to
../../lib/auto/Fcntl/Fcntl.so
*** Error code 13 (bu21)
*** Error code 1 (bu21)
--
-bill-
Technical Service Systems - bill@TechServSys.com
------------------------------
Date: 15 Jun 1998 12:24:13 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
Subject: Re: Certified Perl Programmers
Message-Id: <6m33pd$f1j1@eccws1.dearborn.ford.com>
In article <6lv6k9$3i1@sjx-ixn9.ix.netcom.com>,
jeff@yoak.com (Jeff Yoak) writes:
>abigail@fnx.com (Abigail) wrote:
>
>>Mark-Jason Dominus (mjd@op.net) wrote on MDCCXLVII September MCMXCIII in
>><URL: news:6lsk5k$hba$1@monet.op.net>:
>>++ In article <1998061223230300.TAA21653@ladder01.news.aol.com>,
>>++ Bbirthisel <bbirthisel@aol.com> wrote:
>>++ >You should make it downloadable from CPAN and indicate where to find
>>++ >it in the FAQ. That would establish a suitable skill set - since anyone who
>>++ >couldn't do that probably shouldn't have one.
>>++
>>++ But I want everyone to have one!
>
>
>>Well, you could write a program that harvests email addresses, and then
>>sends certificates to those addresses....
>
>But what about people who munge their addresses? Shouldn't they be
>able to be Perl certified?
Sure! We'll just munge the name on the Certificate.
--ClintonNOSPAMPierce
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: Mon, 15 Jun 1998 14:04:57 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Command line substitution thru subdirectories
Message-Id: <35852BD8.1CC1@min.net>
Jonathan Stowe wrote:
>
> the IBM AT I gave to my brother some
> years ago had most of the things that I needed for my toolbox and when
> I needed another tool I stole a C compiler and wrote another etc
Right. For the longest time, all (most?) unix systems came with
a C compiler; it was the meta-tool. Shoot, ya think AT&T created all
the tools that people would ever need to use Unix productively? No,
they (the Labs guys) were wiser than that. It was understood that
users would need to, at some time or other, make their own tools.
And that's why it's part of the Unix culture -- or perhaps I should
say the Open culture.
And that's why we have these two fundamentally different cultures:
those systems which foster user-created tools and apps, and those
(including many modern unices) which don't.
It's interesting to note that Big Blue was in the former camp --
as I suppose were all computer makers up until, oh, 1970...
Some interesting Op-Ed pieces in a recent Washington Post:
http://www.washingtonpost.com/wp-srv/WPlate/m-outlook.html#ARTICLESINSDE
John Porter
------------------------------
Date: 15 Jun 1998 15:08:12 +0200
From: Akim Demaille <demaille@inf.enst.fr>
Subject: Re: Handling of the ASCII behavior of ^M
Message-Id: <qyln2bedd8j.fsf@gargantua.enst.fr>
>>>>> "MJ" == Mark-Jason Dominus <mjd@op.net> writes:
MJ> In article <qylium79bvq.fsf@ubu.enst.fr>, Akim Demaille
MJ> <demaille@inf.enst.fr> wrote:
>> I wanted to write a small snippet that handles ^M by going back to
>> the beginning of the line, and superimposing the next line on it.
>>
>> I fell down to this:
>>
>> [Mess] Has somebody got a better idea?
while (<>) {
chomp;
my @sublines = split /\cM/, $_;
my $out_line = shift @sublines;
while (@sublines) {
my $next_subline = shift @sublines;
substr($out_line, 0, length $next_subline) = $next_subline;
}
print $out_line, "\n";
}
MJ> I guess if this program has a key point, it's the `substr' line.
MJ> But the real success here is because the control flow in the
MJ> program matches the structure of the input.
MJ> Thanks for making your question so clear. When I saw your subject
MJ> line, I was expecting not to be able to make sense of what you
MJ> wanted, but when I read the article I was pleasantly surprised.
Thanks, but it looks like the explanation were not detailed enough :)
The point is also that the spaces must more erase what was previously
printed (it is meant to simulate what a line printer does).
For example
A^M B^M C
should give
ABC
I guess the script you propose, once fixed to handle the special case
of ` ' does the same thing as the one I proposed:
#! /usr/local/bin/perl -w
while (<>)
{
chop;
@lines = ("")
unless (@lines = split ("\r"));
while ($#lines)
{
$added = pop (@lines);
$lines[0] .= " " x (length ($added) - length ($lines[0]));
for (my $cur = 0 ; $cur <= length ($added) ; $cur += 1)
{
substr ($lines[0], $cur, 1) = substr ($added, $cur, 1)
if (substr ($added, $cur, 1) ne ' ');
}
}
print "$lines[0]\n";
}
Anyhow, thanks a lot!
Akim
--
P-mail: Akim Demaille, 107 rue Bobillot, F-75013 Paris, France
E-mail: demaille@inf.enst.fr
V-mail: +33 1 45 81 78 68
------------------------------
Date: Mon, 15 Jun 1998 15:26:13 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Have we got a good free Perl manual?
Message-Id: <35853EE4.1307@min.net>
Leslie Mikesell wrote:
>
> You just have to realize that they may never be
> done and unlike the normal customer/vendor relationship the number
> of people who need something has absolutely no influence on whether
> it will be done.
Nor even the stature of one eminent person who DEMANDS it.
John Porter
------------------------------
Date: 15 Jun 1998 11:18:42 GMT
From: scott@softbase.com
Subject: Re: Help With Perl On UNIX to MS-SQL on NT
Message-Id: <6m2vui$c49$3@mainsrv.main.nc.us>
Neville Jennings (nj2@soton.ac.uk) wrote:
> I want to be able to communicate with an MS-SQL Server running under
> NT from perl scripts running on a Solaris box.
That's sad. Using networked databases from UNIX -> NT is almost
impossible, while the reverse is usually trivial. Basically, Intersolv
has a stranglehold on high-end UNIX ODBC, and they charge insane,
ridiculous amounts of money for ODBC drivers. If you have deep
pockets, things could be easy. But if you want a cheap solution, forget
it. (The reverse is trivial because Intersolv doesn't have a
stranglehold on Win32 drivers -- they're a dime a dozen, even
sophisticated networked ones that connect to high-end UNIX and NT
databases.)
The easiest thing to do is to create a server process on the NT
machine that is basically just a passthrough -- you write your
dynamic SQL statements to it, it reads them and hands them
off to the database, and it reads the results and prints
them back to you.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Tue, 16 Jun 1998 01:53:30 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: HELP WITH SOME NEWBIE HACKED CODE???
Message-Id: <3585437A.4D64@hotkey.net.au>
Hi All,
I have a quaestion about the following code:
sub get_data
{
$how_much=11;
open(FILE,"<$dat_file") or die "can't open $dat_file";
while ($line = <FILE>) {
(@dat_recs) = split(",", $line);
$stat_bar++;
foreach $page_counts (@page_counts) {
if ($dat_recs[3] == $page_counts) {
$to_be_sorted{$page_counts}++;
next;
}
}
if ($stat_bar > ($FORM{'montot'} / $how_much)) {
print "* ";
$stat_bar=0;
}
}
close (FILE);
}
My problem is with the last 'if' statement. What I think should happen
is every time the condition is met(10 times all up), the script spews
out '* ' to STDOUT.
What actually happens is it spews out 10 '* ' all at once, and not 1 at
a time as I would expect. Can someone tell me why this is so?
Anyones help is much appreciated.
________________________________________________
Stephan Carydakis steph@hotkey.net.au
"Missed it by that much" -- Agent 86 of Control
________________________________________________
------------------------------
Date: Mon, 15 Jun 1998 15:17:17 GMT
From: dgower@ibm.net
Subject: Help with using Time in PERL
Message-Id: <6m3dtt$i41$1@nnrp1.dejanews.com>
Hello-
I am trying to make a script that will rotate images depending on the day
of the week(MON,TUE,etc). If anyone knows of a script like this that already
exists let me know, if not I will keep trying, but maybe you can help me with
this problem. When using the following
use Time::gmtime;
$gm = gmtime();
printf "The day in Greenwich is %s\n",
(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ gm->wday() ];
I get the following error:
Undefined subroutine &main::gm_wday called at C:\work\cgi-bin\img.tmp line 4.
This is only step one in making such a script, but any help would be
appreciated.
-David...
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 15 Jun 1998 13:03:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How do I use FileHandle using array ?
Message-Id: <6m363l$6r4$2@csnews.cs.colorado.edu>
Keywords: FileHandle
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Youngjin Roh <yroh@samsung.co.kr> writes:
:I want to open 20 files for writing to by using array filehandle.
:
:How do I use file handle?
By reading the happy FAQ.
:
:I tried this
:
:
:use FileHandle;
:
:@A=( "qwe1", "qwe2", "qwe3");
:for $i (0..2) {
: open( $FH[$i], "> $A[$i]");
:}
:
:for $i (0..2) {
: print $FH[$i] "test $i\n";
:}
:
:
:It shows syntax error.
:Files seems to open for writing, but how can I write ???
This is a FAQ. I wish you'd read it. :-(
=head1 NAME
perlfaq5 - Files and Formats ($Revision: 1.22 $, $Date: 1997/04/24 22:44:02 $)
=head1 DESCRIPTION
This section deals with I/O and the "f" issues: filehandles, flushing,
formats, and footers.
=head2 How can I make a filehandle local to a subroutine? How do I pass filehandles between subroutines? How do I make an array of filehandles?
The fastest, simplest, and most direct way is to localize the typeglob
of the filehandle in question:
local *TmpHandle;
Typeglobs are fast (especially compared with the alternatives) and
reasonably easy to use, but they also have one subtle drawback. If you
had, for example, a function named TmpHandle(), or a variable named
%TmpHandle, you just hid it from yourself.
sub findme {
local *HostFile;
open(HostFile, "</etc/hosts") or die "no /etc/hosts: $!";
local $_; # <- VERY IMPORTANT
while (<HostFile>) {
print if /\b127\.(0\.0\.)?1\b/;
}
# *HostFile automatically closes/disappears here
}
Here's how to use this in a loop to open and store a bunch of
filehandles. We'll use as values of the hash an ordered
pair to make it easy to sort the hash in insertion order.
@names = qw(motd termcap passwd hosts);
my $i = 0;
foreach $filename (@names) {
local *FH;
open(FH, "/etc/$filename") || die "$filename: $!";
$file{$filename} = [ $i++, *FH ];
}
# Using the filehandles in the array
foreach $name (sort { $file{$a}[0] <=> $file{$b}[0] } keys %file) {
my $fh = $file{$name}[1];
my $line = <$fh>;
print "$name $. $line";
}
If you want to create many, anonymous handles, you should check out the
Symbol, FileHandle, or IO::Handle (etc.) modules. Here's the equivalent
code with Symbol::gensym, which is reasonably light-weight:
foreach $filename (@names) {
use Symbol;
my $fh = gensym();
open($fh, "/etc/$filename") || die "open /etc/$filename: $!";
$file{$filename} = [ $i++, $fh ];
}
Or here using the semi-object-oriented FileHandle, which certainly isn't
light-weight:
use FileHandle;
foreach $filename (@names) {
my $fh = FileHandle->new("/etc/$filename") or die "$filename: $!";
$file{$filename} = [ $i++, $fh ];
}
Please understand that whether the filehandle happens to be a (probably
localized) typeglob or an anonymous handle from one of the modules,
in no way affects the bizarre rules for managing indirect handles.
See the next question.
=head2 How can I use a filehandle indirectly?
An indirect filehandle is using something other than a symbol
in a place that a filehandle is expected. Here are ways
to get those:
$fh = SOME_FH; # bareword is strict-subs hostile
$fh = "SOME_FH"; # strict-refs hostile; same package only
$fh = *SOME_FH; # typeglob
$fh = \*SOME_FH; # ref to typeglob (bless-able)
$fh = *SOME_FH{IO}; # blessed IO::Handle from *SOME_FH typeglob
Or to use the C<new> method from the FileHandle or IO modules to
create an anonymous filehandle, store that in a scalar variable,
and use it as though it were a normal filehandle.
use FileHandle;
$fh = FileHandle->new();
use IO::Handle; # 5.004 or higher
$fh = IO::Handle->new();
Then use any of those as you would a normal filehandle. Anywhere that
Perl is expecting a filehandle, an indirect filehandle may be used
instead. An indirect filehandle is just a scalar variable that contains
a filehandle. Functions like C<print>, C<open>, C<seek>, or the functions or
the C<E<lt>FHE<gt>> diamond operator will accept either a read filehandle
or a scalar variable containing one:
($ifh, $ofh, $efh) = (*STDIN, *STDOUT, *STDERR);
print $ofh "Type it: ";
$got = <$ifh>
print $efh "What was that: $got";
Of you're passing a filehandle to a function, you can write
the function in two ways:
sub accept_fh {
my $fh = shift;
print $fh "Sending to indirect filehandle\n";
}
Or it can localize a typeglob and use the filehandle directly:
sub accept_fh {
local *FH = shift;
print FH "Sending to localized filehandle\n";
}
Both styles work with either objects or typeglobs of real filehandles.
(They might also work with strings under some circumstances, but this
is risky.)
accept_fh(*STDOUT);
accept_fh($handle);
In the examples above, we assigned the filehandle to a scalar variable
before using it. That is because only simple scalar variables,
not expressions or subscripts into hashes or arrays, can be used with
built-ins like C<print>, C<printf>, or the diamond operator. These are
illegal and won't even compile:
@fd = (*STDIN, *STDOUT, *STDERR);
print $fd[1] "Type it: "; # WRONG
$got = <$fd[0]> # WRONG
print $fd[2] "What was that: $got"; # WRONG
With C<print> and C<printf>, you get around this by using a block and
an expression where you would place the filehandle:
print { $fd[1] } "funny stuff\n";
printf { $fd[1] } "Pity the poor %x.\n", 3_735_928_559;
# Pity the poor deadbeef.
That block is a proper block like any other, so you can put more
complicated code there. This sends the message out to one of two places:
$ok = -x "/bin/cat";
print { $ok ? $fd[1] : $fd[2] } "cat stat $ok\n";
print { $fd[ 1+ ($ok || 0) ] } "cat stat $ok\n";
This approach of treating C<print> and C<printf> like object methods
calls doesn't work for the diamond operator. That's because it's a
real operator, not just a function with a comma-less argument. Assuming
you've been storing typeglobs in your structure as we did above, you
can use the built-in function named C<readline> to reads a record just
as C<E<lt>E<gt>> does. Given the initialization shown above for @fd, this
would work, but only because readline() require a typeglob. It doesn't
work with objects or strings, which might be a bug we haven't fixed yet.
$got = readline($fd[0]);
Let it be noted that the flakiness of indirect filehandles is not
related to whether they're strings, typeglobs, objects, or anything else.
It's the syntax of the fundamental operators. Playing the object
game doesn't help you at all here.
--
Ask Ken. He hates Everything.
------------------------------
Date: 15 Jun 1998 13:04:26 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: how to create a bidirectional pipe?
Message-Id: <6m364q$6r4$3@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
dennis@info4.csie.nctu.edu.tw (GEMINI) writes:
:hi all,
: in my perl program, I'd like to build
:a bidirectional pipe with another program.
:but I only know how to create one-direction pipe by
:"| prog" or "prog |".
:
:In another word, I wish to read another program's output by
:<P>, and to generate another program's input by print P...
The FAQ knows. Hell, so does the standard docset. Please read.
--tom
--
I already have too much problem with people thinking the efficiency of
a perl construct is related to its length. On the other hand, I'm
perfectly capable of changing my mind next week... :-) --lwall
------------------------------
Date: Mon, 15 Jun 1998 09:49:10 -0500
From: Deva Seetharam <psdspss@execpc.com>
Subject: Re: How to do a non-numeric sort of a hash?
Message-Id: <35853465.E7AA02E2@execpc.com>
Jeffery Cann wrote:
> Greetings.
>
> I have a hash with the following data:
>
> $hash{0} = "cabs/G,Cabooses: G Gauge";
> $hash{1} = "cabs/HO,Cabooses: HO Gauge";
> $hash{2} = "cabs/HOn3,Cabooses: HOn3 Gauge";
> $hash{3} = "cabs/LGB,Cabooses: LGB Gauge";
>
> When I use the following code to numerically sort the hash by value:
>
> foreach $key (sort { $hash{$b} cmp $hash{$a} } keys %hash) {
> printf "%4d %s\n", $hash{$key}, $key;
> }
>
> The output is not sorted correctly:
>
> 0 cabs/G,Cabooses: G Gauge
> 2 cabs/HOn3,Cabooses: HOn3 Gauge
> 1 cabs/HO,Cabooses: HO Gauge
> 3 cabs/LGB,Cabooses: LGB Gauge
>
> How can I sort correcly this data by the hash value?
>
foreach $key (sort { $a >$b } keys %hash) { printf "%4d
%s\n",$key, $hash{$key};
}
Output will be in ascending order(numeric) of keys.
As shown below.
0 cabs/G,Cabooses: G Gauge
1 cabs/HO,Cabooses: HO Gauge
2 cabs/HOn3,Cabooses: HOn3 Gauge
3 cabs/LGB,Cabooses: LGB Gauge
Also check your printf control string.
%4d for keys
%s for values
Hope that helps
Deva
> --
> +--------------------------+-------------------------+
> | Jeffery Cann | This message sent from |
> | JCDS Managing Developer | a Linux Workstation |
> +--------------------------+-------------------------+
> http://www.netcom.com/~jcds
------------------------------
Date: Mon, 15 Jun 1998 13:08:13 GMT
From: John Porter <jdporter@min.net>
Subject: Re: I want threads, threads and more threads!
Message-Id: <35851E8D.65A@min.net>
Robert Lee wrote:
>
> > >On Thu, 11 Jun 1998, John Porter wrote:
> > >> Umm, have you considered the SysV IPC routines? msg*, shm*, sem* ???
>
> I think threads are a much better way of doing things than
> using IPC shared memory, etc. having used IPC for many years.
Using light-weight processes only obviates the need for the shm*
routines; you still need semaphores (or something equivalent).
John Porter
------------------------------
Date: 15 Jun 1998 13:57:23 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: Is this insane?
Message-Id: <6m3983$r5j$1@ns1.arlut.utexas.edu>
steve@vertigan.iinet.net.au (Steve Vertigan) writes:
>
> ... an ISP that's running NT with IIS 4.0 and nothing else.
Oh, simple. Your client has a broken ISP. You should recommend that
they replace it with one that works.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: 15 Jun 1998 14:33:29 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: Large files (>2GB) on Solaris 2.6
Message-Id: <6m3bbp$dr4$1@ns1.arlut.utexas.edu>
Barry Roomberg <broom@voicenet.com> writes:
> Issue:
> Large file access (>2GB) via PERL on Solaris 2.6.
This might be a system limitation (nothing to do with perl). Maximum
file size is 2GB under Solaris 2.5.1. Haven't checked on 2.6 yet.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: 15 Jun 1998 15:02:10 GMT
From: emwsbl@emw.ericsson.se (Stefan Berglund)
Subject: Re: Large files (>2GB) on Solaris 2.6
Message-Id: <6m3d1i$8am$1@news.emw.ericsson.se>
Barry Roomberg (broom@voicenet.com) wrote:
: Issue:
: Large file access (>2GB) via PERL on Solaris 2.6.
Have you checked the limits? Try calling limit at the commandline.
Also check the limit man page.
--
/Stefan
Stefan.Berglund@emw.ericsson.se
f94stbe@dd.chalmers.se
http://www.dd.chalmers.se/~f94stbe
Life - the ultimate practical joke
------------------------------
Date: Mon, 15 Jun 1998 11:10:24 -0400
From: Kevin Miles <kmiles@erols.com>
Subject: mod_perl newsgroup?
Message-Id: <35853960.BDD9FB1E@erols.com>
Sorry for the mispost, but which newsgroup is most appropriate for
mod_perl questions?
Thanks in advance.
------------------------------
Date: Mon, 15 Jun 1998 14:58:06 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Remove repeats script in Perl
Message-Id: <3585286E.A5412B43@nortel.co.uk>
Kristien wrote:
>
> Hi!
>
> This is the first time I post a message in this newsgroup. Sorry if I
> am breaking any rules. My question is, does anyone know how to write a
> script in Perl that removes blocks of repeated texts in huge text
> files (of about 30 MB or more)?
There has been a very recent thread on removing duplicate lines from a file (i
am sure it is still on on some servers, not here, though). Otherwise, check
dejanews and search for 'duplicate lines perl'.
However, you are looking not at lines but whole passages. Are there any marks
that can be used to subdivide the text? I mean, otherwise you might end up
leaving the first 'the' and removing all others. How are those repeated texts
defined? Are they on their own, separated by "\n"'s?
http://www.dc.ee/Files/Programm.Packing
Above address has got a collection of files regarding data compression, with a
very nice one (LZWEXP.ARJ), explaining the Lempel-Ziv Welch compression
algorithm which is based on reducing file size by finding duplicate strings.
Check it out! I sort of understood it, haven't finished reading yet, though...
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 15 Jun 1998 12:57:16 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <6m35nc$6r4$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
:In what other situations does the difference make a, um, difference?
:In other words, when does having the misconception "lists are arrays"
:screw me? (Serious question, not a "snap.")
$r = \@a;
$r = \("this", "is", "not", "an", "array");
@R = \@a;
@R = \("this", "is", "not", "an", "array");
return @a;
return("this", "is", "not", "an", "array");
$r = \@a[1,4];
@R = \@a[1,4];
$r = \values(%h);
@R = \values(%h);
$r = \@h{keys %h};
@R = @h{keys %h};
foreach $v (values %h) { .... }
foreach $v (@h{keys %h}) { .... }
--tom
--
------------------------------
Date: Mon, 15 Jun 1998 14:24:13 GMT
From: Jon Walsh <prophet@skepticult.org>
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <m3ogvu219f.fsf@tittymonster.skepticult.org>
mjd@op.net (Mark-Jason Dominus) writes:
> In article <35829de6.5684792@news.btinternet.com>,
> Jonathan Stowe <Gellyfish@btinternet.com> wrote:
> >Given the stated enterprise of this book and other similar ones I am
> >surprised that they dont ever advocate the use of the available CGI
> >libraries. But there you go.
>
> Maybe they're written by people with no experience.
Actually, I have one book that does just the opposite. It leaves
out instructions on parsing forms and such _without_ the cgi addons.
Highly annoying.
--
Sir Dr. Jon "Big Dave" Walsh, Bsd. | Email : <prophet@skepticult.org>
Certified Psychic and Healtheologist | WWW : http://www.skepticult.org
True/False Prophet and Fearless Leader | IRC : Undernet #skepticult
SKEP-TI-CULT=AE Worldwide Cabal | Usenet: alt.fan.bruce-kettler
------------------------------
Date: 15 Jun 1998 07:55:32 -0600
From: Nathan Torkington <gnat@frii.com>
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <5q67i2n50r.fsf@prometheus.frii.com>
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> In what other situations does the difference make a, um, difference?
> In other words, when does having the misconception "lists are arrays"
> screw me? (Serious question, not a "snap.")
sub screw_you {
if (@_) {
return ("this", "is", "a", "list");
} else {
my @a = ( "this", "is", "an", "array" );
return @a;
}
}
$a = screw_you();
$b = screw_you( "dear" );
print "$a\n$b\n";
__END__
This prints
list
4
Lists and arrays are not interchangable.
Nat
------------------------------
Date: 15 Jun 1998 15:18:36 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6m3e0c$46h$8@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 08 Jun 1998 15:01:16 GMT and ending at
15 Jun 1998 13:08:13 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" e-mail 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) 1998 Greg Bacon. All Rights Reserved.
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\@mox\.perl\.com
Totals
======
Posters: 565
Articles: 1639 (693 with cutlined signatures)
Threads: 448
Volume generated: 2773.2 kb
- headers: 1137.6 kb (22,866 lines)
- bodies: 1499.0 kb (46,936 lines)
- original: 1049.8 kb (35,105 lines)
- signatures: 135.0 kb (2,697 lines)
Original Content Rating: 0.700
Averages
========
Posts per poster: 2.9
median: 1 post
mode: 1 post - 349 posters
s: 7.6 posts
Posts per thread: 3.7
median: 2.0 posts
mode: 1 post - 133 threads
s: 5.3 posts
Message size: 1732.6 bytes
- header: 710.7 bytes (14.0 lines)
- body: 936.5 bytes (28.6 lines)
- original: 655.9 bytes (21.4 lines)
- signature: 84.3 bytes (1.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
128 251.8 (102.3/134.3/108.3) tchrist@mox.perl.com (Tom Christiansen)
75 110.9 ( 58.3/ 37.5/ 25.0) Tom Phoenix <rootbeer@teleport.com>
55 88.0 ( 36.5/ 51.4/ 28.6) Gellyfish@btinternet.com (Jonathan Stowe)
30 62.9 ( 24.8/ 33.0/ 12.8) abigail@fnx.com
30 35.8 ( 22.5/ 13.3/ 6.2) jdporter@min.net
25 41.9 ( 15.3/ 26.6/ 21.4) mjd@op.net (Mark-Jason Dominus)
24 45.6 ( 17.3/ 28.3/ 14.3) bowlin@sirius.com
20 31.5 ( 13.3/ 18.2/ 10.8) stanley@skyking.OCE.ORST.EDU (John Stanley)
19 36.4 ( 10.9/ 19.6/ 13.1) mike@stok.co.uk (Mike Stok)
18 24.7 ( 12.3/ 10.3/ 7.3) "F.Quednau" <quednauf@nortel.co.uk>
These posters accounted for 25.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
251.8 (102.3/134.3/108.3) 128 tchrist@mox.perl.com (Tom Christiansen)
110.9 ( 58.3/ 37.5/ 25.0) 75 Tom Phoenix <rootbeer@teleport.com>
88.0 ( 36.5/ 51.4/ 28.6) 55 Gellyfish@btinternet.com (Jonathan Stowe)
62.9 ( 24.8/ 33.0/ 12.8) 30 abigail@fnx.com
45.6 ( 17.3/ 28.3/ 14.3) 24 bowlin@sirius.com
41.9 ( 15.3/ 26.6/ 21.4) 25 mjd@op.net (Mark-Jason Dominus)
36.4 ( 10.9/ 19.6/ 13.1) 19 mike@stok.co.uk (Mike Stok)
35.8 ( 22.5/ 13.3/ 6.2) 30 jdporter@min.net
32.6 ( 7.3/ 25.3/ 11.0) 11 lehman@visi.com (Todd Lehman)
32.2 ( 12.1/ 16.4/ 12.6) 18 mgjv@comdyn.com.au (Martien Verbruggen)
These posters accounted for 26.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.0 / 3.0) 5 orwant@media.mit.edu
1.000 ( 0.9 / 0.9) 6 "Vincent M. Probasco" <probavm@cat.com>
0.995 ( 11.4 / 11.4) 13 pudge@pobox.com (Chris Nandor)
0.994 ( 13.0 / 13.1) 18 gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
0.939 ( 9.6 / 10.2) 10 "Allan M. Due" <due@murray.fordham.edu>
0.902 ( 4.8 / 5.3) 7 Quentin Fennessy <quentin@shaddam.amd.com>
0.899 ( 17.3 / 19.2) 14 Nathan Torkington <gnat@frii.com>
0.883 ( 5.5 / 6.2) 5 cmreynolds@hotmail.com (Chris Reynolds)
0.837 ( 13.9 / 16.6) 14 Greg Bacon <gbacon@cs.uah.edu>
0.828 ( 7.3 / 8.8) 7 scott@softbase.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.472 ( 3.2 / 6.8) 10 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.464 ( 6.2 / 13.3) 30 jdporter@min.net
0.445 ( 4.5 / 10.1) 12 kpreid@ibm.net (Kevin Reid)
0.434 ( 11.0 / 25.3) 11 lehman@visi.com (Todd Lehman)
0.431 ( 3.1 / 7.2) 5 David Kastrup <dak@mailhost.neuroinformatik.ruhr-uni-bochum.de>
0.387 ( 12.8 / 33.0) 30 abigail@fnx.com
0.377 ( 4.2 / 11.1) 15 "John Bokma" <john@castleamber.com>
0.334 ( 1.6 / 4.8) 7 "Gary L. Burnore" <gburnore@primenet.com>
0.287 ( 3.1 / 10.9) 10 ced@bcstec.ca.boeing.com (Charles DeRykus)
0.264 ( 4.5 / 17.1) 7 Deva Seetharam <psdspss@execpc.com>
63 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
69 Command line substitution thru subdirectories
43 Have we got a good free Perl manual?
41 Certified Perl Programmers
30 [META] hypersensitivity
23 McCabe complexity analysis
20 MODERATION: Time to Vote
20 CFV: comp.lang.perl.moderated moderated
18 Prob in FAQ: Week of the year
17 Number of digits in a string
17 REVIEW: Perl CGI Programming - No Experience Required
These threads accounted for 18.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
121.8 ( 55.2/ 63.0/ 41.0) 69 Command line substitution thru subdirectories
114.0 ( 36.3/ 73.4/ 37.2) 43 Have we got a good free Perl manual?
62.3 ( 30.5/ 28.2/ 17.2) 41 Certified Perl Programmers
60.0 ( 23.8/ 32.5/ 20.0) 30 [META] hypersensitivity
43.0 ( 13.7/ 27.8/ 21.0) 20 CFV: comp.lang.perl.moderated moderated
36.2 ( 17.4/ 16.5/ 11.3) 23 McCabe complexity analysis
33.7 ( 12.4/ 20.4/ 15.9) 17 REVIEW: Perl CGI Programming - No Experience Required
29.8 ( 11.0/ 17.5/ 14.1) 14 New module/pragma "enum.pm" (was "fields.pm")
29.6 ( 6.3/ 10.8/ 7.7) 8 $a: numeric or NOT ?
28.1 ( 14.6/ 11.2/ 6.8) 20 MODERATION: Time to Vote
These threads accounted for 20.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.916 ( 8.5/ 9.3) 5 flock on Win32
0.865 ( 3.5/ 4.0) 6 removing dups from a file
0.851 ( 1.7/ 2.0) 5 ceil or trunc
0.832 ( 9.1/ 11.0) 11 Return characters from a string
0.809 ( 7.9/ 9.8) 13 pack/unpack seps
0.804 ( 14.1/ 17.5) 14 New module/pragma "enum.pm" (was "fields.pm")
0.796 ( 13.5/ 17.0) 8 Puzzle challenge (clarified)
0.789 ( 3.8/ 4.8) 7 perl math accuracy
0.782 ( 9.5/ 12.1) 9 Need to plot charts (gif format ?) from ascii data
0.782 ( 15.9/ 20.4) 17 REVIEW: Perl CGI Programming - No Experience Required
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.507 ( 1.5 / 2.9) 5 perl and NT Registrary access
0.501 ( 3.2 / 6.4) 10 Capitalizing acronyms (Re: Is PERL case sensitive?)
0.495 ( 2.7 / 5.4) 9 access to a hash of lists
0.485 ( 4.0 / 8.3) 15 print <<EOT; problems
0.485 ( 1.7 / 3.6) 5 efficient comparisons
0.454 ( 4.5 / 10.0) 10 Read the last record in a file
0.453 ( 3.3 / 7.3) 9 Perl Books?
0.408 ( 3.7 / 9.0) 11 Eval questions.
0.399 ( 1.1 / 2.7) 6 Sorry for seperate posts
0.391 ( 4.0 / 10.3) 8 Regex Help!
90 threads (20%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
44 comp.lang.perl.modules
43 gnu.misc.discuss
18 comp.lang.perl
10 comp.programming
9 comp.lang.perl.misc
7 de.comp.lang.perl
6 news.groups
5 misc.comp.lang.mopdules
5 comp.lang.perl.tk
5 comp.unix.questions
Top 10 Crossposters
===================
Articles Address
-------- -------
11 "Manfred Schneider" <manfred.schneider@rhein-neckar.de>
9 hex@voicenet.com (Matt Knecht)
8 Patty <pg@simplynet.net>
8 Gellyfish@btinternet.com (Jonathan Stowe)
7 tchrist@mox.perl.com (Tom Christiansen)
7 Barry Margolin <barmar@bbnplanet.com>
7 lehman@visi.com (Todd Lehman)
7 cmreynolds@hotmail.com (Chris Reynolds)
7 davidg@mcny.com
7 ari@secondmind.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 2875
**************************************
