<br><br><div class="gmail_quote">On Dec 5, 2007 11:05 AM, Radu State <<a href="mailto:State@loria.fr">State@loria.fr</a>> 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="FR"><div>
<font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB"># Humberto J.
Abdelnur (Ph.D Student) #</span></font>
<p style=""><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB"># Radu State
(Ph.D) #</span></font></p>
<p style=""><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB"># Olivier Festor
(Ph.D) #</span></font></p></div></div></blockquote><div>lol......<br><br>"wow" is all i can say to this..<br>
<br>
let me enlighten you on the basics of Perl<br> </div><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="FR">
<div><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB"></span></font><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB"></span></font><font face="Courier New" size="2">
<span style="font-size: 10pt;" lang="EN-GB">$text = '';</span></font></div></div></blockquote><div><br><a href="http://perldoc.perl.org/functions/my.html">http://perldoc.perl.org/functions/my.html</a><br><br>if you understood perl you would see that this line shows your complete lack of ability as $text could be declared as its used in the loop
<br><br>to demonstrate such amazing techniques such as declaring variables properly i will demonstrate this code<br><br>die ($!) unless open my $file,'<',"/etc/passwd";<br>my @b = <$file>;<br><br>
while(my $a = shift @b){<br> print $a;<br>}<br><br>notice the "my $a" ... please take a few minutes to reflect on this code as your fragile phd minds can only handle so much but soon it will come to you<br>
</div><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="FR"><div><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB">
</span></font>
<p style=""><font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB">while (not $text
=~ /^SIP\/2.0 100(.\r\n)*/ ){</span></font></p></div></div></blockquote><div>from perlretut ( <a href="http://perldoc.perl.org/perlretut.html">http://perldoc.perl.org/perlretut.html</a> ) <br></div><div><p>"The sense of the match can be reversed by using
<code class="inline">!~</code>
operator:</p>
<pre class="verbatim"> <a class="l_k" href="http://perldoc.perl.org/functions/print.html">print</a> <span class="q">"It doesn't match\n"</span> if <span class="q">"Hello World"</span> !~ <span class="q">
/World/</span><span class="sc">;"<br><br></span></pre>
Understanding that you do not know how to code i will make it easier for you:<br><br> "<font face="Courier New" size="2"><span style="font-size: 10pt;" lang="EN-GB">while ($text !~ /^SIP\/2.0 100(.\r\n)*/ ){"</span>
</font><br></div></div>