[28651] in Perl-Users-Digest
Perl-Users Digest, Issue: 10015 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 28 18:05:57 2006
Date: Tue, 28 Nov 2006 15:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 28 Nov 2006 Volume: 10 Number: 10015
Today's topics:
Bareword errors? <reviewyourdemo@hotmail.com>
Re: Bareword errors? <noreply@gunnar.cc>
Re: Bareword errors? <spamtrap@dot-app.org>
Re: Bareword errors? <reviewyourdemo@hotmail.com>
Re: Bareword errors? <reviewyourdemo@hotmail.com>
Re: Bareword errors? <spamtrap@dot-app.org>
Date function <Holleran.Kevin@gmail.com>
Re: Date function <mislam@spam.uiuc.edu>
Re: Date function <Holleran.Kevin@gmail.com>
Re: Date function <tbmoore9@verizon.net>
Re: Date function <noreply@gunnar.cc>
Re: Date function <nobull67@gmail.com>
Re: Date function <noreply@gunnar.cc>
Re: Date function <tbmoore9@verizon.net>
Re: Date function <noreply@gunnar.cc>
Re: Errors in Perl Function <ddunham@redwood.taos.com>
Re: Expression problem <rvtol+news@isolution.nl>
Re: FAQ 1.8 Is Perl difficult to learn? <benmorrow@tiscali.co.uk>
HTML::TokeParser and Matching <mislam@spam.uiuc.edu>
Re: literal substitution <tzz@lifelogs.com>
Re: literal substitution <mritty@gmail.com>
MI5 Persecution: .net magazine article MI5-Victim@mi5.gov.uk
MI5 Persecution: BBC h2g2 online MI5-Victim@mi5.gov.uk
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 28 Nov 2006 14:45:51 -0500
From: gcr <reviewyourdemo@hotmail.com>
Subject: Bareword errors?
Message-Id: <reviewyourdemo-4EF3AC.14455128112006@reader2.panix.com>
Thanks for any opinions / advice / explanations / flames;
Short version -
getting an inconsistant (?) bareword error
strict accepts the first use of the bareword(?) but not later -
(not under strict one runs - the other gives error.
Long version:
how come the first bareword at line 15 passes? - right under getweb()
---snip
Bareword "search2" not allowed while "strict subs" in use at ./s1why.cgi
line 19.
Bareword "search1" not allowed while "strict subs" in use at ./s1why.cgi
line 22.
Bareword "search2" not allowed while "strict subs" in use at ./s1why.cgi
line 22.
----snip
when 'strict' isn't used:
----snip
Can't locate object method "HASH" via package "search2" (perhaps you
forgot to load "search2"?) at ./s1why.cgi line 19.
I'll hack around this but curious why first use passes.
This is perl, v5.8.1-RC3 built for darwin-thread-multi-2level
os x 10.3.9
-----snip -----
#!/usr/bin/perl
use strict;
my $search;
my %HASH;
my $name;
my $value;
my @pairs;
my $buffer;
my $pair;
getweb();
if (!$HASH{search1}) {
$search = "search2 only";
}
if (!HASH{search2}) {
$search = "search1 only";
}
if (!HASH{search1} && !HASH{search2}){
$search = "no search";
}
sub getweb() {
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$HASH{$name} = $value;
}
}
------------------------------
Date: Tue, 28 Nov 2006 20:36:43 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Bareword errors?
Message-Id: <4t3hedF121424U1@mid.individual.net>
gcr wrote:
> if (!HASH{search2}) {
-------^
> $search = "search1 only";
> }
> if (!HASH{search1} && !HASH{search2}){
-------^
Something is missing there...
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 28 Nov 2006 14:48:45 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Bareword errors?
Message-Id: <m264czmjxe.fsf@Sherm-Pendleys-Computer.local>
gcr <reviewyourdemo@hotmail.com> writes:
> I'll hack around this but curious why first use passes.
The first use passes because it doesn't have the same error.
> -----snip -----
>
> #!/usr/bin/perl
>
> use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
> my $search;
> my %HASH;
> my $name;
> my $value;
> my @pairs;
> my $buffer;
> my $pair;
>
> getweb();
Why are you reinventing that wheel? Have a look at the CGI module - it's
the standard for a reason. (If you're using a book that told you to do
that, take that book back for a refund, and buy one whose author actually
knows what he or she is talking about.)
Also, why are you using global variables for everything, and giving them
nonsensical names like %HASH? Those are bad habits in *any* language.
> if (!$HASH{search1}) {
> $search = "search2 only";
> }
>
> if (!HASH{search2}) {
^
$HASH
> $search = "search1 only";
> }
> if (!HASH{search1} && !HASH{search2}){
^ ^
$HASH $HASH
> $search = "no search";
> }
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Tue, 28 Nov 2006 16:18:16 -0500
From: gcr <reviewyourdemo@hotmail.com>
Subject: Re: Bareword errors?
Message-Id: <reviewyourdemo-C9CDA2.16181628112006@reader2.panix.com>
In article <4t3hedF121424U1@mid.individual.net>,
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> gcr wrote:
> > if (!HASH{search2}) {
> -------^
>
> > $search = "search1 only";
> > }
> > if (!HASH{search1} && !HASH{search2}){
> -------^
>
> Something is missing there...
Ouch!! My bad - no sleep. Thanks and sorry for stupid question.
------------------------------
Date: Tue, 28 Nov 2006 16:20:46 -0500
From: gcr <reviewyourdemo@hotmail.com>
Subject: Re: Bareword errors?
Message-Id: <reviewyourdemo-C0EE5A.16204628112006@reader2.panix.com>
In article <m264czmjxe.fsf@Sherm-Pendleys-Computer.local>,
Sherm Pendley <spamtrap@dot-app.org> wrote:
Ouch! My Bad. Sorry, no sleep.
Side point - I've been burned a few times by cgi.pm so I gave up on it -
I didn't reinvent this wheel, though, I got it from someone and have
been using it for a while.
Sorry for the stupid question.
> gcr <reviewyourdemo@hotmail.com> writes:
>
> > I'll hack around this but curious why first use passes.
>
> The first use passes because it doesn't have the same error.
>
> > -----snip -----
> >
> > #!/usr/bin/perl
> >
> > use strict;
>
> use warnings;
> use CGI;
> use CGI::Carp qw(fatalsToBrowser);
>
> > my $search;
> > my %HASH;
> > my $name;
> > my $value;
> > my @pairs;
> > my $buffer;
> > my $pair;
> >
> > getweb();
>
> Why are you reinventing that wheel? Have a look at the CGI module - it's
> the standard for a reason. (If you're using a book that told you to do
> that, take that book back for a refund, and buy one whose author actually
> knows what he or she is talking about.)
>
> Also, why are you using global variables for everything, and giving them
> nonsensical names like %HASH? Those are bad habits in *any* language.
>
> > if (!$HASH{search1}) {
> > $search = "search2 only";
> > }
> >
> > if (!HASH{search2}) {
> ^
> $HASH
>
> > $search = "search1 only";
> > }
> > if (!HASH{search1} && !HASH{search2}){
> ^ ^
> $HASH $HASH
>
> > $search = "no search";
> > }
>
> sherm--
------------------------------
Date: Tue, 28 Nov 2006 17:23:07 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Bareword errors?
Message-Id: <m21wnnmcs4.fsf@Sherm-Pendleys-Computer.local>
gcr <reviewyourdemo@hotmail.com> writes:
> Side point - I've been burned a few times by cgi.pm so I gave up on it
If you get "burned" by something that literally *thousands* of other people
are using successfully, giving up and blaming the module is just silly.
> I didn't reinvent this wheel, though, I got it from someone and have
> been using it for a while.
So? It's still awful code, regardless of how long you've been using it. It
uses global variables, for pity's sake. You're claiming that the standard
module is somehow inferior, when the author of the code you're using now
doesn't even know how to return a value from a subroutine?
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 28 Nov 2006 13:48:07 -0800
From: "K.J. 44" <Holleran.Kevin@gmail.com>
Subject: Date function
Message-Id: <1164750487.485271.239390@80g2000cwy.googlegroups.com>
Hi,
is there a date function in Perl or do I have to try to find a module?
What i need is to be able to come up with the current date, then
subtract one day, and add that to the file name in the form of:
YYYY-MM-DD-RestOfFileName.txt
The script I have written parses these files and I want to run it every
night after midnight on the previous days file which has the naming
convention above.
I am running ActiveState Perl in a Windows environment.
Thanks.
------------------------------
Date: Tue, 28 Nov 2006 16:04:56 -0600
From: Sharif Islam <mislam@spam.uiuc.edu>
Subject: Re: Date function
Message-Id: <ekibq8$c0q$1@news.ks.uiuc.edu>
K.J. 44 wrote:
> Hi,
>
> is there a date function in Perl or do I have to try to find a module?
>
> What i need is to be able to come up with the current date, then
> subtract one day, and add that to the file name in the form of:
>
> YYYY-MM-DD-RestOfFileName.txt
>
> The script I have written parses these files and I want to run it every
> night after midnight on the previous days file which has the naming
> convention above.
>
> I am running ActiveState Perl in a Windows environment.
You can use the Date::Format module.
use strict
use Date::Format;
my $yesterday = time() - ( 24 * 60 * 60 );
my $prefix= time2str("%Y-%m-%d", $yesterday);
# YYYY-MM-DD-RestOfFileName.txt
print $prefix."-RestOfFileName.txt"
------------------------------
Date: 28 Nov 2006 14:08:11 -0800
From: "K.J. 44" <Holleran.Kevin@gmail.com>
Subject: Re: Date function
Message-Id: <1164751691.353555.86450@h54g2000cwb.googlegroups.com>
I will try that. Thank you!
Sharif Islam wrote:
> K.J. 44 wrote:
> > Hi,
> >
> > is there a date function in Perl or do I have to try to find a module?
> >
> > What i need is to be able to come up with the current date, then
> > subtract one day, and add that to the file name in the form of:
> >
> > YYYY-MM-DD-RestOfFileName.txt
> >
> > The script I have written parses these files and I want to run it every
> > night after midnight on the previous days file which has the naming
> > convention above.
> >
> > I am running ActiveState Perl in a Windows environment.
>
>
> You can use the Date::Format module.
>
> use strict
> use Date::Format;
> my $yesterday = time() - ( 24 * 60 * 60 );
> my $prefix= time2str("%Y-%m-%d", $yesterday);
> # YYYY-MM-DD-RestOfFileName.txt
> print $prefix."-RestOfFileName.txt"
------------------------------
Date: Tue, 28 Nov 2006 22:15:01 GMT
From: boyd <tbmoore9@verizon.net>
Subject: Re: Date function
Message-Id: <tbmoore9-213C82.17150028112006@news.verizon.net>
In article <1164750487.485271.239390@80g2000cwy.googlegroups.com>,
"K.J. 44" <Holleran.Kevin@gmail.com> wrote:
> Hi,
>
> is there a date function in Perl or do I have to try to find a module?
>
> What i need is to be able to come up with the current date, then
> subtract one day, and add that to the file name in the form of:
>
> YYYY-MM-DD-RestOfFileName.txt
>
> The script I have written parses these files and I want to run it every
> night after midnight on the previous days file which has the naming
> convention above.
>
> I am running ActiveState Perl in a Windows environment.
>
> Thanks.
There are built-in functions and modules, and numerous ones in the CPAN
library. I usually build this kind of thing myself, finding it quicker
than trying to find the right module.
something like:
my( $day, $mon, $yr ) = ( localtime( time - 24*3600) )[3, 4, 5];
$yr += 1900;
$mon += 1;
my $str = sprintf '%4d-%02d-%02d', $yr, $mon, $day;
would give you the prefix string for your filename.
Boyd
------------------------------
Date: Tue, 28 Nov 2006 23:15:07 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Date function
Message-Id: <4t3qndF11g6o6U1@mid.individual.net>
Sharif Islam wrote:
> You can use the Date::Format module.
>
> use strict
> use Date::Format;
> my $yesterday = time() - ( 24 * 60 * 60 );
> my $prefix= time2str("%Y-%m-%d", $yesterday);
> # YYYY-MM-DD-RestOfFileName.txt
> print $prefix."-RestOfFileName.txt"
Or you can stick to the builtin functions and the standard module
Time::Local:
use Time::Local;
my $midnight = timelocal 0, 0, 0, (localtime)[3..5];
my ($d, $m, $y) = (localtime $midnight-40000)[3..5];
print 'Yesterday: ',
sprintf('%d-%02d-%02d', $y+1900, $m+1, $d), "\n";
Note that Sharif's solution doesn't address the DST problem.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 28 Nov 2006 14:16:13 -0800
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Date function
Message-Id: <1164752173.230809.308130@45g2000cws.googlegroups.com>
Sharif Islam wrote:
> K.J. 44 wrote:
> > Hi,
> >
> > is there a date function in Perl or do I have to try to find a module?
> >
> > What i need is to be able to come up with the current date, then
> > subtract one day, and add that to the file name in the form of:
> >
> > YYYY-MM-DD-RestOfFileName.txt
> >
> > The script I have written parses these files and I want to run it every
> > night after midnight on the previous days file which has the naming
> > convention above.
> >
> > I am running ActiveState Perl in a Windows environment.
>
>
> You can use the Date::Format module.
Or just the POSIX module's strftime().
------------------------------
Date: Tue, 28 Nov 2006 23:18:00 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Date function
Message-Id: <4t3qsqF11g6o6U2@mid.individual.net>
boyd wrote:
> something like:
>
> my( $day, $mon, $yr ) = ( localtime( time - 24*3600) )[3, 4, 5];
> $yr += 1900;
> $mon += 1;
> my $str = sprintf '%4d-%02d-%02d', $yr, $mon, $day;
>
> would give you the prefix string for your filename.
What about DST? ;-)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 28 Nov 2006 22:42:47 GMT
From: boyd <tbmoore9@verizon.net>
Subject: Re: Date function
Message-Id: <tbmoore9-77B5E4.17424728112006@news.verizon.net>
In article <4t3qsqF11g6o6U2@mid.individual.net>,
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> boyd wrote:
> > something like:
> >
> > my( $day, $mon, $yr ) = ( localtime( time - 24*3600) )[3, 4, 5];
> > $yr += 1900;
> > $mon += 1;
> > my $str = sprintf '%4d-%02d-%02d', $yr, $mon, $day;
> >
> > would give you the prefix string for your filename.
>
> What about DST? ;-)
Good point. So my method would mess up on one of the DST changeovers if
it ran between midnight and 0100 local. Is that right? What is the
"40000" for in your script?
Boyd
------------------------------
Date: Tue, 28 Nov 2006 23:56:47 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Date function
Message-Id: <4t3t5hF126g8tU1@mid.individual.net>
boyd wrote:
> In article <4t3qsqF11g6o6U2@mid.individual.net>,
> Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
>>boyd wrote:
>>>something like:
>>>
>>>my( $day, $mon, $yr ) = ( localtime( time - 24*3600) )[3, 4, 5];
>>>$yr += 1900;
>>>$mon += 1;
>>>my $str = sprintf '%4d-%02d-%02d', $yr, $mon, $day;
>>>
>>>would give you the prefix string for your filename.
>>
>>What about DST? ;-)
>
> Good point. So my method would mess up on one of the DST changeovers if
> it ran between midnight and 0100 local. Is that right?
Yeah, that's what I'm thinking of. Maybe not a disaster in this case,
but always worth considering when dealing with dates.
> What is the "40000" for in your script?
That's 'approximately' 12 hours, i.e. well enough time to make the
result DST safe. :)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 28 Nov 2006 18:40:33 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: Errors in Perl Function
Message-Id: <Bo%ah.1018$Py2.491@newssvr27.news.prodigy.net>
John W. Krahn <someone@example.com> wrote:
> But if you really must use Perl:
> $ perl -MPOSIX -le'
> print for strftime( "%Y%m%d", localtime ),
> strftime( "%Y%m%d", localtime time() - 86400 )
> '
> 20061127
> 20061126
That function may fail in environments with daylight saving time if
executed near potential time change points. Since many folks schedule
cron jobs for wee hours of the morning, that's a very real possibility.
--
Darren Dunham ddunham@taos.com
Senior Technical Consultant TAOS http://www.taos.com/
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Tue, 28 Nov 2006 17:19:11 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Expression problem
Message-Id: <ekhr36.n0.1@news.isolution.nl>
Mr P schreef:
> PS: [0-9A-Za-z_\-] looks a LOT like \w
But \w matches 91801 characters (codepoints).
http://www.xs4all.nl/~rvtol/perl/unicount.pl
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 28 Nov 2006 20:41:48 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: FAQ 1.8 Is Perl difficult to learn?
Message-Id: <chju34-hlq.ln1@osiris.mauzo.dyndns.org>
Quoth PerlFAQ Server <brian@stonehenge.com>:
<snip>
> Things that make Perl easier to learn: Unix experience, almost any kind
> of programming experience, an understanding of regular expressions, and
> the ability to understand other people's code. If there's something you
> need to do, then it's probably already been done, and a working example
> is usually available for free. Don't forget the new perl modules,
^^^
They aren't exactly 'new' any more :).
Ben
--
Many users now operate their own computers day in and day out on various
applications without ever writing a program. Indeed, many of these users
cannot write new programs for their machines...
-- F.P. Brooks, 'No Silver Bullet', 1987 [benmorrow@tiscali.co.uk]
------------------------------
Date: Tue, 28 Nov 2006 15:42:39 -0600
From: Sharif Islam <mislam@spam.uiuc.edu>
Subject: HTML::TokeParser and Matching
Message-Id: <ekiagf$bk7$1@news.ks.uiuc.edu>
I have a webpage where I need to look for the string 'Matches: n' (n is
any number). The html is not that well structured, so I am having some
difficulties parsing the right part. If the match is not zero, I want to
grab the remaining text. (html code below)
use strict;
use LWP::Simple;
use HTML::TokeParser;
use Data::Dumper;
# First - LWP::Simple. Download the page using get();.
my $content = get( "http://www.somewebpage.com/id=396" ) or die $!;
my $stream = HTML::TokeParser->new( \$content ) or die $!;
my ($tag, $headline, $url,$p);
while (my $p = $stream->get_tag("td")) {
my $text = $stream->get_trimmed_text("/td");
if ($text =~ /Matches/)
{ print $text; }
}
____HTML___
<tr><td>Matches:</td><td>3</td></table>
<hr size=1>
<table width="100%" cellpadding=0 cellspacing=0>
<tr><td nowrap><br>
I want to GRAB THIS PART <br>
<img hspace=2 src="/gif/dot.gif" alt=" "><A
HREF="http://www.somepage.com">Link1</A><br>
</td><td nowrap><br><br> 01/31/2007<br></td>
<tr>
<td nowrap><br>
I want to GRAB THIS ALSO<br>
<img hspace=2 src="/gif/dot.gif" alt=" ">I want to GRAB THIS ALSO<br>
<img hspace=4 src="/gif/dot.gif" alt=" ">I want to GRAB THIS ALSO<br>
<img hspace=6 src="/gif/dot.gif" alt=" "><A
HREF="www.www.com">Link2</A><br>
</td><td nowrap><br><br><br><br> 02/01/2007+<br></td>
<tr>
<td nowrap><br>
......
</table>
------------------------------
Date: Tue, 28 Nov 2006 16:11:59 +0000
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: literal substitution
Message-Id: <g69irgzk0ts.fsf@lifelogs.com>
On 24 Nov 2006, jurgenex@hotmail.com wrote:
> Sometimes I wonder why people are so obsessed with REs. Yes, they are great
> and powerful and you you can do a lot with them.
> However, why bend over backwards to make them fit a scenario they were not
> meant for when there are much easier and straightforward solutions:
> - use index() to find the location of string $a in $str
> - use substr() to replace the text
The first part of the problem, finding a constant string, is
definitely better with index(), but I would argue REs are exactly
right for this task as a whole. You'd have to write at least 5 lines
of code vs. one simple line (quotemeta() makes it two lines); not to
mention the complexity and potential for bugs are higher. Yes, you
can jam index()/substr() into one or two lines, I'm assuming sane
maintainable code here.
If it was just one substitution, maybe it's a tie, but with the g flag
you have to loop too. Unless you were optimizing, why would you do
this to yourself and to whoever has to maintain your code later?
Ted
------------------------------
Date: 28 Nov 2006 08:17:21 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: literal substitution
Message-Id: <1164730641.558868.37010@j72g2000cwa.googlegroups.com>
Ted Zlatanov wrote:
> On 24 Nov 2006, jurgenex@hotmail.com wrote:
>
> > Sometimes I wonder why people are so obsessed with REs. Yes, they are great
> > and powerful and you you can do a lot with them.
> > However, why bend over backwards to make them fit a scenario they were not
> > meant for when there are much easier and straightforward solutions:
> > - use index() to find the location of string $a in $str
> > - use substr() to replace the text
>
> The first part of the problem, finding a constant string, is
> definitely better with index(), but I would argue REs are exactly
> right for this task as a whole. You'd have to write at least 5 lines
> of code vs. one simple line (quotemeta() makes it two lines);
The \Q..\E representation of quotemeta() keeps it one line.
s/\Q$a\E/$b;
Paul Lalli
------------------------------
Date: 28 Nov 2006 20:57:24 GMT
From: MI5-Victim@mi5.gov.uk
Subject: MI5 Persecution: .net magazine article
Message-Id: <m06102821520042@4ax.com>
net magazine article March/1998
Britain's .net Magazine featured my website on page 17 of their March 1998 issue (number 42). They quote from the "FAQ"
pages, and also include some details of the evidence I have tried to present on my website.
The age of some of the material on the website shows in this review, which says the case "has been discussed in uk.*
newsgroups during the past year". At this time (March 1998) it has been discussed on uk.misc for three years, and there
are still occasional traces of the discussion going on.
436
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 28 Nov 2006 20:20:27 GMT
From: MI5-Victim@mi5.gov.uk
Subject: MI5 Persecution: BBC h2g2 online
Message-Id: <m06102821150374@4ax.com>
BBC h2g2 16/Sept/1999
The BBC's h2g2 website is billed as "Earth Edition of The Hitchhiker's Guide to the Galaxy!". Naturally, one of its pages
is about me, me, me. It starts off with the lines;
Every now and then something comes along which makes you
think "Ah! That's what the Internet is for!" Mike Corley
is one such case.
The page itself can be found at http://www.bbc.co.uk/dna/h2g2/alabaster/A164404
The user comments linked from h2g2 are less than respectful, but given the point of view my website promulgates that is
understandable. It's true that without the communications ability afforded by the internet, which came along at just the
right time, my complaints would be getting nowhere. But that's a two edged sword also; miniature cameras only appeared
around 1990, so the advantage of technology is up to the adopter. Secret service intrigues, and on the other side of the
coin human paranoia, have both been going on for centuries; what changes now is an increased technologisation of both sides.
436
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 10015
****************************************
