[28961] in Perl-Users-Digest
Perl-Users Digest, Issue: 205 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 8 11:09:57 2007
Date: Thu, 8 Mar 2007 08:09:05 -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 Thu, 8 Mar 2007 Volume: 11 Number: 205
Today's topics:
Re: Create zombie intentionally? <ced@blv-sam-01.ca.boeing.com>
Re: LWP Package issue in my script.. <paduille.4060.mumia.w+nospam@earthlink.net>
Net::SMTP connection problems <simon.andrews@bbsrc.ac.uk>
Re: Net::SMTP connection problems <prawnMUNG@prawn.me.uk>
new CPAN modules on Thu Mar 8 2007 (Randal Schwartz)
Re: Newbie question re initialization <emschwar@pobox.com>
Problem with pattern match <neil@solenttechnology.co.uk>
Re: Problem with pattern match anno4000@radom.zrz.tu-berlin.de
Re: Redirect to another web page using CGI ? <paduille.4060.mumia.w+nospam@earthlink.net>
Re: Redirect to another web page using CGI ? <viveklinux@gmail.com>
Re: Splitting a filename <noel@sant.me.uk>
Re: Subroutines and Callbacks in Perl/Tk <bik.mido@tiscalinet.it>
Re: Tk::DropSite question <zentara@highstream.net>
view images inside the windows xp shell francyve74@gmail.com
Re: What is abriviation for CHR(4) <max@xxx.tovle.ct>
Windows XP problem, how to print some data to printer c <max@xxx.tovle.ct>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Mar 2007 21:15:52 -0800
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Create zombie intentionally?
Message-Id: <1173330952.272041.276010@s48g2000cws.googlegroups.com>
On Mar 7, 6:55 pm, "Ishmael" <stahl.k...@gmail.com> wrote:
> Ok, this may sound odd, but I would like to create a zombie process
> intentionally. I've been reading the perldoc for perlipc and it seems
> like an unhappy marriage between 'alarm' and 'system' should do the
> trick, but I haven't been able to get it to work. Can someone give me
> a simple (!) example of how to create a zombie (using the alarm/
> system combo - or even better, using fork and exec)? Thanks for you
> help!
>
> By the way, here's what I've been trying (unsuccessfully):
>
> eval {
> local $SIG{ALRM} = sub {die "system call killed by alarm"};
> alarm 1;
> my $cmd = 'perl -e \'while(1) { print "bla\n"; sleep(1); }\'';
> # my $cmd = "/bin/tcsh\nwhile 1\necho \"bla\\n\"\nend\n";
> print $cmd, "\n";
> system($cmd);
> alarm 0;
>
> };
quick, dirty, and an expensive 10 sec. shelf life...
but you can kill the abusive parent ASAP and give the
child a decent burial...
perl -le 'if (fork){print $$; 1 while time()-$^T <10} else {exit}'
--
Charles DeRykus
------------------------------
Date: Thu, 08 Mar 2007 05:52:32 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: LWP Package issue in my script..
Message-Id: <AwNHh.125133$_73.69882@newsread2.news.pas.earthlink.net>
On 03/07/2007 01:29 PM, Uri Guttman wrote:
>>>>>> "s" == schimata <schimata@gmail.com> writes:
>
> s> use LWP::Simple;
> s> use HTTP::Status;
> s> use LWP::UserAgent;
>
> you don't need all three of those. LWP::Simple will load LWP::UserAgent
> which will load HTTP::Status. and by loading all those you are confusing
> yourself below.
>
> s> blah..blah..
> s> blah..
>
> that isn't valid perl code! :)
>
> s> my $ua = LWP::UserAgent->new;
>
> so you are using the OO style with that module. read ITS docs on what
> methods it supports.
>
> s> $ua->timeout(1000);
> s> $ua->env_proxy;
>
> those are legit methods for that object.
>
> s> my $url ='http://tracker/cfdocs/proddev/admin/ws/api/
> s> get_all_subfeatures.cfm';
>
> be careful when pasting in emails. that line wrapped and shouldn't have
> and if someone cut/pasted it, it would likely fail because of the
> newline in the url.
>
> s> print "hello";
> s> my $response = $ua->get($url);
>
> ahh. is get() a method documented in LWP::UserAgent? no it isn't.
The method is there. I am able to run Schimata's program after changing
the URL. Evidently, the program Schimata posted is not the one with the
problem.
> it is
> an exported sub in LWP::Simple which wraps code around its own $ua. so
> you either call get() as a sub or use $ua and its methods. you can't
> mix/match them.
>
> uri
>
You are correct though in that using both LWP::Simple and LWP::UserAgent
is redundant.
------------------------------
Date: Thu, 08 Mar 2007 11:23:00 +0000
From: Simon Andrews <simon.andrews@bbsrc.ac.uk>
Subject: Net::SMTP connection problems
Message-Id: <esorml$3rr$1@south.jnrs.ja.net>
Firstly let me say that I realise that this may not be a Perl issue, but
I think it must have some connection to the way that Net::SMTP works, so
bear with me!
I'm trying to connect to our local SMTP server. I did this ages ago
successfully but recently it's not working. Lots of stuff has changed
since it worked including new versions of perl and all modules, which
may or may not be relevant.
The problem boils down to:
#!perl
use warnings;
use strict;
use Net::SMTP;
my $smtp = Net::SMTP->new('smtp',
Timeout => 60,
Debug => 1);
print "Result was '$smtp' from ".$Net::SMTP::VERSION;
.. which gets me:
Result was '' from 2.29 (plus an uninitialised value warning from trying
to print $smtp. It seems the connection is failing before the socket is
even created.
This is backed up by:
>telnet smtp 25
Connecting To smtp...Could not open connection to the host, on port 25:
Connect failed
OK, so it seems the smtp server is blocking me.
However. If I run a local mail program (Thunderbird) on this machine
and point it to the same SMTP server on the same port it can send
messages successfully. I'm completely at a loss to explain how what
Thunderbird is doing could be any different to what I'm doing in the script.
A few things to rule out:
There is no authorisation needed on the server. Thunderbird is set up
not to provide any credentials.
Running the same script as above from a linux box in the same IP range
works as expected, it can also telnet in correctly. All windows boxes
I've tried fail. I've tried setting $/ to \012 in case that had any
bearing, but to no avail.
Our server admin swears that there are no rules in place on the server
to block this machine from connecting.
There is no local firewall on this machine which might selectively block
outgoing packets.
I've also tried all of this using IP addresses rather than host names.
No change in outcome.
Is there any possibility that there's something in the way perl is
creating the initial connection which could be different to what a
standalone mail program would be doing? I'm really at a loss as to how
to debug this.
Simon.
------------------------------
Date: Thu, 8 Mar 2007 11:38:31 +0000
From: prawn <prawnMUNG@prawn.me.uk>
Subject: Re: Net::SMTP connection problems
Message-Id: <slrneuvtdn.dvl.prawnMUNG@eddie.ryet.co.uk>
On 2007-03-08, Simon Andrews <simon.andrews@bbsrc.ac.uk> wrote:
> >telnet smtp 25
> Connecting To smtp...Could not open connection to the host, on port 25:
> Connect failed
>
> OK, so it seems the smtp server is blocking me.
Assuming smtp is the correct name, then port 25 is blocked.
On my home network:
prawn@deepthought:~$ telnet localhost 25
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
220 deepthought.ryet.co.uk ESMTP Postfix (Ubuntu)
And from another machine:
Connection closed by foreign host.
prawn@eddie:~$ telnet deepthought 25
Trying 192.168.1.108...
telnet: Unable to connect to remote host: Connection refused
This is an smtp / network issue.
--
p BotM#1 LotR#9
------------------------------
Date: Thu, 8 Mar 2007 05:42:13 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Mar 8 2007
Message-Id: <JEKL6D.1p1C@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.
AnyEvent-2.52
http://search.cpan.org/~mlehmann/AnyEvent-2.52/
provide framework for multiple event loops
----
Bio-Grep-v0.0.3
http://search.cpan.org/~limaone/Bio-Grep-v0.0.3/
Perl extension for searching in Fasta files
----
CGI-SessionM-2.00
http://search.cpan.org/~abalama/CGI-SessionM-2.00/
Module provides sessions support inside CGI-scripts.
----
Combine-3.5
http://search.cpan.org/~aardo/Combine-3.5/
----
DBIx-Class-FrozenColumns-0.01
http://search.cpan.org/~syber/DBIx-Class-FrozenColumns-0.01/
Store virtual columns inside another column.
----
Data-Domain-0.04
http://search.cpan.org/~dami/Data-Domain-0.04/
Data description and validation
----
Date-Holidays-0.13
http://search.cpan.org/~jonasbn/Date-Holidays-0.13/
a Date::Holidays::* OOP Adapter aggregator
----
Devel-ebug-Wx-0.02
http://search.cpan.org/~mbarbon/Devel-ebug-Wx-0.02/
GUI interface for your (d)ebugging needs
----
FCGI-Async-0.08
http://search.cpan.org/~pevans/FCGI-Async-0.08/
Module to allow use of FastCGI asynchronously
----
Finance-Currency-Convert-XE-0.13
http://search.cpan.org/~barbie/Finance-Currency-Convert-XE-0.13/
Currency conversion module.
----
Genezzo-0.69
http://search.cpan.org/~jcohen/Genezzo-0.69/
an extensible database with SQL and DBI
----
Image-ObjectDetect-0.01
http://search.cpan.org/~jiro/Image-ObjectDetect-0.01/
detects objects from picture(using opencv)
----
Image-ObjectDetect-0.02
http://search.cpan.org/~jiro/Image-ObjectDetect-0.02/
detects objects from picture(using opencv)
----
Image-ObjectDetect-0.10
http://search.cpan.org/~jiro/Image-ObjectDetect-0.10/
detects objects from picture(using opencv)
----
KinoSearch-0.20_02
http://search.cpan.org/~creamyg/KinoSearch-0.20_02/
Search engine library.
----
Mail-LMLM-0.6400
http://search.cpan.org/~shlomif/Mail-LMLM-0.6400/
List of Mailing Lists Manager
----
Net-Twitter-1.0.1
http://search.cpan.org/~cthom/Net-Twitter-1.0.1/
Perl interface to twitter.com
----
Net-Whois-IP-1.04
http://search.cpan.org/~bschmitz/Net-Whois-IP-1.04/
Perl extension for looking up the whois information for ip addresses
----
POE-Component-Cron-0.015
http://search.cpan.org/~cfedde/POE-Component-Cron-0.015/
Schedule POE Events using a cron spec
----
Params-Validate-0.88
http://search.cpan.org/~drolsky/Params-Validate-0.88/
Validate method/function parameters
----
QWizard-3.06
http://search.cpan.org/~hardaker/QWizard-3.06/
Display a series of questions, get the answers, and act on the answers.
----
Solaris-SysInfo-0.02
http://search.cpan.org/~pevans/Solaris-SysInfo-0.02/
A perl wrapper around Solaris' sysinfo(1) system call
----
Template-Plugin-Perl-0.04
http://search.cpan.org/~agent/Template-Plugin-Perl-0.04/
TT2 plugin to import Perl built-in functions
----
Test-Timer-0.01
http://search.cpan.org/~jonasbn/Test-Timer-0.01/
a test module to test/assert response times
----
Text-Wrap-Smart-0.4
http://search.cpan.org/~schubiger/Text-Wrap-Smart-0.4/
Wrap text into chunks of equal length
----
Thread-Pool-Simple-0.04
http://search.cpan.org/~jwu/Thread-Pool-Simple-0.04/
A simple thread-pool implementation
----
UNIVERSAL-ref-0.02
http://search.cpan.org/~jjore/UNIVERSAL-ref-0.02/
Turns ref() into a multimethod
----
UNIVERSAL-ref-0.03
http://search.cpan.org/~jjore/UNIVERSAL-ref-0.03/
Turns ref() into a multimethod
----
Win32-0.27
http://search.cpan.org/~jdb/Win32-0.27/
Interfaces to some Win32 API Functions
----
Win32-StreamNames-1.01
http://search.cpan.org/~clive/Win32-StreamNames-1.01/
Perl extension for reading Windows ADS names
----
Workflow-0.26
http://search.cpan.org/~jonasbn/Workflow-0.26/
Simple, flexible system to implement workflows
----
XML-MyXML-0.0961
http://search.cpan.org/~karjala/XML-MyXML-0.0961/
A simple-to-use XML module, for parsing and creating XML documents
----
Youri-Config-v0.1.1
http://search.cpan.org/~grousse/Youri-Config-v0.1.1/
Youri configuration handler
----
Youri-Package-v0.1.0
http://search.cpan.org/~grousse/Youri-Package-v0.1.0/
Abstract package class
----
Youri-Utils-v0.1.1
http://search.cpan.org/~grousse/Youri-Utils-v0.1.1/
Youri shared functions
----
libwin32-0.27
http://search.cpan.org/~jdb/libwin32-0.27/
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/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 08 Mar 2007 06:26:30 GMT
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Newbie question re initialization
Message-Id: <87irdc9tx9.fsf@beorn.i-did-not-set--mail-host-address--so-shoot-me>
Ed Jay <edMbj@aes-intl.com> writes:
> The list that's being generated comprises a few hundred 'usernames,'
> so the use of js, IMHO, is called for as an alternative to
> generating and populating beaucoup fields. This is an in-house
> application, so there's no concern about js being disabled. etc.
Uri's point, I think, is that you have to do the generation somewhere
no matter what-- so why not do it in Perl, which gives you advantages
like easier testing, keeps more of your app code in the same place,
etc., or in javascript which... well, I assume there's some sort of
benefit, but "it has to be generated, and comprises a few hundred
elements" isn't one; that can be done just as easily in Perl.
-=Eric
------------------------------
Date: 8 Mar 2007 07:07:55 -0800
From: "neilsolent" <neil@solenttechnology.co.uk>
Subject: Problem with pattern match
Message-Id: <1173366475.625841.144560@h3g2000cwc.googlegroups.com>
Hi
I need to do a pattern match like:
$a =~ /(.*)\/$pattern/;
Trouble is, the variable $pattern contains a string of weird and
wonderful characters like "+" which seem to get treated as special in
the regular expression, so I get an error. Is there some way I can
match using $pattern literally (i.e. ignore the special meaning of any
characters)? Needless to day, $pattern is not predetermined, so I
cannot simpy type out a valid regular expression manually.
many thanks,
Neil
------------------------------
Date: 8 Mar 2007 15:27:11 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Problem with pattern match
Message-Id: <55aoafF236j1eU1@mid.dfncis.de>
neilsolent <neil@solenttechnology.co.uk> wrote in comp.lang.perl.misc:
> Hi
>
> I need to do a pattern match like:
>
> $a =~ /(.*)\/$pattern/;
>
> Trouble is, the variable $pattern contains a string of weird and
> wonderful characters like "+" which seem to get treated as special in
> the regular expression, so I get an error. Is there some way I can
> match using $pattern literally (i.e. ignore the special meaning of any
> characters)? Needless to day, $pattern is not predetermined, so I
> cannot simpy type out a valid regular expression manually.
m{(.*)/\Q$pattern};
See perlre for the meaning of "\Q", and its companion "\E". Using {}
as regex delimiters allows you to specify "/" without escaping it.
The name $pattern is probably a bit misleading. If it were a
(partial) pattern you'd *want* the special characters interpreted
as usual in a regex. The way you have it, it is rather a string to
be matched literally.
Anno
------------------------------
Date: Thu, 08 Mar 2007 05:52:30 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: Redirect to another web page using CGI ?
Message-Id: <ywNHh.125132$_73.78601@newsread2.news.pas.earthlink.net>
On 03/07/2007 08:09 PM, vivekian wrote:
> Hi,
> [...]
Hello
>
> If the authentication succeeds would like to redirect to another page
> in directory say foo.html. [...]
Read the documentation for CGI.pm--particularly the section titled
"Generating a Redirection Header."
------------------------------
Date: 8 Mar 2007 03:34:52 -0800
From: "vivekian" <viveklinux@gmail.com>
Subject: Re: Redirect to another web page using CGI ?
Message-Id: <1173353691.934618.3820@v33g2000cwv.googlegroups.com>
On Mar 7, 8:50 pm, Sherm Pendley <spamt...@dot-app.org> wrote:
> "vivekian" <vivekli...@gmail.com> writes:
> > This is a small authentication cgi perl script which makes use of
> > CGI.pm.
>
> ...
>
> > If the authentication succeeds would like to redirect to another page
> > in directory say foo.html. How can this be done ?
>
> This is a SAQ. Look at the docs for CGI.pm. Find the term "redirect". Kick
> yourself for not reading the docs, or for missing the obvious - whichever
> one applies here.
>
> > Also is there an
> > authentication function which allready exists in CGI.pm ?
>
> If you've enabled standard HTTP authentication on your web server, then
> use CGI.pm's remote_user() function to get the user name.
>
> Many folks don't use that though - for instance, they may want to design a
> "login" box that appears as part of their page, instead of relying on the
> browser to pop up its built-in dialog. Application-level authentication
> like that can be built with the low-level services that CGI.pm provides,
> but it's not part of CGI.pm itself.
>
> sherm--
>
> --
> Web Hosting by West Virginians, for West Virginians:http://wv-www.net
> Cocoa programming in Perl:http://camelbones.sourceforge.net
Thanks.
Realized it just after posting and wanted to kick myself :)
------------------------------
Date: Thu, 08 Mar 2007 12:11:15 GMT
From: "Noel Sant" <noel@sant.me.uk>
Subject: Re: Splitting a filename
Message-Id: <D3THh.27698$fa.17833@newsfe1-win.ntli.net>
Wow!
As you say, I'll stop trying to re-invent the wheel, and use fileparse.
In answer to the query, I do use strict in programs, but not for that
example.
Many thanks.
------------------------------
Date: Thu, 08 Mar 2007 12:57:59 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Subroutines and Callbacks in Perl/Tk
Message-Id: <9hqvu2dm1skltoivtrfdfb852650dur95c@4ax.com>
On Wed, 7 Mar 2007 20:24:07 +0000, Ben Morrow <ben@morrow.me.uk>
wrote:
>> It's cool, and certainly useful. Are you a
>> PerlMonks user too? If so, then you may also post it in the snippets
>> or code sections. If not, may I do so?
>
>No, I'm not; and yes, of course you may :). Could you stick a
>
> Copyright 2007 Ben Morrow
[snip]
>section at the bottom? (I should really have done so before posting...)
Done:
http://perlmonks.org/?node_id=603803
Please note that if anything is not of your liking, the node is
updateable. You can reach me by email at <ti tod nfni tod im tod mcl
ta razalb>.
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: Thu, 08 Mar 2007 13:02:59 GMT
From: zentara <zentara@highstream.net>
Subject: Re: Tk::DropSite question
Message-Id: <eb10v21kfqrjnac08uff94c0eqaas2d4ce@4ax.com>
On Wed, 7 Mar 2007 15:31:55 -0500, "~greg" <g_m@remove-comcast.net>
wrote:
>When I asked the question in this newsgroup, I asked it also
>in exactly one other group - comp.lang.perl.modules.
>And I got a answer there pretty quick, from a Mr Christoph (Ch) Lamprecht.
He knows more than me, I'm glad he answered you.
>The real problem is that Tk::DropSite has in effect no pod
>documentation at all. What it has instead is simply a mention
>It'd be a contender for the contest for the worst documented module,
>except that I guess that Tk is understood to be documented in TCL references?
Yeah, that is why I said it is hardly used.
There is one good example on the net, at
A Drag-and-Drop Primer for Perl/Tk
http://www.perl.com/pub/a/2001/12/11/perltk.html
>
>As for reading the source, I know that it can always be a useful
>adjunct to understanding the official interface to a module.
>But I am not very good at it, and in particular
>I am not very good at seeing the difference, in source code,
>between what's for the interface, and what's just for the
>internal implimentaion, unless it's explicitly commented.
>And I am afraid of accidentally making anything dependant
>on internal implimentation, which could change with
>every minor version upgrade of modules.
Well you are wise enough to realize that the Drag'n'Drop
code for Tk, us pretty weak, and you might not want to
depend on it, for anything other than your own scripts.
In other words, what works for you may fail for others.
>> Tk Drop is not seen much, and in conjunction with Windows makes
>> it pretty esoteric.
>> zentara
>> http://zentara.net/japh.html
>
>
>well, ok, but ...
>when i clicked on your link, I got an ActiveX warning...
It's just a short flash animation, that says Just Another Perl Hacker.
The ActiveX warning is beyond me, I hear that one of the biggest
complaints about Windows is stupid warnings like that. If you
google for "flash ActiveX warning" you may find solutions.
>so I know at least you don't mean your comment
>as a blanket indictment of Windows. :)
>~greg
I'll issue a blanket indictment of Windows any time you want,
just as Judge Jackson did in his Anti-Trust findings against
Microsoft a few years ago.
http://usvms.gpo.gov/ms-findings2.html
:-)
But what I meant was that Tk's Drag'n'Drop is hard enough
to get going with it's own Tk widgets, and that trying to do
a drop from an non-Tk app is pushing the limits, especially
on Windows.
( most Perl was written with linux/unix type systems in mind)
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: 8 Mar 2007 00:39:19 -0800
From: francyve74@gmail.com
Subject: view images inside the windows xp shell
Message-Id: <1173343159.358606.292290@c51g2000cwc.googlegroups.com>
Hi, I've done a lot of googling but I couldn't find a way to view
images inside the windows xp shell, I don't want an external window to
appear, so may be that tk-perl is not a choice; I've tried also image-
magick (with the display command) but it needs an x-server. Can you
please suggest me any alternative to image-magick?
Thanks
------------------------------
Date: Thu, 8 Mar 2007 09:35:28 +0100
From: "max" <max@xxx.tovle.ct>
Subject: Re: What is abriviation for CHR(4)
Message-Id: <esohs5$dbs$1@ss408.t-com.hr>
Thanks
Super is easier that I think.
Max
"John W. Krahn" <someone@example.com> wrote in message
news:JNFHh.35312$cE3.33296@edtnps89...
> max wrote:
> > Problem with making Replacement CHR(4) in something.
> > CHR(9) is "\t"
> > I use tr///.
> > What is abbreviation for CHR(4)
>
> "\t" could also be represented as "\011" or "\x09" or "\cI" so chr( 4 )
could
> be represented as "\04" or "\x04" or "\cD".
>
>
>
> John
> --
> Perl isn't a toolbox, but a small machine shop where you can special-order
> certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Thu, 8 Mar 2007 16:12:27 +0100
From: "max" <max@xxx.tovle.ct>
Subject: Windows XP problem, how to print some data to printer connected on LPT port?
Message-Id: <esp94e$jnv$1@ss408.t-com.hr>
Windows XP problem, how to print some data to printer connected on LPT port?
Thanks
------------------------------
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 205
**************************************
