Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
SlideShare a Scribd company logo

1

Perl для не программистов

2

Perl для не программистов
для ленивых

3

Perl для не программистов
для ленивых
для путешественников

4

Perl для не программистов
для ленивых
для путешественников
для не трудоголиков

5

Perl для не программистов
для ленивых
для путешественников
для не трудоголиков
для тех, кто не любит кодить

6

Perl для не программистов
для ленивых
для путешественников
для не трудоголиков
для тех, кто не любит кодить
кто хочет работать 1 час в
день;))

7

moscow.pm
pause id: mishin
РД Консалтинг
ETL Informatica PC, Oracle
mi@ya.ru
github.com/mishin
mishin.narod.ru
nmishin.livejournal.com/
twitter.com/nmishin

8

- Как создать презентацию не вылезая из любимого
текстового редактора (notepad++, padre, vim).

9

- Как создать презентацию не вылезая из любимого
текстового редактора (notepad++, padre, vim).
- Как perl помогает автоматизировать работу без
написания кода.

10

- Как создать презентацию не вылезая из любимого
текстового редактора (notepad++, padre, vim).
- Как perl помогает автоматизировать работу без
написания кода.
- Пара скриптов, которые облегчают работу на разных
платформах.

11

- Как создать презентацию не вылезая из любимого
текстового редактора (notepad++, padre, vim).
- Как perl помогает автоматизировать работу без
написания кода.
- Пара скриптов, которые облегчают работу на разных
платформах.
- Те же скрипты на perl6.

12

- Как создать презентацию не вылезая из любимого
текстового редактора (notepad++, padre, vim).
- Как perl помогает автоматизировать работу без
написания кода.
- Пара скриптов, которые облегчают работу на разных
платформах.
- Те же скрипты на perl6.
- Автоматизация и тестирование Firefox.

13

Помните
Ригу?

14

1) Stump

15

stump.input <<
This is a Sample Stump Speech!
This is the first slide...
Wanna See a Picture?
There's One on the next Slide:
i:picture.jpg
>>

16

Не работает под windows
stump init
Can't open file 'stump.input' for output:
Permission denied at
C:/Share/Dwimperl/perl/site/lib/Stump.pm line 188
io("$target")->assert->print($file->all);
, хотя http://static.cpantesters.org/

17

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

18

Тесты под него походят, хотя это и
неудивительно, ведь там 1 тест
use_ok.t
Да и к тому же

19

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

20

Кстати, сейчас я работаю под виндоус
http://dwimperl.com/

21

perl -e "print $^O"

22

perl -e "print $^O" MSWin32

23

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};"

24

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};" MSWin32

25

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};" MSWin32
perl -e "use Config;print
qq{$Config{osname}n};print
qq{$Config{archname}n};"

26

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};" MSWin32
perl -e "use Config;print
qq{$Config{osname}n};print
qq{$Config{archname}n};"
MSWin32
MSWin32-x86-multi-thread

27

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};" MSWin32
perl -e "use Config;print
qq{$Config{osname}n};print
qq{$Config{archname}n};"
MSWin32
MSWin32-x86-multi-thread
perl -e "use Sys::Info::OS;my $os = Sys::Info::OS-
>new(%options);print $os->name( long => 1 );"

28

perl -e "print $^O" MSWin32
perl -e "use English qw' -no_match_vars ';print
qq{$OSNAME};" MSWin32
perl -e "use Config;print
qq{$Config{osname}n};print
qq{$Config{archname}n};"
MSWin32
MSWin32-x86-multi-thread
perl -e "use Sys::Info::OS;my $os = Sys::Info::OS-
>new(%options);print $os->name( long => 1 );"
Windows XP Service Pack 3 build 2600

29

2) OpenOffice::OODoc

30

2) OpenOffice::OODoc
http://search.cpan.org/~jmgdoc/OpenOffice-
OODoc/OODoc/Intro.pod
http://jean.marie.gouarne.online.fr/doc/oodoc_guide.
odt
perl -e "use OpenOffice::OODoc;odfContainer(
qq{show.odp}, create => 'presentation' )->save;“

