Записки проperl

если в слове хлеб сделать четыре ошибки...

Fri, 11 May 2012 07:26:41 GMT

то получится слово пиво.


# setopt multibyte
# touch пиво
# print -l (#a4)хлеб
пиво
#

# — в скобках модификатор

4 — количество шибок, которые можно совершить при поиске

ps.

# [[ mislpeld == (#a3)misspelled ]] && print yes
yes
# [[ mislpeld == (#a2)misspelled ]] && print yes    
#

Генерация имен хостов для ssh-дополнений

Thu, 10 May 2012 07:19:09 GMT

Перечитал zshexpn, приемы для работы с файлами.

В zsh можно сконфигурировать стиль для дополнений ssh, который по tab генерирует дополнения для, например, имени хоста. Логично брать их из ~/.ssh/config и ~/.ssh/known_hosts.

Форматы пересказывать не буду, их можно посмотрать по манам.
1. Разбор ~/.ssh/config, будем брать имена из строки Host name:
${${"${(@M)${(f)"$(< ~/.ssh/config)"}:#Host[[:space:]]#[[:alnum:]]#}"}##* }

Легенда:

$(< ~/.ssh/config) читаем файл, результат — массив строк, разбитых по пробелам

"$(< ~/.ssh/config)", результат — файл, как он есть, без разбивки

${(f)"$(< ~/.ssh/config)} — разбиваем контент по строкам, получаем массив строк

${(@M)${(f)"$(< ~/.ssh/config)"}:#Host[[:space:]]#[[:alnum:]]#} — удаляем все, что не попадает под выражение Host[[:space:]]#[[:alnum:]]#:
- В zsh можно использовать классы символов, как [:space:] класс пробелов и [:alnum:] класс алфавитно-цифровых символов. Символ # после класса обозначает повторение, для pcre это совпадает с Host\s+\w+
- :# удалят из массива совпадающие с паттерном элементы, флаг M меняет действие на противоположное, удаляет не совпадающие элементы
- Флаг @ показывает, что имеем дело с массивом.
Результат:
```
# print -l ${"${(M@)${(f)"$(< ~/.ssh/config)"}:#Host[[:space:]]#[[:alnum:]]#}"}     
Host roof
Host arto
Host book
Host sut
Host ftp2
...
```

${${"${(M@)${(f)"$(< ~/.ssh/config)"}:#Host[[:space:]]#[[:alnum:]]#}"}##* } — удаляет в каждом элементе массива подстроку сначала и до последнего пробела, оставляя имя хоста:
```
# print -l ${${"${(M@)${(f)"$(< ~/.ssh/config)"}:#Host[[:space:]]#[[:alnum:]]#}"}##* }
roof
arto
book
sut
ftp2
...
```

Для perl это будет выглядеть так: perl -lne 'm#Host\s+(\w+)# && print $1' ~/.ssh/config, но порождается один дополнительный процесс.

2. Разбор ~/.ssh/known_hosts, хотим брать нормальные имена хостов, ip-адреса и адреса с портом ([host]:port) брать не будем:

# print -l ${${${"${(f)"$(< ~/.ssh/known_hosts)"}"%%[ ,]*}:#\[*\]:*}:#[0-9]#.[0-9]#.[0-9]#.[0-9]#} 
roof.***.ru
book.***.ru
cube.***.ru
ftp2.***.ru
...

Легенда:

$(< ~/.ssh/known_hosts) — читаем весь файл, с разбивкой по пробелам

"$(< ~/.ssh/known_hosts)" — весь файл без разбивок

${(f)"$(< ~/.ssh/known_hosts)"} — разбиваем контент по строчкам

"${(f)"$(< ~/.ssh/known_hosts)"}" — экранируем каждый элемент массива (там могут попадаться спецсимволы, например [ и ]), результат:
```
# print -l "${(f)"$(< ~/.ssh/known_hosts)"}"
roof.***.ru,195.***.130 ssh-dss AAAAB3NzaC1kc3MAAAC...
book.***.ru,195.***.246 ssh-rsa AAAAB3NzaC1yc2EAAAA...
...
```

${"${(f)"$(< ~/.ssh/known_hosts)"}"%%[ ,]*} — удаляем теги и ключи, всё после пробела или запятой (%%[ ,]*)

${${"${(f)"$(< ~/.ssh/known_hosts)"}"%%[ ,]*}:#\[*\]:*} — удаляем (#:) все элементы массива, совпадающие с паттерном (\[*\]:*, например [www.abc.ru]:22222)

${${${"${(f)"$(< ~/.ssh/known_hosts)"}"%%[ ,]*}:#\[*\]:*}:#[0-9]#.[0-9]#.[0-9]#.[0-9]#} — удляем элементы массива (#:) совпадающие с ip-адресом ([0-9]#.[0-9]#.[0-9]#.[0-9]#)

Теперь можно проверить:


# zstyle ':completion:*:(ssh|scp|sftp):*' hosts ${(o)${${"${(f)"$(< ~/.ssh/known_hosts)"}"%%[ ,]*}:#\[*\]:*}:#[0-9]#.[0-9]#.[0-9]#.[0-9]#}
# ssh <TAB>
roof.***.ru    book.***.ru    cube.***.ru    ftp2.***.ru
...

JFYI

Wed, 09 May 2012 08:28:41 GMT

В zsh появился новый флаг квалификации глобов — F, непустой каталог.
Т. е. теперь можно удалить все пустые каталоги одной командой:


zsh# rmdir *(/N^F)

Легенда:

* — все файлы в текущем каталоге

/ — из них все каталоги

N — если ничего не встретилось, то не генерим ошибку

^F — из оставшегося выбираем только пустые каталоги

Удобно.
Время перечитать внимательно zshexpn и zshcontrib :).

Яндекс почта

Wed, 02 May 2012 17:17:42 GMT


# for i in {1..100}; do
  HEAD http://mailstatic.yandex.net/neo/1.12.9/v2/page/common.css | \
  head -1; done | grep 404 | wc -l; done
20
#

Нахождение простых чисел

Tue, 14 Feb 2012 21:42:21 GMT

решето эратосфена (числа не больше данного)


#  perl -le '@a = ( 2..$ARGV[0] );
  while (@a) { my $a = shift @a; $a ? print $a : next;
  for (my $i = $a-1; $i < $#a+1; $i += $a) { $a[$i] = 0 } }' 100
2
3
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97
#

Прямое вычисление (количество чисел):


# perl -le '@a = ( $n = 2 );
  n: while ($n++, $#a < $ARGV[0]-1) {
    foreach (@a) { next n if ($n%$_ == 0) }
    push @a, $n 
  }
  END{ print join "\n", @a }' 25
2
3
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97
#

Ну и сравнение производительности:
Решето:
Real: 0.35s User: 0.32s System: 0.01s Percent: 97%% Cmd: perl -le 102400
Прямое вычисление:
Real: 17.65s User: 17.56s System: 0.00s Percent: 99%% Cmd: perl -le 9805

Задачка

Wed, 25 Jan 2012 08:26:50 GMT

есть 2 бесконечно больших текстовых файла отсортированных лексикографически.
Нужно найти разницу и записать в файлы.


open A, shift or die;
open B, shift or die;

my $h = 0;
while (!(eof(A) && eof(B)) ) {
    ( $a, $b ) = $h == 0 ?
        ( scalar <A>, scalar <B> ) : $h == 1 ?
        ( $a, scalar <B> ) : ( scalar <A>, $b );
    print "< $a" and next unless (defined $b);
    print "> $b" and next unless (defined $a);
    $h = $a cmp $b or next;
    print $h == 1 ? "> $b" : "< $a";
}

в принципе, можно сократить 2 строчки, но было лень разбираться с $h = $a cmp $b or next;...

Look-Around Assertions в операторе s///

Fri, 20 Jan 2012 06:21:22 GMT

До сих пор не задумывался на эту тему, но работает. Пример:
Задание: Удалить все знаки «+», за которыми следует цифра.


# perl -le '$ARGV[0] =~ s#\+(?=\d)##g && print $ARGV[0]' "+test + +12 +13 ++"
+test + 12 13 ++
#

Задачка про CIDR

Thu, 22 Dec 2011 06:35:59 GMT

Отсюда:
Задача такова: есть ASCIIZ-строка с IP-адресом, надо вернуть true, если этот адрес попадает в один из диапазонов, перечисленных в файле.

Файл текстовый такого формата,

192.168.1.3,192.168.1.5
192.168.2.4,193.0.0.3

Файл не отсортирован, дипапазоны произвольные и могут пересекаться. Первый адрес меньше второго или равен ему. Пересечение диапазонов можно обрабатывать двумя путями: лиюо отказываться грузить такой файл и выдавать что с чем пересеклось, либо не отказываться и корректно работать в таких условиях.

Файл грузится один раз и потом десятки миллионов раз лукапится. Записей в конфиге - сотни.

Решение:


# cat > z.pl
#! /usr/bin/perl

use Net::Patricia;
use Net::CIDR::Lite;

my $pt = new Net::Patricia;
my $cidr = new Net::CIDR::Lite;

open F, shift or die;
while () {
        chomp; s#,#-#;
        foreach my $m ($cidr->add_range($_)->list) { $pt->add_string($m) }
}

foreach (<>) {
        chomp;
        print $_, ":", $pt->match_string($_) ? "YES" : "NO", "\n";
}
^D
# perl z.pl /tmp/ip.range =( print -l 192.168.1.1 192.168.1.4 )
192.168.1.1:NO
192.168.1.4:YES
# perl -le 'foreach (0..$ARGV[0]) { printf "%d.%d.%d.%d\n", rand()%255, rand()%255, rand()%255, rand()%255 }' 10240000 >| /tmp/ip.list
# wc -l /tmp/ip.list
10240001 /tmp/ip.list
# time perl z.pl /tmp/ip.range /tmp/ip.list >| /dev/null
Real: 120.10s User: 105.21s System: 1.31s Percent: 88%% Cmd: perl z.pl /tmp/ip.range /tmp/ip.list >| /dev/null
#

PS. Вкралась ошибка: неправильно сгенерил список ip адресов, надо

# perl -le 'foreach (0..$ARGV[0]) { printf "%d.%d.%d.%d\n", int(rand(255)), int(rand(255)), int(rand(255)), int(rand(255)) }' 10240000 >| /tmp/ip.list

Результат:

# time perl z.pl /tmp/ip.range /tmp/ip.list >| /dev/null
Real: 176.98s User: 153.23s System: 2.20s Percent: 87%% Cmd: perl z.pl /tmp/ip.range /tmp/ip.list >| /dev/null

PS2. Скорость слабо зависит от количества сетей:


# for i in {1..300}; do a=$[ $RANDOM%255 ]; b=$[ $RANDOM%255 ]; c=$[ $RANDOM%254 ]; d=$[ $RANDOM%254 ]; print "$a.$b.$c.$d,$a.$b.$[$c+1].$[$d+1]"; done >| /tmp/ip.range2
# time perl z.pl /tmp/ip.range2 /tmp/ip.list >| /dev/null
Real: 187.54s User: 173.13s System: 1.98s Percent: 93%% Cmd: perl z.pl /tmp/ip.range2 /tmp/ip.list >| /dev/null
#

Версия пакета в package.

Thu, 17 Nov 2011 05:59:25 GMT

Можно теперь писать так:


package Package 1.23;
...
print $VERSION, "\n";
...
1;

Но версия в таком операторе не вычисляется, там надо писать именно число.
Т.е. такое выражение даст ошибку:


package Package qw$Revision: 1.23 $[1];

разбор ini-файла

Thu, 20 Oct 2011 13:42:30 GMT

Простейший ini-файл:

# Comment
Param1 = Value1

[Section1]

Param2 = Value2
LongParam = Very \
                         Long \
                         Param

[Section2]
Param3 = Value3

# perl -MData::Dumper -0777 -lne 's#\#.*?\n##gm; s#\\\n\s+##gsm; my $sect = "__DEFAULT__";
   while (m#(?:(?\w+)\s*=\s*(?.+?)\s+$|\[(?\w+)\])#gm) {
     $sect = $+{sect} || $sect; $hash{$sect}->{$+{name}} = $+{value} if exists $+{name}
   } print Dumper \%hash' /tmp/a.ini
$VAR1 = {
          'Section1' => {
                          'LongParam' => 'Very Long Param'
                        },
          'Section2' => {
                          'Param3' => 'Value3'
                        },
          '__DEFAULT__' => {
                             'Param1' => 'Value1'
                           }
        };
#

Или в виде функции:

sub ini ($) {
  local $_ = do { local $/; open F, $_[0] and  };
  s#\#.*?\n##gm; s#\\\n\s+##gsm;
  my $sect = "__DEFAULT__"; 
  my %hash;
  while (m#(?:(?\w+)\s*=\s*(?.+?)\s+$|\[(?\w+)\])#gm) {
    $sect = $+{sect} || $sect;
    $hash{$sect}->{$+{name}} = $+{value} if exists $+{name}
  }
  return \%hash;
}

Различие .. и ... в perl

Wed, 31 Aug 2011 08:56:24 GMT


zsh# print -l "AA BB" "test" "BB" | perl -lne 'print if (/AA/ .. /BB/)'
AA BB
zsh# print -l "AA BB" "test" "BB" | perl -lne 'print if (/AA/ ... /BB/)'
AA BB
test
BB
zsh#

разница только во времени вычисления правой части.

perldoc perlop: If you don't want it to test the right operand until the next evaluation, as in sed, just use three dots ("...") instead of two. In all other regards, "..." behaves just like ".." does.

killapache

Thu, 25 Aug 2011 14:14:23 GMT


# grep killapache /etc/httpd/modsecurity.d/modsecurity_localrules.conf
SecRule REQUEST_HEADERS:Range "@rx bytes=.+?,.+?," "drop,log,noauditlog,msg:'killapache range attack',status:417"
#

как работает -- дропает соединение, если в заголовке больше чем два диапазона.

да, mod_security полезный модуль :)

Tue, 09 Aug 2011 11:43:03 GMT

программка, которая просит ввести числа в массив, а когда вводится пустая строка, спрашивает имя файла и записывает в него этот массив

однострочник:


# perl -lne '$_ ? push @a, $_ : do { print "File? "; $_=<>; chomp; open F, ">", $_ and print F "@a"; exit }'
1
2
3

File? 
AA
# cat AA
1 2 3
#

интересно, можно короче?

-F

Mon, 08 Aug 2011 05:56:02 GMT

Есть файл типа


ERD_Sovetsk_22 Power: OK
ERD_Lenina_31 Power: PROBLEM
ERD_Svobody_1 Power: OK
Kommynist_33 is access: PROBLEM
ERD_Sovetsk_100 Power: PROBLEM
ERD_Partizan_98 Power: PROBLEM
Marksa_4 is access: PROBLEM
Revolucii_67 is access: PROBLEM
Marksa_4 is access: PROBLEM
Revolucii_67 is access: OK

Раскидать значения по статусу.

однострочник:


# perl -aF":\\s+" -lne 'push @{$a{$F[1]}}, $F[0];
  END{ print STDERR "PROBLEM: ", join ",", @{$a{PROBLEM}};
       print "OK: ", join ",", @{$a{OK}}; }' file

основную работу делает -aF":\\s+" и push, которые делят входящие строки и распихивают их по статусу в %a.

:)

Получение первых N байт по http

Mon, 01 Aug 2011 13:36:41 GMT


#! perl

use LWP::UserAgent
use Try::Tiny

my $chunk;
try { new LWP::UserAgent()->get ($url, ':content_cb' => sub { $chunk = $_[0]; die },
                                       ':read_size_hint' => 32); };

однострочник.


# perl -MLWP::UserAgent -le 'try { new LWP::UserAgent()->get ($ARGV[0], \
  '':content_cb'' => sub { print  $_[0]; exit }, '':read_size_hint'' => $ARGV[1]); }' \
  http://www.google.fi/images/srpr/logo2w.png 32 | file -
/dev/stdin: PNG image data, 275 x 95, 8-bit colormap, non-interlaced

"Поиск и замена текста на новый во многих файлах в unix"

Thu, 23 Jun 2011 12:55:26 GMT

отсюда

Команда найдёт все файлы в текущем каталоге и подкаталогах, содержащие OLD_TEXT и заменит строку "OLD_TEXT" на "NEW_TEXT":
grep -HR OLDTEXT ./ | awk '{print $1}' | sed 's/:.*$//' | grep -v '~' | sort | uniq | xargs perl -i -pe "s/OLD_TEXT/NEW_TEXT/g;"

мне кажется, что ужасно. мое решение:


grep -rl OLDTEXT . | xargs perl -i -pe "s/OLD_TEXT/NEW_TEXT/g;"

если хочется убрать ненужные файлы, то вставить grep -Ev '(~|.o|.a)$', по вкусу.

ps. а sed 's/:.*$//' эффективно прибъёт файлы с двоеточием в имени.

pps. gnu grep умеет -Z

:)

Sun, 05 Jun 2011 10:01:28 GMT

Очень нужен perl программист под catalyst framework

Плачу нефтью

отсюда

Дожили :)

Fri, 20 May 2011 13:28:39 GMT


20.05.11
Переобучим с PHP на Perl.
-----
Испытываем дефицит в perl-программистах, если Вы пишете на PHP и желаете выучить
Perl - обучим, дадим проекты на удаленку.
Больше предпочтений Москвичам, в силу возможности обучения при личном присутствии.
http://www.***.ru/***732592

маленькая задачка

Thu, 28 Apr 2011 05:50:47 GMT

Есть текстовый файл. Сформировать массив, хранящий номера строк файла, в которых будет встречаться слово "мель"; в тексте удалить все комментарии, т.е. текст, заключенный между /* и */, включая эти символы.

Решение:


# perl -0777 -lne 'sub fun ($) { local $_ = $_[0]; s#[^\n]+##gsm; return $_; } 
                   s#/\*.*?\*/#fun($&)#gsme;
                   foreach (split "\n") { $n++; m#мель# && print $n,"\n" }' file

PerlBloat

Wed, 30 Mar 2011 19:06:13 GMT


# locate -r "\\.3pm\$" | grep -F "/man/man3" | \
  sed -e "s#^.\\+/##" -e "s#\\.3pm\$##" | \
  xargs -n1 perlbloat 2> /dev/null | sort -h -t" " -k3 -r | head -10
Catalyst::Script::Server added 13.3M
Catalyst::Plugin::Session::Test::Store added 13.3M
Catalyst added 12.1M
Catalyst::View::Email::Template added 12.0M
Catalyst::Script::Test added 12.0M
Catalyst::View::Email added 11.9M
Apache::TestMB added 11.9M
DBIx::Class::Storage::DBI::Replicated added 11.4M
AnyEvent::Impl::Perl added 1020k
DBIx::Class::SQLMaker::LimitDialects added 1012k

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

Tue, 15 Mar 2011 11:58:33 GMT

используем конструкцию (??{ code }); perldoc perlre


# for i in {1..10}; do print "Size: $[ 2**$i ]";
  perl -MBenchmark=timethese -e '$N = int ($ARGV[0]/2);
    @a = map { int rand(1024000) } 0..$ARGV[0];
    @hash{@a} = (1)x($#a+1);
    $re = join "|",keys %hash;
    timethese ($ARGV[1],
      { A => sub { return $a[$N] =~ m#^(\w+)(??{ exists $hash{$1} ? "" : "N/A" })$# },
        B => sub { return $a[$N] =~ m#^$re$# } } )' $[ 2**$i ] 1000000; done
Size: 2
Benchmark: timing 1000000 iterations of A, B...
         A:  3 wallclock secs ( 4.53 usr +  0.02 sys =  4.55 CPU) @ 219780.22/s (n=1000000)
         B:  0 wallclock secs ( 0.63 usr +  0.00 sys =  0.63 CPU) @ 1587301.59/s (n=1000000)
Size: 4
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.54 usr +  0.00 sys =  4.54 CPU) @ 220264.32/s (n=1000000)
         B:  2 wallclock secs ( 1.10 usr +  0.00 sys =  1.10 CPU) @ 909090.91/s (n=1000000)
Size: 8
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.49 usr +  0.02 sys =  4.51 CPU) @ 221729.49/s (n=1000000)
         B:  2 wallclock secs ( 1.16 usr +  0.02 sys =  1.18 CPU) @ 847457.63/s (n=1000000)
Size: 16
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.86 usr +  0.01 sys =  4.87 CPU) @ 205338.81/s (n=1000000)
         B:  2 wallclock secs ( 1.24 usr +  0.00 sys =  1.24 CPU) @ 806451.61/s (n=1000000)
Size: 32
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.53 usr +  0.01 sys =  4.54 CPU) @ 220264.32/s (n=1000000)
         B:  2 wallclock secs ( 1.44 usr +  0.00 sys =  1.44 CPU) @ 694444.44/s (n=1000000)
Size: 64
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.53 usr + -0.01 sys =  4.52 CPU) @ 221238.94/s (n=1000000)
         B:  1 wallclock secs ( 1.76 usr +  0.01 sys =  1.77 CPU) @ 564971.75/s (n=1000000)
Size: 128
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.45 usr +  0.03 sys =  4.48 CPU) @ 223214.29/s (n=1000000)
         B:  3 wallclock secs ( 2.45 usr +  0.00 sys =  2.45 CPU) @ 408163.27/s (n=1000000)
Size: 256
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.54 usr +  0.01 sys =  4.55 CPU) @ 219780.22/s (n=1000000)
         B:  5 wallclock secs ( 3.88 usr +  0.02 sys =  3.90 CPU) @ 256410.26/s (n=1000000)
Size: 512
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.50 usr +  0.02 sys =  4.52 CPU) @ 221238.94/s (n=1000000)
         B:  7 wallclock secs ( 6.64 usr +  0.01 sys =  6.65 CPU) @ 150375.94/s (n=1000000)
