Архив рубрики: Разработка

Как запустить Catalyst приложение в отладочном режиме и не перезапускать при изменении файлов

./script/myapp_server.pl -r -d

./script/myapp_server.pl —help — покажет много других полезных опций

В данном примере приложение называется MyApp.

Изучаем Perl. Упражнения к главе 3.

Перечитывая в 3-ий раз «Изучаем Perl» решил пройтись по всем упражнениям, которые там приводятся. Бубликую здесь свои варианты решения.

п.с. Парсер блогера вырезает строку STDIN, заключенную в знаки <> =(

1.

use strict;
use warnings;
use 5.010;
say 'Enter some lines!';
my @lines = ; 
say "Reversed lines is @lines";

2.

use strict;
use warnings;
use 5.010;
my @names = qw/Perl Php Python Ruby C++ C Shell/;
say 'Enter some numbers:';
chomp(my @numbers = ); 
say 'You favorite languages is:';
foreach(@numbers){
    say $names[$_] if $names[$_];   
}

3.

use strict;
use warnings;
use 5.010;
say 'Input some strings!';
chomp(my @strings = 'STDIN');
@strings = sort @strings;
say "Sorted strings is: @strings";

jQuery создаем фильтры

Короткий и простой видео-ролик о том, как создавать фильтры в jQuery.

http://net.tutsplus.com/tutorials/javascript-ajax/quick-tip-dissecting-jquery-filters/

Особенно запомнилась проверка на «пустоту» объекта в JavaScript:

var data = {}; // создаем объект
 for(var i in data) return true;
 // если входим в цикл - значит что-то есть в объекте

Perl. Восстановление переменной в цикле 

use strict;
use warnings;
use 5.010;
my @languages = qw/Perl PHP Ruby/;
my $lang = 'Python';
foreach $lang (@languages){
    say $lang;
}
say '===========Loop is end!==========';
say $lang;

В результате получим:

Perl
PHP
Ruby
===========Loop is end!==========
Python

Таким образом Perl, при входе в цикл foreach сохраняет значение управляющей переменной, а после выхода из цикла восстанавливает ее.
Кроме того при модификации управляющей переменной — меняется и элемент массива:

use strict;
use warnings;
use Data::Dumper;
use 5.010;

my @languages = qw/Perl PHP Ruby/;
my $lang = 'Python';
foreach $lang (@languages){
    $lang = "$lang is cool!" if $lang eq 'Perl';
    say $lang;
}
say Dumper(\@languages);

Получим:

Perl is cool!
PHP
Ruby
$VAR1 = [
‘Perl is cool!’,
‘PHP’,
‘Ruby’
];