Похожие на cubiccatСкрипт для конвертирования видео-файлов в mp4
kstep 06.02.2010 03:24

Tips & tricksПочинка битых символьных ссылок (утилита для юзера — урок для начинающего программера)

У меня иногда так бывает, что после разбора завалов в домашнем каталоге и
перемещения файлов на новые более логичные для них места, требуется
восстановить поломанные ссылки на эти перемещённые файлы.
Чтобы не делать этого ручками, набросал три скрипта: один на перле и два на
шелле.

Полностью.
+ 10 -
13
stasikos 07.08.2010 17:11

СкриптыХайлайты через notify-send в irssi

Так как кое-где еще не нашлось достаточно пользователей irssi, думаю что здесь ему будет полезнее полежать. :)

Благодаря наличию в Irssi поддержки perl-скриптования, можно очень простым
способом, не используя никаких дополнительных модулей или еще чего либо
реализовать довольно-таки удобную функцию уведомления о приватных сообщениях и
хайлайтах через notify-osd, используя приведенный здесь скрипт. Конечно же, вы
можете использовать что угодно вместо notify-osd по вашему желанию, и тогда это
будет лишь небольшим примером того как можно облагородить такой, кажущийся
многим с первого взгляда убогим, IRC-клиент.
Полностью.
+ 3 -
4
assaron 03.06.2009 12:37

Tips & tricksавтоопределение кодировок субтитров

Вы заядлый анимешник? Или любите просто посмотреть фильмы с оригинальной звуковой дорожкой и субтитрами?

Тогда Вы возможно сталкивались с проблемой, что сабы бывают в разных кодировках.

Полностью.
+ 4 -
7
afiskon 15.02.2010 21:07

СкриптыМоя статья: Основы программирования на Perl

По просьбе нескольких своих друзей я написал пост о программировании на Perl. Возможно, кого-то эта тема интересует, в этом случае прошу ознакомиться. Интересует, насколько легко, по-вашему, воспринимается статья, остались ли после прочтения какие-то не совсем ясные моменты и так далее. В общем хотелось бы получить пару объективных отзывов.

Статья под катом
Полностью.
+ 10 -
33
26.01.2011 22:35

ladykoshaПерлушка для превращения текста со всякими &xxx; и &#nnn; в нормальный utf8

1
2
3
4
#!/usr/bin/perl
use HTML::Entities; 
binmode ("STDOUT", ":utf8"); 
print decode_entities(<>);

Полностью.
+ 22 -
6
umren 16.07.2009 02:43

Есть проблема!VirtualBox & Fedora 11

Привет всем! Есть вопрос по поводу Windows HOST & Virtualbox & Fedora 11 как guest.



Видео и Флеш нещадно начинают тормозить после 1-2 минут использования.



Что делал:



1) изменял приоритет процессам.

2) игрался с настройками guest'a (видео память, ОЗУ, любые опции)

3) ставил другие драйверы на видео и звук.



И ничего не помогает! Федора 11 вцелом мне понравилась.. есть идеи?



Заранее спасибо :)



p.s. хост машинка довольно сильная.

p.p.s. в puppy linux и sabayon не тормозит.
+ 0 -
9
afiskon 25.02.2010 20:46

СкриптыОсновы программирования на Perl (часть 2)

Ну вот дошли руки написать продолжение к посту Основы программирования на Perl. В этой части речь пойдет об условных операторах и циклах.
Полностью.
+ 9 -
22
Q2W 26.03.2011 15:01

СкриптыПереключение с/на внешний монитор

У меня в офисе большой мнитор, но работаю я на ноутбуке. Поэтому подключаю его к ноуту.
Так вот почему-то не нашёл я функционала, который автоматически переключал бы изображение с одного монитора на другой.
Собственно поэтому был написан Perl-скрипт:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl

# Переключатель мониторов. При подключении или отключении внешнего монитора нужно вызвать этот скрипт (например, повесить его на
# горячую клавишу или на событие в системе, если такое найдётся) и он переключит изображение либо на внешний монитор, если тот
# подключен, либо на дефолтный, если внешний не подключен.

use strict;
use warnings;

my $defaultMonitorOutput = 'LVDS1';	# Здесь указываем название выхода, к которому подключён дефолтный монитор.
my $externalMonitorOutput = 'VGA1';	# А здесь тот внешний выход, к котором подключаем второй монитор.
					# Имена выходов можно посмотреть в выводе команды "xrandr".

my $xrandr = `xrandr`;	# Вызываем xrandr, дабы узнать, какие мониторы подключены, и какие из них заюзаны

my %connected;		# Те, что подключены, отмечаются xrandr'ом словом "connected"
$connected{$1} = 1 while $xrandr =~ m/^(<^ >+) connected/ogm;

my %used;		# А те, что заюзаны, имеют какое-то разрешение экрана - циферку после "connected"
$used{$1} = 1 while $xrandr =~ m/^(<^ >+) connected \d/ogm;

print "\tПодключённые мониторы:\t".join(', ', keys %connected).".\n\tЗаюзанные мониторы:\t".join(', ', keys %used).".\n";

# Если на внешнем выходе что-то подключили, а заюзан всё ещё тот, что на дефолтном выходе, переключим их.
if($connected{$externalMonitorOutput} and $used{$defaultMonitorOutput})
{
	print "\Заюзаем подключённый $externalMonitorOutput и убираем $defaultMonitorOutput.\n";
	`xrandr --output $externalMonitorOutput --auto`;	# Включаем монитор на внешнем выходе с оптимальный разрешением
	`xrandr --output $defaultMonitorOutput --off`;		# Выключаем монитор на дефолтном выходе
}
# А если на внешнем выходе уже ничего не подключено, а тот, что на дефолтном выходе, ещё не заюзан, переключим обратно.
elsif(!$connected{$externalMonitorOutput} and !$used{$defaultMonitorOutput})
{
	print "\tУбираем отключённый $externalMonitorOutput и заюзаем $defaultMonitorOutput.\n";
	`xrandr --output $defaultMonitorOutput --auto`;		# Включаем монитор на дефолтном выходе с оптимальным разрешением
	`xrandr --output $externalMonitorOutput --off`;		# Выключаем монитор на внешнем выходе
} else {
	print "\tВсё уже ОК, действия не нужны.\n";
}

Перед использованием подставьте свои названия видеовыходов в переменные $defaultMonitorOutput и $externalMonitorOutput в начале скрипта.

Сначала хотел, чтобы он сам обнаруживал подключение внешнего монитора, но узнать об этом событии я смог только периодическим парсингом вывода xrandr, из-за которого всё тормозит пару секунд, хоть и не видно нагрузки.
Так что если кто-то подскажет нормальный способ словить это событие не мешая, будет супер.
Полностью.
+ 5 -
1
muhas 24.07.2009 16:13

Жизнь в консолиЕсть ли жизнь в консоли?

По просьбе exelens решил написать о какой-нибудь "консольной вкусности"



Собственно самая главная для меня консольная вкусность это GNU Screen, но о нём я уже устал писать (кому любопытно тынц), после него идет zsh (о котором на welinux уже писали), потом всё остальное сводится к так называемой мультимедийности и интернету.



Об этом я и хочу поговорить
Полностью.
+ 17 -
13
afiskon 14.03.2010 16:24

СкриптыОсновы Perl. Часть 3 – use strict, ссылки и функции

Продолжение серии статей об основах программирования на Perl. В этой части речь пойдет обо всем, что нужно знать для написания функций. Думаю, в цикл войдет еще одна, максимум две части...
Полностью.
+ 4 -
12
1 2 3 4 5 6