[31150] in Perl-Users-Digest
Perl-Users Digest, Issue: 2395 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 6 03:09:41 2009
Date: Wed, 6 May 2009 00:09:11 -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 Wed, 6 May 2009 Volume: 11 Number: 2395
Today's topics:
Boggled - just what is subrouteen ($$$$) all about <anti.spam@null.and.invalid>
Re: Boggled - just what is subrouteen ($$$$) all about <kkeller-usenet@wombat.san-francisco.ca.us>
Re: hash ref to plain hash <sun_tong_001@users.sourceforge.net>
Re: hash ref to plain hash <kkeller-usenet@wombat.san-francisco.ca.us>
Re: hash ref to plain hash <uri@stemsystems.com>
Re: hash ref to plain hash <jurgenex@hotmail.com>
Re: Help with Net::ftp not downloading <ben@morrow.me.uk>
Re: Help with Net::ftp not downloading <tadmc@seesig.invalid>
Re: Help with Net::ftp not downloading <tadmc@seesig.invalid>
Re: Help with Net::ftp not downloading <nat.k@gm.ml>
new CPAN modules on Wed May 6 2009 (Randal Schwartz)
Re: Perl firewall test script - detect whether host not <ben@morrow.me.uk>
Re: stackoverflow.com (was: "Perl has been pretty much <benkasminbullock@gmail.com>
Re: Unbelievable, Easy News trashes arbitrary message b <nat.k@gm.ml>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 06 May 2009 04:58:42 GMT
From: kids <anti.spam@null.and.invalid>
Subject: Boggled - just what is subrouteen ($$$$) all about
Message-Id: <4a011902$0$2487$db0fefd9@news.zen.co.uk>
Can some kind soul explain to me (or point me to and explanation) that
will clarify this for me;
sub subname1 ( $$ );
sub subname2 ( $$$$ );
sub subname3 ( $$ );
sub subname4 ( $ );
My assumption is they are some kind of scalar placeholder/argument but I
am not entirely clear :-(
part googled, part rtm - not jumping out at me
------------------------------
Date: Tue, 5 May 2009 22:29:01 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Boggled - just what is subrouteen ($$$$) all about
Message-Id: <upj7d6x458.ln2@goaway.wombat.san-francisco.ca.us>
On 2009-05-06, kids <anti.spam@null.and.invalid> wrote:
> Can some kind soul explain to me (or point me to and explanation) that
> will clarify this for me;
>
>
> sub subname1 ( $$ );
> sub subname2 ( $$$$ );
> sub subname3 ( $$ );
> sub subname4 ( $ );
>
> My assumption is they are some kind of scalar placeholder/argument but I
> am not entirely clear :-(
You're close. Read perldoc perlsub and look for the section on
Prototypes.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Tue, 05 May 2009 23:47:41 -0500
From: * Tong * <sun_tong_001@users.sourceforge.net>
Subject: Re: hash ref to plain hash
Message-Id: <_s6dnX6OEa3wi5zXnZ2dnUVZ_v-dnZ2d@golden.net>
On Tue, 05 May 2009 19:57:58 -0700, Jürgen Exner wrote:
>>how can I pass $hr to myfunc?
>
> Just de-reference that hash ref, see 'perldoc perlref' or maybe first
> 'perldoc perlreftut'.
How to de-reference hash ref to plain hash?
--
------------------------------
Date: Tue, 5 May 2009 21:42:04 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: hash ref to plain hash
Message-Id: <t1h7d6x5c7.ln2@goaway.wombat.san-francisco.ca.us>
On 2009-05-06, * Tong * <sun_tong_001@users.sourceforge.net> wrote:
>
> Suppose the function myfunc takes the following type of parameters:
>
> myfunc( this => 10, that => 20 );
>
> I,e., it takes a hash. Now I have a hash ref:
>
> $hr = { this => 10, that => 20 } ;
>
> how can I pass $hr to myfunc?
myfunc(%$hr);
> Also, how to properly call this problem/handling?
You want to dereference the hash reference. Look in "Using References"
in perldoc perlref for more examples.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Wed, 06 May 2009 00:51:10 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: hash ref to plain hash
Message-Id: <87my9qbzr5.fsf@quad.sysarch.com>
>>>>> "*T*" == * Tong * <sun_tong_001@users.sourceforge.net> writes:
*T*> On Tue, 05 May 2009 19:57:58 -0700, Jürgen Exner wrote:
>>> how can I pass $hr to myfunc?
>>
>> Just de-reference that hash ref, see 'perldoc perlref' or maybe first
>> 'perldoc perlreftut'.
*T*> How to de-reference hash ref to plain hash?
he told you how. read those documents and learn about hash refs. they
show you how to derefence them to hashes. it is very easy but it is
better if you learn more about refs first.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Tue, 05 May 2009 23:33:32 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: hash ref to plain hash
Message-Id: <7kb2051r1a5hpf3u0tmh8icngaa2cekk08@4ax.com>
* Tong * <sun_tong_001@users.sourceforge.net> wrote:
>On Tue, 05 May 2009 19:57:58 -0700, Jürgen Exner wrote:
>
>>>how can I pass $hr to myfunc?
>>
>> Just de-reference that hash ref, see 'perldoc perlref' or maybe first
>> 'perldoc perlreftut'.
>
>How to de-reference hash ref to plain hash?
Use Rule 1 from 'perldoc perlreftut', section 'Syntax', subsection
'Using References'.
jue
------------------------------
Date: Wed, 6 May 2009 05:15:22 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <qff7d6-ema.ln1@osiris.mauzo.dyndns.org>
Quoth Ed Jay <edMbj@aes-intl.com>:
> Ed Jay wrote:
> >Ben Morrow wrote:
> >>
> >>Let me make a wild guess. You are executing this script as a CGI on your
> >>webhost, which is a Unix machine and doesn't have a C: drive.
> >>
> >Correct, except that I created a 'C' folder both above and below the
> >folder (cgi-bin), so there would be a C folder.
>
> Accidentally hit Return.
>
> Yes, you are correct, and that also crossed my mind, so I created two
> directories named C, one above cgi-bin and one a subdirectory of cgi-bin.
> No go...same error.
I'm struggling to understand here: what thought process made you think
that might help? I'm not (just) being sarcastic: you clearly have some
fundamental misunderstanding here, and until you resolve it there's no
way you're going to make this work.
> Perhaps you'd care to make another wild guess at the answer to my dilemma.
> I cannot find the answer elsewhere, and I have done my due diligence.
Sure... you don't understand the difference between running a program
locally and requesting a webpage that happens to run a CGI the results
of which happen to be displayed on your machine.
There is *no* *way* a CGI program can access the filesystem on the
machine the browser is running on (in the general case). Otherwise any
random website could trash all your files. If you have provided some way
we don't know about, you need to say so.
> Should this be done under the scenario of transferring files from one
> remote to another remote with no local client?
No. That would require you to be running an FTP server on your local
machine, and for that FTP server to be accessible to the machine running
the CGI. I seriously doubt this is the case.
As I asked upthread: please explain what you are trying to achieve.
Which machine is running the CGI? Which machine is the file coming from?
Which machine is the file going to? What channels of communication exist
between these machines?
Is there some terribly good reason you can't run this program on the
machine the file is going to? It would make things much easier.
Note that none of this (yet) has anything to do with Perl. The answers
would be the same if your CGI was written in any other language.
Ben
------------------------------
Date: Wed, 6 May 2009 00:19:04 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <slrnh027e8.q90.tadmc@tadmc30.sbcglobal.net>
Uri Guttman <uri@stemsystems.com> wrote:
>>>>>> "EJ" == Ed Jay <edMbj@aes-intl.com> writes:
>
> EJ> Ben Morrow wrote:
> >>
> >> Quoth Ed Jay <edMbj@aes-intl.com>:
>
> >>> >my $localDir = 'C:/somedir'; #change that to the appropriate location
>
> >>> The above represents the entire script I used. Got the same message (Can't
> >>> cd to C:/: No such file or directory at brca_download.pl), and there is
> >>> nothing showing in the server's error log.
> >>
> >> Let me make a wild guess. You are executing this script as a CGI on your
> >> webhost, which is a Unix machine and doesn't have a C: drive.
> >>
> EJ> Correct, except that I created a 'C' folder both above and below the
> EJ> folder (cgi-bin), so there would be a C folder.
>
> wow. and what do you think unix does with the : char in a filename?
Treats it like any other ASCII character (except for slash and NUL).
So he doesn't need a directory named "C".
He needs a directory named "C:". :-)
> wow.
nyuk.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 6 May 2009 00:20:39 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <slrnh027h7.q90.tadmc@tadmc30.sbcglobal.net>
Dr.Ruud <rvtol+usenet@xs4all.nl> wrote:
> Ed Jay wrote:
>
>> cd to C:/:
>
> With 2 colons?
It helps with digestion. :-)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 05 May 2009 23:44:30 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <ilaMl.37574$3k7.30409@newsfe17.iad>
Ed Jay wrote:
> Ed Jay wrote:
>
>>Ben Morrow wrote:
>>
>>>
>>>Quoth Ed Jay <edMbj@aes-intl.com>:
>>>> J. Gleixner wrote:
>>>>
>>>> >use CGI qw(:standard);
>>>> ># without the next line, die output will be found in your
>>>> ># server's error log. Use this only when debugging.
>>>> >use CGI::Carp qw(fatalsToBrowser);
>>>> >use strict;
>>>> >
>>>> >my $localDir = 'C:/somedir'; #change that to the appropriate
>>>> >location
>>>> >
>>>> >print header,
>>>> >"Changing directory to $localDir.<br>";
>>>> >
>>>> >chdir( $localDir ) or die "Can't cd to $localDir: $!";
>>>> >
>>>> >print "Change to $localDir successful.<br>";
>>>>
>>>> The above represents the entire script I used. Got the same message
>>>> (Can't cd to C:/: No such file or directory at brca_download.pl),
>>>> and there is nothing showing in the server's error log.
>>>
>>>Let me make a wild guess. You are executing this script as a CGI on
>>>your webhost, which is a Unix machine and doesn't have a C: drive.
>>>
>>Correct, except that I created a 'C' folder both above and below the
>>folder (cgi-bin), so there would be a C folder.
>
> Accidentally hit Return.
>
> Yes, you are correct, and that also crossed my mind, so I created two
> directories named C, one above cgi-bin and one a subdirectory of
> cgi-bin. No go...same error.
>
> Perhaps you'd care to make another wild guess at the answer to my
> dilemma. I cannot find the answer elsewhere, and I have done my due
> diligence.
>
> Should this be done under the scenario of transferring files from one
> remote to another remote with no local client?
>
I the CGI script is running on the Unix system where it's downloading
to, then the path doesn't use the drive letter and colon. It's
literally the /path/to/the/directory/ where to store it. This is why
myself and others suggested testing it as a stripped down version and
if the manual FTP download to that directory worked. This is just
confusing at this point.
------------------------------
Date: Wed, 6 May 2009 04:42:28 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed May 6 2009
Message-Id: <KJ7H2s.o2L@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-CPANAuthors-Norwegian-0.13
http://search.cpan.org/~sharifuln/Acme-CPANAuthors-Norwegian-0.13/
We are Norwegian CPAN authors
----
CHI-0.21
http://search.cpan.org/~jswartz/CHI-0.21/
Unified cache interface
----
CPANTS-Weight-0.12
http://search.cpan.org/~adamk/CPANTS-Weight-0.12/
Graph based weights for CPAN Distributions
----
Catalyst-Controller-AllowDisable-0.04
http://search.cpan.org/~taro/Catalyst-Controller-AllowDisable-0.04/
Use when you want to disable your controller.
----
Catalyst-Controller-Validation-DFV-0.0.6
http://search.cpan.org/~chisel/Catalyst-Controller-Validation-DFV-0.0.6/
Form validation and refilling
----
Class-Accessor-Deep-0.01
http://search.cpan.org/~ksuri/Class-Accessor-Deep-0.01/
Automated accessor generation for nested structures inside objects
----
Class-Accessor-Deep-0.01-withoutworldwriteables
http://search.cpan.org/~ksuri/Class-Accessor-Deep-0.01-withoutworldwriteables/
Automated accessor generation for nested structures inside objects
----
DBD-SQLite-1.26_01
http://search.cpan.org/~adamk/DBD-SQLite-1.26_01/
Self-contained RDBMS in a DBI Driver
----
DBI-1.608
http://search.cpan.org/~timb/DBI-1.608/
Database independent interface for Perl
----
Dackup-0.42
http://search.cpan.org/~lbrocard/Dackup-0.42/
Flexible file backup
----
Data-Compare-1.2101
http://search.cpan.org/~dcantrell/Data-Compare-1.2101/
compare perl data structures
----
Devel-Declare-0.005001
http://search.cpan.org/~flora/Devel-Declare-0.005001/
Adding keywords to perl, in perl
----
Diff-LibXDiff-0.01
http://search.cpan.org/~rkrimen/Diff-LibXDiff-0.01/
Calculate a diff with LibXDiff (via XS)
----
Document-TriPart-0.020
http://search.cpan.org/~rkrimen/Document-TriPart-0.020/
Read, write & edit a tri-part document (preamble, YAML::Tiny header, and body)
----
File-AtomicWrite-0.92
http://search.cpan.org/~jmates/File-AtomicWrite-0.92/
writes files atomically via rename()
----
Find-Lib-0.04
http://search.cpan.org/~yannk/Find-Lib-0.04/
Helper to smartly find libs to use in the filesystem tree
----
GBrowse-1.992
http://search.cpan.org/~lds/GBrowse-1.992/
----
Geo-Distance-XS-0.02
http://search.cpan.org/~gray/Geo-Distance-XS-0.02/
speed up Geo::Distance
----
Geo-OSM-MapFeatures-0.04
http://search.cpan.org/~bobkare/Geo-OSM-MapFeatures-0.04/
Parses and represents OpenStreetMap Map Features
----
GlbDNS-0.30
http://search.cpan.org/~abergman/GlbDNS-0.30/
Perl daemon for global load balancing
----
Gtk2-Ex-Entry-Pango-0.07
http://search.cpan.org/~potyl/Gtk2-Ex-Entry-Pango-0.07/
Gtk2 Entry that accepts Pango markup.
----
Gtk2-Unique-0.01
http://search.cpan.org/~potyl/Gtk2-Unique-0.01/
Use single instance applications
----
JavaScript-Beautifier-0.05
http://search.cpan.org/~fayland/JavaScript-Beautifier-0.05/
Beautify Javascript (beautifier for javascript)
----
JavaScript-Beautifier-0.06
http://search.cpan.org/~fayland/JavaScript-Beautifier-0.06/
Beautify Javascript (beautifier for javascript)
----
JavaScript-Writer-0.3.0
http://search.cpan.org/~gugod/JavaScript-Writer-0.3.0/
JavaScript code generation from Perl.
----
JiftyX-Fixtures-0.05
http://search.cpan.org/~shelling/JiftyX-Fixtures-0.05/
Insert fixtures into your Jifty application database
----
Locale-Currency-Format-1.28
http://search.cpan.org/~tnguyen/Locale-Currency-Format-1.28/
Perl functions for formatting monetary values
----
Log-Deep-0.0.2
http://search.cpan.org/~ivanwills/Log-Deep-0.0.2/
Deep Logging of information about a script state
----
Log-Dispatch-Scribe-0.02
http://search.cpan.org/~jjschutz/Log-Dispatch-Scribe-0.02/
Logging via Facebook's Scribe server software
----
Mail-SpamFilter-0.08
http://search.cpan.org/~mward/Mail-SpamFilter-0.08/
Provides a convenient interface for several spam filters.
----
MediaWiki-Bot-2.2.3
http://search.cpan.org/~dcollins/MediaWiki-Bot-2.2.3/
a Wikipedia bot framework written in Perl
----
Module-Install-GithubMeta-0.02
http://search.cpan.org/~bingos/Module-Install-GithubMeta-0.02/
A Module::Install extension to include GitHub meta information in META.yml
----
MooseX-AttributeInflate-0.01
http://search.cpan.org/~stash/MooseX-AttributeInflate-0.01/
Auto-inflate your Moose attribute objects
----
MooseX-AttributeInflate-0.02
http://search.cpan.org/~stash/MooseX-AttributeInflate-0.02/
Auto-inflate your Moose attribute objects
----
MooseX-Declare-0.22
http://search.cpan.org/~flora/MooseX-Declare-0.22/
Declarative syntax for Moose
----
Muldis-D-0.67.0
http://search.cpan.org/~duncand/Muldis-D-0.67.0/
Formal spec of Muldis D relational DBMS lang
----
Nagios-Plugin-OverHTTP-0.03
http://search.cpan.org/~dougdude/Nagios-Plugin-OverHTTP-0.03/
Nagios plugin to check over the HTTP protocol.
----
Net-Patricia-1.15
http://search.cpan.org/~philipp/Net-Patricia-1.15/
Patricia Trie perl module for fast IP address lookups
----
Net-Redmine-0.04
http://search.cpan.org/~gugod/Net-Redmine-0.04/
A mechanized-based programming API against redmine server.
----
Net-Trac-0.13
http://search.cpan.org/~jesse/Net-Trac-0.13/
Interact with a remote Trac instance
----
Number-Format-1.72
http://search.cpan.org/~wrw/Number-Format-1.72/
Perl extension for formatting numbers
----
Number-Format-1.72a
http://search.cpan.org/~wrw/Number-Format-1.72a/
Perl extension for formatting numbers
----
POE-Component-AI-MegaHAL-1.18
http://search.cpan.org/~bingos/POE-Component-AI-MegaHAL-1.18/
A non-blocking wrapper around AI::MegaHAL.
----
POE-Component-Client-Pastebot-1.10
http://search.cpan.org/~bingos/POE-Component-Client-Pastebot-1.10/
Interact with Bot::Pastebot web services from POE.
----
POE-Component-IRC-Plugin-MegaHAL-0.22
http://search.cpan.org/~hinrik/POE-Component-IRC-Plugin-MegaHAL-0.22/
A PoCo-IRC plugin which provides access to a MegaHAL conversation simulator.
----
POE-Component-IRC-Plugin-MegaHAL-0.23
http://search.cpan.org/~hinrik/POE-Component-IRC-Plugin-MegaHAL-0.23/
A PoCo-IRC plugin which provides access to a MegaHAL conversation simulator.
----
POEx-Role-SessionInstantiation-0.01
http://search.cpan.org/~nperez/POEx-Role-SessionInstantiation-0.01/
A Moose::Role for plain old Perl objects in a POE context
----
PPI-Tester-0.15
http://search.cpan.org/~adamk/PPI-Tester-0.15/
A wxPerl-based interactive PPI debugger/tester
----
PPI-XS-0.901
http://search.cpan.org/~adamk/PPI-XS-0.901/
(Minor) XS acceleration for PPI
----
Padre-Plugin-Debugger-0.0_1
http://search.cpan.org/~pmakholm/Padre-Plugin-Debugger-0.0_1/
send code on a nopaste website from padre
----
Padre-Plugin-Perl6-0.36
http://search.cpan.org/~azawawi/Padre-Plugin-Perl6-0.36/
Padre plugin for Perl6
----
Pod-Usage-CommandLine-0.04
http://search.cpan.org/~ctilmes/Pod-Usage-CommandLine-0.04/
Add some common command line options from Pod::Usage
----
Religion-Bible-Regex-Builder-0.9.1
http://search.cpan.org/~holmlund/Religion-Bible-Regex-Builder-0.9.1/
builds regular expressions that match Bible References
----
Sjis-0.35
http://search.cpan.org/~ina/Sjis-0.35/
"Yet Another JPerl with Tk" Source code filter to escape ShiftJIS
----
Syntax-Highlight-Perl6-0.51
http://search.cpan.org/~azawawi/Syntax-Highlight-Perl6-0.51/
Perl 6 Syntax Highlighter
----
TM-Corpus-0.11
http://search.cpan.org/~drrho/TM-Corpus-0.11/
Topic Maps, Document Corpus
----
Template-Plugin-Class-0.14
http://search.cpan.org/~rclamp/Template-Plugin-Class-0.14/
allow calling of class methods on arbitrary classes
----
Test-Harness-3.17
http://search.cpan.org/~andya/Test-Harness-3.17/
Run Perl standard test scripts with statistics
----
WWW-Twitpic-0.01
http://search.cpan.org/~diegok/WWW-Twitpic-0.01/
Use the twitpic.com simple API from our favorite language.
----
WWW-Twitpic-0.02
http://search.cpan.org/~diegok/WWW-Twitpic-0.02/
Use the twitpic.com simple API from our favorite language.
----
jmx4perl-0.1
http://search.cpan.org/~roland/jmx4perl-0.1/
----
oEdtk-0.42
http://search.cpan.org/~daunay/oEdtk-0.42/
A module for industrial printing processing
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Wed, 6 May 2009 05:18:46 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Perl firewall test script - detect whether host not responding or firewall rule not implemented
Message-Id: <6mf7d6-ema.ln1@osiris.mauzo.dyndns.org>
Quoth inetquestion <inetquestion@hotmail.com>:
> I submitted some firewall rules today which will be implemented before
> all the destination hosts are live on the network. In the past I put
> a perl script on each source server and controlled them from a central
> location to initiate a connection to each of the destinations to check
> the connectivity. In this case that will not work.
>
> Is there any scriptable way to know why a connection failed from the
> source? For example when a failure occurs...to know whether the
> connection was blocked by the firewall or it made it through but the
> remote host was not listening.
That depends on what your firewall does when it blocks a connection, and
whether it rewrites packets that do get through. If you can identify
from (say) a tcpdump log whether a connection was firewalled or not, you
can do it from Perl; otherwise, you can't.
Ben
------------------------------
Date: Wed, 6 May 2009 06:36:08 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: stackoverflow.com (was: "Perl has been pretty much forgotten" says Spolsky)
Message-Id: <gtrb4n$v95$1@news.motzarella.org>
[This is a repost since I believe the previous post of this failed.
Please excuse me if you have seen this before.]
On Tue, 05 May 2009 04:22:43 -0500, brian d foy wrote:
> A lot of answers are less than thoughtful and lacking in experience,
> but the Perl section has been doing very nicely. There are some very
> clueful Perl people who answer most of the questions, but once in a
> while there's a lull where a newbie will pop his head up before one of
> those people can get there.
Let's be clear what stackoverflow.com is. The site is set up as a
programming question "video game" where you're awarded "reputation"
points for answering questions. You get maybe one or two points for
asking or answering a difficult question requiring real knowledge, if
you're lucky, and some random chump doesn't decide to downvote you, and
you get lots and lots of points for asking a stupid, annoying question
like "What's your favourite pasta sauce to eat for programming?" or
answering a trivial question which could have easily been looked up on
Google. In the two or three months I spent on stackoverflow.com, I got
the most points for an answer about how to kill a buffer in Emacs. True
story: when I saw the question, I didn't know how to do it, so I looked
up on Google, found it was C-x k, wrote an answer, and "bingo", got about
200 points. It took about a minute. (And incidentally now I can get rid
of all those annoying "mydoc.pl<2>" and "mydoc.pl<3>" buffers in Emacs,
which I used to get rid of by closing Emacs and opening it again, so I
can't say I didn't learn anything from the stackoverflow.com experience.)
I also lost a lot of points by telling someone who'd commented on one of
my answers that he should look something up on Google instead of asking
me. It was pretty annoying to write correct answers to questions and have
them downvoted by ludicrous people who feel offended when someone tells
them to try to solve their own problems. What would these people make of
the "posting guidelines for comp.lang.perl.misc" I wonder? That would
probably be downvoted so much it turned a nasty shade of brown and faded
away, so you'd have to delete it just to save your reputation (and then
you'd earn a "peer pressure" badge, lucky you).
Another misfeature of the site is that the person who answers the
question first usually gets the most points, so there is a rush to answer
questions which leads to people making mistakes. For instance, I recently
caught out one of the "clueful Perl people" (= someone who has a MacBook
Air and a ponytail) with a mistake in an answer about the ~~ operator
which I don't think he'd have made if he'd thought about it for
a minute or two.
------------------------------
Date: Tue, 05 May 2009 23:37:38 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: Unbelievable, Easy News trashes arbitrary message bodies from Perl groups
Message-Id: <TeaMl.37573$3k7.22119@newsfe17.iad>
Tad J McClellan wrote:
> Nathan Keel <nat.k@gm.ml> wrote:
>> Tad J McClellan wrote:
>>
>>> Nathan Keel <nat.k@gm.ml> wrote:
>>>
>>>> killfile me as if I'm some problem,
>>>
>>>
>>> You _are_ a problem.
>>
>> Grow up.
>
>
> Stop being a problem.
If people aren't arrogant jerks and just sarcastic and rude, I will
happily be civil in response. I'm not a problem because I reply to
someone that posted to/about me, else you're more of a problem for
doing it yourself (logically speaking).
>
>>> Doesn't earning multiple plonks make you wonder if that might
>>> actually be true?
>>
>> No, because these people have "plonked" me and made a sarcastic or
>> insulting remark for no reason,
>
>
> Each plonker most certainly had a reason.
That's not always true. At least not a good reason. Speaking of,
didn't you say you also filtered me?
> Just because you don't know the reason, or don't agree with the
> reason does not mean the a reason does not exist.
Okay, I see where you're going with it. Good or bad reason, in their
mind, they had a reason (even no reason at all, is still a reason). I
never denied the block didn't exist, or they didn't think they had a
reason. Speaking of reasons, there's really no reason to debate about
reasons. I simply made the point that people were blocking me claiming
I was upsetting their filters because they saw other posters that were
blocked when I quoted their message in reply. Even though I had
blocked that person myself, so they'd not see my quoting them again,
just saying so was the reason why someone said they blocked me.
Someone else then said they blocked me for replying to them and saying
that.
I find that silly, but I never suggested they weren't right for it in
their own mind. I'm certain people have been tempted to block me just
for what you and I are replying to each other about discussing it, so
what can you do. I just think it's odd, because I'm certainly no
threat. I "get" that people sometimes prefer to block people that
don't just block known trolls in the group, and I did block him (though
he'll surely be back with his new news server soon enough). Usenet is
a place where if you explain things, that alone might set people off.
I'm sure we can agree to just end this between us now, right?
------------------------------
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 V11 Issue 2395
***************************************