31

2) OpenOffice::OODoc
This is a Sample Stump Speech!
This is the first slide...
Wanna See a Picture?
There's One on the next Slide:
i:picture.jpg

32

https://gist.github.com/mishin/5925874

33

https://rt.cpan.org/Public/Bug/Display.html?id=577
12
OpenOffice::OODoc in not
compatible with the last
OpenOffice.org "extended 1.2"
ODF format.

34

3) PDF::API2, perldoc PDF::API2
http://alexander-
simakov.blogspot.ru/2010/08/pdf-perl.html
https://gist.github.com/mishin/5919047

35

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

36

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

37

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

38

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

39

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

40

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

41

perl create_pdf.pl

42

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

43

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

44

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

45

Правда пока я писал презентацию Indy написал
Vroom - Slide Shows in Vim
На это надо будет посмотреть
ingydotnet/vroom-pm
https://github.com/ingydotnet/vroom-pm

46

- Как perl помогает автоматизировать работу без
написания кода.

47

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

48

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

49

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

50

https://github.com/dk

51

https://github.com/dk/Win32-GuiTest/tree/master/Recorder

52

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

53

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

54

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

55

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

56

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

57

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

58

Жмем Ctrl+Alt+R

59

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

60

https://gist.github.com/mishin/5919976
replace_shortcut.pl

61

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

62

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

63

Создаем ассоциацию расширения .pl с perl.exe

64

Создаем ассоциацию расширения .pl с perl.exe
assoc .pl=PerlScript

65

Создаем ассоциацию расширения .pl с perl.exe
assoc .pl=PerlScript
ftype PerlScript=c:ShareDwimperlperlbinperl.exe"%1"
%*

66

Создаем ассоциацию расширения .pl с perl.exe
assoc .pl=PerlScript
ftype PerlScript=c:ShareDwimperlperlbinperl.exe"%1"
%*
set PATHTEXT=%PATHTEXT%;.PL

67

Создаем ссылку на файл в папке стандартные

68

Задаем клавиатурную комбинацию для быстрого запуска

69

- Пара скриптов, которые облегчают работу на разных
платформах.

70

Организация ежедневных записей по работе
https://gist.github.com/mishin/5853196
create_today_file.pl висит на ctrl-alt-t

71

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

72

Ctrl-D

73

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

74

create_today_file.p6

75

create_today_file.p6
Perl6 жив!!!

76

create_today_file.p6
Perl6 жив!!!
http://perl6maven.com/getting-
started-with-rakudo-star-2013-01-
on-windows

77

create_today_file.p6
Perl6 жив!!!
http://perl6maven.com/getting-
started-with-rakudo-star-2013-01-
on-windows
установщик модулей panda
тоже работает

78

create_today_file.p6
https://gist.github.com/mishin/5920950

79

Хотелось бы синхронизировать с
google documents
Есть googlecl (Command line tools
for the Google Data APIs)
использующий web-services
Думаю, что это можно написать на
perl

80

- Автоматизация и тестирование Firefox.
используя модуль WWW::Mechanize::Firefox
Нужно установить допольнение к firefox
http://wiki.github.com/bard/mozrepl
https://addons.mozilla.org/en-US/firefox/addon/mozrepl/

81

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

82

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

83

И модуль cpanm WWW::Mechanize::Firefox
(p.s. cpanm ставится: cpan App::cpanminus)
https://gist.github.com/mishin/5925468
Скачиваем первые 10 ссылок с яндекса:

84

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

85

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013

86

WWW::Mechanize::Firefox
это удобно, когда ваш выход в интернет идет через кучу
прокси и libwwwperl их просто не может прожевать

87

moscow.pm
pause id: mishin
РД Консалтинг
ETL Informatica PC, Oracle
mi@ya.ru
https://github.com/mishin
mishin.narod.ru
Спасибо за внимание

More Related Content

Perl для не программистов. Николай Мишин. Moscow.pm 4 июля 2013