[8379] in Perl-Users-Digest
Perl-Users Digest, Issue: 1996 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Mar 1 10:17:09 1998
Date: Sun, 1 Mar 98 07:00:35 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 1 Mar 1998 Volume: 8 Number: 1996
Today's topics:
Re: call URL from perl? <r_cheon@alcor.concordia.ca>
Re: CO-Branding Web Sites (Robert F. Harrison)
Re: Dummies Guides... (Billy Chambless)
Re: Easy way to "clean" an array <joegottman@nospam.worldnet.att.net>
Re: Form-to-EMail - Have Some Code (Troy Denkinger)
Re: Form-to-EMail - Have Some Code (Troy Denkinger)
Re: Home Page Click. (hymie!)
Re: Killfile Triage <lovegod@earthling.net>
Re: Perl in the movie "Sphere"? <lovegod@earthling.net>
Re: Perl on Solaris x86 twod@not.valid
Re: Perl4 to Perl5 conversion issues <palincss@nicom.com>
Perl5 Sybase::DBlib "not found" <kchesak@inetport.com>
Re: Q: splice() time complexity, want linked lists? (Abigail)
Re: Q: splice() time complexity, want linked lists? (Ilya Zakharevich)
Re: Q: splice() time complexity, want linked lists? (Abigail)
search engine (Michael Harbauer)
Re: The Ineffable Tom C. <lovegod@earthling.net>
Re: The Ineffable Tom C. <lovegod@earthling.net>
Re: The Ineffable Tom C. <lovegod@earthling.net>
Re: The Ineffable Tom C. <lovegod@earthling.net>
Re: Trapping Domain (or IP) of user who 'Clicks' on a L <jbc@west.net>
Upgrading from Perl 4 to Perl 5 - Differences? <tan@jettech.dircon.co.uk>
Wanted: Perl author for small project <brett@moggy.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 1 Mar 1998 02:16:02 -0500
From: RAYMOND CHEONG <r_cheon@alcor.concordia.ca>
To: stevenchan <stevenchan69@hotmail.com>
Subject: Re: call URL from perl?
Message-Id: <Pine.OSF.3.96.980301020217.15766A-100000@alcor.concordia.ca>
On Thu, 19 Feb 1998, stevenchan wrote:
> as i know, you should cancell the line
> >print "Content-Type: text/plain\n\n";
> to make the program to work as you want. try it.
>
> On Tue, 17 Feb 1998 18:00:42 -0500, Mukund Rao <mrao@nospam.com>
> wrote:
>
> >Hello. I noticed an old posting and tried to repeat your advice.
> >
> >I did:
> >
> >#!/my/perl5/path
> >
> >$URL="http://www.yahoo.com";
> >print "Content-Type: text/plain\n\n";
> >print "Location: $URL\n";
> >exit 0;
I am not sure if someone else has answered your question. Anyway, I think
what you want is the following,
print "Content-type: text/plain\n\n";
$URL="http://www.yahoo.com";
print "Location: <A HREF=\"$URL\"> Go to Yahoo </A>";
Hope it helps.
Raymond
> >
> >...all this does is actually "print" Location: http://www.yahoo.com on my
> >screen and doesn't actually "go" there. Please advise.
> >
> >PLEASE REPLY TO MRAO@TRINCOLL.EDU -- Thanks.
> >
> >On Thu, 23 May 1996, Eike Grote wrote:
> >
> >: Hello !
> >:
> >: Charles Wyatt wrote:
> >: >
> >: > I'm aware of how to generate HTML code within a perl script using
> >: > print "Content-type: text/html\n\n"; # etc, etc!
> >: >
> >: > Is there a manner by which I can call a URL from a perl script that
> >: > will in turn (of course) retrieve an HTML document?
> >:
> >: If you use
> >:
> >: print "Location: $URL\n\n";
> >:
> >: the browser will fetch and display the page specified by $URL.
> >:
> >:
> >: Hope this helps, Eike
> >:
> >: =====================================================================
> >: Eike Grote, Theoretical Physics IV, University of Bayreuth, Germany
> >: email : eike.grote@theo.phy.uni-bayreuth.de
> >: URL : http://btrzxa.fddi.uni-bayreuth.de/~btpa25/
> >: =====================================================================
> >:
> >:
> >
> > _ _ ____
> >| \ / | \ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> >| \/ | () / Mukund Rao | webmaster@trincoll.edu
> >| | |\ \ "visualize whirled peas" | Trinity College 860-297-4216
> >|_|\/|_|_| \_) =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
>
>
"If there was any other way...
Don't you think I've tried to find it..."
------------------------------
Date: 1 Mar 98 07:30:11 GMT
From: harrison@pixi.com (Robert F. Harrison)
Subject: Re: CO-Branding Web Sites
Message-Id: <slrn6fi3jg.a1d.harrison@localhost.localdomain>
On Sun, 01 Mar 1998 00:06:55 -0600, digitalstars@yahoo.com
<digitalstars@yahoo.com> wrote:
> Does anyone know of a script, or how one would go about co-branding your own
> web site for someone else? In other words, create an entire new site without
> the work.
I think simple intellectual theft would suffice in this case, doesn't
really require Perl. Indeed, that would be overkill.
> Where it would use all the information from your current site,
> however it would display another logo. Here is an example of a co branded web
> site: http://www.classifieds2000.com/cgi-cls/display.exe?bigfoot+class
Excellent, I never really wanted to do anything for myself anyway.
> Thanks for your help!
No, thank you for yours. We are all waiting for you to create a site
so we can CO-Brand it. All of us. Seriously. Look outside your
window...that's us. 8-P
[Okay, I'm sorry c.l.p.m....I really couldn't help it and I didn't
swear or anything.]
--
rfh harrison@pixi.com
------------------------------
Date: 1 Mar 1998 13:28:45 GMT
From: billy@cast.msstate.edu (Billy Chambless)
Subject: Re: Dummies Guides...
Message-Id: <6dbnqd$kqi$1@nntp.msstate.edu>
In article <34F6CEF7.37936BD9@Jays-Auto.co.uk>, Sales@Jays-Auto.co.uk writes:
|> Hello!
Hi there!
|> Surely everyone has heard of the excellent 'Dummies' books from IDS
|> books.
Yeah, we see them all the time in the pointy-haired boss's office.
|> These world renowned titles have become the computer books by
|> which others are judged.
Wow....thanks for pointing that out; I'm about to finish a book review
and I left out the vital step of comparing it to "Internet Explorer for
Dummies".
I wish my profs back at uni would have been so careful; I'm sure the
Dipsh^H^H^H Dummies series is a lot more fun to read than Djikstra and
Knuth.
|> Due to the way Jay's buy's our books we are
|> able to offer a range of these books at 10% less than the RRP!
Wow!!! That's almost half the discount given by other book dealers!
|> 0764502174 23.99 21.59 Internet Directory For Dummies
"1001 Really Stupid Web Sites"
|> 0764502883 23.99 21.59 Small Business Internet For Dummies inc CD
I guess this is the one where they tell you how to crosspost you ad to
hell and back.
|> 0764501151 28.99 26.09 Setting Up An Internet Site Dummies 2nd ed
Personally, I wish there weren't so many "Internet" sites set up by
dummies.
|> 0764501100 11.99 10.79 Internet For Dummies Quick Ref 3rd
Kewl! A simplified version of a dumbed-down book.
|> 0764501097 11.99 10.79 Internet For Macs Dummies Quick Ref 3rd
I'm not going there.
|> 0764501291 18.99 17.09 Upgrading & Fixing PCs For Dummies
That sounds more like a job than a book.
|> We are also taking order's for the forth coming book:
Maybe you should get a copy of "Spelling and Punctuation for Dummies".
--
* "And there _is_ a real world. In fact, some of you
* are in it right now." -- Gene Spafford
------------------------------
Date: Sun, 01 Mar 1998 08:41:12 -0500
From: Joe Gottman <joegottman@nospam.worldnet.att.net>
Subject: Re: Easy way to "clean" an array
Message-Id: <6dbol6$bur@bgtnsc02.worldnet.att.net>
I have a life, and I can prove it! wrote:
> >I have a sorted array with duplicated entrys, like
> >
> >006621
> >006621
> >006622
> >006623
> >006623
> >006623
> >006624
>
> Let that array be called @array1
> Let the array we want to have only single elements (no dups) be @array2
>
> foreach $element (@array1){
> push @array2, $element unless grep { $_ eq $element } @array2;
> }
>
> If you can't understand that, look at the docs.
> Here's a brief explanation. For each element in array1, push it to array2
> unless it's already in array2.
>
This works, but it is very inefficient (Order n^2 as opposed to order n).
Basicly,
you are not using the fact that the original array is sorted already. Here is
an efficient algorithm:
my $prev;
my @new_array;
foreach $elt (@array)
{
if ($elt eq $prev)
{
push @new_arry, $elt;
$prev = $elt;
}
}
return @new_array;
--
Joe Gottman
joegottman@nospam.worldnet.att.net
[Remove nospam to reply]
------------------------------
Date: Sat, 28 Feb 1998 08:04:37 GMT
From: troy@whadda.com (Troy Denkinger)
Subject: Re: Form-to-EMail - Have Some Code
Message-Id: <6db50e$hsm$1@hirame.wwa.com>
In article <34F86282.6565@highsierra.com>, tmaufr@highsierra.NOSPAM.com wrote:
>For the many who are asking about email forms processing in perl
>Form-to-EMail for Windows NT is at http://www.aufrance.com
Here's some code that will take form input and email it to
an address you've specified. I've only tested this on an
NT server.
#!/perl/bin -w
# -T taint checking should be on but Win32
# doesn't seem happy with it.
#########################################
# formshandler.pl
#
# A very simple form handling script that sends
# form data to a specific address via email.
#
# Requires:
# CGI.pm
# Net::SMTP.pm
#
# Since this script sends directly to an SMTP
# server, you'll also need access to one of those.
#
# Hacked up by Troy Denkinger (troy@whadda.com)
#
#########################################
# We're going to need the CGI module for processing the form
# fields. Net::SMTP is for attaching to our SMTP server and
# actually sending the email. We also declare our global
# variables here.
use CGI;
use Net::SMTP;
use vars qw(
$primary
$addresserror
$redirect
$mailserver
$fromaddress
@names
$subject);
# A new CGI object. OOP-AH!
my $query = CGI->new;
# this saves all the form field names
# into the @names array.
my @names = $query->param;
# $primary = to whom the message will be sent
# $redirect = page that will be presented after submission
# $mailserver = the name of my SMTP server
# $fromaddress = from address
#
# The @ sign in these email addresses must be escaped
#
$primary = "dufus\@foobar.com";
$redirect = 'http://www.foobar.com/';
$mailserver = "mail.foobar.com";
$fromaddress = "postmaster\@foobar.com";
$subject = "Yer Stinkin Form";
# Let's send the redirect first. I know we can do this
# so it doesn't block, but I haven't added it yet.
print $query->redirect($redirect);
# Call mailit() and pass in the email address we want
# to send to.
mailit($primary);
# This is a sub because you could loop over a list of email
addresses
# if you want the form information to be sent to multiple
recipients.
#
# I'm still trying to figure out how to successfully
# use cc and bcc with Net::SMTP.
#
# I had to feel my way through the use of the Net::SMTP
module. I'm
# sure this isn't the most elegant way to handle it. I'll
refine it
# later.
sub mailit
{
my $smtp;
my $toaddress = $_[0];
# Create a new Net::SMTP object and pass it the
# name of our mail server.
#
# I should be testing to see if the connection was actually
# established. Let's leave that as an exercise for the
# reader.
#
$smtp = Net::SMTP->new($mailserver);
$smtp->mail("$fromaddress");
$smtp->to($toaddress);
$smtp->data();
$smtp->datasend("From: $fromaddress\n");
$smtp->datasend("To: $toaddress\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
my $name;
foreach $name (@names)
{
my $value = $query->param("$name");
# This removes any underscores from the form field
name attribute.
# I did this so you can have underscores on the form
that become
# more readable in the email. Eg: First_Name
becomes First Name.
$name =~ s/_/ /g;
# This checks to see if the form field contains any
newlines and
# tries to keep the formatting while also inserting
a tab so it
# is indented in the final email. This may or may
not work
# properly in your setup. If not, blow it away.
#
# The output in the email for a form field of
First_Name=Troy Denkinger
# will be, in the final email, [First Name] Troy
Denkinger. Obviously,
# you can fiddle with this.
if($value =~ s/\n/\n\t/g)
{
# Since we have a good idea of what we want
to see in our
# form, let's limit the input to only a set
group of characters.
# Your mileage may vary on this one. Note
that this one leaves the
# \n & \t alone.
$value =~ s/[^A-Za-z1-9_.&\n\t ]//g;
$smtp->datasend("\[$name\]\n \t$value\n\n");
}
else
{
# Since we have a good idea of what
we want to see in our
# form, let's limit the input to
only a set group of characters.
# Your mileage may vary on this one.
$value =~ s/[^A-Za-z1-9_.& ]//g;
$smtp->datasend("\[$name\]
$value\n");
}
}
$smtp->dataend();
$smtp->quit;
}
------------------------------
Date: 1 Mar 1998 08:20:27 GMT
From: troyd@wwa.com (Troy Denkinger)
Subject: Re: Form-to-EMail - Have Some Code
Message-Id: <6db5ob$ivs$1@hirame.wwa.com>
Troy Denkinger (troy@whadda.com) wrote:
: In article <34F86282.6565@highsierra.com>, tmaufr@highsierra.NOSPAM.com wrote:
: >For the many who are asking about email forms processing in perl
: >Form-to-EMail for Windows NT is at http://www.aufrance.com
: Here's some code that will take form input and email it to
: an address you've specified. I've only tested this on an
: NT server.
Oops, sorry about the line wrap on that. Cutting and pasting into my
newsreader from my editor seems to have been the cause. I hope this
doesn't make it too unclear.
Regards,
Troy Denkinger
------------------------------
Date: 1 Mar 1998 14:26:34 GMT
From: hymie@lactose.smart.net (hymie!)
Subject: Re: Home Page Click.
Message-Id: <6dbr6q$8j8$1@news.smart.net>
In our last episode, the evil Dr. Lacto had captured our hero,
me@here.com (steve), who said:
>On 24 Feb 1998 18:37:33 GMT, petdance@maxx.mc.net (Andy Lester) wrote:
[attributions lost]
>>: Does anyone know how to add an element to a page so that when the user
>>: clicks on it, it becomes their home page?
>>1) You can't.
>yes you can
My home page is on an ISP paid for by me. It's written by me.
It includes facts about me. It includes links that I like. I
advertise it in my sig.
How can Joe Smith (no offense to anybody named Joe Smith) create
a web page, and have it be my home page?
>>2) Your question has nothing to do with Perl.
..hymie!
http://www.smart.net/~hymowitz * agis customers: e-mail and web service refused
hymie@lactose.smart.net ********** pgp public key: e-mail pgp@lactose.smart.net
===== Unsolicited commercial e-mail spam will be forwarded to postmasters =====
------------------------------
Date: Sun, 01 Mar 1998 01:04:01 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: Killfile Triage
Message-Id: <34F90861.34F6@earthling.net>
So, what does all this crap have to do with perl?
peter caffin wrote:
>
> Eli the Bearded <*@qz.little-neck.ny.us> did cunningly address to
> comp.lang.perl.misc..
> :peter caffin <nospam_synic@omen.net.au> wrote:
> :> Eli the Bearded <*@qz.to> did cunningly address to news.software.readers..
> :> :If I send you mail, and it bounces, chances are very good that I will
> :> :never even read the bounce to see who's mail it was, let alone resend.
------------------------------
Date: Sun, 01 Mar 1998 00:19:49 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: Perl in the movie "Sphere"?
Message-Id: <34F8FE05.7D7D@earthling.net>
Jon Orwant wrote:
> .....
> We've already had some good press from denverbroncos.com using mod_perl.
>
> -Jon
So, do you know what the Green Bay Packers have in common with the LAPD?
------------------------------
Date: 1 Mar 1998 09:50:23 GMT
From: twod@not.valid
Subject: Re: Perl on Solaris x86
Message-Id: <6dbb0v$4rd$4@vnetnews.value.net>
: What do I have to do.
: I extracted evrything in a tmp folder, copied the Manuals to /usr/man
: and thats it. What else ??
Umm, if you have C/C++ compiler (GCC, SUN, other) I would recommend that
you download the source code and compile/install from scratch.
Using this method you give people a known starting point in order to help
you. Currently all we know is that you have a binary release, with no
indication of it's origin or nature.
The latest PERL 'production' source code compiles and installs with no
problem on x86.
IAP
--
I am using anti-spam measures, please replace 'not.valid' with 'value.net'
------------------------------
Date: Sat, 28 Feb 1998 09:12:22 -0800
From: Steve Palincsar <palincss@nicom.com>
Subject: Re: Perl4 to Perl5 conversion issues
Message-Id: <34F84576.61F5@nicom.com>
OK, sure. It's right there in the documentation, called "perltrap".
The section's name is Perl4 to Perl5 traps. If your installation is
completely screwed up and you don't have the documentation you can get
it online at http://www.perl.com.
Maxine G. wrote:
>
> Oh. Sorry. I just get so tired of the spam. I look forward to reading your
> response here on the newsgroup.
>
> In article <34F76C5E.3B31@nicom.com>, palincss@nicom.com wrote:
> >You know, I seriously considered replying by mail, but you've
> >just made it too damned hard to figure out what your address
> >actually is.
> >
> >Maxine G. wrote:
> >>
> >> I will soon be migrating an application from a perl4 system to a perl5
> > system.
> >> Is there a summary of conversion issues somewhere that I could look at? The
> >> only thing I've heard about is having to put a "\" before a "@".
> >>
------------------------------
Date: Sat, 28 Feb 1998 22:18:11 -0600
From: Ken Chesak <kchesak@inetport.com>
Subject: Perl5 Sybase::DBlib "not found"
Message-Id: <34F8E182.21844390@inetport.com>
We have installed Perl5.004.02 and Sybperl 2.07. The perl runs okay and
the "make test" in Sybperl ran okay. But I am not able to run a Sybperl
program using DBlib. The program fails on the line "use
Sybase::DBlib". The program is unable to find the DBlib.pm.
Perl5 is installed in /usr/bin...
Sybperl is installed in /usr2/local...Is the perl executable under
/usr2/local the perl which includes the DB and CT libs? Should the
first line of the program be #!/usr2/local/perl?
I have run the perl in /usr2/local and the @INC only includes
directories from the Perl5 installation. The DBlib directory is in the
/usr2/local/DBlib. What indicates where the DBlib.pm is?
Thanks
------------------------------
Date: 1 Mar 1998 07:24:37 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Q: splice() time complexity, want linked lists?
Message-Id: <6db2fl$jf4$1@client3.news.psi.net>
David Petrou (dpetrou@cs.cmu.edu) wrote on 1643 September 1993 in
<URL: news:6dakth$p7o$1@goldenapple.srv.cs.cmu.edu>:
++ Abigail (abigail@fnx.com) wrote:
++ : David Petrou (dpetrou@cs.cmu.edu) wrote on 1642 September 1993 in
++ : <URL: news:6d9ob3$a74$1@goldenapple.srv.cs.cmu.edu>:
++ : ++
++ : ++ Gerr. Obviously I meant "doubly-linked" list. (Since you can't
++ : ++ remove an arbitrary element in O(1) using singly-linked lists.)
++ :
++ : Why not?
++
++ Because you have to modify the pointer of the element before the one
++ to remove to point to the element after the one to remove. Without
++ back links, you'd have to iterate through all the elements to find the
++ successor of the element you want to remove, taking O(n) time.
Well, that's what some books say about linked lists.
But there are more ways to do it.
Let's we use anon arrays to represent list nodes. Each array
has 2 elements, one to store the data, one to store a ref to
the next node.
Given a reference to a node, you can then delete that node
with the following lines:
use constant DATA => 0;
use constant NEXT => 1;
$node -> [DATA] = $node -> [NEXT] -> [DATA];
$node -> [NEXT] = $node -> [NEXT] -> [NEXT];
The trick is that your remove the *next* element, after copying
its data. (Perl's ref counting takes care of the actual
removal of the node).
Obviously, you need a special "end of list" marker to be able
to delete the lists last element, but that surely beats having
pointers going both ways just for the sake of deleting nodes.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle 'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Additional/s) [0]'
------------------------------
Date: 1 Mar 1998 08:34:16 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Q: splice() time complexity, want linked lists?
Message-Id: <6db6i8$qor$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Abigail
<abigail@fnx.com>],
who wrote in article <6db2fl$jf4$1@client3.news.psi.net>:
> Given a reference to a node, you can then delete that node
> with the following lines:
>
> use constant DATA => 0;
> use constant NEXT => 1;
>
> $node -> [DATA] = $node -> [NEXT] -> [DATA];
> $node -> [NEXT] = $node -> [NEXT] -> [NEXT];
>
> The trick is that your remove the *next* element, after copying
> its data. (Perl's ref counting takes care of the actual
> removal of the node).
Now try to remove the previous elements again!
I do not think any trick will help here, there *is* a reason for
doubly-linked lists.
Ilya
------------------------------
Date: 1 Mar 1998 09:40:37 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Q: splice() time complexity, want linked lists?
Message-Id: <6dbael$kqm$1@client3.news.psi.net>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on 1643 September 1993
in <URL: news:6db6i8$qor$1@mathserv.mps.ohio-state.edu>:
++ [A complimentary Cc of this posting was sent to Abigail
++ <abigail@fnx.com>],
++ who wrote in article <6db2fl$jf4$1@client3.news.psi.net>:
++ > Given a reference to a node, you can then delete that node
++ > with the following lines:
++ >
++ > use constant DATA => 0;
++ > use constant NEXT => 1;
++ >
++ > $node -> [DATA] = $node -> [NEXT] -> [DATA];
++ > $node -> [NEXT] = $node -> [NEXT] -> [NEXT];
++ >
++ > The trick is that your remove the *next* element, after copying
++ > its data. (Perl's ref counting takes care of the actual
++ > removal of the node).
++
++ Now try to remove the previous elements again!
++
++ I do not think any trick will help here, there *is* a reason for
++ doubly-linked lists.
#!/usr/local/bin/perl -w
use strict;
use constant DATA => 0;
use constant NEXT => 1;
sub create () {[undef, undef]}
sub insert ($$) {
my $node = shift;
my $data = shift;
my $new = [$node -> [DATA], $node -> [NEXT]];
$node -> [NEXT] = $new;
$node -> [DATA] = $data;
}
sub Delete ($) {
my $node = shift;
$node -> [DATA] = $node -> [NEXT] -> [DATA];
$node -> [NEXT] = $node -> [NEXT] -> [NEXT];
}
sub traverse ($) {
my $node = shift;
print "[ ";
while ($node -> [NEXT]) {
print $node -> [DATA], " ";
$node = $node -> [NEXT];
}
print "]\n";
}
sub find ($$) {
my $node = shift;
my $data = shift;
while ($node -> [NEXT]) {
return $node if $node -> [DATA] == $data;
$node = $node -> [NEXT];
}
undef;
}
my $list = create;
foreach my $i (1 .. 10) {
insert $list, $i;
}
traverse $list;
Delete find $list, 5;
traverse $list;
Delete find $list, 6;
traverse $list;
Delete find $list, 4;
traverse $list;
__END__
[ 10 9 8 7 6 5 4 3 2 1 ]
[ 10 9 8 7 6 4 3 2 1 ]
[ 10 9 8 7 4 3 2 1 ]
[ 10 9 8 7 3 2 1 ]
Your point?
(Of course, if you have a reference to an element past the one you
are deleting, that reference no longer points to sensible information)
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle 'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Additional/s) [0]'
------------------------------
Date: Sun, 01 Mar 1998 11:25:41 GMT
From: mharbauer@geocities.com (Michael Harbauer)
Subject: search engine
Message-Id: <34f943cf.4507751@news.Austria.EU.net>
hi
i need to write a search engine - script that searches for one
document on several internet servers which are running under "nt4
server" as well as linux - but i have no idea how to access
direcotries on a foreign server to search for a requested document.
Please send me some suggestions to mharbauer@geocities.com
thanks!
michael
------------------------------
Date: Sun, 01 Mar 1998 01:10:03 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: The Ineffable Tom C.
Message-Id: <34F909CB.11D@earthling.net>
> Let a complete absence of anything resembling politeness
> prevail, see if I care.
that should be a semicolon. ;}
------------------------------
Date: Sun, 01 Mar 1998 01:12:51 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: The Ineffable Tom C.
Message-Id: <34F90A73.1406@earthling.net>
> I hope you don't think you're exaggerating for shock value or whatever.
> You aren't. A number of us have come to that precise conclusion.
yah, but arrogance is still arrogance.
------------------------------
Date: Sun, 01 Mar 1998 01:15:16 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: The Ineffable Tom C.
Message-Id: <34F90B04.3E23@earthling.net>
> Or maybe there's just a lotta people out there with poor Netiquette.
>
> Brian
nah - it's the "I've Got Mine, There's the Instructions, drown,
bastard!" syndrome.
------------------------------
Date: Sun, 01 Mar 1998 01:49:11 -0600
From: Rich Grise <lovegod@earthling.net>
Subject: Re: The Ineffable Tom C.
Message-Id: <34F912F7.7C75@earthling.net>
Nathan V. Patwardhan wrote:
>
> Chipmunk (rjk@coos.dartmouth.edu) wrote:
>
> : Do you even know what "ineffable" means? Perhaps you should go look it up.
>
[blah,blah,blah]
Do you know what "comp.lang.perl.misc" means?
------------------------------
Date: Sun, 01 Mar 1998 06:17:27 -0800
From: John Callender <jbc@west.net>
Subject: Re: Trapping Domain (or IP) of user who 'Clicks' on a Link...
Message-Id: <34F96DF7.9D03749B@west.net>
John Callender wrote:
>
> As you will probably discover fairly soon, some of the people who read
> this group prefer that questions like this be posted in
> comp.infosystems.www.cgi.
Or even comp.infosystems.www.authoring.cgi.
> I would have
> mailed it, but your E-mail address is bogus.
Yes, it was there all the time.
Someone was tugging on my sleeve to go to lunch when I wrote that,
making more than usually distracted.
Noise, noise, noise, noise... (to the tune of the "spam" sketch). Just
killfile me now, and put me out of your misery. Thanks.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: Sun, 1 Mar 1998 09:14:34 -0000
From: "Tan" <tan@jettech.dircon.co.uk>
Subject: Upgrading from Perl 4 to Perl 5 - Differences?
Message-Id: <34f926a1.0@newsread1.dircon.co.uk>
Could anyone tell me what the main differences are between perl 4 and perl
5. I have a written a lot of scripts under Perl 4 and would like to know
whether they will work under Perl 5.
Are there specific syntactical differences?
Tan
------------------------------
Date: 1 Mar 1998 11:08:02 GMT
From: "Brett" <brett@moggy.com>
Subject: Wanted: Perl author for small project
Message-Id: <01bd4501$f1f82fe0$351a1acb@tpgi.com.au.tpgi.com.au>
Recently I had hired a Perl author to work on an Auction script for a site
I'm working on. I haven't heard from him for over 3 weeks and I am assuming
something (perhaps bad) has happened to him.
Anyway, the show must go on and I'm looking for an experienced, reliable
and professional script writer to write (or modify) an Auction script.
The money's not big, our budget is small -- that's why we were sad to
lose a good author who would work to our budget. We can only offer $350
US.
If you are interested more in the project (rather than money) then please
contact me at:
brett@moggy.com and let me know...
hope you hear from you soon!
regards,
Brett Phillips
------------------------------
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 1996
**************************************
