Заметки по perl:

[nmishin]

1. Для отсылки отчетов на сервер использовать
http://wiki.cpantesters.org/wiki/TestDuringInstall
http://blogs.perl.org/users/kirk_kimmel/2011/07/when-module-installation-fails.html

2. если ошибка
"-T" is on the #! line, it must also be used on the command line at t\00-load.t line 1.

то нужно запускать так perl -T -Ilib t\00-load.t
http://iderror.com/errors/perl/t-is-on-the-line-it-must-also-be-used-on-the-command-line/

3. Перенаправить ошибки в лог(win7):
2>&1
Use of uninitialized value in pattern match (m//) at C:/strawberry/perl/vendor/lib/Encode/Locale.pm line 44.
t\add_header.t .. ok
All tests successful.
Files=1, Tests=4, 1 wallclock secs ( 0.03 usr + 0.03 sys = 0.06 CPU)
Result: PASS

%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;
C:\strawberry\c\bin;C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;
C:\Dwimperl\perl\bin;C:\Dwimperl\perl\site\bin;C:\Dwimperl\c\bin;

%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;C:\Dwimperl\perl\bin;C:\Dwimperl\perl\site\bin;C:\Dwimperl\c\bin;

%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;C:\Dwimperl\perl\bin;C:\Dwimperl\perl\site\bin;C:\Dwimperl\c\bin;

4. чтобы однострочники в win7 работали нормально - их нужно запусать в
%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe
http://www.computerperformance.co.uk/windows7/windows7_powershell.htm
How do I run the Windows 7 Explorer shell with Administrator Privileges by default?
http://superuser.com/questions/58933/how-do-i-run-the-windows-7-explorer-shell-with-administrator-privileges-by-defau

http://pastebin.com/vdGFT6eE

perl #App::p; GET http://cpantesters.org/distro/J/JSON-XS.json | p -nE 'dd(uniq JSON::Path->new(q{$.[*].platform})->values($_))'

perl -MData::Dump=dd -MWeather::Google -e '$gw=Weather::Google->new("Frankfurt, Germany",{language => "de"});dd($gw->current)'

https://twitter.com/#!/perloneliner
perl -MMath::Units::PhysicalValue -E '$d1=Math::Units::PhysicalValue->new("100 m"); $d2 = "40 m"; $d3="10 s"; say $d2-$d1; say $d1 - $d3'

perl -MMemory::Usage -e '$m=Memory::Usage->new;$m->record("start");%h = map {($_ => 1)} 1..1E6; $m->record("end");$m->dump'
perl -MLingua::RU::PhTranslit=koi2phtr,phtr2koi -E 'say koi2phtr("Я");say phtr2koi("Ja student")'
perl -MLingua::Any::Numbers=:std -CO -e'printf"$_ %s %s\n",to_string(42,$_),to_ordinal(42,$_)for available'
perl -MLingua::Any::Numbers=:std -CO -e"printf"$_ %s %s\n",to_string(42,$_),to_ordinal(42,$_)for available"
perl -Moose=+DateTime -E 'say for sort grep {!/^_/} __PACKAGE__->meta->get_method_list'
perl -MTime::Piece -e '$now=localtime(time);$then=localtime(time+12345);print (($then-$now)->hours)'
perl -MData::Walker -e '$d=Data::Walker->new;$d->walk(\%INC);$d->cli'
perl -MData::Walker -e "$d=Data::Walker->new;$d->walk(\%INC);$d->cli"
Did you really name your son aaaaaaaaaaaaaaaaaaaaaaaaaaaa! #perl -e '("a" x 50 . "!") =~ m{(.*a){40}}'
perl -MNumber::Format=:all -le 'print format_price(1234.56)'
perl -M-autovivification -e 'exists($h{A}{B}{C}); print %h'

perl -MIO::Compress::Gzip=gzip -e '$_="hello world"; gzip \$_=>"hello.txt.gz"'

%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;C:\strawberry\c\bin;C:\strawberry\perl\site\bin;C:\strawberry\perl\bin

C:\Dwimperl\perl\bin;C:\Dwimperl\perl\site\bin;C:\Dwimperl\c\bin;