[Comm] Задачка на перл

[ABATAPA]

25 мая 2007 г. Avramenko Andrew написал:
> Передаем в качестве HTTP_AUTH_USER a8 на a.com, в результате:
> print $ENV{"HTTP_AUTH_USER"); выдает a8 на a.com
> print $login; выдает a2 на a.com
Ваш код в студию.
Имеем:
# cat test.pl
#!/usr/bin/perl -w

my $login = $ENV{"HTTP_AUTH_USER"};

printf("'%s'\n", $ENV{"HTTP_AUTH_USER"});
printf("'%s'\n", $login);
print $login;


Запускаем:

# HTTP_AUTH_USER='a8 на a.com' perl test.pl
'a8 на a.com'
'a8 на a.com'
a8 на a.com#


Так что же не так?
-- 
ABATAPA