проверьте последнюю пустую строку HTTP-запроса, используя perl chomp - PullRequest
Новая
       13

проверьте последнюю пустую строку HTTP-запроса, используя perl chomp

1 голос
/ 01 июля 2011

Я довольно новичок в Perl.Моя Perl-программа получает сообщение HTTP-запроса от браузера, я хочу обнаружить последнюю пустую строку.

Я пытался использовать $_ =~ /\S/, но это не работает: 

while (<CONNECTION>) {
  print $_;
  if ($_ =~ /\S/) {print "blank line detected\n"; }
}

вывод 

GET / HTTP/1.1
blank line detected
Host: xxx.ca:15000
blank line detected
User-Agent: Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0
blank line detected
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
blank line detected
Accept-Language: en-us,en;q=0.7,zh-cn;q=0.3
blank line detected
Accept-Encoding: gzip, deflate
blank line detected
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
blank line detected
Connection: keep-alive
blank line detected
Cookie: __utma=32770362.1159201788.1291912625.1308033463.1309142872.11; __utmz=32770362.1307124126.7.3.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=Manitoba%20Locum%20Tenens%20Program; __utma=70597634.1054437369.1308785920.1308785920.1308785920.1; __utmz=70597634.1308785920.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=leung%20carson
blank line detected

Я пытался использовать chomp (), который тоже не работает для меня: 

  while (<CONNECTION>) {
    chomp(); 
    print "$_\n";
    if ($_ eq "") {print "blank line detected\n"; }
  }

вывод: 

GET / HTTP/1.1
Host: xxx.ca:15000
User-Agent: Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.7,zh-cn;q=0.3
Accept-Encoding: gzip, deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Connection: keep-alive
Cookie: __utma=32770362.1159201788.1291912625.1308033463.1309142872.11; __utmz=32770362.1307124126.7.3.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=Manitoba%20Locum%20Tenens%20Program; __utma=70597634.1054437369.1308785920.1308785920.1308785920.1; __utmz=70597634.1308785920.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=leung%20carson

Заранее спасибо ~

Ответы [ 2 ]

3 голосов
/ 01 июля 2011

Чтобы обнаружить строки только с пробелами, 

while (<CONNECTION>) {
  print $_;
  if ($_ =~ /\S/) {print "blank line detected\n"; }
}

должно быть 

while (<CONNECTION>) {
   print $_;
   if ($_ !~ /\S/) {print "blank line detected\n"; }
}

Или, если коротко, 

while (<CONNECTION>) {
   print;
   if (!/\S/) {print "blank line detected\n"; }
}

Причина 

while (<CONNECTION>) {
   chomp(); 
   print "$_\n";
   if ($_ eq "") {print "blank line detected\n"; }
 }

может не работать, потому что строки заголовка HTTP заканчиваются на \ r \ n. Вам понадобится 

while (<CONNECTION>) {
   s/\r?\n//; 
   print "$_\n";
   if ($_ eq "") {print "blank line detected\n"; }
 }
1 голос
/ 01 июля 2011

Я думаю, что вы хотите: 

/^\s+$/

для обнаружения пустой строки.

Использование / \ S / обнаружит НЕ пустые строки.

Еще лучше, используйтечто-то вроде Net :: HTTP или LWP, чтобы сделать тяжелую работу за вас.Некоторые проблемы кодирования HTTP неуловимы.

...