[30474] in Perl-Users-Digest
Perl-Users Digest, Issue: 1717 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 14 11:09:49 2008
Date: Mon, 14 Jul 2008 08: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 Mon, 14 Jul 2008 Volume: 11 Number: 1717
Today's topics:
Re: Apparent bug in Perl 5.10 regexes w. UTF-8 expressi <benkasminbullock@gmail.com>
Re: Apparent bug in Perl 5.10 regexes w. UTF-8 expressi <benkasminbullock@gmail.com>
Re: FAQ 1.1 What is Perl? <tzz@lifelogs.com>
Re: FAQ 1.12 What's the difference between "perl" and " <seysig@gmail.com>
Re: FAQ 1.12 What's the difference between "perl" and " <tzz@lifelogs.com>
GD::Graph::lines <neil@solenttechnology.co.uk>
Re: GD::Graph::lines <neil@solenttechnology.co.uk>
Re: how do prlglobs expand (was Re: 'nobody' using sudo <ben@morrow.me.uk>
Re: Is there any way to automate the test of an applet <joost@zeekat.nl>
new CPAN modules on Mon Jul 14 2008 (Randal Schwartz)
Re: Odd error message on open()-ing scalar ref <JustMe@somewhere.de>
Re: Odd error message on open()-ing scalar ref <fawaka@gmail.com>
Re: Odd error message on open()-ing scalar ref <JustMe@somewhere.de>
Re: printing envelops from perl <tzz@lifelogs.com>
Re: Simplest way (or module) to tweak query in CGI serv jerrykrinock@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 13 Jul 2008 22:18:43 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Apparent bug in Perl 5.10 regexes w. UTF-8 expression
Message-Id: <g5dv03$3js$1@cgi-ml.accsnet.ne.jp>
On Sun, 13 Jul 2008 19:46:14 +0100, Ben Morrow wrote:
> Quoth "Peter J. Holzer" <hjp-usenet2@hjp.at>:
>> On 2008-07-13 14:14, Ben Bullock <benkasminbullock@gmail.com> wrote:
>> > I've found a place where Perl seems to behave differently depending
on
>> > whether something is marked as UTF-8 or not, regardless of the fact
that
>> > it is just ASCII.
>>
>> Right. Your problem can be reproduced with this script:
>>
>> #!/usr/bin/perl
>> use warnings;
>> use strict;
>>
>> my $regex =
>> "([\x{ff10}-\x{ff19}0-9]{4}|[\x{5341}\x{516d}\x{4e03}\x{4e5d}\x{4e94}\x
{56db}\x{5343}\x{767e}\x{4e8c}\x{4e00}\x{516b}\x{4e09}]?\x{5343}[\x{5341}
\x{516d}\x{4e03}\x{4e5d}\x{4e94}\x{56db}\x{5343}\x{767e}\x{4e8c}\x{4e00}\x
{516b}\x{4e09}]*)\\s*\x{5e74}";
>
> Using utf8 in regexen is not well-supported in 5.8; in particular, the
> regex engine is not consistent about when to apply utf8 semantics and
> when to apply byte semantics. Some of the bugs have been fixed in 5.10;
> I don't know if they all have.
The problem I described is the behaviour of Perl 5.10:
ben ~ 501 $ perl --version
This is perl, v5.10.0 built for i686-linux
Copyright 1987-2007, Larry Wall
Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
ben ~ 502 $ ben ~ 502 $ ./test2.pl
first try
Use of uninitialized value in pattern match (m//) at /usr/local/lib/perl5/
site_perl/5.10.0/Lingua/JA/FindDates.pm line 531.
etc.
Should I report this as a bug?
------------------------------
Date: Sun, 13 Jul 2008 22:40:20 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Apparent bug in Perl 5.10 regexes w. UTF-8 expression
Message-Id: <g5e08k$3js$2@cgi-ml.accsnet.ne.jp>
On Sun, 13 Jul 2008 22:18:43 +0000, Ben Bullock wrote:
> Should I report this as a bug?
Never mind, I reported it anyway.
------------------------------
Date: Mon, 14 Jul 2008 09:47:31 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: FAQ 1.1 What is Perl?
Message-Id: <86abgk34l8.fsf@lifelogs.com>
On Sat, 12 Jul 2008 23:39:50 -0700 "szr" <szrRE@szromanMO.comVE> wrote:
s> There are also some news readers that (incorrectly) will group messages
s> with the name subject, instead of checking for references.
...
s> I wish more user agents would pay better attention to standards.
It's very common that references in a thread will get corrupted, so
grouping messages by subject is very helpful. I don't see how that's a
bad thing, as there is no standard AFAIK that messages should NOT be
grouped by subject.
Ted
------------------------------
Date: Sun, 13 Jul 2008 23:17:23 -0700
From: "Gordon Corbin Etly" <seysig@gmail.com>
Subject: Re: FAQ 1.12 What's the difference between "perl" and "Perl"?
Message-Id: <6e09blF4h3seU1@mid.individual.net>
Willem wrote:
> Gordon Corbin Etly wrote:
> > Why do many people write "TIMTOWTDI", instead of "There is more
> > than one way to do it"? Maybe it's because it's just more
> > convenient to write it that way. Maybe it's a personal preference
> > to write it that way. It saves time when typing.
> >
> > So why then is it in any way wrong to write "PERL", instead of
> > writing "Practical extraction and report language"?
>
> Because 'Practical extraction and report language' is not the name
> of the language.
Glenn Jackman wrote:
> You missed Tad's post where he said:
>
> First there was "Perl",
> then there was "Practical Extraction and Report Language".
>
> First there was "If I recall correctly",
> then there was "IIRC".
>
> The difference between the two isn't very subtle.
Well, actually no, on all counts. The point that I made regarding all
this, was that one can write "IIRC", "iirc", or even "Iirc", depending
on your preference. It is no different than writing "Perl", "perl", or
"PERL", if the intended meaning is "Practical Extraction and Report
Language", "Practical extraction and report language", etc, for example.
Willem, you are right, that that (or the other known expansion) is not
the name, but no one ever said it was. It is a description and a known
alternate meaning.
The core point of all this is that the level of attention paid to
whether or not some someone correctly cased "Perl" is purely absurd.
--
Gordon C. Etly
Email: perl -e "print q{}.reverse(q{moc.liamg@ylte.nodrog})"
------------------------------
Date: Mon, 14 Jul 2008 09:38:39 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: FAQ 1.12 What's the difference between "perl" and "Perl"?
Message-Id: <86iqv83500.fsf@lifelogs.com>
On Sat, 12 Jul 2008 22:57:57 -0700 "Gordon Corbin Etly" <seysig@gmail.com> wrote:
GCE> So why then is it in any way wrong to write "PERL", instead of
GCE> writing "Practical extraction and report language"?
At this point, because you advocate it endlessly, we're all sick of
hearing about it, and you still have not produced anything of value in
this community to make us listen to you. As the saying goes, "a fanatic
is someone who can't change his mind and won't change the subject."
At least you're consistent over the last few months. A man of
conviction and firm opinion, for sure. Too bad you can't apply it to
your posting address, so I had to setup a -1000 score regular expression
just for you.
Ted
------------------------------
Date: Mon, 14 Jul 2008 05:43:08 -0700 (PDT)
From: neilsolent <neil@solenttechnology.co.uk>
Subject: GD::Graph::lines
Message-Id: <f6a6b8ac-2bb5-4330-9bdd-f4853cf5fdbe@e53g2000hsa.googlegroups.com>
I am trying to plot some line graphs using GD::Graph::lines
The trouble is, if there are a lot of lines, the colors inevitably
repeat and it is impossible to distinguish different lines. If I could
change the order of the labels in the legend (which seems to insist on
alphanumerical) to the height order or on the graph, OR label the
lines on the graph directly, all would be well ..
Anyone any ideas?
thanks..
------------------------------
Date: Mon, 14 Jul 2008 06:59:50 -0700 (PDT)
From: neilsolent <neil@solenttechnology.co.uk>
Subject: Re: GD::Graph::lines
Message-Id: <26233269-93a8-4656-8303-be5f2577c574@56g2000hsm.googlegroups.com>
I've sorted this now. My solution is to arrange the legend in the
order of the last value of each line - then it is fairly easy to read:
sub LineGraphGif
{
# Args: x, y, xlabel, ylabel, title, filename
# x is a reference to an array (points on x-axis)
# y is a reference to a hash (key=dataset name, value=reference to an
array of y values)
my ($x, $y, $xlabel, $ylabel, $title, $filename) = @_;
my ($graph, $image, @data, @colours, @legend);
push (@data, $x);
# Add lines to the graph in the order of the size of the last value
for each line - this helps visibility by using the legend if there is
colour clash
foreach (sort {$y->{$b}->[-1] <=> $y->{$a}->[-1]} keys %$y)
{
push (@data, $y->{$_});
push (@colours, DataColour($_));
push (@legend, $_);
}
$graph = GD::Graph::lines->new(800, 400);
if (! $graph)
{
warn "Could not create new graph";
return;
}
$graph->set(
x_label => $xlabel,
y_label => $ylabel,
title => $title,
line_width => 2
) or warn $!;
$graph->set_legend(@legend) or warn $!;
$graph->set(legend_placement => 'RT');
$graph->set(dclrs => \@colours);
$image = $graph->plot(\@data);
if (! $image)
{
warn $graph->error;
return
};
if (open(IMG, ">$filename"))
{
binmode(IMG);
print IMG $image->gif();
close(IMG);
}
else
{
warn "$!";
}
}
------------------------------
Date: Mon, 14 Jul 2008 10:42:58 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: how do prlglobs expand (was Re: 'nobody' using sudo -- scary!)
Message-Id: <2mjrk5-2l1.ln1@osiris.mauzo.dyndns.org>
Quoth xhoster@gmail.com:
> Ben Morrow <ben@morrow.me.uk> wrote:
> > Quoth "John W. Krahn" <jwkrahn@shaw.ca>:
> > > Joe Smith wrote:
> > > > Hans Mulder wrote:
> > > >
> > > >> If you really don't want to have the whole list in memory, you'll
> > > >> have to roll your own glob using readdir. Something like:
> > > >>
> > > >> opendir HOMES, "/home" or die Can't read /home: $!";
> > > >> while (my $entry = readdir(HOMES)) {
> > > >
> > > > The first call to readdir() in scalar context will read the entire
> > > > list into memory
> > >
> > > No it won't.
> >
> > (deja vu anyone?) Yes it will.
>
> No it won't.
>
> We have now switched from glob to readdir. Different functions,
> different behaviors. (I missed that transition myself at first.)
D'oh! Yes, of course; sorry, John.
Ben
--
I touch the fire and it freezes me, [ben@morrow.me.uk]
I look into it and it's black.
Why can't I feel? My skin should crack and peel---
I want the fire back... BtVS, 'Once More With Feeling'
------------------------------
Date: Mon, 14 Jul 2008 16:23:20 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Is there any way to automate the test of an applet using perl?
Message-Id: <87iqv8k0iv.fsf@zeekat.nl>
"lofenee" <lofenee@gmail.com> writes:
> Can I?
Apparently not.
http://www.catb.org/~esr/faqs/smart-questions.html
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 14 Jul 2008 04:42:20 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Jul 14 2008
Message-Id: <K3zBqK.Lr5@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.
Apache2-ASP-1.55
http://search.cpan.org/~johnd/Apache2-ASP-1.55/
Perl extension for ASP on mod_perl2.
----
App-Env-0.14
http://search.cpan.org/~djerius/App-Env-0.14/
manage application specific environments
----
Array-Transpose-0.01
http://search.cpan.org/~mrdvt/Array-Transpose-0.01/
Transposes a 2-Dimensional Array
----
CGI-Session-4.34
http://search.cpan.org/~markstos/CGI-Session-4.34/
persistent session data in CGI applications
----
CPU-Z80-Assembler-2.01
http://search.cpan.org/~pscust/CPU-Z80-Assembler-2.01/
a Z80 assembler
----
Catalyst-Action-Wizard-0.001
http://search.cpan.org/~davinchi/Catalyst-Action-Wizard-0.001/
----
Catalyst-Action-Wizard-0.003
http://search.cpan.org/~davinchi/Catalyst-Action-Wizard-0.003/
actions like realization of wizards. You need this if you have some multi-actions data gathering which unlikely to be saved in session and to big to pass them as POST or GET parameters.
----
Catalyst-Devel-1.08
http://search.cpan.org/~mramberg/Catalyst-Devel-1.08/
Catalyst Development Tools
----
CatalystX-Imports-0.01
http://search.cpan.org/~flora/CatalystX-Imports-0.01/
Shortcut functions for Catalyst controllers
----
Class-Accessor-Fluent-0.02
http://search.cpan.org/~ishigaki/Class-Accessor-Fluent-0.02/
do you like fluent interface?
----
DBD-Pg-2.8.5
http://search.cpan.org/~turnstep/DBD-Pg-2.8.5/
PostgreSQL database driver for the DBI module
----
DBIx-Array-0.05
http://search.cpan.org/~mrdvt/DBIx-Array-0.05/
This modules is a wrapper around DBI with array interfaces
----
DBIx-Array-0.06
http://search.cpan.org/~mrdvt/DBIx-Array-0.06/
This modules is a wrapper around DBI with array interfaces
----
Data-NestedSet-1
http://search.cpan.org/~shiriru/Data-NestedSet-1/
calculate left - right values from depth (modified preorder tree traversal algorithm)
----
Data-NestedSet-1.01
http://search.cpan.org/~shiriru/Data-NestedSet-1.01/
calculate left - right values from depth (modified preorder tree traversal algorithm)
----
Data-NestedSet-1.02
http://search.cpan.org/~shiriru/Data-NestedSet-1.02/
calculate left - right values from depth (modified preorder tree traversal algorithm)
----
Data-NestedSet-1.03
http://search.cpan.org/~shiriru/Data-NestedSet-1.03/
calculate left - right values from depth (modified preorder tree traversal algorithm)
----
DateTime-0.4304
http://search.cpan.org/~drolsky/DateTime-0.4304/
A date and time object
----
Devel-NYTProf-1.90_6
http://search.cpan.org/~timb/Devel-NYTProf-1.90_6/
Powerful feature-rich perl source code profiler
----
Exporter-Renaming-1.17
http://search.cpan.org/~anno/Exporter-Renaming-1.17/
Allow renaming of symbols on import
----
File-Fetch-0.15_03
http://search.cpan.org/~kane/File-Fetch-0.15_03/
A generic file fetching mechanism
----
Geo-Coder-Yahoo-0.40
http://search.cpan.org/~abh/Geo-Coder-Yahoo-0.40/
Geocode addresses with the Yahoo! API
----
IPC-Cmd-0.41_03
http://search.cpan.org/~kane/IPC-Cmd-0.41_03/
finding and running system commands made easy
----
MIDI-Tweaks-0.04
http://search.cpan.org/~jv/MIDI-Tweaks-0.04/
Enhancements to MIDI.pm.
----
MIDI-Tweaks-0.05
http://search.cpan.org/~jv/MIDI-Tweaks-0.05/
Enhancements to MIDI.pm.
----
MediaWiki-API-0.09
http://search.cpan.org/~exobuzz/MediaWiki-API-0.09/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
MediaWiki-API-0.10
http://search.cpan.org/~exobuzz/MediaWiki-API-0.10/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
MooseX-Log-Log4perl-0.2
http://search.cpan.org/~lammel/MooseX-Log-Log4perl-0.2/
A Logging Role for Moose based on Log::Log4perl
----
Net-Backpack-1.14
http://search.cpan.org/~davecross/Net-Backpack-1.14/
Perl extension for interfacing with Backpack
----
Net-DownloadMirror-0.09
http://search.cpan.org/~knorr/Net-DownloadMirror-0.09/
Perl extension for mirroring a remote location via FTP to the local directory
----
Net-MirrorDir-0.19
http://search.cpan.org/~knorr/Net-MirrorDir-0.19/
Perl extension for compare local-directories and remote-directories with each other
----
Net-UploadMirror-0.12
http://search.cpan.org/~knorr/Net-UploadMirror-0.12/
Perl extension for mirroring a local directory via FTP to the remote location
----
POE-Component-Client-HTTP-0.85
http://search.cpan.org/~rcaputo/POE-Component-Client-HTTP-0.85/
a HTTP user-agent component
----
POE-Component-Client-Keepalive-0.20
http://search.cpan.org/~rcaputo/POE-Component-Client-Keepalive-0.20/
manage connections, with keep-alive
----
POE-Component-PluginManager-0.6
http://search.cpan.org/~whoppix/POE-Component-PluginManager-0.6/
Make your POE programs plugin capable, really easy!
----
POE-Component-PluginManager-0.61
http://search.cpan.org/~whoppix/POE-Component-PluginManager-0.61/
Make your POE programs plugin capable, really easy!
----
POE-Component-Server-SimpleXMLRPC-0.01
http://search.cpan.org/~catone/POE-Component-Server-SimpleXMLRPC-0.01/
----
PerlIO-Util-0.52
http://search.cpan.org/~gfuji/PerlIO-Util-0.52/
A selection of general PerlIO utilities
----
Pod-Server-1.04
http://search.cpan.org/~beppu/Pod-Server-1.04/
a web server for locally installed perl documentation
----
Pod-Tests-1.19
http://search.cpan.org/~adamk/Pod-Tests-1.19/
Extracts embedded tests and code examples from POD
----
QualysGuard-Request-0.02
http://search.cpan.org/~pdevlin/QualysGuard-Request-0.02/
Simple interface to QualysGuard API
----
RDF-Trine-0.108_04
http://search.cpan.org/~gwilliams/RDF-Trine-0.108_04/
An RDF Framework for Perl.
----
SOAP-Lite-0.710.08
http://search.cpan.org/~mkutter/SOAP-Lite-0.710.08/
Perl's Web Services Toolkit
----
SOAP-WSDL-2.00.05
http://search.cpan.org/~mkutter/SOAP-WSDL-2.00.05/
SOAP with WSDL support
----
Syntax-Highlight-Engine-Simple-0.02
http://search.cpan.org/~jamadam/Syntax-Highlight-Engine-Simple-0.02/
Simple Syntax Highlight Engine
----
Syntax-Highlight-Engine-Simple-0.03
http://search.cpan.org/~jamadam/Syntax-Highlight-Engine-Simple-0.03/
Simple Syntax Highlight Engine
----
Syntax-Highlight-Engine-Simple-HTML-0.02
http://search.cpan.org/~jamadam/Syntax-Highlight-Engine-Simple-HTML-0.02/
(EXPERIMENTAL)HTML code highlighting class
----
Syntax-Highlight-Engine-Simple-Perl-0.02
http://search.cpan.org/~jamadam/Syntax-Highlight-Engine-Simple-Perl-0.02/
(EXPERIMENTAL) Perl code highlighting class
----
Sys-Info-0.60
http://search.cpan.org/~burak/Sys-Info-0.60/
Fetch information from the host system
----
Test-POE-Stopping-0.02
http://search.cpan.org/~adamk/Test-POE-Stopping-0.02/
Test if a POE process has nothing left to do
----
WWW-Alexa-TrafficRank-1.0
http://search.cpan.org/~guruperl/WWW-Alexa-TrafficRank-1.0/
Query Alexa.com Traffic Rank of website.
----
Wiki-Toolkit-0.76
http://search.cpan.org/~dom/Wiki-Toolkit-0.76/
A toolkit for building Wikis.
----
XML-Pastor-0.6.1
http://search.cpan.org/~aulusoy/XML-Pastor-0.6.1/
Generate Perl classes with XML bindings starting from a W3C XSD Schema
----
XML-Pastor-0.6.2
http://search.cpan.org/~aulusoy/XML-Pastor-0.6.2/
Generate Perl classes with XML bindings starting from a W3C XSD Schema
----
XML-Pastor-0.6.3
http://search.cpan.org/~aulusoy/XML-Pastor-0.6.3/
Generate Perl classes with XML bindings starting from a W3C XSD Schema
----
XML-Pastor-1.0.0
http://search.cpan.org/~aulusoy/XML-Pastor-1.0.0/
Generate Perl classes with XML bindings starting from a W3C XSD Schema
----
XML-Pastor-1.0.1
http://search.cpan.org/~aulusoy/XML-Pastor-1.0.1/
Generate Perl classes with XML bindings starting from a W3C XSD Schema
----
ZConf-0.3.1
http://search.cpan.org/~vvelox/ZConf-0.3.1/
A configuration system allowing for either file or LDAP backed storage.
----
optimizer-0.06
http://search.cpan.org/~rurban/optimizer-0.06/
Write your own Perl optimizer, in Perl
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: Mon, 14 Jul 2008 00:23:11 +0200
From: Hartmut Camphausen <JustMe@somewhere.de>
Subject: Re: Odd error message on open()-ing scalar ref
Message-Id: <MPG.22e49ea81c3789e198968b@news.t-online.de>
Hi xho, Michael,
many thanks for your quick and enlightening responses.
@ xho:
> Open did not fail. Therefore, the value of $! is meaningless. Meaningless
> can be anything, including the value you see above.
> [...]
> [1] And "open" is not setting it anyways, at least not directly.
Ah yes! I kind of thought that function failing and setting $! belongs
together - and /vice versa/: No fail, no $!.
But as Michael quoted:
> The rest of the answer is in the entry for $! in perlvar:
>
> if a system or library call fails, it sets this variable.
> This means that the value of $! is meaningful only *immediately*
> after a failure:
I should better have remembered that, just read it a short while ago :-p
Thanks again + mfg,
Hartmut
--
------------------------------------------------
Hartmut Camphausen h.camp[bei]textix[punkt]de
------------------------------
Date: 13 Jul 2008 23:19:26 GMT
From: Leon Timmermans <fawaka@gmail.com>
Subject: Re: Odd error message on open()-ing scalar ref
Message-Id: <pan.2008.07.13.23.19.47@gmail.com>
On Sun, 13 Jul 2008 22:51:10 +0200, Hartmut Camphausen wrote:
> Hi all,
>
> Consider this snippet:
>
> open ($fh, '<', $fref) || die $!
> warn "(1) $!" if $!;
>
You have a syntax error here, you forgot the semicolon after $!. Please
post correct code on the newsgroup ;-)
Leon Timmermans
------------------------------
Date: Mon, 14 Jul 2008 16:31:44 +0200
From: Hartmut Camphausen <JustMe@somewhere.de>
Subject: Re: Odd error message on open()-ing scalar ref
Message-Id: <MPG.22e581b3914d7e7c98968c@news.t-online.de>
Hi Leo,
> >
> > open ($fh, '<', $fref) || die $!
> > warn "(1) $!" if $!;
> >
>
> You have a syntax error here, you forgot the semicolon after $!.
Oh yes. You are right. I should have taken it with me, just like the
other one.
Thanks for the hint anyway :-)
mfg, Hartmut
--
------------------------------------------------
Hartmut Camphausen h.camp[bei]textix[punkt]de
------------------------------
Date: Mon, 14 Jul 2008 09:41:17 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: printing envelops from perl
Message-Id: <86ej5w34vm.fsf@lifelogs.com>
On Thu, 10 Jul 2008 12:38:28 -0700 (PDT) joe <jcharth@gmail.com> wrote:
j> Does anyone know if it is possible to print envelopes using cgi
j> scripts in a web browser? Can the web browser read page breaks?
Sometimes, depending on your printer drivers and other factors, you can
make a text file with ^L characters and they'll make a new page.
Otherwise, PDF and/or PostScript are your best bet for consistent
output. HTML simply has no rigid control of visual output.
Ted
------------------------------
Date: Sun, 13 Jul 2008 19:01:42 -0700 (PDT)
From: jerrykrinock@gmail.com
Subject: Re: Simplest way (or module) to tweak query in CGI server-side validation
Message-Id: <794f7937-9000-4851-ac3e-678e6e4561df@s50g2000hsb.googlegroups.com>
On Jun 28, 7:05=A0am, Ben Morrow <b...@morrow.me.uk> wrote:
> If you really need to know that level of detail, you'd be better off
> reading RFC 2616 than the source to LWP... :)
Indeed, Ben, after stepping back, reading a little of RFC 2616 and
thinking about what the hell I was doing, I realized that I was asking
form something that didn't make sense.
You cannot alter POST parameters of a redirect, because a redirect is
a body-less request that gets sent back to the client. That's why,
when people "redirect" a POST that has parameters in its body, they
have to move the query into the URL, and change the POST into a GET as
in the code Gunnar gave me. Reading in RFC 2616, sections 9.6 and
10.3, I see that this practice is discouraged and/or "out of spec" in
public applications.
But it doesn't matter, because once I understood what I was doing, the
obvious solution was to re-enter my server script and have it re-send
the form. This is probably the conventional way to get the effect I
want, and is what I have now implemented.
Thanks again to all for helping me through this.
Jerry
------------------------------
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 1717
***************************************