Size: 1024
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.56 usr + -0.01 sys =  4.55 CPU) @ 219780.22/s (n=1000000)
         B: 13 wallclock secs (12.27 usr +  0.04 sys = 12.31 CPU) @ 81234.77/s (n=1000000)

резюме: на больших массивах имеет смысл использовать поиск через хеш.

update: при модификаторе /о регулярное выражение выигрывает у хеша, но до определенного размера.


Size: 16384
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.58 usr + -0.01 sys =  4.57 CPU) @ 218818.38/s (n=1000000)
         B:  0 wallclock secs ( 0.90 usr +  0.02 sys =  0.92 CPU) @ 1086956.52/s (n=1000000)
Size: 32768
Benchmark: timing 1000000 iterations of A, B...
         A:  5 wallclock secs ( 4.55 usr +  0.00 sys =  4.55 CPU) @ 219780.22/s (n=1000000)
         B: 239 wallclock secs (237.26 usr +  0.37 sys = 237.63 CPU) @ 4208.22/s (n=1000000)

маленькая задачка

Mon, 28 Feb 2011 16:21:50 GMT

Необходимо прочитать 30-Мб файл в переменную и сделать в переменной мультистрочный поиск...
хочу поймать такие строки:


!КОМАНДА
текст текст текст текст текст текст текст текст текст текст текст текст

