Похожие на cubiccatСкрипт для конвертирования видео-файлов в mp4
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
cubiccat 02.05.2011 20:42

СкриптыСкрипт-генератор брошюр из простого документа

На самом деле скрипт с документом никак не взаимодействует. Он только создает списки страниц, а вы их распечатываете.
Полностью.
+ 8 -
12
30.07.2009 22:07

_bvz_Дружим MPlayer и Screensaver

В общем, проблема была в том, что при работе MPlayer screensaver среды GNOME всё время норовил испортить просмотр своим внезапным появлением. Такая же ситуация наблюдалась и при работающем xscreensaver.
Полностью.
+ 6 -
33
Ymilij 23.04.2010 15:06

СкриптыOSD для mocp с использованием libnotify

Небольшой скрипт, выводящий аккуратные уведомления о проигрываемом треке при смене этого самого проигрываемого трека в mocp (Music On Console Player - мой любимый).
Аккуратно выводит информацию и при отсутствии тегов в файле.
Работает с использование libnotify и perl.
Полностью.
+ 1 -
22
1 2 3 4 5 6