В XP тоже есть. Кстати, я использую, первый ваш вариант, только выравниваю М1 по верхнему краю с M2,
потому что часто приходится пользоваться мышкой пользоваться вверху (кнопки закрытия, адресная строка).
Если мышку в вашем первом варианте поставить на экране M2 в самому верху и тащить влево, то она не перейдет на левый экран, надо будет её чуть ниже сместить, на разницу высот экранов.
кстати, Chrome на винде прекрасно устанавливается без Админских прав.
===
правда, удалить его можно только с админскими правами. серьезно.
Но я его удалять не собираюсь. Нравится.
Когда perl встречает {, он не знает, это начало блока или начало ссылки на хэш.
Перл анализирует код после {, если там встречаться хотя бы точка запятой, то перл понимает, что это блок.
Видимо перл, видя код map {{$_ => $_}} <список> пытается привести его к коду map +{$_ => $_}, <список>
но делает это он так: map {+{$_ => $_}} <список>
Чтобы второй пример работал как первый поставьте плюс перед {$x => $x}: perl -MData::Dumper -e "@a = map {$x = $_; +{$x => $x}; } qw/a b/; print Dumper(\@a)"
$VAR1 = [
{
'a' => 'a'
},
{
'b' => 'b'
}
];
Вообщем помогайте перлу явно показывать, что вы хотите вернуть.
Легко понять, что делает перл с помощью модуля B::Deparse perl -MO=Deparse -e 'while ($line = <STDIN>) {}'
---------------------------------------------------------------------------------
while (defined($line = <STDIN>)) {
();
}
>Зачем в скриптовом языке вам понадобилось битами жонглировать?
Чтоб упаковывать данные, в файл например или для передачи по сети.
Читать двоичные данные по шаблону.
Чтобы поддерживать разные архитектуры: в одной старший бит находится справа, в другой — слева.
Работать с разными кодировками.
Например, составить слово «тест» в кодировке Windows-1251
В perl будет так: var test = pack('H*', 'F2E5F1F2');
попробуйте тоже само сделать в других языках, не работающих с бинарными данными, вам что исходный код программы надо будет в кодировку windows-1251 переводить? А если понадобиться еще одно слово в другой кодировке.
Не знаю писали ли.
Обнаружил маленький баг.
Если начать перетаскивать картинку и вынести мышку за пределы документа, а потом отпустить кнопку мышки и
и вернуть мышку обратно в документ, то картинка будет перетаскиваться уже при отпущенной кнопки мышки.
Решал эту проблему я так.
Ставил обработчик mouseup на document, при том не так: document.unmouseup = <название функции>;,
а через addEventListener/attachEvent. Через document.unmouseup не срабатывало.
поменяйте местами rutube с youtub-ом. на rutube невозможно смотреть
Обнаружил как смотреть ролики на рутубе, когда долго они грузятся. Запускаем ролик, ждем некоторое. А потом щелкаем мышкой по шкале. Ролик обычно начинает сразу проигрываться.
потому что часто приходится пользоваться мышкой пользоваться вверху (кнопки закрытия, адресная строка).
Если мышку в вашем первом варианте поставить на экране M2 в самому верху и тащить влево, то она не перейдет на левый экран, надо будет её чуть ниже сместить, на разницу высот экранов.
===
правда, удалить его можно только с админскими правами. серьезно.
Но я его удалять не собираюсь. Нравится.
Поищите в инете правильную постановку рук.
Можете объяснить? Не показать, что он меняется, а объяснить.
Да и контекста я знаю три бывает: пустой, скалярный, списочный. Или есть ещё какой-то?
У map есть две формы
map <блок> <список>ии
map <выражение>, списокКогда perl встречает {, он не знает, это начало блока или начало ссылки на хэш.
Перл анализирует код после {, если там встречаться хотя бы точка запятой, то перл понимает, что это блок.
perl -MO=Deparse -MData::Dumper -e "@a = map {{$_ => $_}} qw/a b/; print Dumper(\@a)"
=======================================================
use Data::Dumper;
@a = map({+{$_, $_};} 'a', 'b');
print Dumper(\@a);
-e syntax OK
Видимо перл, видя код
map {{$_ => $_}} <список>пытается привести его к кодуmap +{$_ => $_}, <список>но делает это он так:
map {+{$_ => $_}} <список>Чтобы второй пример работал как первый поставьте плюс перед {$x => $x}:
perl -MData::Dumper -e "@a = map {$x = $_; +{$x => $x}; } qw/a b/; print Dumper(\@a)"
$VAR1 = [
{
'a' => 'a'
},
{
'b' => 'b'
}
];
Вообщем помогайте перлу явно показывать, что вы хотите вернуть.
perl -MO=Deparse -e 'while ($line = <STDIN>) {}'
---------------------------------------------------------------------------------
while (defined($line = <STDIN>)) {
();
}
Very good, but not quite there yet.
Чтоб упаковывать данные, в файл например или для передачи по сети.
Читать двоичные данные по шаблону.
Чтобы поддерживать разные архитектуры: в одной старший бит находится справа, в другой — слева.
Работать с разными кодировками.
Например, составить слово «тест» в кодировке Windows-1251
В perl будет так: var test = pack('H*', 'F2E5F1F2');
попробуйте тоже само сделать в других языках, не работающих с бинарными данными, вам что исходный код программы надо будет в кодировку windows-1251 переводить? А если понадобиться еще одно слово в другой кодировке.
Обнаружил маленький баг.
Если начать перетаскивать картинку и вынести мышку за пределы документа, а потом отпустить кнопку мышки и
и вернуть мышку обратно в документ, то картинка будет перетаскиваться уже при отпущенной кнопки мышки.
Решал эту проблему я так.
Ставил обработчик mouseup на document, при том не так: document.unmouseup = <название функции>;,
а через addEventListener/attachEvent. Через document.unmouseup не срабатывало.
Обнаружил как смотреть ролики на рутубе, когда долго они грузятся. Запускаем ролик, ждем некоторое. А потом щелкаем мышкой по шкале. Ролик обычно начинает сразу проигрываться.