Т.е. если строка начинается на "!", то нужно печатать все до тех пор, пока не будет полностью пустая строка (^\s*$).

мое решение:


perl -0000 -lne 'm#^(!.+)#sm && print $1'

т.е. читаем по-параграфно, находим ^! и выбираем от него и до конца.

ps. есть возможность споткнуться о "пустую строку", где буд(е|у)т пробел(ы).

pps.


# ll -h /var/log/messages-20110213 
-rw-------. 1 root root 190M Feb 13 03:12 /var/log/messages-20110213
# perl -lne 'print; print "\n" if (int(rand 100)%5 == 0); ' /var/log/messages-20110213 >| /tmp/test
# ll -h /tmp/test
-rw-r--r--. 1 ocehb wheel 190M Feb 28 16:15 /tmp/test
# time perl -0000 -lne 'm#^(!.+)#sm && print $1' /tmp/test
Real: 1.14s User: 0.18s System: 0.91s Percent: 95%% Cmd: perl -0000 -lne 'm#^(!.+)#sm && print $1' /tmp/test
#

опять задача на перестановки :)

Fri, 25 Feb 2011 16:06:52 GMT

phpшников ищут:

Отбор кандидатов будет включать: выполнение теста на знания, решение двух тестовых задач и личное собеседование. Очень сильно поднимаются Ваши шансы, если пришлете алгоритм словами и php-код решения (или нескольких решений) следующей задачи:

