Как стать автором
Обновить
52
0
Олег @OlegTar

Пользователь

Отправить сообщение

Пишем эмулятор Кубика Рубика

Время на прочтение20 мин
Количество просмотров77K
OpenGL — платформонезависимая спецификация, описывающая программный интерфейс для создания компьютерных приложений, использующих двухмерную и трехмерную графику.
В этой статье я опишу, как можно создать эмулятор Кубика Рубика на OpenGL.

Кубик будет в 3D и его можно будет вращать мышкой, а переворачивать грани можно, кликая мышкой по стрелкам. При том стрелки появляются у ближайшей к зрителю грани.


Читать дальше →
Всего голосов 81: ↑61 и ↓20+41
Комментарии30

Я просто оставлю это здесь

Время на прочтение3 мин
Количество просмотров8.5K
Я не ставлю цель обо очернить Перл. Я люблю Перл.
Просто надо различать список и массив в Перле.

use Perl or die;


#!/usr/bin/perl
use strict;
my $x = ('a', 'b');
print $x;

Вывод:
b

Читать дальше →
Всего голосов 98: ↑48 и ↓50-2
Комментарии39

Javascript: Отправка изображения на канвасе на сервер

Время на прочтение4 мин
Количество просмотров9.4K
Здравствуйте хабровчане.

Решил я сделать отправку изображения с канваса на сервер.
А что из этого получилось смотрите под катом.
Читать дальше →
Всего голосов 24: ↑22 и ↓2+20
Комментарии22

Одно из решений проблемы perl^M bad interpeter

Время на прочтение1 мин
Количество просмотров479
Если в Юниксе запустить перловый скрипт, в котором в первой строке #!/usr/bin/perl стоит в конце не "\n", а "\r\n",
то bash выдаст ошибку:

perl^M bad interpeter

Можно заменить "\r\n" на "\n" следующей строчкой:

perl -i -pe "s/\r|\n//g; binmode ARGVOUT" file.txt

А можно просто создать симлинк с именем «perl\r» указывающий на /usr/bin/perl:

ln -s /usr/bin/perl `perl -e 'print "/usr/bin/perl\r"'`
Всего голосов 17: ↑8 и ↓9-1
Комментарии13

Однострочные программы на Perl

Время на прочтение7 мин
Количество просмотров38K

Введение


Я собираюсь рассказать об однострочных программах на Perl. Если вы овладете однострочным Perl`ом, то можете сэкономить кучу времени (я экономлю).

Цель поста — показать как Perl можно использовать заместо find, grep, awk, sed. В конце поста будет написано зачем это надо.
Читать дальше →
Всего голосов 104: ↑95 и ↓9+86
Комментарии45

Информация

В рейтинге
Не участвует
Откуда
Санкт-Петербург, Санкт-Петербург и область, Россия
Работает в
Зарегистрирован
Активность