forum.lissyara.su

paradox писал(а):брр
а зачем удалять их с 20
если их уже нет в 10
)))?

paradox писал(а):tr и sad я незнаю))
поэтому поизвращался бы diff и grep

salvator писал(а):

Код: Выделить всё

#!/usr/bin/perl

use strict;

sub f2a($) {
    open(F, shift) || die $!;
    my @i = <F>;
    chomp @i;
    close(F10);
    return @i;
}

my %h10 = map { ($_=>1) } f2a("10");
print join "\n", grep {!defined($h10{$_})} f2a("20");
print "\n";

Так... и чо оно делает? Выдало список ипов... это кто?

paradox писал(а):

Так... и чо оно делает? Выдало список ипов... это кто?

)))
типа нашло ипы которых нет ни в 10 ни в 20?

dikens3 писал(а):

Код: Выделить всё

#!/bin/sh

file1="10"
file2="20"
tmp_file="tmp"

ip_file1=$(cat $file1)

for i in $ip_file1
    do
    sed /"$i"/D $file2 > $tmp_file
    mv $tmp_file $file2
    done

LMik писал(а):

dikens3 писал(а):

Код: Выделить всё

#!/bin/sh

file1="10"
file2="20"
tmp_file="tmp"

ip_file1=$(cat $file1)

for i in $ip_file1
    do
    sed /"$i"/D $file2 > $tmp_file
    mv $tmp_file $file2
    done

На перле быстрее в разы отработало...

так извините, здесь вы в цикле запускаете sed и mv - огромные расходы на fork();
а в случае с перлом - все работает в одном процессе

dikens3 писал(а):Если что-то смешно, тогда можно отправиться туда и повеселиться. Лично мне что в голову пришло, то и написал. Тем более perl я не знаю. Да и сами скрипты не писал уже года 2.

salvator писал(а):

dikens3 писал(а):Если что-то смешно, тогда можно отправиться туда и повеселиться. Лично мне что в голову пришло, то и написал. Тем более perl я не знаю. Да и сами скрипты не писал уже года 2.

Я не в коем случае не хотел поднимать вопросы качества программирования или инструментов для написания скриптов. Использование вызовов внешних программ - особенность шелл скриптов и никуда от них не уйдешь. Но это добавляет им простоты и гибкости.

LMik писал(а):Теперь интересует конструкция сравнения файла 10 и 20 и выдергивания из файла 10 ипов которых нет в 20.

#!/usr/bin/perl

use strict;

sub f2a($) {
    open(F, shift) || die $!;
    my @i = <F>;
    chomp @i;
    close(F10);
    return @i;
}

my ($f1, $f2) = @ARGV;

my %h10 = map { ($_=>1) } f2a($f1);
print join "\n", grep {!defined($h10{$_})} f2a($f2);
print "\n";

salvator писал(а):

LMik писал(а):Теперь интересует конструкция сравнения файла 10 и 20 и выдергивания из файла 10 ипов которых нет в 20.

тот же скрипт фактически. аргументы местами поменяйте

LMik писал(а):я тоже так сначала подумал, а вот нифига Не работает так.

$ cat kk.pl
#!/usr/bin/perl

use strict;

sub f2a($) {
    open(F, shift) || die $!;
    my @i = <F>;
    chomp @i;
    close(F10);
    return @i;
}

my ($f1, $f2) = @ARGV;

my %h10 = map { ($_=>1) } f2a($f1);
print join "\n", grep {!defined($h10{$_})} f2a($f2);
print "\n";

$ cat 10 
1.2.3.4
5.4.3.2
5.6.7.8
n1.2.3.4
n5.4.3.2
n5.6.7.8

$ cat 20
1.2.3.4
1.2.3.4
1.2.3.4
1.2.3.4
1.2.3.4
1.2.3.4
5.4.3.2
5.6.7.8
5.4.3.2
5.6.7.8
5.4.3.2
5.6.7.8
5.4.3.2
5.6.7.8
5.4.3.2
5.6.7.8
5.4.3.2
5.6.7.8

$ ./kk.pl 20 10
n1.2.3.4
n5.4.3.2
n5.6.7.8

salvator писал(а): Показывает те, которые есть в 10 и нет в 20

в 10
10.11.12.13
10.11.12.14
10.11.12.15
10.11.12.16

в 20
10.11.12.13
10.11.12.14

10.11.12.15
10.11.12.16