But wait... if you buy now, we&#39;ll throw in an extra $ to<br>make it work :)<br><br>/$$^/<br><br>-- <br>Charles DeRykus<br><br><div class="gmail_quote">On Wed, Aug 19, 2009 at 12:38 AM, Ingy dot Net <span dir="ltr">&lt;<a href="mailto:ingy@ingy.net">ingy@ingy.net</a>&gt;</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;"><br><br><div class="gmail_quote"><div class="im">On Tue, Aug 18, 2009 at 10:33 PM, Steve Sandvik <span dir="ltr">&lt;<a href="mailto:ssandv@gmail.com" target="_blank">ssandv@gmail.com</a>&gt;</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;">
well, /$^/ seems like a plausible starting point.  Or ending point.<br>
Or something. :-)</blockquote></div><div><br>Nope.<br><br>    $^ = &quot;&quot;;<br>    $anything =~ /$^/;<br><br> <br></div><div><div></div><div class="h5"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

<br>
<font color="#888888"><br>
Steve Sandvik<br>
</font><div><div></div><div><br>
On Tue, Aug 18, 2009 at 12:04 PM, Michael R. Wolf&lt;<a href="mailto:MichaelRWolf@att.net" target="_blank">MichaelRWolf@att.net</a>&gt; wrote:<br>
&gt; Question:<br>
&gt; What&#39;s the smallest (comprehensible) regex that&#39;s guaranteed to fail against<br>
&gt; all input?<br>
&gt;<br>
&gt; Motivation:<br>
&gt; I&#39;m creating a lab for perl classes.  I want to provide the stub of a script<br>
&gt; that compiles, but always fails to match.  Unfortunately, the obvious<br>
&gt; minimal RE of // matches *everything*.<br>
&gt;<br>
&gt; Here&#39;s a stub of the lab...<br>
&gt;<br>
&gt; # TODO... replace the following line with your regular expression to match<br>
&gt; zip codes.<br>
&gt; my $zip_re = qr//;<br>
&gt;<br>
&gt; like(&#39;98107&#39;, $zip_re, &#39;Simple 5-digit zip&#39;),<br>
&gt; like(&#39;07748&#39;, $zip_re, &#39;Simple 5-digit zip with leading zero&#39;),<br>
&gt;<br>
&gt; unlike(&#39;1234&#39;,          $zip_re, &#39;Four digits&#39;);<br>
&gt; unlike(&#39;123456&#39;,        $zip_re, &#39;Six digits&#39;);<br>
&gt;<br>
&gt; --<br>
&gt; Michael R. Wolf<br>
&gt;    All mammals learn by playing!<br>
&gt;        <a href="mailto:MichaelRWolf@att.net" target="_blank">MichaelRWolf@att.net</a><br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; _____________________________________________________________<br>
&gt; Seattle Perl Users Group Mailing List<br>
&gt;    POST TO: <a href="mailto:spug-list@pm.org" target="_blank">spug-list@pm.org</a><br>
&gt; SUBSCRIPTION: <a href="http://mail.pm.org/mailman/listinfo/spug-list" target="_blank">http://mail.pm.org/mailman/listinfo/spug-list</a><br>
&gt;   MEETINGS: 3rd Tuesdays<br>
&gt;   WEB PAGE: <a href="http://seattleperl.org/" target="_blank">http://seattleperl.org/</a><br>
&gt;<br>
_____________________________________________________________<br>
Seattle Perl Users Group Mailing List<br>
     POST TO: <a href="mailto:spug-list@pm.org" target="_blank">spug-list@pm.org</a><br>
SUBSCRIPTION: <a href="http://mail.pm.org/mailman/listinfo/spug-list" target="_blank">http://mail.pm.org/mailman/listinfo/spug-list</a><br>
    MEETINGS: 3rd Tuesdays<br>
    WEB PAGE: <a href="http://seattleperl.org/" target="_blank">http://seattleperl.org/</a><br>
</div></div></blockquote></div></div></div><br>
<br>_____________________________________________________________<br>
Seattle Perl Users Group Mailing List<br>
     POST TO: <a href="mailto:spug-list@pm.org">spug-list@pm.org</a><br>
SUBSCRIPTION: <a href="http://mail.pm.org/mailman/listinfo/spug-list" target="_blank">http://mail.pm.org/mailman/listinfo/spug-list</a><br>
    MEETINGS: 3rd Tuesdays<br>
    WEB PAGE: <a href="http://seattleperl.org/" target="_blank">http://seattleperl.org/</a><br></blockquote></div><br>