[11978] in Perl-Users-Digest
Perl-Users Digest, Issue: 5578 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 6 05:07:17 1999
Date: Thu, 6 May 99 02:00:20 -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 Thu, 6 May 1999 Volume: 8 Number: 5578
Today's topics:
Re: ==> REGEX, how do I use a variable as a seach patte (Bart Lateur)
Re: anyone want to shoot uncle bill for me? (Bart Lateur)
Re: capture output from another script? (Marc Haber)
Re: cheap perl scripts (David Cantrell)
Detecting screen resolution... <jbdross@club-internet.fr>
Finding terminating periods in nonwhitespace parts of a (Adam Booth)
Re: Generate more than one page with one script <design@raincloud-studios.com>
Re: Generating method call from a string simon@whitestar99.demon.co.uk
Get Lost. This is off topic in every group you've poste <svandong@uniserve.com>
Re: grep to scalar instead of variable?, subroutine exi <design@raincloud-studios.com>
Re: having problems getting this script to work... (Bart Lateur)
Help !!! <ian@epages.net>
Re: Help using message boards <design@raincloud-studios.com>
Re: HTTP_REFERER (Ethan H. Poole)
Re: I can not use cgi in my Hypermart account. <thrnsoft@globalsite.net>
Re: Making executables from .pl files? <rra@stanford.edu>
Multiple site_perl directories <jlarke@ans.net>
Re: Newbie having problems getting this script to work. (Robert White)
Re: OReilly bullshit.... Camel logo trademark <rra@stanford.edu>
Re: OReilly bullshit.... Camel logo trademark (David Cantrell)
Re: OReilly bullshit.... Camel logo trademark (Sam Holden)
Re: regexp for matching IP address block (Bart Lateur)
side effect of 'use integer'? (GEMINI)
Re: side effect of 'use integer'? <uri@sysarch.com>
sorting problem solve with Perl <fmee@lfi.uni-hannover.de>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 06 May 1999 07:42:17 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: ==> REGEX, how do I use a variable as a seach pattern
Message-Id: <37374547.5208098@news.skynet.be>
Kevin Howe wrote:
>$string = "<-this-> blah blah blah <+that+>";
>
>$search= "<-(*.?)->|<+(*.?)+>";
>
>$string =~ s/$search/hello/gi;
>----------------------------------------------------------
>
>$string would equal "<-hello-> blah blah blah <+hello+>";
Your string contains unquoted metacharacters: "+". You want to use '\+'
in the pattern. Remember, and this is a serious pitfall, that you have
to DOUBLE those backslashes. After all, when you print out the variable
containing the pattern, it should look exactly as what you would have
typed in directly. You want it to look like '\+', so you need to insert
"\\+".
$search= "<-(*.?)->|<\\+(*.?)\\+>";
That's the general rule. For this specific case, reconsider Tad
McClellan's alternative.
Bart.
------------------------------
Date: Thu, 06 May 1999 07:42:15 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: anyone want to shoot uncle bill for me?
Message-Id: <373644cb.5084132@news.skynet.be>
Uri Guttman wrote:
>my boss knows what i did and is ok with it.
You're boss knows you asked us to kill "bill"?
Bart.
------------------------------
Date: Thu, 06 May 1999 07:32:18 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: Re: capture output from another script?
Message-Id: <7grgi3$2ba$2@news.rz.uni-karlsruhe.de>
lamj@softhome.net wrote:
>I am writing two perl scripts, the first one execute the second and the
>second script will output results to the screen. I know I can use
>system(argument); to execute the second script but is there anyway I can
>capture the results that is printed to the screen by the second scripts?
perldoc -f open.
Gr|_e
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: Thu, 06 May 1999 08:49:58 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: cheap perl scripts
Message-Id: <3732578f.56445033@news.insnet.net>
On Thu, 22 Apr 1999 15:31:37 GMT, pejman@pejman.com enlightened us
thusly:
>I am looking for somebody, who can write me some small perl scripts
>for small amount of money. Please let me know if you are interested
>or if you know somebody who is willing to do that.
Let me know what you want done then. And also let me know how small a
'small amount of money' is. Gotta make it worth my while ;-)
[Copying newsgroup posts to me by mail is considered rude]
--
David Cantrell, part-time Unix/perl/SQL/java techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: Thu, 06 May 1999 10:47:16 +0200
From: JB / MDO <jbdross@club-internet.fr>
Subject: Detecting screen resolution...
Message-Id: <37315714.93D05F19@club-internet.fr>
Can somenone please help me ?
Or just give me a hint....
TIA
MDO
------------------------------
Date: Thu, 06 May 99 06:25:14 GMT
From: heywood@zip.com.au (Adam Booth)
Subject: Finding terminating periods in nonwhitespace parts of a string
Message-Id: <7grg91$54d$1@the-fly.zip.com.au>
Hi,
I've been playing around trying to find a nice way to take a url and change it
into a link.
What I came up with was
~= s#(http://)(\S+)#<A href="$1$2">$2</A>
it does the job except if the url to be decoded was in a string such as
I found it at http://www.elephant.com/peanuts.
I would like to be able to strip the period from the part that goes in the
href
Is there something that is the equivalent of \B for groups of characters
separated by whitespaces?
I have a feeling that something like would do the trick
~= s#(http://)(\.\B)(\S+)#<A href="$1$2">$2</A>$3
Thanks,
Adam
------------------------------
Date: Thu, 06 May 1999 06:59:52 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: Generate more than one page with one script
Message-Id: <I5bY2.1924$iu1.1782@news.rdc1.tn.home.com>
Edouard PAVIS wrote in message <372F3C9F.DDE76223@silicomp.com>...
>A user must be identified (login, passwd) in order to send a cookie to him
>with the second page.
>
>Script's summary :
<snip>
>The page2 is never create, perharps because the 1 is never delete...
You need to learn about the 'state' properties of working with CGI and the
web. Your CGI script cannot stop in the middle and wait for user input. It
will be called each time you request anything and will need to be coded to
handle it.
This can be done with searches on the web for basic information about CGI, or
going to comp.infosystems.www.authoring.cgi and ask for help understanding
'state' as it would apply to the script you've shown.
CT
------------------------------
Date: Thu, 06 May 1999 08:28:52 GMT
From: simon@whitestar99.demon.co.uk
Subject: Re: Generating method call from a string
Message-Id: <7grjs0$bvi$1@nnrp1.deja.com>
In article <7gq0i6$7vk$1@info2.uah.edu>,
Greg Bacon <gbacon@cs.uah.edu> wrote:
> You need to let the compiler know that you're trying to call a method:
>
> my $method = 'type';
> my $value = 'foo';
>
> $obj->$method($value);
> $value = $obj->$method(); # parens not optional here!
Excellent thanks :-)
Simon
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 05 May 1999 23:34:16 -0700
From: Steve van Dongen <svandong@uniserve.com>
Subject: Get Lost. This is off topic in every group you've posted to.
Message-Id: <373137E8.64E864D8@uniserve.com>
[cut]
------------------------------
Date: Thu, 06 May 1999 06:53:27 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: grep to scalar instead of variable?, subroutine exists?
Message-Id: <H%aY2.1923$iu1.1639@news.rdc1.tn.home.com>
>grep does not return an array. grep returns a list. That's why you
>can't perform a substitution on an element sliced from grep's result.
>You have to assign the list to an array first.
ahh okay. I was confusing the source with the end result. Got it. Thanks.
CT
------------------------------
Date: Thu, 06 May 1999 07:41:48 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: having problems getting this script to work...
Message-Id: <373847a3.5812657@news.skynet.be>
Larry Rosler wrote:
>But neither of them is the fastest, as Bart Lateur's approach is the
>clear winner. I'll have to use it more often.
Then will you test my alternative?
{
local $\ = "\n";
print OUT foreach @data;
}
Bart.
------------------------------
Date: Thu, 6 May 1999 08:23:30 +0200
From: "Ian Marran" <ian@epages.net>
Subject: Help !!!
Message-Id: <7grc7f$2tov$1@nnrp01.ops.uunet.co.za>
Hello there,
I have a slight (actually big) problem ! I need to convert rich text to html
in a perl script in an ASP page. I get rich text coming in and I need to
display it on a web page with it's formatting. Does anyone out there know
how to do this or know of a module or script that already does this
conversion ? Please email me at ian@epages.net if you know of one.
Thank you in advance,
Ian Marran.
------------------------------
Date: Thu, 06 May 1999 06:51:56 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: Help using message boards
Message-Id: <g_aY2.1922$iu1.1711@news.rdc1.tn.home.com>
>Can somebody suggest changes
>that I could make to improve this system?
Using a username and password authentication script with a simple database is
pretty common. It takes a little time to build one from scratch, but there are
plenty of examples on the web.
You might also consider using sessions.
As an alternative to fleshing out too much code, you might consider the
CGI::Session and HTTPD::Authen modules for some of this functionality. You
should browse through the module list for CGI to see if these or others there
can help...
http://www.perl.com/CPAN-local/modules/00modlist.long.html#15)WorldWideWeb
------------------------------
Date: Sat, 01 May 1999 15:26:25 -0400
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: HTTP_REFERER
Message-Id: <uVUIBiAl#GA.94@rejz.ij.net>
[Posted and Emailed] In article <372b40ef.6096909@news.tor.metronet.ca>,
maclell@col.ca says...
>
>Some Perl scripts I am trying to install on Red Hat are looking for
>the HTTP_REFERER variable. Theserver does not seem to support this.
>
>Is there a work-around?
The server almost certainly supports it, but it can only provide this value
if the client's browser returns a value for it.
For this reason, you should *never* count on HTTP_REFERER... for that matter
you shouldn't count on much of anything that begins HTTP_*.
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day, Inc.--
| http://www.interact2day.com/
=======FREE WEBSITE DESIGN PROMOTION UNTIL 5/31/99!=======
------------------------------
Date: Thu, 6 May 1999 01:09:50 -0500
From: "Robert L. Thornbury" <thrnsoft@globalsite.net>
Subject: Re: I can not use cgi in my Hypermart account.
Message-Id: <GlaY2.3810$fO5.154967@news14.ispnews.com>
I'm not going to debate whether the question belongs here or not, the
Hypermart staff (for all those besides me who have accounts there) is
basically non-existant despite their hype.
The issue at hand: you need to check you transferred the file in ASCII
instead of binary. This is what probably caused your errors. Also with
Hypermart, always use the Content-type: text/html\n\n"; Hypermart's servers
require this.
Robert Thornbury
Thornbury Software
------------------------------
Date: 05 May 1999 23:42:33 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Making executables from .pl files?
Message-Id: <ylhfpq1yxy.fsf@windlord.stanford.edu>
Asbjorn Gjemmestad <agjemmes@extremeonline.com> writes:
> When selling a commercial product, would you want other people to mess
> with, change, and possibly redistribute your product? Me and my partner
> have developet a neat copy protection system which contacts our server,
> and thus people won't be able to do anything about it if the code is
> pre-compiled.
You are under no obligation to share your code with me, but I'm under no
obligation to help you hide it. Perl is free software. Writing
proprietary software using free software is an activity that Larry Wall
has chosen to explicitly allow in this case, which to me demonstrates just
how generous of a person he is. It doesn't prevent me from thinking that
you're being extremely rude, and I certainly don't have any desire to help
you.
Someone else here might. *shrug* But lots of people here have the same
opinion that I do, so don't be surprised when you run into it repeatedly.
In my experience, people usually try to hide their code and prevent people
from modifying it because they're not good enough programmers to write
code that's worth sharing. Take this as you will.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 06 May 1999 03:05:05 -0400
From: Jason Larke <jlarke@ans.net>
Subject: Multiple site_perl directories
Message-Id: <vatd80e4r1a.fsf@anthem.aa.ans.net>
I know all about -I, $PERL5LIB, etc. This is not an especially
stupid question, I think.
I'm reorganizing locally-built Perl modules in an attempt to stop
the semi-random proliferation of modules throughout various
in-house tools. I'm planning to move modules developed in-house
into subdirectories of site-perl that "belong" to various
development groups, so that nobody can play in anyone else's
sandbox.
Unfortunately, we have a lot of production code that uses locally
built modules in the "root" namespace- ie "Pager". In the new
scheme it out to be "UUNET::Pager" but we don't want to force
people to tweak their scripts to invoke the module
differently. So I'd like to add both ..../site_perl and
.../site_perl/UUNET to the default @INC.
It looks like I can do this by hacking at config.h, but before I
release the new Perl build into production:
- Is there a better way?
- Am I going to blow something up putting two colon-separated
paths into siteperlexp?
Thanks!
--
Jason Larke- jlarke@ans.net- http://www.nnaf.net/~jlarke Send mail for PGP key
I don't speak for UUnet Worldcom or the international communist conspiracy.
"The Rock can't say I quit, because the Rock only talks in the third person."
"People change, and smile: but the agony abides."-T.S. Eliot, The Dry Salvages
------------------------------
Date: Thu, 06 May 1999 03:58:24 GMT
From: richly@samart.co.th (Robert White)
Subject: Re: Newbie having problems getting this script to work...
Message-Id: <3730f4a9.6481774@news.samart.co.th>
you do this
foreach (@myarray) { # One file at a time
then this
$myarray = ~s/33_/ /g; # Remove the 33_ prefix from filename
try this
foreach $myarray (@myarray) { # One file at a time
advice:
use strict; #at the top
perl -w script.pl
catches a lot of errors
Rob Just another perl hacker in Bangkok
http://bangkokwizard.hypermart.net/perl.html
------------------------------
Date: 05 May 1999 23:46:14 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: OReilly bullshit.... Camel logo trademark
Message-Id: <ylemku1yrt.fsf@windlord.stanford.edu>
Matt Kruse <mkruse@rens.com> writes:
> I realize companies need to make efforts to stop unauthorized trademark
> useage, but IMO, they are taking it too far in finding any and every
> perl site that may have some representation of a camel.
> What O'Reilly should do is allow the camel to become a public symbol for
> Perl, but maintain the trademark for books about Perl. Seems logical to
> me.
Unfortunately, they can't do that. They're screwed over by the way US
trademark law works. If they don't do what they're doing to you, they
run the risk of losing the trademark completely. Because you're talking
about the language Perl, your use of the trademark is within the same
domain as theirs, so they have to defend it or have it diluted.
Sucks, but that's unfortunately the way the law works.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Thu, 06 May 1999 08:47:56 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: OReilly bullshit.... Camel logo trademark
Message-Id: <37315670.56158281@news.insnet.net>
On Thu, 6 May 1999 01:35:30 -0400, rjk@linguist.dartmouth.edu (Ronald
J Kimball) enlightened us thusly:
>Of course, O'Reilly can't trademark the colors, but it seems to me that
>you have actually admitted to copy your representation of the camel
>directly from O'Reilly.
And O'Reilly lose out in what way? Surely no-one could be confused
that just because he has a picture of a camel on his perl page he must
be associated with O'Reilly? I am rather surprised at the comments
being posted here supporting O'Reilly's stance - and am, frankly,
disgusted.
>O'Reilly does not just use the camel on the cover of its Programming
>Perl book. It uses the camel on its web site, in its catalogues and
>brochures, on its T-shirts and canvas bags... Get the picture?
But _his_ use of it does not cause confusion. _He_ is not trying to
sell T-shirts, canvas bags, or anything else in association with the
camel logo.
Does anyone know what the status of this silly trademark is outside
the US?
[Copying newsgroup posts to me by mail is considered rude]
--
David Cantrell, part-time Unix/perl/SQL/java techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: 6 May 1999 08:56:30 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: OReilly bullshit.... Camel logo trademark
Message-Id: <slrn7j2m9u.qmd.sholden@pgrad.cs.usyd.edu.au>
David Cantrell <NukeEmUp@ThePentagon.com> wrote:
>On Thu, 6 May 1999 01:35:30 -0400, rjk@linguist.dartmouth.edu (Ronald
>J Kimball) enlightened us thusly:
>
>>Of course, O'Reilly can't trademark the colors, but it seems to me that
>>you have actually admitted to copy your representation of the camel
>>directly from O'Reilly.
>
>And O'Reilly lose out in what way? Surely no-one could be confused
>that just because he has a picture of a camel on his perl page he must
>be associated with O'Reilly? I am rather surprised at the comments
>being posted here supporting O'Reilly's stance - and am, frankly,
>disgusted.
All that matters is that if O'Reilly don't they lose the trademark. It is
irrlevant what you think about the matter. All that matters is the way
trademarks are dealt with under law.
If O'Reilly doesn't do something they lose the trademark. As simple as that.
It doesn't matter that no-one would be confused.
--
Sam
I would like to tell you that Perl is simple in its complexity. But some
people won't understand that. So pretend I didn't say that, unless you
do. --Larry Wall
------------------------------
Date: Thu, 06 May 1999 08:11:14 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: regexp for matching IP address block
Message-Id: <373b4d6a.7291238@news.skynet.be>
Nem W Schlecht wrote:
>>Has anyone ever managed to create a regexp that matches if input is a valid IP
>>address block?
>>
>>i.e.
>>202.33.77.0
>>177.88.0.0
>>207.124.8.0
>
>I take it want something more robust than:
>
>if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) {
> ...
>}
I wouldn't do it in a regex. Regexes are for "lexical" analysis, while
checking the range of the numbers is a "semantic" check.
Try
sub testIP {
local($_) = @_;
if(my @part = /^(\d+)\.(\d+)\.(\d+)\.(\d+)) {
foreach (@part) {
return if $_<0 or $_>255; #nope
}
return 1; #yup
}
return; #nope
}
You probably can drop the sub and put the (second) test in a grep.
Bart.
------------------------------
Date: 6 May 1999 07:28:00 GMT
From: dennis@info4.csie.nctu.edu.tw (GEMINI)
Subject: side effect of 'use integer'?
Message-Id: <7grga0$lfo$1@netnews.csie.NCTU.edu.tw>
hi all,
there is a little problem when I use 'use integer':
%h=(-a=>1,-b=>2,-c=>3);
print "$h{-a},$h{-b},$h{-c}\n";
use integer;
print "$h{-a},$h{-b},$h{-c}\n";
print "$h{'-a'},$h{'-b'},$h{'-c'}\n";
the above program will has the following result:
1,2,3
,,
1,2,3
It seems that I have to quote the key name that leading with
'-' when 'use integer', why??
------------------------------
Date: 06 May 1999 03:41:09 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: side effect of 'use integer'?
Message-Id: <x76766y7ai.fsf@home.sysarch.com>
>>>>> "G" == GEMINI <dennis@info4.csie.nctu.edu.tw> writes:
G> %h=(-a=>1,-b=>2,-c=>3);
G> print "$h{-a},$h{-b},$h{-c}\n";
G> use integer;
G> print "$h{-a},$h{-b},$h{-c}\n";
G> print "$h{'-a'},$h{'-b'},$h{'-c'}\n";
G> the above program will has the following result:
G> 1,2,3
G> ,,
G> 1,2,3
G> It seems that I have to quote the key name that leading with
G> '-' when 'use integer', why??
try running with -w and see what it says.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Thu, 06 May 1999 10:15:55 +0200
From: Folkert Meeuw <fmee@lfi.uni-hannover.de>
Subject: sorting problem solve with Perl
Message-Id: <37314FBB.8D88A673@lfi.uni-hannover.de>
--------------5143C831DD6A439A851395A9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi Dear Friendly Readers,
I want to get out data from one file, sort it with perl and put in
another file.
Problem is the data placed in the first file like:
Block1
Head1 Head2 Head3 ...
Content1 Content2 Content3 ...
Block2
Head1 Head2 Head3 ...
Content1 Content2 Content ...
.
.
.
.
The content1 of Block1 is difficult from the content of Block2.
What I need from Perl is that it sorts:
(Block1) (Block2)
Head1 Head1
Content1 Content1
(Block1) (Block2)
Head2 Head2
Content2 Content2
and store this sort in a new file.
I think it is possible with other languages like C, but today I need a
Perl script.
I' m interest on a script and maybe www-sites where I will find such.
MfG Folkert Meeuw
--------------5143C831DD6A439A851395A9
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<font face="Courier New,Courier"><font size=+2>Hi Dear Friendly Readers,</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>I want to get out data
from one file, sort it with perl and put in another file.</font></font>
<br><font face="Courier New,Courier"><font size=+2>Problem is the data
placed in the first file like:</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>Block1</font></font>
<br><font face="Courier New,Courier"><font size=+2>Head1
Head2
Head3 ...</font></font>
<br><font face="Courier New,Courier"><font size=+2>Content1
Content2 Content3
...</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>Block2</font></font>
<br><font face="Courier New,Courier"><font size=+2>Head1
Head2
Head3 ...</font></font>
<br><font face="Courier New,Courier"><font size=+2>Content1
Content2 Content
...</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>.</font></font>
<br><font face="Courier New,Courier"><font size=+2>.</font></font>
<br><font face="Courier New,Courier"><font size=+2>.</font></font>
<br><font face="Courier New,Courier"><font size=+2>.</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>The content1 of Block1
is difficult from the content of Block2.</font></font>
<br><font face="Courier New,Courier"><font size=+2>What I need from Perl
is that it sorts:</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>(Block1)
(Block2)</font></font>
<br><font face="Courier New,Courier"><font size=+2>Head1
Head1</font></font>
<br><font face="Courier New,Courier"><font size=+2>Content1
Content1</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>(Block1)
(Block2)</font></font>
<br><font face="Courier New,Courier"><font size=+2>Head2
Head2</font></font>
<br><font face="Courier New,Courier"><font size=+2>Content2
Content2</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>and store this sort in
a new file.</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>I think it is possible
with other languages like C, but today I need a Perl script.</font></font>
<br><font face="Courier New,Courier"><font size=+2>I' m interest on a script
and maybe www-sites where I will find such.</font></font><font face="Courier New,Courier"><font size=+2></font></font>
<p><font face="Courier New,Courier"><font size=+2>MfG Folkert Meeuw</font></font></html>
--------------5143C831DD6A439A851395A9--
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5578
**************************************
