Суть в том что не работает сравнение строк, или я не пойму что не так...
| Код |
#!/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') {
|
Она не срабатывает ни при каких условиях. Почему - понять не могу. |
