For Quality purpouses, Balaji Thoguluva 's mail on Friday 06 February 2004 20:44 may have been monitored or recorded as: > Hi, > I am a novice to perl programming. When I execute the following code, > I get always "No Match". I guess my reg-exp is correct. I also tried > changing $line= "INVITE sip:[EMAIL PROTECTED] SIP/2.0"; to have double > quotes and a backslash char before @ symbol. Even then it gives me No > Match. I appreciate your help. > > #!/usr/bin/perl -w > my $line= 'INVITE sip:[EMAIL PROTECTED] SIP/2.0'; > if($line =~ /^\s*(\w+)\s*(.*)\s+(sip\/\d+\.\d+)\s*\r\n/i)
Do you have the \r\n at the end of $line? Wolf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
