[23197] in Perl-Users-Digest
Perl-Users Digest, Issue: 5418 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 24 11:05:38 2003
Date: Sun, 24 Aug 2003 08:05:05 -0700 (PDT)
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, 24 Aug 2003 Volume: 10 Number: 5418
Today's topics:
Re: a backreference problem? <geoff.cox@blueyonder.co.uk>
Re: a backreference problem? <jkeen@concentric.net>
Re: a backreference problem? <geoff.cox@blueyonder.co.uk>
Re: a backreference problem? (Tad McClellan)
Re: a backreference problem? (Tad McClellan)
buffer overflow <not@home.yet>
Re: stable sort (Praveen Kallakuri)
Unbrand America mary@unbrandamerica.org
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 24 Aug 2003 11:17:46 +0100
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: a backreference problem?
Message-Id: <p34hkv0ltmr8druc1aurv1k6h03evmvv5s@4ax.com>
On Sun, 24 Aug 2003 10:42:09 +0100, Geoff Cox
<geoff.cox@blueyonder.co.uk> wrote:
>which is odd...the value for $1 does get into the sub getintro but get
>the error message "uninitialized value in pattern match" for the line
>
>if ($into[$n] =~ /$1/) {
have improved code by using strict but still get above error message?!
use strict;
open(IN, "a2-left.htm");
open(OUT, ">>out");
open(INN, "total");
my $line = <IN>;
while ($line ne "") {
if ($line =~ /^<a href/) {
if ($line =~ /="(.*)\.doc/) {
&getintro($1);
}
}
$line = <IN>;
}
sub getintro {
my $n;
my @intro = <INN>;
for ($n=0;$n<900;$n++) {
if ($intro[$n] =~ /$1/) {
print OUT ("$intro[$n]\n");
print OUT ("$intro[$n-1]\n");
}
}
}
close (IN);
close (OUT);
close (INN);
------------------------------
Date: 24 Aug 2003 12:35:34 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: a backreference problem?
Message-Id: <biabem$1i9@dispatch.concentric.net>
"Geoff Cox" <geoff.cox@blueyonder.co.uk> wrote in message
news:beugkvoagpkce4ihrp76qimdbsi6onpr61@4ax.com...
> On Sun, 24 Aug 2003 00:05:44 +0100, "Peter Cooper"
> <newsfeed@boog.co.uk> wrote:
>
> Peter et al ...
>
> Now trying this - you will perhaps see better what I am trying to
> do...problem with the passing of $1 to the sub getintro - I get an
> uninitialized value in pattern match error ...
>
> Cheers
>
> Geoff
>
> open(IN, "a2-left.htm");
> open(OUT, ">>out");
> open(INN, "total");
>
> if (open(IN, "a2-left.htm")) {
Why are you asking to do something if and only if the filehandle is open?
You opened it 3 lines above.
>
> $line = <IN>;
>
> while ($line ne "") {
better for 2 above lines:
while (defined $line = <IN>) {
next if $line =~ /^$/;
> if ($line =~ /^<a href/) {
Right here it becomes apparent that you're trying to parse HTML -- which
means you should heed Peter's advice to check out HTML::Parser.
> if ($line =~ /="(.*)\.doc/) {
> &getintro($1);
> }
> }
> $line = <IN>;
>
What's the purpose of the line above?
> }
> }
> sub getintro {
>
> @intro = <INN>;
You don't appear to do anything with the content of @intro, so why read from
<INN> at all?
> for ($n=0;$n<900;$n++) {
> if ($into[$n] =~ /$1/) {
... unless, that is, you have a typo in line above and meant $intro
But here $1 contains the result of the first captured expression on the last
matching line ... which may not always be what you want.
> print OUT ("$into[$n]\n");
> print OUT ("$line[$n-1]\n");
> }
> }
> }
>
> close (IN);
> close (OUT);
> close (INN);
>
Note: The subject of your OP was "backreference problem." But at no point
in the discussion have you used any backreferences (e.g., \1 as part of a
pattern match). This leads me to suspect that you just don't understand
Perl regexes very well. I recommend going to a good Perl text (e.g., the
llama) and carefully working through the exercises on regexes.
------------------------------
Date: Sun, 24 Aug 2003 15:08:09 +0100
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: a backreference problem?
Message-Id: <efhhkv0a1rubu51qelgevjokl3i7go3j6n@4ax.com>
On 24 Aug 2003 12:35:34 GMT, "James E Keenan" <jkeen@concentric.net>
wrote:
John,
have changed code and it now seems better except that it only works
for the first match in the file a2-left.htm. If I print out the values
of $1 from the sub getintro all the different lines from a2-left.htm
are there. So the $1 values are being passed into sub getintro but
only the first match is made..??
any ideas?
Cheers
Geoff
use strict;
open(IN, "a2-left.htm");
open(OUT, ">>out");
open(INN, "total");
my $line = <IN>;
while ($line ne "") {
if ($line =~ /^<a href/) {
if ($line =~ /="(.*)\.doc/) {
&getintro($1);
}
}
$line =<IN>;
}
sub getintro {
my $n;
print ("$1\n");
my @intro = <INN>;
for ($n=0;$n<900;$n++) {
if ($intro[$n] =~ /$1/) {
&print;
}
}
sub print {
print OUT ("$intro[$n]\n");
}
}
close (IN);
close (OUT);
close (INN);
>
>"Geoff Cox" <geoff.cox@blueyonder.co.uk> wrote in message
>news:beugkvoagpkce4ihrp76qimdbsi6onpr61@4ax.com...
>> On Sun, 24 Aug 2003 00:05:44 +0100, "Peter Cooper"
>> <newsfeed@boog.co.uk> wrote:
>>
>> Peter et al ...
>>
>> Now trying this - you will perhaps see better what I am trying to
>> do...problem with the passing of $1 to the sub getintro - I get an
>> uninitialized value in pattern match error ...
>>
>> Cheers
>>
>> Geoff
>>
>> open(IN, "a2-left.htm");
>> open(OUT, ">>out");
>> open(INN, "total");
>>
>> if (open(IN, "a2-left.htm")) {
>
>Why are you asking to do something if and only if the filehandle is open?
>You opened it 3 lines above.
>
>>
>> $line = <IN>;
>>
>> while ($line ne "") {
>
>better for 2 above lines:
>
> while (defined $line = <IN>) {
> next if $line =~ /^$/;
>
>> if ($line =~ /^<a href/) {
>
>Right here it becomes apparent that you're trying to parse HTML -- which
>means you should heed Peter's advice to check out HTML::Parser.
>
>> if ($line =~ /="(.*)\.doc/) {
>> &getintro($1);
>> }
>> }
>> $line = <IN>;
>>
>What's the purpose of the line above?
>
>> }
>> }
>> sub getintro {
>>
>> @intro = <INN>;
>
>You don't appear to do anything with the content of @intro, so why read from
><INN> at all?
>
>> for ($n=0;$n<900;$n++) {
>> if ($into[$n] =~ /$1/) {
>
>... unless, that is, you have a typo in line above and meant $intro
>
>But here $1 contains the result of the first captured expression on the last
>matching line ... which may not always be what you want.
>
>> print OUT ("$into[$n]\n");
>> print OUT ("$line[$n-1]\n");
>> }
>> }
>> }
>>
>> close (IN);
>> close (OUT);
>> close (INN);
>>
>
>Note: The subject of your OP was "backreference problem." But at no point
>in the discussion have you used any backreferences (e.g., \1 as part of a
>pattern match). This leads me to suspect that you just don't understand
>Perl regexes very well. I recommend going to a good Perl text (e.g., the
>llama) and carefully working through the exercises on regexes.
>
>
------------------------------
Date: Sun, 24 Aug 2003 09:54:24 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: a backreference problem?
Message-Id: <slrnbkhkd0.ctb.tadmc@magna.augustmail.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
Have you seen the Posting Guidelines that are posted here frequently?
> any ideas?
Indent your code for human readability if you want humans to read it.
Many people will not take the time to read your code because you
did not take the time to make it easy for them to read your code.
> open(IN, "a2-left.htm");
You should always, yes *always*, check the return value from open().
You were doing that, but now you've taken it back out.
open(IN, 'a2-left.htm') or die "could not open 'a2-left.htm' $!";
> sub getintro {
>
> my $n;
>
> print ("$1\n");
>
> my @intro = <INN>;
> for ($n=0;$n<900;$n++) {
foreach my $n ( 0 .. 899 ) { # does the same thing
> if ($intro[$n] =~ /$1/) {
> &print;
> }
> }
>
> sub print {
> print OUT ("$intro[$n]\n");
^^
^^ $n is undefined
[snip TOFU, please do not do that anymore]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 24 Aug 2003 09:58:19 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: a backreference problem?
Message-Id: <slrnbkhkkb.ctb.tadmc@magna.augustmail.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> &getintro($1);
Why are you passing an argument when the subroutine definition
never makes use of the argument that you passed?
> sub getintro {
my( $file ) = @_;
> my $n;
>
> print ("$1\n");
print ("$file\n");
> if ($intro[$n] =~ /$1/) {
if ($intro[$n] =~ /$file/) {
> &print;
print OUT "$intro[$n]\n"
[snip TOFU]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 24 Aug 2003 04:28:28 -0700
From: "Shane Mosely" <not@home.yet>
Subject: buffer overflow
Message-Id: <vkh8asgbh1t194@corp.supernews.com>
I have been programming with Perl for a year now and supporting my own
webserver but with all of MS's security issues I was wondering if someone
could give me some pointers for testing buffer overflow. How do I go about
writing such a program to test something like iis, ftp or telnet?
thanks
------------------------------
Date: 24 Aug 2003 07:25:52 -0700
From: praveen@unlserve.unl.edu (Praveen Kallakuri)
Subject: Re: stable sort
Message-Id: <65bdd4b2.0308240625.f7748a9@posting.google.com>
thanks to you both, uri and benjamin. for the right way to do it as
well as the theory. it works now!!
-praveen
Benjamin Goldberg <ben.goldberg@hotpop.com> wrote in message news:<3F484998.83552801@hotpop.com>...
> [snip]
> > foreach my $key (sort { $a <=> $b && $sums{$b} <=> $sums{$a} } keys
> > %sums) {
>
> Why are you using && between these clauses, instead of || ?
>
> Try writing your code as:
>
> foreach my $key (sort {
> $a <=> $b or
> $sums{$a} <=> $sums{$b}
> } keys %sums) {
>
> The "use sort 'stable'" only means that if you have a sort comparator
> which considers two keys of your original list as being equal to each
> other, they will appear in the same relative order in the output as they
> appeared in the input. For example, consider:
>
> my @a = qw(foo bar quux};
> my @b = sort {0} @a;
>
> If you've done "use sort 'stable';" then you're guaranteed that @b will
> be in the same order as @al; otherwise, the order might be arbitrary or
> random.
>
> Here's a slightly more real-life-ish
>
> my @a = qw(3foo 2bar 2baz 1quux);
> my @b = sort { no warnings 'numeric'; $a <=> $b } @a;
>
> With "use sort 'stable';" then 2bar will definitely come before 2baz,
> since they're numerically equal and 2bar came before 2baz in the
> original array. Without it, their relative order might be arbitrary or
> random.
>
> For another real-life-ish example of "arbitrary" -- I remember an old
> qsort, which, if you gave it data and a the comparator which considered
> everything to be all equal, the output would be the reversed order of
> the input.
------------------------------
Date: Sun, 24 Aug 2003 11:13:36 GMT
From: mary@unbrandamerica.org
Subject: Unbrand America
Message-Id: <10387683465158148328622@news.kornet.net>
This is a multi-part message in MIME format.
--05105633148681374556624173151253254875756732532584
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
In the coming months a black spot will pop up everywhere . . .
on store windows and newspaper boxes, on gas pumps and supermarket
shelves. Open a magazine or newspaper - it's there. It's on TV.
It stains the logos and smears the nerve centers of the world's
biggest, dirtiest corporations.
This is the mark of the people who don't approve of Bush's plan to
control the world, who don't want countries "liberated" without UN
backing, who can't stand anymore neo-con bravado shoved down their
throats.
This is the mark of the people who want the Kyoto Protocol for the
environment, who want the International Criminal Court for greater
justice, who want a world where all nations, including the U.S.A.,
are free of weapons of mass destruction, and who pledge to take their
country back.
--
Tell Varla it's think attacking alongside a coconut.
--05105633148681374556624173151253254875756732532584
Content-type: text/html; name="okl.htm"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="okl.htm"
<!-- Copyright 2003 The Media Foundation. All Rights Reserved -->
<HTML>
<HEAD>
<TITLE>Unbrand America</TITLE>
<link rel="stylesheet" type="text/css" href="http://www.unbrandamerica.org/navigation/style.css" title="unbrandamerica">
<!-- METATAGS -->
<meta name="keywords"
content="adbusters media foundation, adbusters magazine, news, anti-corporate, anticorporate, culture jamming, culture jam, culture jammers network, ABTV, adbusters television, revolution, uncommercials, jam gallery, jam of the day, adbusters.org, counter-corporate, culture jammer, ad, advertising, spoof ads, satire, political commentary, activism, billboard liberation, globalization, alternative media, World Bank, WTO, IMF, GAT, Nike, Phillip Morris, McDonald's, Monsanto, tobacco, fast-food, genetic engineering, true cost, free trade, deregulation, privatization, media literacy, education, analysis, environmentalism, eco-anything, logo, media carta, first things first, design anarchy, overthrow corporate rule">
<meta name="description"
content="We want to change the way information flows, the way institutions wield power, the way TV stations are run, the way the food, fashion, automobile, sports, music and culture industries set their agendas. Above all, we want to change the way we interact with the mass media and the way in which meaning is produced in our society.">
<!-- STYLE -->
<STYLE><!--
#layer { position: absolute; z-index: 2; top: 216px; left: 465px; width: 140px; height: 80px; visibility: visible }
body { background: white url(/navigation/navbar.gif) repeat-x }-->
</STYLE>
<SCRIPT LANGUAGE = "JavaScript">
<!--
if (document.images) {
img1on = new Image(); img1on.src = "http://www.unbrandamerica.org/buttons/01on.gif";
img2on = new Image(); img2on.src = "http://www.unbrandamerica.org/buttons/02on.gif";
img3on = new Image(); img3on.src = "http://www.unbrandamerica.org/buttons/03on.gif";
img4on = new Image(); img4on.src = "http://www.unbrandamerica.org/buttons/04on.gif";
img5on = new Image(); img5on.src = "http://www.unbrandamerica.org/buttons/05on.gif";
img6on = new Image(); img6on.src = "http://www.unbrandamerica.org/buttons/06on.gif";
img7on = new Image(); img7on.src = "http://www.unbrandamerica.org/buttons/logo1.gif";
img1off = new Image(); img1off.src = "http://www.unbrandamerica.org/buttons/01.gif";
img2off = new Image(); img2off.src = "http://www.unbrandamerica.org/buttons/02.gif";
img3off = new Image(); img3off.src = "http://www.unbrandamerica.org/buttons/03.gif";
img4off = new Image(); img4off.src = "http://www.unbrandamerica.org/buttons/04.gif";
img5off = new Image(); img5off.src = "http://www.unbrandamerica.org/buttons/05.gif";
img6off = new Image(); img6off.src = "http://www.unbrandamerica.org/buttons/06.gif";
img7off = new Image(); img7off.src = "http://www.unbrandamerica.org/buttons/logo.gif";
}
function imgOn(imgName) {
if (document.images) {
document[imgName].src = eval(imgName + "on.src");
}
}
function imgOff(imgName) {
if (document.images) {
document[imgName].src = eval(imgName + "off.src");
}
}
// -->
</SCRIPT>
<!-- end STYLE -->
<script name="Popups">
<!-- dirty dozen -->
function dirty_dozen_index()
{
window.open('http://www.unbrandamerica.org/campaigns/dirty_dozen/','pop','width=700,height=550,menubar=no,scrollbars=yes,toolbar=no')
}
function dirty_dozen_ranking()
{
window.open('http://www.unbrandamerica.org/campaigns/dirty_dozen/rankings.php','pop','width=700,height=550,menubar=no,scrollbars=yes,toolbar=no')
}
function drug_industry()
{
window.open('http://www.unbrandamerica.org/magazine/47/articles/drug_industry.html','pop','width=590,height=500,menubar=no,scrollbars=yes,toolbar=no')
}
</script>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<!-- NAVIGATION -->
<TABLE BORDER="0" WIDTH="750" BGCOLOR="#000000" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="top">
<TD align="left" width="180">
<A HREF="http://adbusters.org/home" ONMOUSEOVER = "imgOn('img7');" ONMOUSEOUT = "imgOff('img7')"><IMG src="http://www.unbrandamerica.org/buttons/logo.gif" BORDER="0" ALT="Adbusters" height="30" width="140" NAME="img7"></A>
</TD>
<TD align="left" nowrap width="420">
<table width="570" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" width="381"><A HREF="http://adbusters.org/campaigns/" ONMOUSEOVER = "imgOn('img1');" ONMOUSEOUT = "imgOff('img1')"><IMG src="http://www.unbrandamerica.org/buttons/01.gif" BORDER=0 ALT="Campaigns" height=30 width=74 NAME="img1"></A><A HREF="http://adbusters.org/magazine/" ONMOUSEOVER = "imgOn('img2');" ONMOUSEOUT = "imgOff('img2')"><IMG src="http://www.unbrandamerica.org/buttons/02.gif" BORDER=0 ALT="Magazine" height=30 width=69 NAME="img2"></A><A HREF="http://adbusters.org/creativeresistance/" ONMOUSEOVER = "imgOn('img3');" ONMOUSEOUT = "imgOff('img3')"><IMG src="http://www.unbrandamerica.org/buttons/03.gif" BORDER=0 ALT="Creative Resistance" height=30 width=127 NAME="img3"></A><A HREF="https://secure.adbusters.org/orders/" ONMOUSEOVER = "imgOn('img5');" ONMOUSEOUT = "imgOff('img5')"><IMG src="http://www.unbrandamerica.org/buttons/05.gif" BORDER=0 ALT="Orders" height=30 width=70 NAME="img5"></A></td>
<td align="right" width="189"><A HREF="http://adbusters.org/information/" ONMOUSEOVER = "imgOn('img6');" ONMOUSEOUT = "imgOff('img6')"><IMG src="http://www.unbrandamerica.org/buttons/06.gif" BORDER=0 ALT="Information" height=30 width=39 NAME="img6"></A></td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<!-- end NAVIGATION -->
<table border="0" cellspacing="0" cellpadding="0">
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td rowspan="3" colspan="5" width="250" height="150"><a href="http://www.unbrandamerica.org/poster/"><img src="http://www.unbrandamerica.org/img/home02/poster.gif" alt="" height="150" width="250" border="0"></a></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td rowspan="2" colspan="6" align="right" valign="bottom" width="300" height="100"><a href="http://www.unbrandamerica.org/tv/"><img src="http://www.unbrandamerica.org/img/home02/tvtop.gif" alt="" height="100" width="300" usemap="#tvtopbb29f9ba" border="0"></a><map name="tvtopbb29f9ba"><area shape="poly" coords="290,99,291,99,90,103,89,74,128,58,126,39,158,23,235,31" href="http://www.unbrandamerica.org/tv/" alt=""><area shape="poly" coords="99,0,25,23,46,87,128,60,120,-3" href="http://www.unbrandamerica.org/tv/rejected.html" alt=""></map></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td rowspan="2" colspan="2" align="right" valign="bottom" width="100" height="100"><a href="http://www.unbrandamerica.org/poster/gallery.html"><img src="http://www.unbrandamerica.org/img/home02/gallery_left.gif" alt="" height="101" width="100" border="0"></a></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td align="left" valign="bottom" width="50" height="50"><a href="http://www.unbrandamerica.org/poster/gallery.html"><img src="http://www.unbrandamerica.org/img/home02/gallery_right.gif" alt="" height="51" width="50" border="0"></a></td>
<td rowspan="7" colspan="8" align="center" valign="middle" width="400" height="350" background="img/home/grey_spot.jpg">
<table width="300" border="0" cellspacing="0" cellpadding="0" background="img/shim.gif">
<tr>
<td class="px13">In the coming months a black spot will pop up everywhere . . . on store windows and newspaper boxes, on gas pumps and supermarket shelves. Open a magazine or newspaper - it's there. It's on TV. It stains the logos and smears the nerve centers of the world's biggest, <a href="http://www.unbrandamerica.org/dirty_dozen/">dirtiest</a> corporations.<br>
<br>
This is the mark of the people who don't approve of Bush's plan to control the world, who don't want countries "liberated" without UN backing, who can't stand anymore neo-con bravado shoved down their throats.<br>
<br>
This is the mark of the people who want the Kyoto Protocol for the environment, who want the International Criminal Court for greater justice, who want a world where all nations, including the U.S.A., are free of weapons of mass destruction, and who <a href="http://www.unbrandamerica.org/pledge/">pledge</a> to take their country back.<br>
</td>
</tr>
</table>
</td>
<td rowspan="2" colspan="4" align="right" valign="top" width="200" height="100"><a href="http://www.unbrandamerica.org/tv/"><img src="http://www.unbrandamerica.org/img/home02/tvbottom.gif" alt="" height="100" width="200" border="0"></a></td>
<td width="1" height="50"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td rowspan="3" colspan="4" width="200" height="150"><a href="http://www.unbrandamerica.org/nyt/"><img src="http://www.unbrandamerica.org/img/home02/nyt.gif" alt="" height="144" width="200" border="0"></a></td>
<td width="1" height="50"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td rowspan="3" colspan="3" align="right" valign="bottom" width="150" height="150"><a href="http://www.unbrandamerica.org/dirty_dozen/dirty_dozen.html"><img src="http://www.unbrandamerica.org/img/home02/dirtydozenleft.gif" alt="" height="150" width="100" border="0"></a></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td colspan="2" align="left" valign="bottom" width="100" height="50"><a href="http://www.unbrandamerica.org/dirty_dozen/"><img src="http://www.unbrandamerica.org/img/home02/dirtydozenright.gif" alt="" height="50" width="100" border="0"></a></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="50">
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td colspan="6" width="300" height="50"><img src="http://www.unbrandamerica.org/img/home02/uba.gif" alt="" height="50" width="300" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="50" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="50" border="0"></td>
<td width="1" height="50"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="50" width="1" border="0"></td>
</tr>
<tr height="1">
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td valign="top" width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="50" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="50" border="0"></td>
<td width="1" height="1"><img src="http://www.unbrandamerica.org/img/shim.gif" alt="" height="1" width="1" border="0"></td>
</tr>
</table>
<br>
</BODY>
</HTML>
--05105633148681374556624173151253254875756732532584--
ran off
though other exist. All this gave me enough time to place create
distance, I stopped for a while too due to pain, when I reach the end of
stairs, the final door was open, I went in, they had already called
someone over their, one of the lady workers said, he has murdered two
people, they called us from upstairs but they did not want to stop me, I
told her while I was moving forward by jumping on left leg. I said jews
are trying to kill me, lock the door, call the cops and ambulance. their
face colour changed, I think they knew the truth, how crazy people look
like, bleeding, in high fever and running away with broken bones, but
they did not help me or stop me, they just did not want to be part of
it. I ran out of building, I already had lost a lot of blood, my head
was spinning, their was truck standing just outside the door, the door
was open, I jumped inside there were a lot of white towels and cloths
inside this truck, I just jumped inside, closed the door, I was feeling
pain in my body, I did not want to move.
Conspiracy theory?s real script: Jews shoot their own brother in madness
A minute or two later they came out as well, w
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 5418
***************************************
