Суть в том что не работает сравнение строк, или я не пойму что не так...
Код | #!/usr/bin/perl -w
use Net::OSCAR; use strict;
my($UIN, $PASSWORD, $err, $oscar, $text);
sub send_answer();
$UIN = "587003760"; $PASSWORD = "wisible"; $text = "test";
$oscar = Net::OSCAR -> new(); $oscar -> set_callback_im_in(\&send_answer);
$oscar -> signon($UIN, $PASSWORD) or die("Login error");
while (1) { $oscar->do_one_loop(); sleep(1); } sub send_answer() { my($oscar, $sender, $msg);
($oscar, $sender, $msg) = @_; chomp($msg);
if ($msg eq 'quit') { $oscar -> send_im($sender, "Shutting down..."); $oscar -> signoff(); exit(); }
print("<== $sender\n$msg\n==> $text\n"); $oscar -> send_im($sender, $text); }
|
Проблема у меня вот в этой строчке:
Код | if ($msg eq 'quit') {
|
Она не срабатывает ни при каких условиях. Почему - понять не могу. |