Сделать, чтобы для строки
"{Пожалуйста|Просто} сделайте так, чтобы это {удивительное|крутое|простое} тестовое предложение {изменялось {быстро|мгновенно} случайным образом|менялось каждый раз}."
выдавались все возможные варианты (вложенность не ограничена).

Например, строка "{a|b|c}" порождает три варианта: «a», «b» или «c».
А "{a | b {c|d}}" дает: «a», «b c» и «b d».

мое решение:


# print "{Пожалуйста|Просто} сделайте так, чтобы это {удивительное|крутое|простое} тестовое предложение {изменялось {быстро|мгновенно} случайным образом|менялось каждый раз}." | \
  perl -lne 's#,#\##g; s#\|#,#g; s#\s#_#g; foreach (glob) { s#_# #g; s#\##,#g; print }'
Пожалуйста сделайте так, чтобы это удивительное тестовое предложение изменялось быстро случайным образом.
Пожалуйста сделайте так, чтобы это удивительное тестовое предложение изменялось мгновенно случайным образом.
Пожалуйста сделайте так, чтобы это удивительное тестовое предложение менялось каждый раз.
Пожалуйста сделайте так, чтобы это крутое тестовое предложение изменялось быстро случайным образом.
Пожалуйста сделайте так, чтобы это крутое тестовое предложение изменялось мгновенно случайным образом.
Пожалуйста сделайте так, чтобы это крутое тестовое предложение менялось каждый раз.
Пожалуйста сделайте так, чтобы это простое тестовое предложение изменялось быстро случайным образом.
Пожалуйста сделайте так, чтобы это простое тестовое предложение изменялось мгновенно случайным образом.
Пожалуйста сделайте так, чтобы это простое тестовое предложение менялось каждый раз.
Просто сделайте так, чтобы это удивительное тестовое предложение изменялось быстро случайным образом.
Просто сделайте так, чтобы это удивительное тестовое предложение изменялось мгновенно случайным образом.
Просто сделайте так, чтобы это удивительное тестовое предложение менялось каждый раз.
Просто сделайте так, чтобы это крутое тестовое предложение изменялось быстро случайным образом.
Просто сделайте так, чтобы это крутое тестовое предложение изменялось мгновенно случайным образом.
Просто сделайте так, чтобы это крутое тестовое предложение менялось каждый раз.
Просто сделайте так, чтобы это простое тестовое предложение изменялось быстро случайным образом.
Просто сделайте так, чтобы это простое тестовое предложение изменялось мгновенно случайным образом.
Просто сделайте так, чтобы это простое тестовое предложение менялось каждый раз.
#

шутка :)

Thu, 24 Feb 2011 10:03:54 GMT

ищут работника для

Написание кандидатской работы – Информационная безопасность
Требуется специалист для написания кандидатской работы и научных статей по информационной безопасности. Тематика кандидатской работы: анализ защищенности компьютерной сети методом построения графа атак.

интересно, какой смысле защищаться, если не владеешь материалом
и по специальности работать не будешь?

имхо проще прикупить mba...

нестандартное использование флага -s в install

Sun, 12 Dec 2010 15:03:50 GMT

Если после инсталляции через команду install надо произвести какие-либо действия,
то можно их активировать через флаг(и) -s (—strip и —strip-program).

Например надо перекодировать файл из koi8-r в utf8:


# cat > encode.sh
#! /bin/sh -f
iconv -c -f koi8-r -t utf8 $1 /tmp/tmp.$$
mv -f /tmp/tmp.$$ $1
^D
# chmod +x encode.sh
# install —strip —strip-program=./encode.sh file /install/path/file