ИТ клубочек в рамках клуба

[smile]

є ще дуже швидкий варіант cat file1 file2 | sort | uniq - u
але він спрацює лише коли файл1 без нуликів і з точними, без масок, доменами у файл2.

[smile]

(22-07-2017 22:29)Serhij :  Про що хвилини мова не йде. Проте sed із регекспами грузить залізяку до 100%. awk на тому ж файлі із 75к записів відпрацьовує суб'єктивно швидше. Мені якось він більш подобається. Все в 1 рядок. Трохи складно було самому допетрити, а з прикладом - ідеально запрацювало.

"завжди є більше одного способу щось зробити" ©

Цитата:Зараз гляну чи є в Busybox dd, бо вій якийсь "обрізаний", наприклад diff - відсутній

а dd тут нащо?

[Serhij]

uniq та join теж відсутні
join був би оптимальним. там не потрібно файли сортувати.

---

збрехав
uniq таки є. але як я казав не хотів сортувати файли.

---

---

(22-07-2017 22:40)smile :  а dd тут нащо?

так в вашому ж прикладі воно?

[smile]

ну, не знаю. треба міряти час виконання. сумніваюсь, що awk швидше і менш грузить проц, чим sed + grep. але то таке. якщо влаштовує, то нехай.

[smile]

(22-07-2017 22:41)Serhij :  

(22-07-2017 22:40)smile :  а dd тут нащо?

так в вашому ж прикладі воно?

де?

dd в моєму прикладі, це зразок з файлу file2

(22-07-2017 15:19)Serhij :  Дано:
...
file2
bb.com
dd

[Serhij]

Цитата:egrep -v 'bb.com|dd' <tmp1 >tmp2

За деревами не побачив лісу (я про себе)

[smile]

буває.

[smile]

(10-12-2016 22:29)smile :  glpi+fusioninventory

якщо кому треба - я освіжив переклад glpi і плугіна fusioninventory, версії 9.1 і 9.2.

виправив деякі нюанси, особливо в частині обліку картриджів.

по версії 9.1 нові переклади треба брати за посиланнями. по 9.2 вони "самі" туди попадуть.

[smile]

[smile]

возникла у меня потребность в некоем подобии php`ешного htmlspecialchars, но в perl.
получилось, на мой взгляд, изящное и еффективное решение, решил оставить тут, вдруг кому пригодится.

( это не готовый модуль, а фрагмент для отображения идеи )

Код:

my %replacementset = (
    '<' => '&lt;',
    '>' => '&gt;',
    '&' => '&amp;',
    # и т.д.
);
my $matchset = '(['.join('', keys(%replacementset)).'])';
sub htmlspecialchars($) {
    my $t = shift;
    $t =~ s/$matchset/$replacementset{$1}/sg;
    return $t;
};
my $test = '<tr><td>&nbsp;</td></tr>';
print "$test => ", htmlspecialchars($test),"\n";