On Dec 5, 2007 11:05 AM, Radu State <[EMAIL PROTECTED]> wrote:

> # Humberto J. Abdelnur (Ph.D Student) #
>
> # Radu State (Ph.D) #
>
> # Olivier Festor (Ph.D) #
>
lol......

"wow" is all i can say to this..

let me enlighten you on the basics of Perl


> $text = '';
>

http://perldoc.perl.org/functions/my.html

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

to demonstrate such amazing techniques such as declaring variables properly
i will demonstrate this code

die ($!) unless open  my $file,'<',"/etc/passwd";
my @b = <$file>;

while(my $a = shift @b){
        print $a;
}

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


> while (not $text =~ /^SIP\/2.0 100(.\r\n)*/ ){
>
from perlretut ( http://perldoc.perl.org/perlretut.html )

"The sense of the match can be reversed by using !~ operator:

    print <http://perldoc.perl.org/functions/print.html> "It doesn't
match\n" if "Hello World" !~ /World/;"

Understanding that you do not know how to code i will make it easier for
you:

 "while ($text !~ /^SIP\/2.0 100(.\r\n)*/ ){"
_______________________________________________
Full-Disclosure - We believe in it.
Charter: http://lists.grok.org.uk/full-disclosure-charter.html
Hosted and sponsored by Secunia - http://secunia.com/

Reply via email to