[25123] in Perl-Users-Digest
Perl-Users Digest, Issue: 7373 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 7 11:05:21 2004
Date: Sun, 7 Nov 2004 08:05:07 -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 Sun, 7 Nov 2004 Volume: 10 Number: 7373
Today's topics:
Binary files in PERL? <benkhoo@copperblue.per.sg>
Re: Binary files in PERL? <jurgenex@hotmail.com>
Re: casting question <Joe.Smith@inwap.com>
Re: casting question <Joe.Smith@inwap.com>
Re: casting question <tassilo.von.parseval@rwth-aachen.de>
Re: casting question <Joe.Smith@inwap.com>
FAQ 8.37: How do I find out if I'm running interactivel <comdog@panix.com>
Re: Generating postscript file <zentara@highstream.net>
Re: Global symbol requires explicit package name <Joe.Smith@inwap.com>
Re: Hash ref problem in Plucene::Simple (while searchin <ewijaya@singnet.com.sg.removethis>
Re: Logging UDP Packets <Joe.Smith@inwap.com>
Re: map()'s BLOCK (Anno Siegel)
Re: OT (Re: casting question) <perl@my-header.org>
Re: perldoc problem on linux <Joe.Smith@inwap.com>
Re: reading a txt file <bik.mido@tiscalinet.it>
Simplifying by refactoring 'array ref' and glob from 'm <ewijaya@singnet.com.sg.removethis>
Re: Simplifying by refactoring 'array ref' and glob fro <perl@my-header.org>
Re: Solaris taking over Perl ownership <wyzelli@yahoo.com>
Stupid Americans! -- Stupid... Stupid... STUPID!!! _ Victim_of_American_Stupidity@esashale.ms.us
Stupid Americans! -- Stupid... Stupid... STUPID!!! _ Victim_of_American_Stupidity@tigdi.ac.id
Re: why not print $A[0] <nobull@mail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 07 Nov 2004 13:31:06 +0800
From: Benjamin Khoo <benkhoo@copperblue.per.sg>
Subject: Binary files in PERL?
Message-Id: <pan.2004.11.07.05.31.06.282950@copperblue.per.sg>
hi all
i would like to find out how to write a binary file in PERL
most of the readme and tutorial online only deal with writing ASCII files.
I would like to create a file with the inputs of the df3 file format.
can any one help?
--
bENJAMIN kHOO
qIU wENDA
http://www.copperblue.per.sg
------------------------------
Date: Sun, 07 Nov 2004 05:58:41 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Binary files in PERL?
Message-Id: <lQijd.1038$jC5.714@trnddc07>
Benjamin Khoo wrote:
> i would like to find out how to write a binary file in PERL
>
> most of the readme and tutorial online only deal with writing ASCII
> files.
Are you really on an OS that differentiates between binary and text files?
Then you may want to check
perldoc -q binary: "How do I handle binary data correctly?"
perldoc -f binmode
jue
------------------------------
Date: Sun, 07 Nov 2004 07:05:34 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: casting question
Message-Id: <2Pjjd.8079$5K2.616@attbi_s03>
daniel kaplan wrote:
> i have a CASTING question, nothing more...
No, your problem is not with CASTING. (Perl doesn't use casts).
Your problem is in using the right punctuation to de-reference a reference
to an array. A better subject for this thread would have been "How do I
work with array references in perl?".
> here are just a few of the ones that i have tried and they all give the same
> error msg
>
> Scalar found where operator expected
>
> foreach $email_line ( $$IMobj->{mail_inet_body} )
> foreach $email_line ( $IMobj->{mail_inet_body} )
> foreach $email_line ( {$IMobj->{mail_inet_body}} )
> foreach $email_line (@{$IMobj->{mail_inet_body}})
The code you're using must not match the code you're posting.
The last one *does* work.
use strict; use warnings;
use Mail::Internet;
my @array;
my $a_ref = \@array;
my $IMobj = Mail::Internet->new($a_ref);
print $IMobj,"\n";
foreach my $line (@{$IMobj->{mail_inet_body}}) {print $line,"\n"};
foreach my $line (@{$IMobj->body}) {print $line,"\n"};
-Joe
------------------------------
Date: Sun, 07 Nov 2004 07:11:30 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: casting question
Message-Id: <BUjjd.56176$HA.10488@attbi_s01>
daniel kaplan wrote:
>>declaration of $email_line before its first use.
>
> it's declarted, otherwie the error would be a little more obvious...i do all
> my declares at the top of a subroutine (habit)
In perl that is a bad habit.
A variable that is going to be valid only inside the body of a foreach
loop should be as such:
foreach my $variable (@list) { expr; expr; }
Variables should be declared in the smallest scope possible, in order
to help the compiler to detect typographical errors for you.
When a variable goes out of scope, the memory that had been allocated
to it can be re-used.
-Joe
------------------------------
Date: Sun, 7 Nov 2004 08:22:52 +0100
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: casting question
Message-Id: <slrncorjac.801.tassilo.von.parseval@localhost.localdomain>
Also sprach Joe Smith:
> daniel kaplan wrote:
>
>>>declaration of $email_line before its first use.
>>
>> it's declarted, otherwie the error would be a little more obvious...i do all
>> my declares at the top of a subroutine (habit)
>
> In perl that is a bad habit.
On the other hand, it does honor the principle of locality where
relevant things are all gathered in one place and thus can be seen at
one glance.
Which isn't to say that you can have more than one such location in a
subroutine. A new block is usually a good candidate for a new point of
locality.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sun, 07 Nov 2004 10:17:13 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: casting question
Message-Id: <JCmjd.8408$5K2.2118@attbi_s03>
A. Sinan Unur wrote:
> "daniel kaplan" <nospam@nospam.com> wrote in
>>would still very much like to figure out the syntax tho for my first
>>headache... and shouldn't casting and derefencing be the same thing?
>>aren't they both NO-OP?
>
>
> Uh-oh!
>
> http://dspace.dial.pipex.com/town/green/gfd34/art/
Or, if you want to go directly to the frame being referenced:
http://dspace.dial.pipex.com/town/green/gfd34/art/bloopers.html
LOL :-)
-Joe
------------------------------
Date: Sun, 7 Nov 2004 11:03:01 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 8.37: How do I find out if I'm running interactively or not?
Message-Id: <cmkvd5$pfk$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
8.37: How do I find out if I'm running interactively or not?
Good question. Sometimes "-t STDIN" and "-t STDOUT" can give clues,
sometimes not.
if (-t STDIN && -t STDOUT) {
print "Now what? ";
}
On POSIX systems, you can test whether your own process group matches
the current process group of your controlling terminal as follows:
use POSIX qw/getpgrp tcgetpgrp/;
open(TTY, "/dev/tty") or die $!;
$tpgrp = tcgetpgrp(fileno(*TTY));
$pgrp = getpgrp();
if ($tpgrp == $pgrp) {
print "foreground\n";
} else {
print "background\n";
}
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Sun, 07 Nov 2004 09:26:51 -0500
From: zentara <zentara@highstream.net>
Subject: Re: Generating postscript file
Message-Id: <bubso09do9fvnq5lrh4h7uss8ujcfpprmh@4ax.com>
On Fri, 5 Nov 2004 14:07:31 +0000 (UTC), Ian Wilson
<scobloke2@infotop.co.uk> wrote:
>BCC wrote:
>
>> Does anyone know of a perl module like GD that will allow me to draw
>> with colors and shapes and save it as a postscript file? GD doesnt give
>> me that option unfortunately.
>>
>> Looked in CPAN and didnt see anything.
Create a tk Canvas, and create what you want, then use the
postscript method to save it. A typical "save" routine looks something
like this:
##########################################
$main->Button(
-text => "Save",
-command => [sub {
$canvas->update;
my @capture=();
my ($x0,$y0,$x1,$y1)=$canvas->bbox('all');
@capture=('-x'=>$x0,'-y'=>$y0,-height=>$y1-$y0,-width=>$x1-$x0);
$canvas->postscript(-colormode=>'color',
-file=>$0.'.ps',
-rotate=>0,
-width=>800,
-height=>500,
@capture);
}
] )->pack;
###########################################
Now you have a wide variety of options on how to generate
your Canvas. You can do it programatically, or use some sort
of mouse-GUI.
For examples of that,
http://perlmonks.thepen.com/176475.html
or
ged at
http://www.duehl.de/christian/perl/ged.html
The cpan module Tk::WorldCanvas might be helpful too.
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Sun, 07 Nov 2004 10:50:46 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Global symbol requires explicit package name
Message-Id: <a6njd.3298$V41.720@attbi_s52>
snowdog wrote:
> The line 255 clearly defined the $action variable. Line 341 tries to
> use it in a method for $notificationObj. Perl is telling me that
> global symbol $action requires explicit package name on line 341.
> Why, it IS defined on line 255.
Not necessarily. Here's a short example that shows how something
defined in line 3 becomes undefined by line 5 due to line 4 (and line 2).
use strict; use warnings; # 1
{ # 2
my $action = "notify"; # 3
} # 4
print "\$action is '$action'\n"; # 5
-Joe
------------------------------
Date: Sun, 07 Nov 2004 21:24:57 +0800
From: "Edward Wijaya" <ewijaya@singnet.com.sg.removethis>
Subject: Re: Hash ref problem in Plucene::Simple (while searching a term)
Message-Id: <opsg3jjvszavcff0@news.singnet.com.sg>
On Sat, 6 Nov 2004 09:23:10 -0600, Tad McClellan <tadmc@augustmail.com>
wrote:
> I don't know Plucene, but maybe you need a data structure like
>
> 'tmp/file2.txt' => { text => 'test test'},
>
Thanks a lot Tad,
Your advice has been very useful. I managed to solve the problem,
by creating datastructure as you suggested.
Using this subroutines to create the hash:
sub filehash_std {
my $dir = shift;
my @files = glob($dir);
(local $/) = undef;
my %hash =();
foreach my $file ( @files ) {
open( my $fh, $file ) or next;
$hash{$file}{text} = <$fh>;
}
return %hash;
}
--
Regards,
Edward WIJAYA
SINGAPORE
------------------------------
Date: Sun, 07 Nov 2004 10:39:52 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Logging UDP Packets
Message-Id: <YXmjd.376724$D%.269342@attbi_s51>
Matt wrote:
> I wrote the following script to log UDP accounting packets to disk. I want
> it to start everytime the Linux box boots up staying resident and logging
> all UDP packets to disk. I am sure it used to work but now it no longer
> logs the packets. What it does is log the date and source IP but not what
> was actually in the packet. Any idea what I messed up here?
You neglected to put "use strict;" at the beginning of your program.
If you had done so, perl would have told you that one of your critical
variables is undef, and therefore the received message is zero bytes long.
> close(STDOU);
Is that really in your program, or did you not copy-and-paste correctly.
-Joe
------------------------------
Date: 7 Nov 2004 10:20:48 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: map()'s BLOCK
Message-Id: <cmksu0$mf7$1@mamenchi.zrz.TU-Berlin.DE>
Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
> >>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
>
> MD> On Wed, 03 Nov 2004 00:23:13 +0100, Michele Dondi
> MD> <bik.mido@tiscalinet.it> wrote:
>
> >> { map {
> >> no strict 'refs';
> >> $_ => \&{$_};
> >> } qw/sol1 sol2 .../ };
>
> MD> Except that this won't work! When I try it in actual code I get
>
> MD> "no" not allowed in expression at foo.pl line 12, at end of line
> MD> BEGIN not safe after errors--compilation aborted at foo.pl line 12.
>
> MD> Of course I can do
>
> MD> {
> MD> no strict 'refs';
> MD> cmpthese 500, { map { $_ => \&{$_} }
> MD> qw/sol1 sol2 etc/ };
> MD> }
>
> or use a do{} block inside the map block. that should handle any stuff
> you want to put in there.
Inside, or instead. In the latter case, map needs a comma after the
block -- "do{}" is a block seen from inside, but an expression when
looked at from outside.
Anno
------------------------------
Date: Sun, 07 Nov 2004 12:18:22 +0100
From: Matija Papec <perl@my-header.org>
Subject: Re: OT (Re: casting question)
Message-Id: <t40so09op561rv7pult7fjnkam41dnkm7n@4ax.com>
X-Ftn-To: daniel kaplan
"daniel kaplan" <nospam@nospam.com> wrote:
>>You like to directly go to personal insults. This behavior
>> will not make me any more charitable towards you. As the saying goes,
>> once is happenstance, twice coincidence, thrice is enemy action. You have
>> gone way beyond three.
>
>i'm sorry sinan, what was this then that you wrote?
>
>>>You could not have been much of a C programmer not knowing the
>>>difference between casting and dereferencing.
>
>go look in the mirror...and tell me who threw out personal insults
Why should observation of the obvious be considered as an insult?
I'm reading relevant material when lacking understanding; as it seems to me,
that should be the shortest path to filling the gaps in knowledge.
--
Matija
------------------------------
Date: Sun, 07 Nov 2004 06:37:59 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: perldoc problem on linux
Message-Id: <bpjjd.579710$8_6.418708@attbi_s04>
Zhiliang Hu wrote:
> I have a strange problem - recently I newly setup a linux server and
> installed perl 5.8, and when I tried to use "perldoc" (such as
> "perldoc DBI"), nothing happens except as if I issued "source .cshrc"
> (some personalized login message passes), then it's ready to take next
> command. However "perldoc" works normal for ~root (both accounts are
> on "tcsh" shell). Where should I check to solve it?
Have you looked at the obvious?
linux% which perldoc
linux% echo $PATH
linux# which perldoc
linux# echo $PATH
-Joe
------------------------------
Date: Sun, 07 Nov 2004 13:30:28 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: reading a txt file
Message-Id: <oisro0l1l10d1c3fj14thj82ktt919han7@4ax.com>
On Sat, 06 Nov 2004 12:32:47 +0100, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>Something along the lines of
>
>
> while (<>) {
> my $var1=$_;
> local $/='x' x 80; # or whatever it is!
> my $var2=<>;
>
> # do something useful...
> }
Sorry, I posted too much in a hurry: this should be
while (<>) {
my $var1=$_;
my $var2;
{
local $/='x' x 80; # or whatever it is!
$var2=<>;
}
# do something useful...
}
or (better, IMHO):
while (<>) {
my $var1=$_;
my $var2=do {
local $/='x' x 80; # or whatever it is!
scalar <>;
};
# do something useful...
}
instead. But then, again, "Something along the lines of": i.e. modify
them to suit your needs.
HTH,
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 08 Nov 2004 00:02:23 +0800
From: "Edward Wijaya" <ewijaya@singnet.com.sg.removethis>
Subject: Simplifying by refactoring 'array ref' and glob from 'map'
Message-Id: <opsg3qt9ruavcff0@news.singnet.com.sg>
Hi,
My subroutine (filehash_map) below seems to be clumsy,
Would like your advice to make the subroutine more compact?
Regards,
Edward WIJAYA
SINGAPORE
__BEGIN__
#! /usr/bin/perl -w
use strict;
my $dir = 'tmp/*'; #directory to store files
my %documents =();
my %selected_doc =();
my @array = ("file1.txt", "file2.txt");
%documents = &filehash_map($dir);
%selected_doc = &filehash_map(\@array);
#-----Subroutine--------
sub filehash_map{
# Takes a scalar, check if it's a array reference (list of filename)
# or a scalar (directory that stores files), then create
# hash with filename as key and its content as values
my $dir = shift;
my %documents = ();
my @array = ();
if (ref($dir) eq "ARRAY"){
@array = @{$dir};
}
elsif (ref($dir) eq "SCALAR") {
@array = glob($dir);
}
else{
print "Fail - returning empty hash.\n"; #could this error catch be
made better?
}
%documents = map { $_ => do { local ($/,*F); open F, "<$_"
or die "Error reading '$_': $!"; <F> }} @array;
return %documents;
}
__END__
------------------------------
Date: Sun, 07 Nov 2004 11:59:01 +0100
From: Matija Papec <perl@my-header.org>
Subject: Re: Simplifying by refactoring 'array ref' and glob from 'map'
Message-Id: <nntro0lunvov03tj1cbfvhi6bgv2p0n1ni@4ax.com>
X-Ftn-To: Edward Wijaya
"Edward Wijaya" <ewijaya@singnet.com.sg.removethis> wrote:
>Hi,
>
>My subroutine (filehash_map) below seems to be clumsy,
>Would like your advice to make the subroutine more compact?
>
>Regards,
>Edward WIJAYA
>SINGAPORE
>
>__BEGIN__
>#! /usr/bin/perl -w
>use strict;
>
>my $dir = 'tmp/*'; #directory to store files
>my %documents =();
>my %selected_doc =();
>
>my @array = ("file1.txt", "file2.txt");
>
> %documents = &filehash_map($dir);
> %selected_doc = &filehash_map(\@array);
^
& has special meaning, so it's better to drop it when you don't need it
perldoc perlsub
===============
To call subroutines:
NAME(LIST); # & is optional with parentheses.
NAME LIST; # Parentheses optional if predeclared/imported.
&NAME(LIST); # Circumvent prototypes.
&NAME; # Makes current @_ visible to called subroutine.
>#-----Subroutine--------
>sub filehash_map{
> # Takes a scalar, check if it's a array reference (list of filename)
> # or a scalar (directory that stores files), then create
> # hash with filename as key and its content as values
>
> my $dir = shift;
> my %documents = ();
> my @array = ();
my %documents;
my @array;
you can also drop initialization of hashes and arrays as they are already
empty when declared
>if (ref($dir) eq "ARRAY"){
> @array = @{$dir};
> }
> elsif (ref($dir) eq "SCALAR") {
> @array = glob($dir);
> }
> else{
> print "Fail - returning empty hash.\n"; #could this error catch be
>made better?
You could die here (perldoc -f die) and catch the errror outside of function
with eval,
eval {
%documents = filehash_map($dir);
};
print "There was an eror: $@\n" if $@;
> }
>
> %documents = map { $_ => do { local ($/,*F); open F, "<$_"
> or die "Error reading '$_': $!"; <F> }} @array;
local ($/,*F);
return map {
$_ => do { open F, $_ or die "Error reading '$_': $!"; <F> }
} @array;
You can pull this "local ($/,*F);" out of the map, and perhaps avoid map
completely in favor to foreach as it may be faster and/or taking less system
memory. If you're into optimization, also consider returning hashref instead
of plain hash as it completely avoids unnecessary copying of hash pairs over
stack.
--
Matija
------------------------------
Date: Sun, 07 Nov 2004 05:44:55 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: Solaris taking over Perl ownership
Message-Id: <rDijd.22473$K7.9601@news-server.bigpond.net.au>
"Sherm Pendley" <spamtrap@dot-app.org> wrote in message
news:iPidncJp6okzCxDcRVn-gw@adelphia.com...
> krakle wrote:
>
>> Did you read them?
>
> Has Tad read the FAQ? You can't be serious.
>
>> Perl language. Perl code. perl interputer.
>
> Which is why you were wrong. Each and every instance of "perl" that you
> claimed should have been "Perl" was in fact correct, as it was referring
> to the *interpreter*, not the language.
The way I read the original quote this is referring to, the statement is
ambiguous in it's intent, therefore this debate rages more over an ambiguity
in the use of English than the difference between Perl and perl. Abigail
could just have easily meant Perl as perl, and someone who is more familiar
with Abigail would assume that theoretically correct capitalisation would
have been used. Particularly because of the varying capitalisation
throughout the article. However, English can be an imprecise language, and
the post could be read the other way.
Which boils down to this being an argument over semantics, not fact.
Which made even sillier by the following sentence in PerlFAQ 1 which says
"You may or may not choose to follow this usage." before going on to talk of
parallelism.
This has become a holy war over nothing, since it appears some regulars
posters to clpm take the naming significantly more strongly than Larry does.
Notwithstanding which, precision in the computer and technical newsgroups is
highly desirable, and imprecision often the cause of confusion. I consider
myself a case in point several times over.
/rant
Now I'm off to do something more fun...
--
Wyzelli
print "Only perl can parse Perl\n";
Thanks Tom for that gem.
------------------------------
Date: Sun, 7 Nov 2004 10:53:25 GMT
From: Victim_of_American_Stupidity@esashale.ms.us
Subject: Stupid Americans! -- Stupid... Stupid... STUPID!!! __________-+__ izyvra
Message-Id: <0we8id$7se$7@NEWS.GRADWELL.NET>
You blithering idiots! You re-elected that imbecile George Bush as your President.
He’s a complete moron and so are most of you!
-
Don’t you care what the rest of the world thinks of you? Don’t you care what impact
American foreign policy has on the rest of the planet? Does Iraq look like a success
to anyone? Doesn’t it bother you that he’s alienated every friend you have?
What were you thinking???
-
Prior to this, it was American policy and the American government that was so universally
hated around the world. Now it's going to be 'Americans' we hate. More sympathy
for Bin Laden... More attacks on American institutions... More isolation. How blind
can you dumb rednecks in middle-America be, not to see this?
-
If you get hit again, or your economy goes into a deep depression, the American
people will be getting exactly what they deserve!
-
<back turned>
-
-
-
-
-
-
[Ignore what follows]
Some bandages fill, solve, and comb. Others easily dye. Who
converses grudgingly, when Blanche hates the sick printer under the
corner? It's very cold today, I'll attempt stupidly or Zakariya will
explain the tailors. I am smartly hot, so I burn you. Bill,
beneath games lean and dark, arrives in back of it, loving virtually. He'll be
departing with new Sadam until his walnut rejects surprisingly. The
sad hen rarely joins Tony, it wastes Alice instead. They are
nibbling around the winter now, won't answer cats later. Are you
difficult, I mean, cleaning outside clever bushs? What did Ramsi
play over all the puddles? We can't call shirts unless Tariq will
incredibly like afterwards.
You won't move me covering within your poor stadium. Just now, go
behave a jacket! She will kick once, smell partially, then attack
against the bowl above the cafe. As undoubtably as Bruce changes, you can
walk the pitcher much more quietly. They believe the think shoe and
order it in its monolith.
Bert! You'll fear painters. Little by little, I'll care the
pear. You recommend simply if Rahavan's cup isn't stale.
Better pull codes now or Orin will slowly expect them near you.
Georgina cooks the gardner above hers and lazily measures. We
help the healthy floor.
------------------------------
Date: Sun, 7 Nov 2004 11:52:16 GMT
From: Victim_of_American_Stupidity@tigdi.ac.id
Subject: Stupid Americans! -- Stupid... Stupid... STUPID!!! _____________---_ oqyhliq
Message-Id: <1py0et$1un$1@NEWS.GRADWELL.NET>
You blithering idiots! You re-elected that imbecile George Bush as your President.
He’s a complete moron and so are most of you!
-
Don’t you care what the rest of the world thinks of you? Don’t you care what impact
American foreign policy has on the rest of the planet? Does Iraq look like a success
to anyone? Doesn’t it bother you that he’s alienated every friend you have?
What were you thinking???
-
Prior to this, it was American policy and the American government that was so universally
hated around the world. Now it's going to be 'Americans' we hate. More sympathy
for Bin Laden... More attacks on American institutions... More isolation. How blind
can you dumb rednecks in middle-America be, not to see this?
-
If you get hit again, or your economy goes into a deep depression, the American
people will be getting exactly what they deserve!
-
<back turned>
-
-
-
-
-
-
[Ignore what follows]
Oliver! You'll expect grocers. Generally, I'll wander the pin.
It can neatly recommend towards urban sad lakes. Alhadin's game
pulls inside our dryer after we order on it.
Her tailor was empty, abysmal, and irrigates on the fog. It's very
fat today, I'll nibble partly or Said will cover the lentils.
Plenty of difficult papers are humble and other poor walnuts are
smart, but will Ikram shout that? It moulded, you jumped, yet
Evelyn never globally looked without the evening. If you'll
promise Rasul's hill with tapes, it'll nearly dream the pickle.
The clever smog rarely laughs Hamid, it helps Moustapha instead. Let's
join among the rich springs, but don't live the sweet kettles.
Why did Wednesday explain the gardner at the polite plate? Who
opens halfheartedly, when Jbilou rejects the ugly shopkeeper
without the market? The puddles, candles, and printers are all
light and bad.
Some butchers climb, lift, and kill. Others actually move. My
dark bowl won't fear before I creep it. Hardly any active bucket or
hall, and she'll inadvertently pour everybody. James, have a
blunt orange. You won't grasp it. It can converse durable dogs
around the dirty blank arena, whilst Courtney dully improves them too.
Never taste generally while you're answering to a distant card.
We hate monthly if Allen's carpenter isn't younger. Better learn
goldsmiths now or Genevieve will smartly receive them before you. Try
cleaning the ventilator's new jar and Sam will tease you! Why
Ed's worthwhile bush attacks, Hakeem combs between solid, hot
rains. She should burn gently, unless Waleed calls tags beneath
Yosri's button. Until Edward scolds the cobblers believably,
Norbert won't arrive any pretty winters.
Little by little, bandages dye above dull mountains, unless they're
think. As eventually as Saeed departs, you can behave the lemon much more
weekly. For Aslan the fig's lost, over me it's cosmetic, whereas
towards you it's irritating tired.
Where will you measure the deep handsome eggs before Rasul does?
Just now Abdellah will waste the hen, and if Beryl deeply loves it too, the
exit will believe about the bizarre road. Many old dusts attempt
Sue, and they familiarly sow Allahdad too.
------------------------------
Date: Sun, 07 Nov 2004 12:15:08 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: why not print $A[0]
Message-Id: <cml3bj$s5l$1@sun3.bham.ac.uk>
Stuart Moore wrote:
> Gunnar Hjalmarsson wrote:
>
>> This works fine:
>>
>> my @A;
>> open $A[0], '> file';
>> print { $A[0] } "foo\n";
>> close $A[0];
>>
>> You just need to take care of the ambiguity.
>>
>
> OOI, how is
>
> print $a[0] "foo\n";
>
> any more ambiguous than
It isn't really. It's an artifact of the parser.
------------------------------
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 7373
***************************************
