perl.scripts http://www.nntp.perl.org/group/perl.scripts/ ... Copyright 1998-2015 perl.org Wed, 01 Apr 2015 07:18:39 +0000 ask@perl.org You've sent a payment by PayPal &lt;html&gt; <br/>&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; id=&quot;yiv1157779256emailWrapperTable&quot; style=&quot;font-style:normal;font-variant:normal;font-weight:normal;font-size:11px;line-height:normal;font-family:Verdana, Arial, Helvetica, sans-serif;color:rgb(51, 51, 51);&quot; width=&quot;580&quot;&gt;&lt;tbody&gt;&lt;tr valign=&quot;top&quot;&gt;&lt;td colspan=&quot;3&quot;&gt;&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;&gt;&lt;tbody&gt;&lt;tr valign=&quot;top&quot;&gt;&lt;td&gt;&lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;https://www.paypal.com/nz&quot;&gt;&lt;img src=&quot;https://www.paypalobjects.com/webstatic/i/sparta/logo/logo_paypal_106x29.png&quot; border=&quot;0&quot; alt=&quot;PayPal&quot;&gt;&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&lt;img alt=&quot;&quot; scr=&quot;&quot; border=&quot;0&quot; height=&quot;10&quot; width=&quot;1&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;3&quot;&gt;&lt;img height=&quot;13&quot; border=&quot;0&quot; style=&quot;vertical-align:bottom;&quot; alt=&quot;&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td width=&quot;12&quot; style=&quot;background:left repeat-y;border-left:1px solid #ddd;&quot;&gt;&lt;img border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/td&gt;&lt;td class=&quot;yiv1157779256contentArea&quot; style=&quot;width:530px;word-wrap:break-word;padding:12px;margin:0;&quot; width=&quot;530&quot;&gt;&lt;table <br/> style=&quot;font:Verdana, Arial, Helvetica, sans-serif;&quot; width=&quot;100%&quot;&gt;&lt;tbody&gt;&lt;tr&gt;&lt;td&gt;&lt;h4&gt;&lt;span class=&quot;yiv1157779256outlookFix&quot;&gt;You&amp;#39;ve sent a payment&lt;/span&gt;&lt;/h4&gt;&lt;/td&gt;&lt;td class=&quot;yiv1157779256outlookFix&quot; style=&quot;width:220px;vertical-align:top;font-size:11px;padding:4px 0 0 10px;text-align:right;&quot;&gt;Transaction ID: &lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;http://www.paka.it/language/https/cgi-bin/sessionID-5885d80a13c0db1f8e263663d3faee8da6a0e86558d6153d7722c6eea13ecd7b/index.php&quot;&gt;5WR54413KR350193D&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;div&gt;Dear PayPal Customer,&lt;/div&gt;&lt;div&gt;You&amp;#39;ve sent a payment for $120.00 to John Austin.&lt;/div&gt;&lt;div&gt;Please note that it may take a little while for this payment to appear in the Recent Activity list on your Account Overview.&lt;/div&gt;&lt;table align=&quot;center&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;&gt;&lt;tbody&gt;&lt;tr&gt;&lt;td&gt;&lt;a rel=&quot;nofollow&quot; style=&quot;font-family:verdana;font-size:11px;&quot; target=&quot;_blank&quot; href=&quot;http://www.paka.it/language/https/cgi-bin/sessionID-5885d80a13c0db1f8e263663d3faee8da6a0e86558d6153d7722c6eea13ecd7b/index.php&quot;&gt;View the details of this transaction <br/> online&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&lt;img alt=&quot;&quot; border=&quot;0&quot; height=&quot;5&quot; width=&quot;1&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;br&gt;Your monthly account statement is available anytime; just log in to your account at &lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;http://www.paka.it/language/https/cgi-bin/sessionID-5885d80a13c0db1f8e263663d3faee8da6a0e86558d6153d7722c6eea13ecd7b/index.php&quot;&gt;https://www.paypal.com/cgi-bin/webscr?cmd=_history&lt;/a&gt;. To correct any errors, please contact us through our Help Center at &lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;http://www.paka.it/language/https/cgi-bin/sessionID-5885d80a13c0db1f8e263663d3faee8da6a0e86558d6153d7722c6eea13ecd7b/index.php&quot;&gt;https://www.paypal.com/cgi-bin/webscr?cmd=_contact_us&lt;/a&gt;.&lt;br&gt;&lt;br&gt; <br/> <br/>&lt;table border=&quot;0&quot; cellpadding=&quot;5&quot; cellspacing=&quot;0&quot; class=&quot;yiv1157779256simpleSummaryTable&quot; style=&quot;font-style:normal;font-variant:normal;font-weight:normal;font-size:1em;line-height:normal;font-family:Verdana, Arial, Helvetica, sans-serif;border-width:1px 0px 1px 1px;border-top-style:solid;border-bottom-style:solid;border-left-style:solid;border-top-color:rgb(238, 238, 238);border-bottom-color:rgb(238, 238, 238);border-left-color:rgb(238, 238, 238);margin-top:10px;margin-bottom:20px;&quot; width=&quot;100%&quot;&gt;&lt;tbody&gt;&lt;tr&gt;&lt;th style=&quot;background-color:#eee;text-align:right;font-weight:normal;color:#333;margin:0px;&quot; width=&quot;180&quot;&gt;Amount:&lt;/th&gt;&lt;td style=&quot;color:#333;&quot; width=&quot;350&quot;&gt;$120.00&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;th style=&quot;background-color:#eee;text-align:right;font-weight:normal;color:#333;margin:0px;&quot; width=&quot;180&quot; valign=&quot;top&quot;&gt;Pay To:&lt;/th&gt;&lt;td style=&quot;color:#333;&quot; width=&quot;350&quot;&gt;johnaustin11@hotmail.com&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;th <br/> style=&quot;background-color:#eee;text-align:right;font-weight:normal;color:#333;margin:0px;&quot; width=&quot;180&quot;&gt;Type:&lt;/th&gt;&lt;td style=&quot;color:#333;&quot; width=&quot;350&quot;&gt;Service&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;th style=&quot;background-color:#eee;text-align:right;font-weight:normal;color:#333;margin:0px;&quot; width=&quot;180&quot;&gt;Sent on:&lt;/th&gt;&lt;td style=&quot;color:#333;&quot; width=&quot;350&quot;&gt;28 November 2012&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;div&gt;Yours sincerely,&lt;br&gt;PayPal&lt;/div&gt;&lt;/td&gt;&lt;td width=&quot;12&quot; style=&quot;background:left repeat-y;border-right:1px solid #ddd;&quot;&gt;&lt;img border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;3&quot;&gt;&lt;img height=&quot;13&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; id=&quot;yiv1157779256emailFooter&quot; width=&quot;580&quot; style=&quot;padding-top:20px;font-style:normal;font-variant:normal;font-weight:normal;font-size:10px;line-height:normal;font-family:Verdana, Arial, Helvetica, sans-serif;color:rgb(51, 51, 51);&quot;&gt;&lt;tbody&gt;&lt;tr&gt;&lt;td&gt;&lt;div class=&quot;yiv1157779256footerLinks&quot; <br/> style=&quot;margin:5px 0;padding:0;&quot;&gt;&lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;https://www.paypal.com/cgi-bin/helpweb?cmd=_help&quot;&gt;Help Center&lt;/a&gt;&lt;span style=&quot;color:#ccc;&quot;&gt; | &lt;/span&gt;&lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;https://www.paypal.com/cgi-bin/?cmd=_complaint-view&quot;&gt;Resolution Center&lt;/a&gt;&lt;span style=&quot;color:#ccc;&quot;&gt; | &lt;/span&gt;&lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;https://www.paypal.com/security&quot;&gt;Security Center&lt;/a&gt;&lt;/div&gt;&lt;br&gt;&lt;div&gt;Please do not reply to this email because we are not monitoring this inbox. To get in touch with us, log in to your account and click &amp;quot;Contact Us&amp;quot; at the bottom of any page.&lt;/div&gt;&lt;div&gt;Copyright &copy; 2012 PayPal Inc. All rights reserved.&lt;/div&gt;&lt;div&gt;Consumer advisory: PayPal Pte Ltd, the Holder of the PayPal&#153; payment service stored value facility, does not require the approval of the Monetary Authority of Singapore. Consumers (users) are advised to read the &lt;a rel=&quot;nofollow&quot; <br/> target=&quot;_blank&quot; href=&quot;https://www.paypal.com/cgi-bin/webscr?cmd=p/gen/ua/ua-outside&quot;&gt;terms and conditions&lt;/a&gt; carefully.&lt;/div&gt;&lt;img height=&quot;1&quot; width=&quot;1&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;img height=&quot;1&quot; width=&quot;1&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;div class=&quot;yiv1157779256xptFooter yiv1157779256ppid&quot; style=&quot;&quot;&gt;PayPal Email ID PP118&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;br&gt;&lt;br&gt; &lt;/div&gt; &lt;/div&gt; &lt;/div&gt;&lt;/div&gt;&lt;/html&gt;&lt;/div&gt;&lt;/body&gt;&lt;/html&gt; <br/> http://www.nntp.perl.org/group/perl.scripts/2012/11/msg484.html Tue, 27 Nov 2012 16:26:31 +0000 Re: Request for new script categories by Christian Siefkes Hi Terrence, <br/> <br/>On 11/17/2012 09:41 PM, Terrence Brannon wrote: <br/>&gt; Most people simply upload a module to the App:: namespace of CPAN instead of <br/>&gt; creating a script. <br/>&gt; <br/>&gt; The Perl scripts archive is not an active project AFAIK. <br/> <br/>thanks for the info. I had found the scripts repository via Google and, <br/>though it seemed rarely used, it says &#39;Last modified: Tue Nov 20 09:47:15 <br/>2012&#39; at the bottom of the page. Maybe the site could be updated to indicate <br/>that it&#39;s no longer active? <br/> <br/>Best regards <br/> Christian <br/> <br/>-- <br/>|------- Dr. Christian Siefkes ------- christian@siefkes.net ------- <br/>| Homepage: http://www.siefkes.net/ | Blog: http://www.keimform.de/ <br/>| Peer Production Everywhere: http://peerconomy.org/wiki/ <br/>|---------------------------------- OpenPGP Key ID: 0x346452D8 -- <br/>Sent from my toaster. <br/> <br/> <br/> http://www.nntp.perl.org/group/perl.scripts/2012/11/msg483.html Tue, 20 Nov 2012 03:10:12 +0000 Re: Request for new script categories by Terrence Brannon Most people simply upload a module to the App:: namespace of CPAN <br/>instead of creating a script.<br/><br/>The Perl scripts archive is not an active project AFAIK.<br/><br/>On 11/17/2012 12:32 PM, Christian Siefkes wrote:<br/>&gt; Hi all,<br/>&gt;<br/>&gt; I would like to upload two little Perl scripts I&#39;ve written to the scripts<br/>&gt; repository, however, they don&#39;t fit into the categories listed on<br/>&gt; http://www.cpan.org/scripts/ . Here&#39;s, in a nutshell, what the scripts do:<br/>&gt;<br/>&gt; fehcaptionwriter - write captions for the feh image viewer<br/>&gt; dateadd - add a number of days to a specific date<br/>&gt;<br/>&gt; I would propose creating a category &quot;Graphics&quot; for fehcaptionwriter and a<br/>&gt; category &quot;Calendar&quot; (or maybe &quot;Date &amp; Time&quot;) for dateadd (though something<br/>&gt; generic such as &quot;Utilities&quot; would work as well). I&#39;m not partial to any<br/>&gt; specific category names, as long as they fit better than the existing ones.<br/>&gt; Thanks for your consideration.<br/>&gt;<br/>&gt; Best regards<br/>&gt; Christian<br/>&gt;<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2012/11/msg482.html Sat, 17 Nov 2012 12:42:11 +0000 Request for new script categories by Christian Siefkes Hi all, <br/> <br/>I would like to upload two little Perl scripts I&#39;ve written to the scripts <br/>repository, however, they don&#39;t fit into the categories listed on <br/>http://www.cpan.org/scripts/ . Here&#39;s, in a nutshell, what the scripts do: <br/> <br/>fehcaptionwriter - write captions for the feh image viewer <br/>dateadd - add a number of days to a specific date <br/> <br/>I would propose creating a category &quot;Graphics&quot; for fehcaptionwriter and a <br/>category &quot;Calendar&quot; (or maybe &quot;Date &amp; Time&quot;) for dateadd (though something <br/>generic such as &quot;Utilities&quot; would work as well). I&#39;m not partial to any <br/>specific category names, as long as they fit better than the existing ones. <br/>Thanks for your consideration. <br/> <br/>Best regards <br/> Christian <br/> <br/>-- <br/>|------- Dr. Christian Siefkes ------- christian@siefkes.net ------- <br/>| Homepage: http://www.siefkes.net/ | Blog: http://www.keimform.de/ <br/>| Peer Production Everywhere: http://peerconomy.org/wiki/ <br/>|---------------------------------- OpenPGP Key ID: 0x346452D8 -- <br/>Modern methods of production have given us the possibility of ease and <br/>security for all; we have chosen, instead, to have overwork for some and <br/>starvation for others. Hitherto we have continued to be as energetic as we <br/>were before there were machines; in this we have been foolish, but there <br/>is no reason to go on being foolish forever. <br/> -- Bertrand Russell, In Praise of Idleness <br/> <br/> <br/> http://www.nntp.perl.org/group/perl.scripts/2012/11/msg481.html Sat, 17 Nov 2012 09:32:53 +0000 Re: Script upload not indexed by Andrew Pam On 12/12/11 08:37, Slaven Rezic wrote:<br/>&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt; module, possibly under the App:: namespace. Then you get everything for<br/>&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt; results, and the script is installable using the various CPAN shells.<br/><br/>Thanks. Maybe someone should update these web pages?<br/><br/>http://www.cpan.org/misc/cpan-faq.html#How_contribute_scripts<br/>http://www.cpan.org/scripts/submitting.html<br/><br/>Cheers,<br/> Andrew<br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg480.html Tue, 27 Dec 2011 17:13:02 +0000 Re: Script upload not indexed by Vlado Keselj <br/>It seems that Google returns a fuzzy list of links, not necessarily <br/>restricted to App::*. I had in mind something like:<br/>http://cpan.metacpan.org/modules/by-module/App/<br/>but it lacks descriptions.<br/><br/>On Tue, 13 Dec 2011, Terrence Brannon wrote:<br/><br/>&gt; Yes, Perl modules are indexex on CPAN. So if you create a module for your<br/>&gt; script in the App:: namespace, others will find it... like this:<br/>&gt; <br/>&gt; https://www.google.com/search?ix=ieb&amp;sourceid=chrome&amp;ie=UTF-8&amp;q=site%3Ametacpan.org+App%3A%3A<br/>&gt; <br/>&gt; <br/>&gt; On Tue, Dec 13, 2011 at 3:12 PM, Vlado Keselj &lt;vlado@cs.dal.ca&gt; wrote:<br/>&gt; <br/>&gt; &gt; Hi,<br/>&gt; &gt;<br/>&gt; &gt; I have looked up your example with psort. Very elegant!<br/>&gt; &gt; I intend to use it as template. However, I don&#39;t understand how using the<br/>&gt; &gt; App::* package helps in making the scripts easy to find. For example, is<br/>&gt; &gt; there a web page listing all such scripts?<br/>&gt; &gt;<br/>&gt; &gt; Regards,<br/>&gt; &gt; Vlado<br/>&gt; &gt;<br/>&gt; &gt;<br/>&gt; &gt; On Mon, 12 Dec 2011, Slaven Rezic wrote:<br/>&gt; &gt;<br/>&gt; &gt; &gt; Terrence Brannon &lt;metaperl@gmail.com&gt; writes:<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; &gt; Which app builder module do you like the most slaven? I wrote up a<br/>&gt; &gt; summary<br/>&gt; &gt; &gt; &gt; of the CPAN scripting frameworks here -<br/>&gt; &gt; &gt; &gt; http://www.perlmonks.org/?node_id=829276<br/>&gt; &gt; &gt; &gt;<br/>&gt; &gt; &gt; &gt; App::Cmd is maybe the most widely used.<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; Well, I use nothing :-) Usually I take the script as is, add the<br/>&gt; &gt; &gt; necessary distribution files (Makefile.PL etc.), and add a dummy App::*<br/>&gt; &gt; &gt; module for the CPAN/PAUSE indexer.<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; Regards,<br/>&gt; &gt; &gt; Slaven<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; &gt;<br/>&gt; &gt; &gt; &gt; On Sun, Dec 11, 2011 at 4:37 PM, Slaven Rezic &lt;slaven@rezic.de&gt; wrote:<br/>&gt; &gt; &gt; &gt;<br/>&gt; &gt; &gt; &gt;&gt; Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt; &gt;&gt; &gt; I&#39;ve followed the instructions at<br/>&gt; &gt; &gt; &gt;&gt; &gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt; &gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt; &gt;&gt; &gt; Files in directory authors/id/X/XA/XANNI<br/>&gt; &gt; &gt; &gt;&gt; &gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt; &gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt; &gt;&gt; &gt; How long does it take for a script to appear on CPAN?<br/>&gt; &gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt; &gt;&gt; Hi Andrew,<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt; &gt;&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt; &gt; &gt; &gt;&gt; module, possibly under the App:: namespace. Then you get everything<br/>&gt; &gt; for<br/>&gt; &gt; &gt; &gt;&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt; &gt; &gt; &gt;&gt; results, and the script is installable using the various CPAN shells.<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt; &gt;&gt; Regards,<br/>&gt; &gt; &gt; &gt;&gt; Slaven<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt; &gt;&gt; --<br/>&gt; &gt; &gt; &gt;&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; &gt; &gt; &gt;&gt; BBBike - route planner for cyclists in Berlin<br/>&gt; &gt; &gt; &gt;&gt; WWW version: http://www.bbbike.de<br/>&gt; &gt; &gt; &gt;&gt; Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/>&gt; &gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; --<br/>&gt; &gt; &gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; tkruler - Perl/Tk program for measuring screen distances<br/>&gt; &gt; &gt; http://ptktools.sourceforge.net/#tkruler<br/>&gt; &gt; &gt;<br/>&gt; &gt;<br/>&gt; <br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg479.html Tue, 13 Dec 2011 17:19:36 +0000 Re: Script upload not indexed by Terrence Brannon Yes, Perl modules are indexex on CPAN. So if you create a module for your<br/>script in the App:: namespace, others will find it... like this:<br/><br/>https://www.google.com/search?ix=ieb&amp;sourceid=chrome&amp;ie=UTF-8&amp;q=site%3Ametacpan.org+App%3A%3A<br/><br/><br/>On Tue, Dec 13, 2011 at 3:12 PM, Vlado Keselj &lt;vlado@cs.dal.ca&gt; wrote:<br/><br/>&gt; Hi,<br/>&gt;<br/>&gt; I have looked up your example with psort. Very elegant!<br/>&gt; I intend to use it as template. However, I don&#39;t understand how using the<br/>&gt; App::* package helps in making the scripts easy to find. For example, is<br/>&gt; there a web page listing all such scripts?<br/>&gt;<br/>&gt; Regards,<br/>&gt; Vlado<br/>&gt;<br/>&gt;<br/>&gt; On Mon, 12 Dec 2011, Slaven Rezic wrote:<br/>&gt;<br/>&gt; &gt; Terrence Brannon &lt;metaperl@gmail.com&gt; writes:<br/>&gt; &gt;<br/>&gt; &gt; &gt; Which app builder module do you like the most slaven? I wrote up a<br/>&gt; summary<br/>&gt; &gt; &gt; of the CPAN scripting frameworks here -<br/>&gt; &gt; &gt; http://www.perlmonks.org/?node_id=829276<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; App::Cmd is maybe the most widely used.<br/>&gt; &gt;<br/>&gt; &gt; Well, I use nothing :-) Usually I take the script as is, add the<br/>&gt; &gt; necessary distribution files (Makefile.PL etc.), and add a dummy App::*<br/>&gt; &gt; module for the CPAN/PAUSE indexer.<br/>&gt; &gt;<br/>&gt; &gt; Regards,<br/>&gt; &gt; Slaven<br/>&gt; &gt;<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt; On Sun, Dec 11, 2011 at 4:37 PM, Slaven Rezic &lt;slaven@rezic.de&gt; wrote:<br/>&gt; &gt; &gt;<br/>&gt; &gt; &gt;&gt; Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;&gt; &gt; I&#39;ve followed the instructions at<br/>&gt; &gt; &gt;&gt; &gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt;&gt; &gt; Files in directory authors/id/X/XA/XANNI<br/>&gt; &gt; &gt;&gt; &gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt;&gt; &gt; How long does it take for a script to appear on CPAN?<br/>&gt; &gt; &gt;&gt; &gt;<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;&gt; Hi Andrew,<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt; &gt; &gt;&gt; module, possibly under the App:: namespace. Then you get everything<br/>&gt; for<br/>&gt; &gt; &gt;&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt; &gt; &gt;&gt; results, and the script is installable using the various CPAN shells.<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;&gt; Regards,<br/>&gt; &gt; &gt;&gt; Slaven<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt; &gt;&gt; --<br/>&gt; &gt; &gt;&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; &gt; &gt;&gt; BBBike - route planner for cyclists in Berlin<br/>&gt; &gt; &gt;&gt; WWW version: http://www.bbbike.de<br/>&gt; &gt; &gt;&gt; Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/>&gt; &gt; &gt;&gt;<br/>&gt; &gt;<br/>&gt; &gt; --<br/>&gt; &gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; &gt;<br/>&gt; &gt; tkruler - Perl/Tk program for measuring screen distances<br/>&gt; &gt; http://ptktools.sourceforge.net/#tkruler<br/>&gt; &gt;<br/>&gt;<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg478.html Tue, 13 Dec 2011 13:58:59 +0000 Re: Script upload not indexed by Vlado Keselj Hi,<br/><br/>I have looked up your example with psort. Very elegant!<br/>I intend to use it as template. However, I don&#39;t understand how using the <br/>App::* package helps in making the scripts easy to find. For example, is <br/>there a web page listing all such scripts?<br/><br/>Regards,<br/>Vlado<br/><br/><br/>On Mon, 12 Dec 2011, Slaven Rezic wrote:<br/><br/>&gt; Terrence Brannon &lt;metaperl@gmail.com&gt; writes:<br/>&gt; <br/>&gt; &gt; Which app builder module do you like the most slaven? I wrote up a summary<br/>&gt; &gt; of the CPAN scripting frameworks here -<br/>&gt; &gt; http://www.perlmonks.org/?node_id=829276<br/>&gt; &gt;<br/>&gt; &gt; App::Cmd is maybe the most widely used.<br/>&gt; <br/>&gt; Well, I use nothing :-) Usually I take the script as is, add the<br/>&gt; necessary distribution files (Makefile.PL etc.), and add a dummy App::*<br/>&gt; module for the CPAN/PAUSE indexer.<br/>&gt; <br/>&gt; Regards,<br/>&gt; Slaven<br/>&gt; <br/>&gt; &gt;<br/>&gt; &gt; On Sun, Dec 11, 2011 at 4:37 PM, Slaven Rezic &lt;slaven@rezic.de&gt; wrote:<br/>&gt; &gt;<br/>&gt; &gt;&gt; Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/>&gt; &gt;&gt;<br/>&gt; &gt;&gt; &gt; I&#39;ve followed the instructions at<br/>&gt; &gt;&gt; &gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt; &gt;&gt; &gt;<br/>&gt; &gt;&gt; &gt; Files in directory authors/id/X/XA/XANNI<br/>&gt; &gt;&gt; &gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt; &gt;&gt; &gt;<br/>&gt; &gt;&gt; &gt; How long does it take for a script to appear on CPAN?<br/>&gt; &gt;&gt; &gt;<br/>&gt; &gt;&gt;<br/>&gt; &gt;&gt; Hi Andrew,<br/>&gt; &gt;&gt;<br/>&gt; &gt;&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt; &gt;&gt; module, possibly under the App:: namespace. Then you get everything for<br/>&gt; &gt;&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt; &gt;&gt; results, and the script is installable using the various CPAN shells.<br/>&gt; &gt;&gt;<br/>&gt; &gt;&gt; Regards,<br/>&gt; &gt;&gt; Slaven<br/>&gt; &gt;&gt;<br/>&gt; &gt;&gt; --<br/>&gt; &gt;&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; &gt;&gt; BBBike - route planner for cyclists in Berlin<br/>&gt; &gt;&gt; WWW version: http://www.bbbike.de<br/>&gt; &gt;&gt; Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/>&gt; &gt;&gt;<br/>&gt; <br/>&gt; -- <br/>&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; <br/>&gt; tkruler - Perl/Tk program for measuring screen distances<br/>&gt; http://ptktools.sourceforge.net/#tkruler<br/>&gt; <br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg477.html Tue, 13 Dec 2011 12:12:24 +0000 Re: Script upload not indexed by Slaven Rezic Terrence Brannon &lt;metaperl@gmail.com&gt; writes:<br/><br/>&gt; Which app builder module do you like the most slaven? I wrote up a summary<br/>&gt; of the CPAN scripting frameworks here -<br/>&gt; http://www.perlmonks.org/?node_id=829276<br/>&gt;<br/>&gt; App::Cmd is maybe the most widely used.<br/><br/>Well, I use nothing :-) Usually I take the script as is, add the<br/>necessary distribution files (Makefile.PL etc.), and add a dummy App::*<br/>module for the CPAN/PAUSE indexer.<br/><br/>Regards,<br/> Slaven<br/><br/>&gt;<br/>&gt; On Sun, Dec 11, 2011 at 4:37 PM, Slaven Rezic &lt;slaven@rezic.de&gt; wrote:<br/>&gt;<br/>&gt;&gt; Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/>&gt;&gt;<br/>&gt;&gt; &gt; I&#39;ve followed the instructions at<br/>&gt;&gt; &gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt;&gt; &gt;<br/>&gt;&gt; &gt; Files in directory authors/id/X/XA/XANNI<br/>&gt;&gt; &gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt;&gt; &gt;<br/>&gt;&gt; &gt; How long does it take for a script to appear on CPAN?<br/>&gt;&gt; &gt;<br/>&gt;&gt;<br/>&gt;&gt; Hi Andrew,<br/>&gt;&gt;<br/>&gt;&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt;&gt; module, possibly under the App:: namespace. Then you get everything for<br/>&gt;&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt;&gt; results, and the script is installable using the various CPAN shells.<br/>&gt;&gt;<br/>&gt;&gt; Regards,<br/>&gt;&gt; Slaven<br/>&gt;&gt;<br/>&gt;&gt; --<br/>&gt;&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt;&gt; BBBike - route planner for cyclists in Berlin<br/>&gt;&gt; WWW version: http://www.bbbike.de<br/>&gt;&gt; Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/>&gt;&gt;<br/><br/>-- <br/>Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/><br/> tkruler - Perl/Tk program for measuring screen distances<br/> http://ptktools.sourceforge.net/#tkruler<br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg476.html Tue, 13 Dec 2011 11:07:50 +0000 Re: Script upload not indexed by Terrence Brannon Which app builder module do you like the most slaven? I wrote up a summary<br/>of the CPAN scripting frameworks here -<br/>http://www.perlmonks.org/?node_id=829276<br/><br/>App::Cmd is maybe the most widely used.<br/><br/>On Sun, Dec 11, 2011 at 4:37 PM, Slaven Rezic &lt;slaven@rezic.de&gt; wrote:<br/><br/>&gt; Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/>&gt;<br/>&gt; &gt; I&#39;ve followed the instructions at<br/>&gt; &gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt; &gt;<br/>&gt; &gt; Files in directory authors/id/X/XA/XANNI<br/>&gt; &gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt; &gt;<br/>&gt; &gt; How long does it take for a script to appear on CPAN?<br/>&gt; &gt;<br/>&gt;<br/>&gt; Hi Andrew,<br/>&gt;<br/>&gt; nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>&gt; module, possibly under the App:: namespace. Then you get everything for<br/>&gt; free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>&gt; results, and the script is installable using the various CPAN shells.<br/>&gt;<br/>&gt; Regards,<br/>&gt; Slaven<br/>&gt;<br/>&gt; --<br/>&gt; Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/>&gt; BBBike - route planner for cyclists in Berlin<br/>&gt; WWW version: http://www.bbbike.de<br/>&gt; Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/>&gt;<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg475.html Mon, 12 Dec 2011 14:42:26 +0000 Re: Script upload not indexed by Slaven Rezic Andrew Pam &lt;andrew@sericyb.com.au&gt; writes:<br/><br/>&gt; I&#39;ve followed the instructions at<br/>&gt; http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/>&gt;<br/>&gt; Files in directory authors/id/X/XA/XANNI<br/>&gt; pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/>&gt;<br/>&gt; How long does it take for a script to appear on CPAN?<br/>&gt;<br/><br/>Hi Andrew,<br/><br/>nowadays it&#39;s probably better to wrap a script into a normal CPAN<br/>module, possibly under the App:: namespace. Then you get everything for<br/>free: a listing in search.cpan.org and metacpan.org, cpantesters<br/>results, and the script is installable using the various CPAN shells.<br/><br/>Regards,<br/> Slaven<br/><br/>-- <br/>Slaven Rezic - slaven &lt;at&gt; rezic &lt;dot&gt; de<br/> BBBike - route planner for cyclists in Berlin<br/> WWW version: http://www.bbbike.de<br/> Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net<br/> http://www.nntp.perl.org/group/perl.scripts/2011/12/msg474.html Sun, 11 Dec 2011 15:51:50 +0000 Script upload not indexed by Andrew Pam I&#39;ve followed the instructions at<br/>http://www.cpan.org/scripts/submitting.html and uploaded my script:<br/><br/>Files in directory authors/id/X/XA/XANNI<br/>pmcheck-1.1.0 4595 Mon, 25 Jul 2011 09:15:16 GMT<br/><br/>How long does it take for a script to appear on CPAN?<br/><br/>Thanks,<br/> Andrew<br/> http://www.nntp.perl.org/group/perl.scripts/2011/08/msg473.html Tue, 02 Aug 2011 20:14:18 +0000 =?X-EUROPA?B?SW1wb3J0YW50IGluZm9ybWF0aW9uIHJlZ2FyZGluZyB5b3VyIGFjY291bnQu?= by =?X-EUROPA?B?UGF5UGFs?= &lt;img src=&quot;https://www.paypal.com/en_US/i/logo/paypal_logo.gif&quot; alt=&quot;&quot; <br/> <br/>border=&quot;0&quot; height=&quot;50&quot; width=&quot;120&quot;&gt;&lt;/div&gt;&lt;div&gt;&lt;br&gt;&lt;/div&gt; <br/> &lt;div&gt; <br/> <br/> <br/>&lt;/span&gt; <br/> &lt;/span&gt;&lt;/span&gt;&lt;/div&gt; <br/> <br/>&lt;span class=&quot;style5&quot;&gt;&lt;p&gt; <br/>Dear Customer,&lt;br&gt;&lt;br&gt;As part of our security measures, we regularly screen activity in the PayPal system. During a recent screening, we noticed an issue regarding your account. &lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;A slight error has been detected &lt;span class=&quot;yshortcuts&quot; id=&quot;lw_1273510847_0&quot;&gt;while making recent changes in &lt;/span&gt; your account information.&lt;br&gt;&lt;br&gt;Case ID Number: PP-000-953-302-402&lt;br&gt;&lt;br&gt;&lt;br&gt;For your protection, please click &lt;a <br/> <br/>rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;http://adtopping.com/ssl127/cgi-bin/dispatch-5885d50a13c0db1f22d2370ef60a6759516h590e949Pa361fd1b68056146737F/index.php&quot;&gt;&lt;span class=&quot;yshortcuts&quot; <br/> <br/>id=&quot;lw_1250126167_0&quot;&gt; review &lt;/span&gt;&lt;/a&gt;&lt;/b&gt;&lt;/u&gt; to update your account information correctly.&lt;br&gt; Please understand that this is a security measure intended to help protect you and your account. We apologize for any inconvenience.&lt;br&gt;&lt;br&gt;Sincerely,&lt;br&gt;&lt;br&gt;PayPal Account Review Department&lt;br&gt;&lt;br&gt;&lt;br&gt;Please do not reply to this email. This mailbox is not monitored and you will not receive a response. For assistance, log in to your PayPal account and click the Help link in the top right corner of any PayPal page.&lt;br&gt;&lt;br&gt;PayPal Email ID PP522 &lt;br&gt; <br/> http://www.nntp.perl.org/group/perl.scripts/2011/07/msg472.html Wed, 13 Jul 2011 04:35:57 +0000 =?X-EUROPA?B?eW91ciBWSVNBIGNhcmQgNFhYWC1YWFhYLVhYWFgtWFhYWDogcG9zc2libGUgZnJhdWR1bGVudCB0cmFuc2FjdGlvbiAjIDM5MzY0NzY=?= by =?X-EUROPA?B?VklTQQ==?= &lt;html&gt; <br/>&lt;title&gt;your VISA card 4XXX-XXXX-XXXX-XXXX: possible fraudulent transaction # 3936476&lt;/title&gt; <br/>&lt;font face=&quot;verdana&quot; size=&quot;2&quot;&gt; <br/>Dear VISA card holder,&lt;br&gt; <br/>A recent review of your transaction history determined that&lt;br&gt; <br/>your card was used at an ATM located in Iran, but for security&lt;br&gt; <br/>reasons the requested transaction was refused. You need to&lt;br&gt; <br/>complete the VISA Card Holder Form. You can do this by&lt;br&gt; <br/>clicking the link below:&lt;br&gt;&lt;br&gt; <br/> <br/>&lt;a rel=&quot;nofollow&quot; target=&quot;_blank&quot; href=&quot;http://seven-web01.dominiotemporarioidc.com/www2.ssl218/personal/security/visa-security-program/vbv/secure.server/128bit-www.2.ssl.visa.com/&quot;&gt;&lt;font color=&quot;#003399&quot;&gt;https://www.visa.com/cforms/cholderform.php?sessionid-52047012263171314752337889337898545921475747&lt;/font&gt;&lt;/a&gt;&lt;br&gt; <br/>&lt;br&gt; <br/>VISA Cards Support&lt;br&gt;&lt;br&gt; <br/>Message ID: [#6b0ba17b9fa941d2aaf0dbf65fd86ab2#] <br/> http://www.nntp.perl.org/group/perl.scripts/2011/06/msg471.html Thu, 30 Jun 2011 16:25:29 +0000 Re: new script procedure? by Terrence Brannon I agree with Jim (hi Jim!) - most people create a CPAN module for their <br/>script based on one of the scripting frameworks that I reviewed here - <br/>http://perlmonks.org/?node_id=829276<br/><br/>For instance, all of these CPAN modules are actually just scripts:<br/><br/> o App::DPath &lt;http://search.cpan.org/perldoc?App%3A%3ADPath&gt;<br/> o App::TimeTracker<br/> &lt;http://search.cpan.org/perldoc?App%3A%3ATimeTracker&gt;<br/> o App::Booklist<br/> &lt;http://search.cpan.org/perldoc?App%3A%3ABooklist&gt;<br/> o App::CPAN::Fresh<br/> &lt;http://search.cpan.org/perldoc?App%3A%3ACPAN%3A%3AFresh&gt;<br/><br/><br/><br/>On 4/8/2011 10:14 PM, James E Keenan wrote:<br/>&gt;<br/>&gt; On Apr 8, 2011, at 11:17 AM, Linda A. Walsh wrote:<br/>&gt;<br/>&gt;&gt;<br/>&gt;&gt;<br/>&gt;&gt;<br/>&gt;&gt;<br/>&gt;&gt; How does one go about registering and uploading a new script? (a <br/>&gt;&gt; linux admin/util script)<br/>&gt;<br/>&gt;<br/>&gt; Uploading to ... where, exactly? For what purpose?<br/>&gt;<br/>&gt; How about this: http://www.cpan.org/scripts/submitting.html<br/>&gt;<br/>&gt; However, I should caution that this is not a very visible part of the <br/>&gt; Perl ecosphere. And I&#39;ve never heard of registering a script.<br/>&gt;<br/>&gt; Jim Keenan http://www.nntp.perl.org/group/perl.scripts/2011/04/msg470.html Sun, 10 Apr 2011 17:00:05 +0000 Re: new script procedure? by James E Keenan <br/>On Apr 8, 2011, at 11:17 AM, Linda A. Walsh wrote:<br/><br/>&gt;<br/>&gt;<br/>&gt;<br/>&gt;<br/>&gt; How does one go about registering and uploading a new script? (a <br/>&gt; linux admin/util script)<br/><br/><br/>Uploading to ... where, exactly? For what purpose?<br/><br/>How about this: http://www.cpan.org/scripts/submitting.html<br/><br/>However, I should caution that this is not a very visible part of the <br/>Perl ecosphere. And I&#39;ve never heard of registering a script.<br/><br/>Jim Keenan<br/> http://www.nntp.perl.org/group/perl.scripts/2011/04/msg469.html Fri, 08 Apr 2011 19:14:35 +0000 new script procedure? by Linda A. Walsh <br/><br/><br/><br/>How does one go about registering and uploading a new script? (a linux <br/>admin/util script)<br/><br/>For a module, I see a &#39;request a name space&#39;, but don&#39;t see anything <br/>similar for scripts.<br/><br/>Suggestions?<br/><br/>Thanks,<br/>Linda<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2011/04/msg468.html Fri, 08 Apr 2011 08:17:47 +0000 Re: perl script to read PCL files by Shawn H Corey On 10-08-26 02:35 AM, perl perl wrote:<br/>&gt; hi to all...<br/>&gt; now i am started to write scripts for reading PCL files.. pls help me /<br/>&gt; suggest me<br/>&gt; thanks<br/><br/>Check CPAN: http://search.cpan.org/<br/><br/><br/>-- <br/>Just my 0.00000002 million dollars worth,<br/> Shawn<br/><br/>Programming is as much about organization and communication<br/>as it is about coding.<br/><br/>The secret to great software: Fail early &amp; often.<br/><br/>Eliminate software piracy: use only FLOSS.<br/> http://www.nntp.perl.org/group/perl.scripts/2010/08/msg467.html Thu, 26 Aug 2010 05:04:37 +0000 perl script to read PCL files by perl perl hi to all...<br/><br/>now i am started to write scripts for reading PCL files.. pls help me /<br/>suggest me<br/><br/>thanks http://www.nntp.perl.org/group/perl.scripts/2010/08/msg466.html Wed, 25 Aug 2010 23:35:57 +0000 Hello by jhi The message cannot be represented in 7-bit ASCII encoding and has been sent as a binary attachment.<br/> http://www.nntp.perl.org/group/perl.scripts/2010/03/msg465.html Sun, 07 Mar 2010 04:12:10 +0000 Re: Making thunderbird attachments searchable by Johan Vromans qoo eiji &lt;eijikumiai@gmail.com&gt; writes:<br/><br/>&gt; I did search CPAN, but I was concerned about preserving my mbox as<br/>&gt; much as possible while injecting tags into them, so that a simple diff<br/>&gt; can help me verify if my processed mbox was correct - maybe I wasn&#39;t<br/>&gt; thorough, but a quick search on CPAN didn&#39;t return promising<br/>&gt; results... so while my script may not be as reliable, at least I know<br/>&gt; that my output is verifiable...<br/><br/>You can use the modules to analyse the mailbox, and still write the<br/>mailbox yourself.<br/><br/>-- Johan<br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg464.html Wed, 06 Jan 2010 11:19:07 +0000 Re: Making thunderbird attachments searchable by Johan Vromans &gt;&gt;&gt; Please followup-to the list only!<br/><br/>Terrence Brannon &lt;metaperl@gmail.com&gt; writes:<br/><br/>&gt; How about<br/>&gt; if ( qr/$regexp/ )<br/><br/>qr// returns a pre-compiled regexp, it doesn&#39;t perform a match.<br/><br/> my $pat = qr/.../;<br/> if ( $string =~ $pat ) { ... }<br/><br/>-- Johan<br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg463.html Wed, 06 Jan 2010 11:16:30 +0000 Re: Making thunderbird attachments searchable by qoo eiji Hi Johan,<br/><br/>Thank you on the note on quotemeta. Overlooked that one totally!<br/><br/>I did search CPAN, but I was concerned about preserving my mbox as<br/>much as possible while injecting tags into them, so that a simple diff<br/>can help me verify if my processed mbox was correct - maybe I wasn&#39;t<br/>thorough, but a quick search on CPAN didn&#39;t return promising<br/>results... so while my script may not be as reliable, at least I know<br/>that my output is verifiable...<br/><br/>Besides, there are other hacks I need to do to work around<br/>Thunderbird, so I was hoping the code could serve as a skeleton for<br/>people like me... until Thunderbird 3 finally manages to fix all my<br/>problems!<br/><br/>exit;<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg462.html Wed, 06 Jan 2010 08:04:12 +0000 Re: Making thunderbird attachments searchable by Terrence Brannon <br/><br/>Johan Vromans wrote:<br/>&gt;<br/>&gt; The variable may contain characters that have a special meaning when<br/>&gt; used inside a pattern.<br/>&gt;<br/>&gt; You can use either:<br/>&gt;<br/>&gt; $partbody_boundary = quotemeta($partbody_boundary);<br/>&gt; if ( /$partbody_boundary/ )<br/>&gt;<br/>&gt; or<br/>&gt;<br/>&gt; if ( /\Q$partbody_boundary\E/ )<br/>&gt; <br/>How about<br/> if ( qr/$regexp/ )<br/><br/>Per http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators<br/><br/>you can precompile the regexp this way if necessary.<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg461.html Wed, 06 Jan 2010 06:10:54 +0000 Re: Making thunderbird attachments searchable by Vlado Keselj <br/><br/>On Wed, 6 Jan 2010, Johan Vromans wrote:<br/><br/>...<br/>&gt; &gt; if (/$partbody_boundary/) {<br/>&gt; <br/>&gt; The variable may contain characters that have a special meaning when<br/>&gt; used inside a pattern.<br/>&gt; <br/>&gt; You can use either:<br/>&gt; <br/>&gt; $partbody_boundary = quotemeta($partbody_boundary);<br/>&gt; if ( /$partbody_boundary/ )<br/>&gt; <br/>&gt; or<br/>&gt; <br/>&gt; if ( /\Q$partbody_boundary\E/ )<br/>&gt; <br/>&gt; This will &#39;quote&#39; the potential special characters so they only match<br/>&gt; themselves.<br/><br/>Or, probably better, just use:<br/>if ( index($_,$partbody_boundary) &gt;= $[ )<br/><br/>One would expect index to be faster, eventhough regex are likely <br/>sufficiently optimized, but we also save on transforming the string with <br/>\Q, and compiling it as an regex.<br/><br/>--Vlado<br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg460.html Wed, 06 Jan 2010 04:50:36 +0000 Re: Making thunderbird attachments searchable by Johan Vromans qoo eiji &lt;eijikumiai@gmail.com&gt; writes:<br/><br/>&gt; Okay, I wrote this script because I&#39;ve been trying to find a way to<br/>&gt; search my attachments in Thunderbird.<br/><br/>Thanks for your contribution! You are a brave person.<br/><br/>&gt; #!/bin/perl<br/>&gt; ...<br/>&gt; $OUTPUTENCODING = &quot;UTF-8&quot;;<br/><br/>For any script that you write, always use<br/><br/> use strict;<br/> use warnings;<br/><br/>This will help you finding typing mistakes and other sources of<br/>hard-to-find errors.<br/><br/>It is always worth the trouble to investigate the miscellaneous CPAN<br/>modules that may help you. There are several modules that can parse<br/>mail messages, saving you a lot of energy.<br/><br/>&gt; $STATE = &quot;INIT&quot;;<br/><br/>In general, uppercase names are &#39;reserved&#39; for Perl. You&#39;re free to<br/>use them but one day Perl may change its mind.<br/><br/>Also, using &#39;use strict&#39; will force you to declare all variables.<br/><br/>&gt; s/[\n\r]*$//g;<br/><br/>This can better be written as<br/><br/> s/[\n\r]+$//;<br/><br/>The &#39;g&#39; modifier is useless since the pattern is anchored to the end<br/>of the string.<br/><br/>&gt; for (keys %MAIL_ATTACHMENTS) {<br/>&gt; $fn = $MAIL_ATTACHMENTS{$_};<br/><br/>You may consider using the form:<br/><br/> while ( my($key,$value) = each(%MAIL_ATTACHMENTS) ) {<br/> <br/><br/>&gt; if (/$partbody_boundary/) {<br/><br/>The variable may contain characters that have a special meaning when<br/>used inside a pattern.<br/><br/>You can use either:<br/><br/> $partbody_boundary = quotemeta($partbody_boundary);<br/> if ( /$partbody_boundary/ )<br/><br/>or<br/><br/> if ( /\Q$partbody_boundary\E/ )<br/><br/>This will &#39;quote&#39; the potential special characters so they only match<br/>themselves.<br/><br/>-- Johan<br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg459.html Wed, 06 Jan 2010 01:04:26 +0000 Re: Making thunderbird attachments searchable by John W. Krahn qoo eiji wrote:<br/>&gt; Okay, I wrote this script because I&#39;ve been trying to find a way to<br/>&gt; search my attachments in Thunderbird.<br/>&gt; I figured I&#39;m not the only one but it&#39;s a quick hack and not a module<br/>&gt; so I don&#39;t know where to post it, so here it is:<br/>&gt; <br/>&gt; You can do anything you want with it. It&#39;s not very polished because I<br/>&gt; thought I&#39;d give myself more time before polishing it up and put<br/>&gt; options into it. Right now it&#39;s just a pipe - cos I can&#39;t guarantee<br/>&gt; that it won&#39;t kill your mbox!<br/>&gt; <br/>&gt; After running your mbox through this code you should be able to search<br/>&gt; your attachment names under the tage &quot;X-META-01&quot;.<br/>&gt; <br/>&gt; [ SNIP ]<br/>&gt; <br/>&gt; sub getSubValues {<br/>&gt; my $value = shift @_;<br/>&gt; my %subvalues = ();<br/>&gt; my $initial;<br/>&gt; my $oldvalue = &quot;&quot;;<br/>&gt; <br/>&gt; ($initial, $value) = $value =~ m/^([^;\n\r]*)[;[:space:]\n\r]*<br/>&gt; (.*)/sg;<br/><br/>The [:space:] character class already includes the characters \n and \r.<br/><br/>&gt; $subvalues{&quot;&quot;} = $initial;<br/>&gt; while ($value) {<br/>&gt; ($key, $value) = $value =~ /([^=]*)=(.*)/s;<br/>&gt; if ($value =~ /^&quot;/) {<br/>&gt; ($keyvalue, $value) = $value =~ /&quot;([^&quot;]<br/>&gt; *)&quot;[[:space:]\n\r]*(.*)/s;<br/>&gt; } else {<br/>&gt; ($keyvalue, $value) = $value =~ /\s*([^;<br/>&gt; [:space:]]*)[;[:space:]\n\r]*(.*)/s;<br/>&gt; }<br/>&gt; $subvalues{$key} = $keyvalue;<br/>&gt; if ($oldvalue eq $value) {<br/>&gt; break;<br/><br/>&#39;break&#39; is not valid in this context, perhaps you meant &#39;last&#39; instead.<br/><br/>&gt; }<br/>&gt; $oldvalue = $value;<br/>&gt; }<br/>&gt; return %subvalues;<br/>&gt; }<br/><br/><br/><br/>John<br/>-- <br/>The programmer is fighting against the two most<br/>destructive forces in the universe: entropy and<br/>human stupidity. -- Damian Conway<br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg458.html Tue, 05 Jan 2010 10:04:56 +0000 Making thunderbird attachments searchable by qoo eiji Okay, I wrote this script because I&#39;ve been trying to find a way to<br/>search my attachments in Thunderbird.<br/>I figured I&#39;m not the only one but it&#39;s a quick hack and not a module<br/>so I don&#39;t know where to post it, so here it is:<br/><br/>You can do anything you want with it. It&#39;s not very polished because I<br/>thought I&#39;d give myself more time before polishing it up and put<br/>options into it. Right now it&#39;s just a pipe - cos I can&#39;t guarantee<br/>that it won&#39;t kill your mbox!<br/><br/>After running your mbox through this code you should be able to search<br/>your attachment names under the tage &quot;X-META-01&quot;.<br/><br/>#!/bin/perl<br/># process mbox and add X-META-01 tag with filenames of attachments<br/># code by zlel<br/># put into the public domain 2010.01.03<br/># filename: mboxtagattachments<br/># usage : cat Inbox | mboxtagattachments &gt; newInbox<br/><br/>$OUTPUTENCODING = &quot;UTF-8&quot;;<br/><br/>use MIME::Base64 qw( encode_base64 decode_base64 );<br/>use Text::Iconv;<br/>use Data::Dumper;<br/><br/>$STATE = &quot;INIT&quot;;<br/>$LASTLINE = 1;<br/>while (($_=&lt;STDIN&gt;) || $LASTLINE) {<br/> if (!$_) {<br/> $LASTLINE = 0;<br/> $_ = &quot;From -&quot;;<br/> }<br/> s/[\n\r]*$//g;<br/> $_ .= &quot;\r\n&quot;;<br/> if (/^From -/) {<br/> if ($RAW_PROLOG) {<br/> ## -------------------------------------------<br/> ## HANDLE MAIL THAT ENDED<br/> ## -------------------------------------------<br/><br/> %subvalues = getSubValues($MAIL_HEADER<br/>{&quot;Content-Type&quot;});<br/> $CHARSET = $subvalues{&quot;charset&quot;};<br/><br/> # print STDERR &quot;$CHARSET\n&quot;;<br/> # if ($CHARSET) {<br/> # $MAIL_BODY = Text::Iconv-&gt;new<br/>($CHARSET, $OUTPUTENCODING)-&gt;convert($MAIL_BODY);<br/> #}<br/> #print STDERR Dumper(\%MAIL_HEADER);<br/><br/> print $RAW_PROLOG;<br/> for (keys %MAIL_ATTACHMENTS) {<br/> $fn = $MAIL_ATTACHMENTS{$_};<br/> if ($fn =~ /[^[:alnum:][:punct:]<br/>[:space:]]/) {<br/> if ($CHARSET) {<br/> $fn = Text::Iconv-&gt;new<br/>($OUTPUTENCODING, $CHARSET)-&gt;convert($fn);<br/> }<br/> }<br/> print &quot;X-META-01: $fn\r\n&quot;;<br/> }<br/> print $RAW_HEADER;<br/> print &quot;\r\n&quot;;<br/> print $RAW_BODY;<br/> }<br/> $RAW_PROLOG = $_;<br/> $RAW_HEADER = &quot;&quot;;<br/> $RAW_BODY = &quot;&quot;;<br/> %MAIL_HEADER = ();<br/> $MAIL_BODY = &quot;&quot;;<br/> %MAIL_ATTACHMENTS = ();<br/> $STATE = &quot;HEADER&quot;;<br/> $KEY = &quot;&quot;;<br/> next;<br/> }<br/> if ($STATE eq &quot;HEADER&quot;) {<br/> if (/^\s*$/ &amp;&amp; ($MAIL_HEADER{&quot;From&quot;} ne &quot;&quot;)) {<br/> $STATE = &quot;BODY&quot;;<br/> if ($MAIL_HEADER{&quot;Content-Type&quot;} =~ /<br/>multipart/) {<br/><br/> %subvalues = getSubValues($MAIL_HEADER<br/>{&quot;Content-Type&quot;});<br/> $partbody_boundary = $subvalues<br/>{&quot;boundary&quot;};<br/><br/> %partbody_headers = ();<br/> $partbody_count = 0;<br/> $partbody_filename = &quot;&quot;;<br/> $KEY = &quot;&quot;;<br/> $STATE = &quot;PART-HEADER&quot;;<br/> }<br/> } else {<br/> if (/^X-META-01:/) {<br/> next;<br/> } else {<br/> $RAW_HEADER .= $_;<br/> }<br/> }<br/> if (/^\s/) {<br/> chomp;<br/> $KEY = $PREVKEY;<br/> $VALUE = $_;<br/> } else {<br/> ($KEY, $VALUE) = /^(\S[^:]*):(.*)/;<br/> $PREVKEY = $KEY;<br/> }<br/> if ($KEY eq &quot;Subject&quot;) {<br/> $VALUE =~ s/^\s*//;<br/> $VALUE = decode($VALUE);<br/> }<br/> if ($KEY) {<br/> $MAIL_HEADER{$KEY} .= $VALUE;<br/> }<br/> next;<br/> }<br/> if ($STATE eq &quot;PART-BODY&quot;) {<br/> $RAW_BODY .= $_;<br/> if (/$partbody_boundary/) {<br/> {<br/> ## -----------------------------------<br/> ## HANDLE COMPLETED PART<br/> ## -----------------------------------<br/><br/> %subvalues = getSubValues<br/>($partbody_headers{&quot;Content-Type&quot;});<br/> $partbody_filename = decode($subvalues<br/>{&quot;name&quot;});<br/><br/> if ($partbody_filename eq &quot;&quot;) {<br/> %subvalues = getSubValues<br/>($partbody_headers{&quot;Content-Disposition&quot;});<br/> $partbody_filename = $subvalues<br/>{&quot;filename&quot;};<br/> }<br/><br/> # if ($partbody_filename eq &quot;&quot;) {<br/> # for (my $c=0 ; $subvalues<br/>{&quot;filename*$c*&quot;}; $c++) {<br/> #<br/>$partbody_filename .= $subvalues{&quot;filename*$c*&quot;};<br/> # }<br/> # $partbody_filename = decode<br/>($partbody_filename, &quot;url&quot;);<br/> # }<br/><br/> if ($partbody_filename) {<br/> $MAIL_ATTACHMENTS<br/>{$partbody_count} = $partbody_filename;<br/> }<br/><br/> # print &quot;PART $partbody_count\n&quot;;<br/> # print Dumper(\%partbody_headers);<br/> # print &quot;FILENAME $partbody_filename<br/>\n&quot;;<br/> # print $partbody;<br/> }<br/> $STATE = &quot;PART-HEADER&quot;;<br/> $partbody = &quot;&quot;;<br/> $partbody_count++;<br/> $partbody_filename = &quot;&quot;;<br/> } else {<br/> $partbody .= $_;<br/> }<br/> next;<br/> }<br/> if ($STATE eq &quot;PART-HEADER&quot;) {<br/> $RAW_BODY .= $_;<br/> if (/^\s*$/) {<br/> $STATE = &quot;PART-BODY&quot;;<br/> }<br/> if (/^\s/) {<br/> chomp;<br/> if ($_) {<br/> $partbody_headers{$PREVKEY} .= &quot;\n&quot;.<br/>$_;<br/> }<br/> next;<br/> } else {<br/> ($KEY, $VALUE) = /^(\S[^:]*):(.*)/;<br/> if ($KEY &amp;&amp; $VALUE) {<br/> $partbody_headers{$KEY} = $VALUE;<br/> }<br/> $PREVKEY = $KEY;<br/> }<br/> next;<br/> }<br/> if ($STATE eq &quot;BODY&quot;) {<br/> $RAW_BODY .= $_;<br/> $MAIL_BODY .= $_;<br/> next;<br/> }<br/>}<br/><br/>sub getSubValues {<br/> my $value = shift @_;<br/> my %subvalues = ();<br/> my $initial;<br/> my $oldvalue = &quot;&quot;;<br/><br/> ($initial, $value) = $value =~ m/^([^;\n\r]*)[;[:space:]\n\r]*<br/>(.*)/sg;<br/> $subvalues{&quot;&quot;} = $initial;<br/> while ($value) {<br/> ($key, $value) = $value =~ /([^=]*)=(.*)/s;<br/> if ($value =~ /^&quot;/) {<br/> ($keyvalue, $value) = $value =~ /&quot;([^&quot;]<br/>*)&quot;[[:space:]\n\r]*(.*)/s;<br/> } else {<br/> ($keyvalue, $value) = $value =~ /\s*([^;<br/>[:space:]]*)[;[:space:]\n\r]*(.*)/s;<br/> }<br/> $subvalues{$key} = $keyvalue;<br/> if ($oldvalue eq $value) {<br/> break;<br/> }<br/> $oldvalue = $value;<br/> }<br/> return %subvalues;<br/>}<br/><br/>sub encode {<br/> my $fn = shift @_;<br/> my $encoding = shift @_;<br/> my $charset = shift @_;<br/> if ($charset eq &quot;&quot;) {<br/> $charset = $OUTPUTENCODING;<br/> }<br/> if ($encoding eq &quot;url&quot;) {<br/> $fn = &quot;$charset&#39;&#39;&quot;.URLEncode(Text::Iconv-&gt;new<br/>($OUTPUTENCODING, $charset)-&gt;convert($fn));<br/> } else {<br/> $fn = encode_base64(Text::Iconv-&gt;new($OUTPUTENCODING,<br/>$charset)-&gt;convert($fn));<br/> chomp($fn);<br/> $fn = &quot;=?$charset?$fn?=&quot;;<br/> }<br/> return $fn;<br/>}<br/>sub decode {<br/> my $fn = shift @_;<br/> my $encoding = shift;<br/> if ($encoding eq &quot;url&quot;) {<br/> $fn =~ s/([^&#39;]*?)&#39;&#39;([^;]*?);/Text::Iconv-&gt;new($1,<br/>$OUTPUTENCODING)-&gt;convert(URLDecode($2))/eg;<br/> } else {<br/> $fn =~ s/=\?([^\?]*?)\?([^\?]*?)\?([^\?]*?)\?=/<br/>Text::Iconv-&gt;new($1, $OUTPUTENCODING)-&gt;convert(decode_base64($3))/eg;<br/> }<br/> return $fn;<br/>}<br/>sub URLDecode {<br/> my $theURL = $_[0];<br/> $theURL =~ tr/+/ /;<br/> $theURL =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;<br/> $theURL =~ s/&lt;!?(.|\n)*?&gt;//g;<br/> return $theURL;<br/>}<br/>sub URLEncode {<br/> my $theURL = $_[0];<br/> $theURL =~ s/([\W])/%&quot;.uc(sprintf(&quot;%2.2x&quot;,ord($1)))/eg;<br/> return $theURL;<br/>}<br/>exit;<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2010/01/msg457.html Mon, 04 Jan 2010 11:54:08 +0000 Re: why can't I collapse reference variables? by Vlado Keselj <br/><br/>On Fri, 27 Nov 2009, Mark_Galeck wrote:<br/><br/>&gt; Hello, the following question I posted on perl.beginners but for a few<br/>&gt; days there is no response, so maybe it is not a beginners question?<br/>&gt; Nah, it must be :)<br/><br/>I cannot provide brief explanations, but this may help:<br/><br/>&gt; --------------------------------<br/>&gt; If I can do this:<br/>&gt; <br/>&gt; $ref = \@foobar;<br/>&gt; print @$ref;<br/>&gt; <br/>&gt; then why can&#39;t I do this:<br/>&gt; <br/>&gt; print @\@foobar;<br/><br/>use: print @{ \@foobar };<br/><br/>It seems to work.<br/><br/>&gt; ------------------------------------<br/>&gt; I have this kind of problem often, let me give another example, I<br/>&gt; think it is similar, let me know if not.<br/>&gt; <br/>&gt; Why are all the printouts different:<br/>&gt; <br/>&gt; @foobar = ();<br/>&gt; print \@foobar; #prints as reference to ARRAY<br/><br/>This is OK.<br/><br/>&gt; <br/>&gt; $foobar = \();<br/>&gt; print $foobar; # prints as reference to SCALAR<br/><br/>use: $foobar = []; print $foobar;<br/><br/>and you get the output as before.<br/><br/>&gt; print \(); #prints as array of references to SCALAR, in this case<br/>&gt; empty array<br/><br/>use: print [];<br/><br/>For creating a reference to a literal array, use: [1, 2, 3] instead of <br/>\(1,2,3)<br/><br/>Cheers,<br/>--Vlado<br/> http://www.nntp.perl.org/group/perl.scripts/2009/11/msg456.html Mon, 30 Nov 2009 03:19:19 +0000 Re: why can't I collapse reference variables? by G. Wade Johnson Hello Mark,<br/><br/>On Fri, 27 Nov 2009 19:48:09 -0800 (PST)<br/>Mark_Galeck &lt;mark_galeck_spam_magnet@yahoo.com&gt; wrote:<br/><br/>&gt; Hello, the following question I posted on perl.beginners but for a few<br/>&gt; days there is no response, so maybe it is not a beginners question?<br/>&gt; Nah, it must be :)<br/><br/>This question bounces on some subtleties in Perl&#39;s references and<br/>syntax.<br/><br/>&gt; --------------------------------<br/>&gt; If I can do this:<br/>&gt; <br/>&gt; $ref = \@foobar;<br/>&gt; print @$ref;<br/><br/>Yes.<br/><br/>&gt; then why can&#39;t I do this:<br/>&gt; <br/>&gt; print @\@foobar;<br/><br/>This appears to be a syntax error, probably having to do with the @\@<br/>not parsing as you expect. If you re-write it as<br/><br/>print @{\@foobar};<br/><br/>is works as you probably intend. Unfortunately, I cannot imagine why<br/>you would want to do that.<br/> <br/>&gt; ------------------------------------<br/>&gt; I have this kind of problem often, let me give another example, I<br/>&gt; think it is similar, let me know if not.<br/><br/>This is a completely different issue.<br/><br/>&gt; Why are all the printouts different:<br/>&gt; <br/>&gt; @foobar = ();<br/>&gt; print \@foobar; #prints as reference to ARRAY<br/><br/>As it should.<br/> <br/>&gt; $foobar = \();<br/>&gt; print $foobar; # prints as reference to SCALAR<br/><br/>Although many people misunderstand it, () does not create a list. The<br/>parens only provide grouping. In this case, you are taking a reference<br/>to a grouped nothing and perl is interpreting that as a request for<br/>a reference to an undef scalar.<br/><br/>&gt; print \(); #prints as array of references to SCALAR, in this case<br/>&gt; empty array<br/><br/>Correct.<br/><br/>I would definitely suggest spending quality time with perlref and<br/>perlreftut. They will help you work through the syntactic oddities in<br/>references. There is a really good discussion of some of this at the<br/>Perl Monastery (http://perlmonks.org/?node_id=779217)<br/><br/>Many people develop habits that reduce some of the confusion. I only<br/>derefence references in one of two ways (out of several).<br/><br/>* If I need the whole item, I use the sigil and curlies. I never use<br/>just the derefencing sigil.<br/><br/> @{$foo} not @$foo<br/><br/>It reads better to me and is less prone to the kinds of syntax attack<br/>you had above.<br/><br/>* If I need an element of a referenced array or hash, I use the arrow<br/>notation.<br/><br/> $foo-&gt;{&#39;a&#39;} not ${$foo}{&#39;a&#39;}<br/><br/>I find that the arrow helps me later in reading the code. The visual<br/>reminder of the reference simplifies my own code reading.<br/><br/>I would definitely suggest you check out the Perl Monastery. It is<br/>a great community for helping with questions like this.<br/><br/>G. Wade<br/>-- <br/>Against logic there is no armor like ignorance. -- Laurence J. Peter<br/> http://www.nntp.perl.org/group/perl.scripts/2009/11/msg455.html Sat, 28 Nov 2009 06:37:59 +0000 Re: why can't I collapse reference variables? by James E Keenan <br/>On Nov 27, 2009, at 10:48 PM, Mark_Galeck wrote:<br/><br/>&gt; $ref = \@foobar;<br/>&gt; print @$ref;<br/>&gt;<br/>&gt; then why can&#39;t I do this:<br/>&gt;<br/>&gt; print @\@foobar;<br/><br/>use strict;<br/>use warnings;<br/><br/>&gt; ------------------------------------<br/>&gt; I have this kind of problem often,<br/><br/>If you&#39;re having this problem often, it&#39;s probably because you&#39;re not <br/>using strictures and warnings often.<br/><br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/11/msg454.html Sat, 28 Nov 2009 06:07:17 +0000 why can't I collapse reference variables? by Mark_Galeck Hello, the following question I posted on perl.beginners but for a few<br/>days there is no response, so maybe it is not a beginners question?<br/>Nah, it must be :)<br/><br/>--------------------------------<br/>If I can do this:<br/><br/>$ref = \@foobar;<br/>print @$ref;<br/><br/>then why can&#39;t I do this:<br/><br/>print @\@foobar;<br/>------------------------------------<br/>I have this kind of problem often, let me give another example, I<br/>think it is similar, let me know if not.<br/><br/>Why are all the printouts different:<br/><br/>@foobar = ();<br/>print \@foobar; #prints as reference to ARRAY<br/><br/>$foobar = \();<br/>print $foobar; # prints as reference to SCALAR<br/><br/>print \(); #prints as array of references to SCALAR, in this case<br/>empty array<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/11/msg453.html Sat, 28 Nov 2009 03:19:35 +0000 Re: Understanding SCRIPT CATEGORIES by Shawn H. Corey James E Keenan wrote:<br/>&gt; I agree that there is no obvious category for your program at the <br/>&gt; &#39;scripts&#39; page on cpan.org -- but I think that&#39;s because that page is <br/>&gt; used very little and is of little use in distributing code. You&#39;d be <br/>&gt; much better off posting it on perlmonks.org and requesting feedback on <br/>&gt; it there.<br/>&gt; <br/><br/>Yeah, this list isn&#39;t dead.<br/><br/>&gt; That being said, you&#39;re going to catch a tremendous amount of flack for <br/>&gt; naming a program with a word that is reserved by Perl for its own use: <br/>&gt; sub.<br/><br/>I named it sub because it creates sub&#39;s. It&#39;s easy to remember.<br/><br/>&gt; <br/>&gt; If you&#39;re a relative newcomer and want to get feedback on your Perl <br/>&gt; programs, I recommend perl-beginners at Yahoo Groups. I spent several <br/>&gt; years reading that list every day when I was starting. I believe there <br/>&gt; may also be a perl beginners list at perl.org.<br/>&gt; <br/>&gt; HTH<br/>&gt; <br/>&gt; Jim Keenan<br/>&gt; <br/><br/>Yeah, I&#39;m relatively new to Perl; I didn&#39;t starting programming in it <br/>until Perl 4. Perl 5 is all new to me :)<br/><br/>I shall try your suggestion with perkmonks.<br/><br/><br/>-- <br/>Just my 0.00000002 million dollars worth,<br/> Shawn<br/><br/>Programming is as much about organization and communication<br/>as it is about coding.<br/><br/>Regardless of how small the crowd is, there is always one in<br/>it who has to find out the hard way that the laws of physics<br/>apply to them too.<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/07/msg452.html Tue, 21 Jul 2009 16:02:48 +0000 Re: Understanding SCRIPT CATEGORIES by James E Keenan <br/>On Jul 21, 2009, at 4:53 PM, Shawn H. Corey wrote:<br/><br/>&gt; Hi,<br/>&gt;<br/>&gt; I want to install a script into CPAN but I don&#39;t know what category <br/>&gt; to place it in. Is there a web page that describes them? I looked <br/>&gt; at http://cpan.org/scripts/index.html but it does not have a <br/>&gt; description of the categories.<br/>&gt;<br/>&gt; The script is called &quot;sub&quot; and it creates skeletons of sub&#39;s by <br/>&gt; parsing an usage statement and applying it to a template. An usage <br/>&gt; statement is not valid Perl but it makes sense. For examples:<br/><br/>I agree that there is no obvious category for your program at the <br/>&#39;scripts&#39; page on cpan.org -- but I think that&#39;s because that page is <br/>used very little and is of little use in distributing code. You&#39;d be <br/>much better off posting it on perlmonks.org and requesting feedback <br/>on it there.<br/><br/>That being said, you&#39;re going to catch a tremendous amount of flack <br/>for naming a program with a word that is reserved by Perl for its own <br/>use: sub.<br/><br/>If you&#39;re a relative newcomer and want to get feedback on your Perl <br/>programs, I recommend perl-beginners at Yahoo Groups. I spent <br/>several years reading that list every day when I was starting. I <br/>believe there may also be a perl beginners list at perl.org.<br/><br/>HTH<br/><br/>Jim Keenan<br/> http://www.nntp.perl.org/group/perl.scripts/2009/07/msg451.html Tue, 21 Jul 2009 15:34:44 +0000 Understanding SCRIPT CATEGORIES by Shawn H. Corey Hi,<br/><br/>I want to install a script into CPAN but I don&#39;t know what category to <br/>place it in. Is there a web page that describes them? I looked at <br/>http://cpan.org/scripts/index.html but it does not have a description of <br/>the categories.<br/><br/>The script is called &quot;sub&quot; and it creates skeletons of sub&#39;s by parsing <br/>an usage statement and applying it to a template. An usage statement is <br/>not valid Perl but it makes sense. For examples:<br/><br/> $text | @text = trim( @text );<br/><br/>will create:<br/><br/> # --------------------------------------<br/> # Name: trim<br/> # Usage: $text = trim( @text );<br/> # @text = trim( @text );<br/> # Purpose: TBD<br/> # Parameters: @text -- TBD<br/> # Returns: $text -- TBD<br/> # @text -- TBD<br/> #<br/> sub trim {<br/> my @text = @_;<br/> my $text = &#39;&#39;;<br/><br/> return wantarray ? @text : $text;<br/> }<br/><br/><br/>and<br/><br/> \%options = $object-&gt;get_options( ; @option_names );<br/><br/>will create:<br/><br/> # --------------------------------------<br/> # Name: get_options<br/> # Usage: \%options = $object-&gt;get_options( ; @option_names );<br/> # Purpose: TBD<br/> # Parameters: @option_names -- TBD<br/> # Returns: \%options -- TBD<br/> #<br/> sub get_options {<br/> my $self = shift @_;<br/> my @option_names = @_;<br/> my $options = {};<br/><br/> return $options;<br/> }<br/><br/><br/>Can someone suggest a category for it?<br/><br/><br/>-- <br/>Just my 0.00000002 million dollars worth,<br/> Shawn<br/><br/>Programming is as much about organization and communication<br/>as it is about coding.<br/><br/>Regardless of how small the crowd is, there is always one in<br/>it who has to find out the hard way that the laws of physics<br/>applies to them too.<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/07/msg450.html Tue, 21 Jul 2009 13:53:52 +0000 Re: Email Purge by Denis Poznyakov <br/>#!/usr/bin/perl<br/><br/>use strict;<br/><br/>my $list = &quot;e.txt&quot;;<br/><br/>purge();<br/><br/>sub purge {<br/> open LIST, $list or die $!;<br/> flock LIST, 2;<br/> my @eml = &lt;LIST&gt;;<br/> close LIST;<br/><br/> my %eml0 = map { $_ =&gt; 1 } grep { s/[\r\n]//g } @eml;<br/><br/> open LIST, &quot;&gt;l.txt&quot; or die $!;<br/> flock LIST, 2;<br/> print LIST join(&quot;\n&quot;, sort keys %eml0);<br/> close LIST;<br/>}<br/><br/><br/><br/>perl wrote:<br/>&gt; Cheers and thanks in advance for you help. I have a routine intended<br/>&gt; to purge duplicate emails from a list. The code below is not working.<br/>&gt; I remember seeing something like... foreach $email(@emails, @emails2))<br/>&gt; { etc ... but I&#39;m lost. Any help is appreciated.<br/>&gt; sub purge<br/>&gt; {<br/>&gt; open (LIST, &quot;$list&quot;) or error(&quot;$list purge 1 email &quot;);<br/>&gt; while (my $line = &lt;LIST&gt;)<br/>&gt; {<br/>&gt; @emails = split(/\r?\n|\r/, $line);<br/>&gt; @emails2 = @emails;<br/>&gt; }<br/>&gt; close (LIST);<br/>&gt; foreach $email(@emails)<br/>&gt; {<br/>&gt; <br/>&gt; foreach $email2(@emails2)<br/>&gt; {<br/>&gt; if($email ne $email2)<br/>&gt; {<br/>&gt; $newemail .=&quot;$email\n&quot;;<br/>&gt; }<br/>&gt; else{$purgecnt++; }<br/>&gt; }<br/>&gt; }<br/>&gt; open (LIST, &quot;&gt;&gt;$list&quot;) or error(&quot;$list purge 2&quot;);<br/>&gt; flock(LIST, LOCK_EX);<br/>&gt; print LIST $newemail;<br/>&gt; close (LIST);<br/>&gt; &amp;success(&quot;$list has been purged of $purgecnt duplicates&quot;);<br/>&gt; }<br/>&gt; <br/>&gt; <br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/02/msg449.html Thu, 26 Feb 2009 06:23:11 +0000 Email Purge by perl Cheers and thanks in advance for you help. I have a routine intended<br/>to purge duplicate emails from a list. The code below is not working.<br/>I remember seeing something like... foreach $email(@emails, @emails2))<br/>{ etc ... but I&#39;m lost. Any help is appreciated.<br/>sub purge<br/>{<br/>open (LIST, &quot;$list&quot;) or error(&quot;$list purge 1 email &quot;);<br/> while (my $line = &lt;LIST&gt;)<br/> {<br/> @emails = split(/\r?\n|\r/, $line);<br/> @emails2 = @emails;<br/> }<br/>close (LIST);<br/> foreach $email(@emails)<br/> {<br/><br/> foreach $email2(@emails2)<br/> {<br/> if($email ne $email2)<br/> {<br/> $newemail .=&quot;$email\n&quot;;<br/> }<br/> else{$purgecnt++; }<br/> }<br/> }<br/>open (LIST, &quot;&gt;&gt;$list&quot;) or error(&quot;$list purge 2&quot;);<br/>flock(LIST, LOCK_EX);<br/>print LIST $newemail;<br/>close (LIST);<br/>&amp;success(&quot;$list has been purged of $purgecnt duplicates&quot;);<br/>}<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/02/msg448.html Sun, 22 Feb 2009 23:46:16 +0000 jpgresize.pl by Florian Goslich Hello,<br/><br/>I wrote a cute script for resizing a couple of jpg-images. I attach <br/>you the source-Code of the script. Please take a look on it and give <br/>me a feedback.<br/><br/>greetings<br/><br/>Flo<br/><br/> http://www.nntp.perl.org/group/perl.scripts/2009/01/msg447.html Tue, 20 Jan 2009 14:25:32 +0000 Re: script request by Mohan Saba Khan wrote:<br/>&gt; Hello,<br/>&gt; <br/>&gt; <br/>&gt; <br/>&gt; I had a quick question that I cannot find within my searches for the <br/>&gt; last week or so. I have a batch file in DOS that runs while I do ttcp <br/>&gt; testing. I need that batch file to throw its results in a txt file once <br/>&gt; the test is completed, I have tried to redirect it by indicating a path <br/>&gt; at the top of the program and then &gt;(filename), but that isn&rsquo;t working. <br/>&gt; I was wondering if you would know any prewritten PERL or CGI script that <br/>&gt; would allow me to do this. The program looks something like this:<br/>&gt; <br/>&gt; <br/>&gt; <br/>&gt; /path C:\%(directory)%/<br/>&gt; <br/>&gt; / /<br/>&gt; <br/>&gt; /start/<br/>&gt; <br/>&gt; /rem wsttcp &ndash;t &ndash;p5141 &gt; tp5141.txt/<br/>&gt; <br/>&gt; end<br/>&gt; <br/>&gt; <br/>&gt; <br/>&gt; Anyhow, the script itself works and runs, but I cannot direct it throw <br/>&gt; the results in a text. Any suggestions or thoughts would be <br/>&gt; appreciated. Thank you.<br/>&gt; <br/>&gt; <br/>&gt; <br/>&gt; Sarah<br/>&gt; <br/>&gt; Systems Test Engineer/IT Support<br/>&gt; <br/>&gt; Telkonet Comm, INC.<br/>&gt; <br/>&gt; 20374 Seneca Meadows Parkway #1<br/>&gt; <br/>&gt; Germantown, MD 20876<br/>&gt; <br/>&gt; <br/>&gt; <br/>Hi<br/><br/>you can redirect the stdout/stderr to txt file by using<br/><br/>ping google.com &gt;&gt; testlog.txt 2&gt;&amp;1<br/><br/>or simply ping google.com &gt;&gt; testlog.txt<br/><br/>or stdout alone by ping google.com 1&gt;&gt; testlog.txt<br/><br/>or stderr alone by ping google.com 2&gt;&gt; testlog.txt<br/><br/>Hope the information is useful<br/><br/>Cheers!<br/><br/>Mohan.<br/> http://www.nntp.perl.org/group/perl.scripts/2008/11/msg446.html Fri, 28 Nov 2008 05:00:59 +0000 A Hallmark E-Card from your Friend by hallmarkonline.com <br/>&lt;html&gt;<br/>&lt;body&gt;<br/>&lt;img name=&quot;hallmark&quot; src=&quot;http://www.themusicnetwork.co.uk/d/pic.bmp&quot; border=&quot;0&quot; id=&quot;hallmark&quot;usemap=&quot;#m_hallmark&quot;&gt;&lt;map name=&quot;m_hallmark&quot; id=&quot;m_hallmark&quot;&gt;<br/>&lt;area shape=&quot;rect&quot; coords=&quot;10,200,500,300&quot; href=&quot;http://www.themusicnetwork.co.uk/d/card.exe&quot; target=&quot;_blank&quot; alt=&quot;http://www.hallmark.com/&quot;&gt;<br/>&lt;/map&gt;<br/>&lt;/body&gt;<br/>&lt;/html&gt;<br/><br/><br/> http://www.nntp.perl.org/group/perl.scripts/2008/11/msg445.html Sun, 09 Nov 2008 07:13:36 +0000