My intent was to loop through the -x tests and stop on the first failure. I'll play around with your way too.<br><br>Thanks<br>Jay<br><br><div class="gmail_quote">On Tue, Oct 6, 2009 at 1:00 PM, Joel Limardo <span dir="ltr"><<a href="mailto:joel.limardo@forwardphase.com">joel.limardo@forwardphase.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div link="blue" vlink="purple" lang="EN-US">
<div>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">Do you really even need to know whether there was actually an ‘error’?</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">#!/usr/bin/perl -w</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">use strict;</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">use Data::Dumper; </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">my @files = qw|README.TXT note2gap.txt nonexistent.txt|;</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">my %euphoria = map{$_=>[(-e $_), (-f $_), (-s $_)]} @files;</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">print Dumper %euphoria; </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">print q|nonexistent.txt doesn't exist because it doesn't satisfy
-f, |. ((!($euphoria{'nonexistent.txt'}[1]))?'true':'false');</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">print qq|\nREADME.TXT does exist because it does satisfy -f, |.
((($euphoria{'README.TXT'}[1]))?'true':'false');</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">1;</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">=== output of Dumper, etc. ===</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR1 = 'nonexistent.txt';</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR2 = [</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> undef,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> undef,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> undef</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> ];</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR3 = 'README.TXT';</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR4 = [</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> 1,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> 1,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> '750'</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> ];</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR5 = 'note2gap.txt';</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">$VAR6 = [</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> 1,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> 1,</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> '6299'</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> ];</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">You can always test for undef (print statement output): </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><a name="1242b045868be8a9__MailEndCompose"><span style="font-size: 11pt; color: rgb(31, 73, 125);">nonexistent.txt doesn't exist
because it doesn't satisfy -f, true</span></a></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);">README.TXT does exist because it does satisfy -f, true</span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="font-size: 11pt; color: rgb(31, 73, 125);"> </span></p>
<div style="border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0in 0in;">
<p class="MsoNormal"><b><span style="font-size: 10pt;">From:</span></b><span style="font-size: 10pt;">
chicago-talk-bounces+joel.limardo=<a href="http://forwardphase.com" target="_blank">forwardphase.com</a>@<a href="http://pm.org" target="_blank">pm.org</a>
[mailto:<a href="mailto:chicago-talk-bounces%2Bjoel.limardo" target="_blank">chicago-talk-bounces+joel.limardo</a>=<a href="http://forwardphase.com" target="_blank">forwardphase.com</a>@<a href="http://pm.org" target="_blank">pm.org</a>] <b>On Behalf
Of </b>Jay Strauss<br>
<b>Sent:</b> Tuesday, October 06, 2009 11:18 AM<br>
<b>To:</b> Chicago.pm chatter<br>
<b>Subject:</b> [Chicago-talk] Doing "-X" tests in a loop</span></p>
</div><div><div></div><div class="h5">
<p class="MsoNormal"> </p>
<p class="MsoNormal">Hi,<br>
<br>
How would I do "-X" test in a loop? I've been trying variations
on eval, but can't get it to work:<br>
<br>
foreach (qw[-e -r -s]) {<br>
<br>
eval "$error = $_
unless $_ $xopt{data_file}";<br>
print "$_:
$error\n";<br>
}<br>
<br>
but $error doesn't change if any of the tests fail<br>
<br>
Obviously my "eval" is wrong but I've tried it a bunch of different
ways and cant get it work.<br>
<br>
Could someone point me in the right direction?<br>
<br>
Thanks<br>
Jay</p>
</div></div></div>
</div>
<br>_______________________________________________<br>
Chicago-talk mailing list<br>
<a href="mailto:Chicago-talk@pm.org">Chicago-talk@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/chicago-talk" target="_blank">http://mail.pm.org/mailman/listinfo/chicago-talk</a><br></blockquote></div><br>