<div dir="ltr"><div>Since you asked for comments, here are a few general ones.</div><div><br></div><div>- You use autodie, but aren&#39;t telling it to capture errors in system. The most likely part of your program to fail is the network part (what you currently delegate to wget), so it&#39;s probably the one you want the most control over. Currently you&#39;d fail silently. If you say &quot;use autodie qw(:all)&quot; you&#39;d die on the first wget failure. What would you like to do? I&#39;m guessing that ideally, you should retry (or have wget retry). But at the very least, you want good error messages.    To summarize this point: don&#39;t give up contorl of error reporting in the heart of what you&#39;re trying to accomplish.</div>
<div><br></div><div>- You&#39;re using use strict, which is very good, but notice that the way your file handles are named, they are unchecked globals. Avoid all-uppercase, sigilless names (FILE and so one) if you want protection; use lexicals instead:</div>
<div><br></div><div>  open my $fh, &quot;&lt;&quot;, &quot;myfile&quot; or die ...</div><div><br></div><div>(BTW, you have or die here and there, despite autodie. I&#39;d recommend for now just getting rid of autodie entirely and doing all the errors yourself.)</div>
<div><br></div><div>When you use lexical filehandles, the files are closed automatically when the variable goes out of scoped. This is great for reads. For writes, you should always close the file yourself to check for errors. There are fancy ways of doing that automatically but never mind them for now.</div>
<div><br></div><div>- It&#39;s not unreasonable to use external tools in your script. Whatever gets the job done. Of course there are tradeoffs: you comment that you don&#39;t know if these tools are available on other platforms. Well, modules for gzip and http may not be available on all platforms either -- take a look at corelist if you want to make educated guesses about what to expect.</div>
<div><br></div><div>- Syntactically, this:</div><div><br></div><div>  if (CONDITION 1) {</div><div>    CODE 1</div><div>  } if (CONDITION 2) {</div><div>    CODE 2</div><div>  } if (CONDITION 3) {</div><div>    CODE 3</div>
<div>  } ...</div><div><br></div><div>  checks all the conditions and may run all the branches. I think you meant &quot;elsif&quot; there.</div><div><br></div><div>- Semantically, what you&#39;re doing is extracting a bunch of values from a hash into a number of scalars. Why? This has a few costs:</div>
<div><br></div><div>1. You have to pick names for these. If you ever scratch your head about the name of a variable, and end up with something mundane like &quot;first&quot;, something&#39;s wrong. (I mean, first is perfectly all right if its scope is very small, and within that block of code it&#39;s clear what it&#39;s intended to refer to. But here the scope of these variables is pretty much the whole program, and the reader is confounded with arbitrary distinctions like &quot;first&quot; and &quot;firs&quot;.</div>
<div><br></div><div>2. It&#39;s inefficient in code. You have a 20 lines of code that aren&#39;t furthering your goal as a programmer here. Couldn&#39;t the user of this data may as well just say $names{$some_name}?</div>
<div><br></div><div>3. It&#39;s inefficient in performance. Your for loop runs as many times as there are elements in %names, and performs ten conditions. So you have 100 branches in your code where you didn&#39;t need any. In this case, it doesn&#39;t matter; but you have to keep these things in mind for when you have larger data structures.</div>
<div><br></div><div>- Again on naming, &quot;percent&quot; vs. &quot;per&quot; -- the reader can&#39;t tell what these mangled names are for.</div><div><br></div><div>- I see you&#39;re using &quot;say&quot;, which is a new language feature. If you&#39;re doing that, you may as well know about and use given/when instead of if/else, though like I said, it&#39;s not actually required here.</div>
<div><br></div><div><br></div><div>Keep having fun,</div><div>And I hope this is useful,</div><div>Gaal</div><br><div class="gmail_quote">On Sun, Aug 5, 2012 at 3:39 AM, moshe nahmias <span dir="ltr">&lt;<a href="mailto:moshegrey@ubuntu.com" target="_blank">moshegrey@ubuntu.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi all,<br>I just uploaded my first little program to github. I want your feedback on the script.<br>the script is intended to make the statistics for mailing groups from their archives, for now it only works on linux (or at least if wget and gzip are installed).<br>

<br>So, what do you think?<br>I know its not perfect so feel free to teach me, after all, that&#39;s one of the reasons to publish this :)<br>the link: <a href="https://github.com/moshe742/mail-stats.git" target="_blank">https://github.com/moshe742/mail-stats.git</a><span class="HOEnZb"><font color="#888888"><br>

<br>Moshe<br></font></span></div>
<br>_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@perl.org.il">Perl@perl.org.il</a><br>
<a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Gaal Yahas &lt;<a href="mailto:gaal@forum2.org">gaal@forum2.org</a>&gt;<br>
<a href="http://gaal.livejournal.com/">http://gaal.livejournal.com/</a><br>
</div>