[31013] in Perl-Users-Digest
Perl-Users Digest, Issue: 2258 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 7 06:09:38 2009
Date: Sat, 7 Mar 2009 03: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 Sat, 7 Mar 2009 Volume: 11 Number: 2258
Today's topics:
Re: A globbing question <uri@stemsystems.com>
Re: A globbing question <someone@example.com>
Re: A globbing question <uri@stemsystems.com>
Re: Access denied in remote mysql connection <xhoster@gmail.com>
Re: How would I send the 'space bar command' in the fol <cdalten@gmail.com>
Re: How would I send the 'space bar command' in the fol <usenet@larseighner.com>
Re: How would I send the 'space bar command' in the fol <cdalten@gmail.com>
new CPAN modules on Sat Mar 7 2009 (Randal Schwartz)
Re: perl as email client <larry@example.invalid>
Re: perl as email client <placebo@dontbesilly.com>
Re: perl/postscript csv label maker <macropod@invalid.invalid>
Re: system not returning correct return code. <oakulkarni@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 06 Mar 2009 23:33:08 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: A globbing question
Message-Id: <x7sklqrlyz.fsf@mail.sysarch.com>
>>>>> "A" == Alex <yakovlev@hotmail.com> writes:
>> Perhaps you are looking for grep:
>>
>> my @var = grep( /a*/, @set );
>>
>> See 'perldoc -f grep'
A> No, grep doesn't work for me. I need globbing, not regexes, because
A> many of special pattern symbols are interpreted differently. For
A> example, asterisk represents any number of any symbols in globbing
A> (like in Unix shell), but in regexes it represents a repetition of the
A> previous symbol or subexpression.
huh?? in regexes . is the same as * in globs. so what? glob patterns are
simplistic vs regexes which can do any globbing and more. your choice of
glob for a filter makes little sense.
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: Fri, 06 Mar 2009 22:25:26 -0800
From: "John W. Krahn" <someone@example.com>
Subject: Re: A globbing question
Message-Id: <qrosl.48090$EO2.22610@newsfe04.iad>
Uri Guttman wrote:
>>>>>> "A" == Alex <yakovlev@hotmail.com> writes:
>
> >> Perhaps you are looking for grep:
> >>
> >> my @var = grep( /a*/, @set );
> >>
> >> See 'perldoc -f grep'
>
> A> No, grep doesn't work for me. I need globbing, not regexes, because
> A> many of special pattern symbols are interpreted differently. For
> A> example, asterisk represents any number of any symbols in globbing
> A> (like in Unix shell), but in regexes it represents a repetition of the
> A> previous symbol or subexpression.
>
> huh?? in regexes . is the same as * in globs. so what? glob patterns are
> simplistic vs regexes which can do any globbing and more. your choice of
> glob for a filter makes little sense.
ITYM: in regexes . is the same as ? in globs.
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
------------------------------
Date: Sat, 07 Mar 2009 01:57:18 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: A globbing question
Message-Id: <x78wnhstv5.fsf@mail.sysarch.com>
>>>>> "JWK" == John W Krahn <someone@example.com> writes:
JWK> Uri Guttman wrote:
>>>>>>> "A" == Alex <yakovlev@hotmail.com> writes:
>> >> Perhaps you are looking for grep:
>> >> >> my @var = grep( /a*/, @set );
>> >> >> See 'perldoc -f grep'
A> No, grep doesn't work for me. I need globbing, not regexes,
>> because
A> many of special pattern symbols are interpreted differently. For
A> example, asterisk represents any number of any symbols in globbing
A> (like in Unix shell), but in regexes it represents a repetition of the
A> previous symbol or subexpression.
>> huh?? in regexes . is the same as * in globs. so what? glob patterns
>> are
>> simplistic vs regexes which can do any globbing and more. your choice of
>> glob for a filter makes little sense.
JWK> ITYM: in regexes . is the same as ? in globs.
yeah. shows how often i use globs for filtering in perl! in shells i use
them as needed. but my point is valid. globs have very little power and
regexes can do the same with about as little syntax.
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: Fri, 06 Mar 2009 19:03:31 -0800
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: Access denied in remote mysql connection
Message-Id: <49b1e768$0$10124$ed362ca5@nr5-q3a.newsreader.com>
wes.tibular@yahoo.com wrote:
> On Mar 5, 3:53 pm, Tim Greer <t...@burlyhost.com> wrote:
>> Be sure to paste the actual error message, or are you saying this very
>> literally was, showing @localhost with no username? That just doesn't
>> seem right is all.
>
> Thank you for your patience. I have to redact certain information,
> but probably should have used '@example.com' instead of '@localhost'
> to avoid misinterpretation.
>
> That said, yes, the actual error message said "Access denied for user:
> '@example.com' " with no username. It appears that something between
> the sample program and the network scrubbed the username and
> password. I verified it was getting as far as into Net::Mysql, but
> could not follow past that.
mysql has a rather bizarre permissions system. If the mysql.user table
has an entry for both wildcard username at specified host
(%@example.com) and a specified username at wildcard host (user@%), it
could that it thinks you are trying to log you on as %@example.com even
though it told it to use a specific username. Since the password you
are supplying is for user@%, not for %@example.com, it gives an
incorrect password error.
Xho
------------------------------
Date: Fri, 6 Mar 2009 18:24:32 -0800 (PST)
From: grocery_stocker <cdalten@gmail.com>
Subject: Re: How would I send the 'space bar command' in the following
Message-Id: <dba81474-7b40-4aa0-8ffc-907dd0c62af8@h5g2000yqh.googlegroups.com>
On Mar 6, 6:04 pm, grocery_stocker <cdal...@gmail.com> wrote:
> Given the following...
>
> [cdalten@localhost oakland]$ more man.pl
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> open my $out, '|-', 'man perl' or die "cannot open pipe to man
> pages";
>
> #print $out "find nope a=3Dcdalten\n";
>
> close $out or die "cannot close pipe to man pages: $!";
>
> [cdalten@localhost oakland]$ ./man.pl
>
> I get....
>
> PERL(1) Perl Programmers Reference Guide
> PERL(1)
>
> NAME
> perl - Practical Extraction and Report Language
>
> SYNOPSIS
> perl [ -sTtuUWX ] [ -hv ] [ -V[:configvar] ]
> [ -cw ] [ -d[t][:debugger] ] [ -D[number/list] ]
> [ -pna ] [ -Fpattern ] [ -l[octal] ] [ -0[octal/
> hexadecimal] ]
> [ -Idir ] [ -m[-]module ] [ -M[-]=92module...=92 ] [ -f ]
> [ -C [number/list] ] [ -P ] [ -S ] [ -x
> [dir] ]
> [ -i[extension] ] [ -e =92command=92 ] [ -- ] [ program-
> file ] [ argument ]...
>
> If you=92re new to Perl, you should start with perlintro, which
> is a gen-
> eral intro for beginners and provides some background to help
> you navi-
> gate the rest of Perl=92s extensive documentation.
>
> For ease of access, the Perl manual has been split up into
> several sec-
> tions.
>
> Overview
>
> :
>
> The problem is that the program just stops at ':'. Ie, I have to
> physically press the space bar on my keyboard to get to the next page.
> How would I set it up some the I could have the program do it for me?
Let me try this again. How would I set it up so that I could have the
program do it for me? I can type. I really can.
------------------------------
Date: Sat, 7 Mar 2009 03:28:24 +0000 (UTC)
From: Lars Eighner <usenet@larseighner.com>
Subject: Re: How would I send the 'space bar command' in the following
Message-Id: <slrngr3qbv.30u5.usenet@debranded.larseighner.com>
In our last episode,
<dba81474-7b40-4aa0-8ffc-907dd0c62af8@h5g2000yqh.googlegroups.com>, the
lovely and talented grocery_stocker broadcast on comp.lang.perl.misc:
> On Mar 6, 6:04 pm, grocery_stocker <cdal...@gmail.com> wrote:
>> Given the following...
>>
>> [cdalten@localhost oakland]$ more man.pl
>> #!/usr/bin/perl
>>
>> use strict;
>> use warnings;
>>
>> open my $out, '|-', 'man perl' or die "cannot open pipe to man
>> pages";
>>
>> #print $out "find nope a=cdalten\n";
>>
>> close $out or die "cannot close pipe to man pages: $!";
>>
>> [cdalten@localhost oakland]$ ./man.pl
>>
>> I get....
>>
>> PERL(1) Perl Programmers Reference Guide
>> PERL(1)
>>
>> NAME
>> perl - Practical Extraction and Report Language
>>
>> SYNOPSIS
>> perl [ -sTtuUWX ] [ -hv ] [ -V[:configvar] ]
>> [ -cw ] [ -d[t][:debugger] ] [ -D[number/list] ]
>> [ -pna ] [ -Fpattern ] [ -l[octal] ] [ -0[octal/
>> hexadecimal] ]
>> [ -Idir ] [ -m[-]module ] [ -M[-]?module...? ] [ -f ]
>> [ -C [number/list] ] [ -P ] [ -S ] [ -x
>> [dir] ]
>> [ -i[extension] ] [ -e ?command? ] [ -- ] [ program-
>> file ] [ argument ]...
>>
>> If you?re new to Perl, you should start with perlintro, which
>> is a gen-
>> eral intro for beginners and provides some background to help
>> you navi-
>> gate the rest of Perl?s extensive documentation.
>>
>> For ease of access, the Perl manual has been split up into
>> several sec-
>> tions.
>>
>> Overview
>>
>> :
>>
>> The problem is that the program just stops at ':'. Ie, I have to
>> physically press the space bar on my keyboard to get to the next page.
>> How would I set it up some the I could have the program do it for me?
> Let me try this again. How would I set it up so that I could have the
> program do it for me? I can type. I really can.
It appears to me that man is invoking the pager. It shouldn't do this if it
knows it is not writing to a term. I don't know what is wrong here, but
why not:
print `man perl`;
at any rate
perl -e 'print `man perl`;'
seems to work fine from the command line.
--
Lars Eighner <http://larseighner.com/> usenet@larseighner.com
45 days since Rick Warren prayed over Bush's third term.
Obama: No hope, no change, more of the same. Yes, he can, but no, he won't.
------------------------------
Date: Fri, 6 Mar 2009 20:45:55 -0800 (PST)
From: grocery_stocker <cdalten@gmail.com>
Subject: Re: How would I send the 'space bar command' in the following
Message-Id: <47effd89-d3a6-4ad8-98de-e6d37189d22e@h20g2000yqn.googlegroups.com>
On Mar 6, 7:28 pm, Lars Eighner <use...@larseighner.com> wrote:
> In our last episode,
> <dba81474-7b40-4aa0-8ffc-907dd0c62...@h5g2000yqh.googlegroups.com>, the
> lovely and talented grocery_stocker broadcast on comp.lang.perl.misc:
>
>
>
> > On Mar 6, 6:04 pm, grocery_stocker <cdal...@gmail.com> wrote:
> >> Given the following...
>
> >> [cdalten@localhost oakland]$ more man.pl
> >> #!/usr/bin/perl
>
> >> use strict;
> >> use warnings;
>
> >> open my $out, '|-', 'man perl' or die "cannot open pipe to man
> >> pages";
>
> >> #print $out "find nope a=cdalten\n";
>
> >> close $out or die "cannot close pipe to man pages: $!";
>
> >> [cdalten@localhost oakland]$ ./man.pl
>
> >> I get....
>
> >> PERL(1) Perl Programmers Reference Guide
> >> PERL(1)
>
> >> NAME
> >> perl - Practical Extraction and Report Language
>
> >> SYNOPSIS
> >> perl [ -sTtuUWX ] [ -hv ] [ -V[:configvar] ]
> >> [ -cw ] [ -d[t][:debugger] ] [ -D[number/list] ]
> >> [ -pna ] [ -Fpattern ] [ -l[octal] ] [ -0[octal/
> >> hexadecimal] ]
> >> [ -Idir ] [ -m[-]module ] [ -M[-]?module...? ] [ -f ]
> >> [ -C [number/list] ] [ -P ] [ -S ] [ -x
> >> [dir] ]
> >> [ -i[extension] ] [ -e ?command? ] [ -- ] [ program-
> >> file ] [ argument ]...
>
> >> If you?re new to Perl, you should start with perlintro, which
> >> is a gen-
> >> eral intro for beginners and provides some background to help
> >> you navi-
> >> gate the rest of Perl?s extensive documentation.
>
> >> For ease of access, the Perl manual has been split up into
> >> several sec-
> >> tions.
>
> >> Overview
>
> >> :
>
> >> The problem is that the program just stops at ':'. Ie, I have to
> >> physically press the space bar on my keyboard to get to the next page.
> >> How would I set it up some the I could have the program do it for me?
> > Let me try this again. How would I set it up so that I could have the
> > program do it for me? I can type. I really can.
>
> It appears to me that man is invoking the pager. It shouldn't do this if it
> knows it is not writing to a term. I don't know what is wrong here, but
> why not:
>
> print `man perl`;
>
> at any rate
>
> perl -e 'print `man perl`;'
>
> seems to work fine from the command line.
because I also want to send stuff like 'esc shift >'
------------------------------
Date: Sat, 7 Mar 2009 05:42:27 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Mar 7 2009
Message-Id: <KG4Fur.1EBy@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.
App-Daemon-0.06
http://search.cpan.org/~mschilli/App-Daemon-0.06/
Start an Application as a Daemon
----
App-ZofCMS-Plugin-Base-0.0103
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-Base-0.0103/
base class for App::ZofCMS plugins
----
App-ZofCMS-Plugin-DBI-0.0331
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-DBI-0.0331/
DBI access from ZofCMS templates
----
App-ZofCMS-Plugin-FileTypeIcon-0.0101
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-FileTypeIcon-0.0101/
present users with pretty icons depending on file type
----
App-ZofCMS-Plugin-FileTypeIcon-0.0102
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-FileTypeIcon-0.0102/
present users with pretty icons depending on file type
----
App-ZofCMS-Plugin-Search-Indexer-0.0101
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-Search-Indexer-0.0101/
plugin that incorporates Search::Indexer module's functionality
----
Astro-satpass-0.022_02
http://search.cpan.org/~wyant/Astro-satpass-0.022_02/
----
Bio-Graphics-1.85
http://search.cpan.org/~lds/Bio-Graphics-1.85/
Generate GD images of Bio::Seq objects
----
CHI-0.102
http://search.cpan.org/~jswartz/CHI-0.102/
Unified cache interface
----
Class-Std-Slots-0.3
http://search.cpan.org/~andya/Class-Std-Slots-0.3/
Provide signals and slots for standard classes.
----
DBD-ODBC-1.18_1
http://search.cpan.org/~mjevans/DBD-ODBC-1.18_1/
ODBC Driver for DBI
----
Data-Rx-0.007
http://search.cpan.org/~rjbs/Data-Rx-0.007/
perl implementation of Rx schema system
----
Device-OUI-1.04
http://search.cpan.org/~jasonk/Device-OUI-1.04/
Resolve an Organizationally Unique Identifier
----
Dotiac-addon-html_template-0.4
http://search.cpan.org/~maluku/Dotiac-addon-html_template-0.4/
----
Email-MIME-Kit-Validator-Rx-0.003
http://search.cpan.org/~rjbs/Email-MIME-Kit-Validator-Rx-0.003/
validate assembly stash with Rx (from JSON in kit)
----
Fedora-Bugzilla-0.06
http://search.cpan.org/~rsrchboy/Fedora-Bugzilla-0.06/
Interact with Fedora's bugzilla instance
----
Geo-IP-1.37
http://search.cpan.org/~borisz/Geo-IP-1.37/
Look up location and network information by IP Address
----
HTML-WikiConverter-0.64
http://search.cpan.org/~diberri/HTML-WikiConverter-0.64/
Convert HTML to wiki markup
----
HTML-WikiConverter-MediaWiki-0.57
http://search.cpan.org/~diberri/HTML-WikiConverter-MediaWiki-0.57/
Convert HTML to MediaWiki markup
----
HTML-WikiConverter-MediaWiki-0.58
http://search.cpan.org/~diberri/HTML-WikiConverter-MediaWiki-0.58/
Convert HTML to MediaWiki markup
----
IO-Moose-0.10
http://search.cpan.org/~dexter/IO-Moose-0.10/
Reimplementation of IO::* with improvements
----
MooseX-Getopt-0.16
http://search.cpan.org/~rjbs/MooseX-Getopt-0.16/
A Moose role for processing command line options
----
MooseX-Types-Structured-0.08
http://search.cpan.org/~jjnapiork/MooseX-Types-Structured-0.08/
Structured Type Constraints for Moose
----
Mouse-0.18
http://search.cpan.org/~sartak/Mouse-0.18/
Moose minus the antlers
----
Net-IMAP-Server-1.11
http://search.cpan.org/~alexmv/Net-IMAP-Server-1.11/
A single-threaded multiplexing IMAP server implementation, using Net::Server::Coro.
----
Net-SMTP-OneLiner-2.0
http://search.cpan.org/~jettero/Net-SMTP-OneLiner-2.0/
extension that polutes the local namespace with a send_mail() function.
----
News-Pictures-0.01
http://search.cpan.org/~cguine/News-Pictures-0.01/
The great new News::Pictures!
----
POE-Component-IRC-6.02
http://search.cpan.org/~bingos/POE-Component-IRC-6.02/
A fully event-driven IRC client module
----
POEIKC-Plugin-IRC-0.00_01
http://search.cpan.org/~suzuki/POEIKC-Plugin-IRC-0.00_01/
PoCo-IKC and PoCo-IRC based irc bot.
----
Path-Extended-0.09
http://search.cpan.org/~ishigaki/Path-Extended-0.09/
yet another Path class
----
Perl-Dist-WiX-v0.15
http://search.cpan.org/~csjewell/Perl-Dist-WiX-v0.15/
Experimental 4th generation Win32 Perl distribution builder
----
Perl-Dist-WiX-v0.150
http://search.cpan.org/~csjewell/Perl-Dist-WiX-v0.150/
Experimental 4th generation Win32 Perl distribution builder
----
PerlIO-via-EscStatus-5
http://search.cpan.org/~kryde/PerlIO-via-EscStatus-5/
dumb terminal status display layer
----
Quiz-Flashcards-0.01
http://search.cpan.org/~mithaldu/Quiz-Flashcards-0.01/
Cross-platform modular flashcard GUI application
----
Quiz-Flashcards-0.02
http://search.cpan.org/~mithaldu/Quiz-Flashcards-0.02/
Cross-platform modular flashcard GUI application
----
Quiz-Flashcards-Audiobanks-Japanese_Syllables-0.01
http://search.cpan.org/~mithaldu/Quiz-Flashcards-Audiobanks-Japanese_Syllables-0.01/
Sound files of japanese syllables for use with Quiz::Flashcards
----
Quiz-Flashcards-Audiobanks-Japanese_Syllables-0.02
http://search.cpan.org/~mithaldu/Quiz-Flashcards-Audiobanks-Japanese_Syllables-0.02/
Sound files of japanese syllables for use with Quiz::Flashcards
----
Quiz-Flashcards-Sets-Hiragana-Romaji_Simple-0.01
http://search.cpan.org/~mithaldu/Quiz-Flashcards-Sets-Hiragana-Romaji_Simple-0.01/
Flashcard set with the basic 46 japanese hiragana
----
Quiz-Flashcards-Sets-Hiragana-Romaji_Simple-0.02
http://search.cpan.org/~mithaldu/Quiz-Flashcards-Sets-Hiragana-Romaji_Simple-0.02/
Flashcard set with the basic 46 japanese hiragana
----
Sys-Info-Driver-Linux-0.69_02
http://search.cpan.org/~burak/Sys-Info-Driver-Linux-0.69_02/
Linux driver for Sys::Info
----
Sys-Info-Driver-Windows-0.69_03
http://search.cpan.org/~burak/Sys-Info-Driver-Windows-0.69_03/
Windows driver for Sys::Info
----
TaskForest-1.18
http://search.cpan.org/~enoor/TaskForest-1.18/
A simple but expressive job scheduler that allows you to chain jobs/tasks and create time dependencies. Uses text config files to specify task dependencies.
----
Term-CallEditor-0.13
http://search.cpan.org/~jmates/Term-CallEditor-0.13/
solicit data from an external editor
----
Term-Clui-1.41
http://search.cpan.org/~pjb/Term-Clui-1.41/
Perl module offering a Command-Line User Interface
----
Test-Reporter-Transport-Outlook-0.01
http://search.cpan.org/~arfreitas/Test-Reporter-Transport-Outlook-0.01/
MS Outlook as transport for Test::Reporter
----
Text-FindIndent-0.04
http://search.cpan.org/~smueller/Text-FindIndent-0.04/
Heuristically determine the indent style
----
Text-Tabs+Wrap-2009.0305
http://search.cpan.org/~muir/Text-Tabs+Wrap-2009.0305/
----
Tie-Judy-0.05
http://search.cpan.org/~bholzman/Tie-Judy-0.05/
Perl extension for using a Judy array instead of a hash.
----
TkUtil-Configure-0.01
http://search.cpan.org/~thecramps/TkUtil-Configure-0.01/
Trap and act on Tk <Configure> events
----
WebService-Nestoria-Search-1.14.4
http://search.cpan.org/~kaoru/WebService-Nestoria-Search-1.14.4/
Perl interface to the Nestoria Search public API.
----
Zucchini-0.0.14
http://search.cpan.org/~chisel/Zucchini-0.0.14/
turn templates into static websites
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: Fri, 6 Mar 2009 22:31:06 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: perl as email client
Message-Id: <q98xh61wmkc$.1k26eqqyvwvc0$.dlg@40tude.net>
On Fri, 06 Mar 2009 09:59:49 -0800, Tim Greer wrote:
> Larry Gates wrote:
>
>>
>>
>> I've used perl as a usenet client before, but now that I have a site
>> out there with an email address that is supposed to get to me, and I
>> wanted to look at it through the rubric of perl.
>>
>> How would a person use perl to simulate what OE does?
>>
>> What activestate modules are required for a given method? I would
>> have to think there would be as many ways to do this in perl as
>> building a wall for a carpenter.
>
> I believe you mean that you've used a usenet client coded in Perl.
> Someone asked a similar question a month or two ago, and then stated
> they wanted to actually do something else in the end. I assume you
> mean exactly what your subject says, and that you want to use Perl to
> code an email client?
Yeah.
> I don't know of any, but it's certainly
> possible. I don't know where to suggest you start for Windows (using
> ActiveState) though.
Gosh, I would have thought that writing an e-mail client in perl would be
as commonplace as ways to calculate pi with fortran.
--
larry gates
Anybody want a binary telemetry frame editor written in Perl?
-- Larry Wall in <199708012226.PAA22015@wall.org>
------------------------------
Date: Sat, 07 Mar 2009 08:12:58 GMT
From: "Peter Wyzl" <placebo@dontbesilly.com>
Subject: Re: perl as email client
Message-Id: <e0qsl.25785$cu.21279@news-server.bigpond.net.au>
"Larry Gates" <larry@example.invalid> wrote in message
news:q98xh61wmkc$.1k26eqqyvwvc0$.dlg@40tude.net...
> On Fri, 06 Mar 2009 09:59:49 -0800, Tim Greer wrote:
>> Larry Gates wrote:
<snip>
> Gosh, I would have thought that writing an e-mail client in perl would be
> as commonplace as ways to calculate pi with fortran.
Net::POP3
From the docs:
SYNOPSIS
use Net::POP3; # Constructors
$pop = Net::POP3->new('pop3host');
$pop = Net::POP3->new('pop3host', Timeout => 60); if
($pop->login($username, $password) > 0) {
my $msgnums = $pop->list; # hashref of msgnum => size
foreach my $msgnum (keys %$msgnums) {
my $msg = $pop->get($msgnum);
print @$msg;
$pop->delete($msgnum);
}
} $pop->quit;
--------------------------------------------------------------------------------
DESCRIPTION
This module implements a client interface to the POP3 protocol, enabling a
perl5 application to talk to POP3 servers. This documentation assumes that
you are familiar with the POP3 protocol described in RFC1939.
A new Net::POP3 object must be created with the new method. Once this has
been done, all POP3 commands are accessed via method calls on the object.
Surely you can read the rest yourself...
P
------------------------------
Date: Sat, 7 Mar 2009 21:46:20 +1100
From: "macropod" <macropod@invalid.invalid>
Subject: Re: perl/postscript csv label maker
Message-Id: <71f1kdFgj5q1U1@mid.individual.net>
You could, of course, fix the MS Office installation instead of giving your mom something sp arcane to play with.
--
Cheers,
macropod
"luser-ex-troll" <mijoryx@yahoo.com> wrote in message news:e8e73e53-016c-4362-b16a-f5f09a6b394e@r34g2000vbp.googlegroups.com...
> Has this already been done better?
> Surely this idea isn't new?
> This is a project for my mom, for whom
> MSWord and Excel no longer play nicely together.
> -- luser-ex-troll
>
> #!/usr/bin/perl
> # labels.pl reads csv records in the form:
> # "Name","123 Street","Apt","City, ST ZIP"
> # from a file named "addr.csv" and
> # produces a postscript program on stdout
> # suitable for piping into ps2pdf or
> # even distiller, maybe
> # CAVEATS: prototype produces at most
> # one page. label and sheet sizes are hard-coded
> # at 3 3-inch-width labels which are 4*17 points
> # high. I don't have any real ones on hand
> # to measure.
>
> $IN = "addr.csv";
> open IN or die "Can't open input: $!";
>
> print <<PROLOG;
> %!
> /in{72 mul}def
> /LEAD 17 def
> /LM 10 def
> /count 0 def
> /TM 11 in LEAD sub def
> /Palatino-Roman 15 selectfont
>
> [
> PROLOG
>
> while(<IN>) {
> s/\n$//;
> s/^"/\[\(/;
> s/","/\)\(/g;
> s/"$/\)\]/;
> s/$/\n/;
> print;
> }
>
> print <<PSPROGRAM;
> ]
>
> { %each record
> LM TM moveto
> { %each address line
> dup () eq { pop } { % skip empties
> show % paint the string
> %currentpoint exch = = = % diagnostic
> LM currentpoint exch pop LEAD sub moveto % reposition
> } ifelse
> } forall
> /LM LM 3 in add store % move over
> /count count 1 add store
> count 3 mod 0 eq { % back to left after each 3
> /LM 10 store /TM TM LEAD 4 mul sub store
> } if
> } forall
>
> showpage
>
> PSPROGRAM
------------------------------
Date: Sat, 7 Mar 2009 00:27:08 -0800 (PST)
From: omi <oakulkarni@gmail.com>
Subject: Re: system not returning correct return code.
Message-Id: <c0d54965-522a-49da-8b03-ec5d0def2b53@j8g2000yql.googlegroups.com>
On Mar 6, 7:49=A0am, Eric Pozharski <why...@pozharski.name> wrote:
> On 2009-03-05, Ben Morrow <b...@morrow.me.uk> wrote:
>
>
>
>
>
> > Quoth Eric Pozharski <why...@pozharski.name>:
> >> On 2009-03-04, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> >> > Eric Pozharski wrote:
> >> >> On 2009-03-03, Ben Morrow <b...@morrow.me.uk> wrote:
>
> >> >>> Yes. From the $? entry in perldoc perlvar:
>
> >> >>> =A0 =A0If you have installed a signal handler for "SIGCHLD", the v=
alue
> >> >>> =A0 =A0of $? will usually be wrong outside that handler.
>
> >> >>> On systems that honour "IGNORE" for SIGCHLD, it counts as a signal
> >> >>> handler. So don't do that.
> *SKIP*
>
> >> (that seems my english is a way bad still) Did I got that right? =A0Th=
e
> >> perldoc wants to say that even if I'm in B<waitpid> and I get SIGCHLD
> >> then the I<$?> still would be unset?
>
> > No. What the perldoc is saying is
>
> > =A0 =A0 If you have a SIGCHLD handler, then any code *outside* that han=
dler
> > =A0 =A0 will not see the correct value for $?.
>
> > That is:
>
> > =A0 =A0 #!/usr/bin/perl
>
> > =A0 =A0 # $? is useless here.
>
> > =A0 =A0 $SIG{CHLD} =3D sub {
>
> > =A0 =A0 =A0 =A0 # $? is still useless here, because nothing inside this=
handler
> > =A0 =A0 =A0 =A0 # has set it yet.
>
> > =A0 =A0 =A0 =A0 waitpid ...; =A0 =A0# or something else that sets $?
>
> > =A0 =A0 =A0 =A0 # $? has the correct value here.
> > =A0 =A0 };
>
> > =A0 =A0 # $? is useless again here.
>
> > One consequence of this is that if you have $SIG{CHLD} =3D "IGNORE", $?=
is
> > *never* useful, since there is none of your code running inside the
> > handler.
>
> Thanks, I see the light now.
>
> --
> Torvalds' goal for Linux is very simple: World Domination
> Stallman's goal for GNU is even simpler: Freedom
For time being, Finally I remove the dependency of the dependency of
the Flag SIGCHILD to be set ;)
------------------------------
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 2258
***************************************
