Как провести проверку в строке?

Question

[Дмитрий Кузьмин]

Есть строка:
0000000000000000;39999999999;2;NONE;true;526;246;101;100;2;1;;;;;;8;101/100.000.99.99;246/000.000.122.122

Все значения могут меняться.
Нужно каким-то образом сравнивать часть строки, содержащую: 526;246;101;100;2;1 с частью строки, содержащей значения до слеша, т.е в данном случае 101 и 246 (кусок строки 101/100.000.99.99;246/000.000.122.122)
И если в первом куске строки (526;246;101;100;2;1) есть такие же значения как во втором куске строки 101 и 246 (кусок строки 101/100.000.99.99;246/000.000.122.122) удалять их из первого куска строки.

Т.е на выходе должна быть в данном случае строка: 0000000000000000;39999999999;2;NONE;true;526;;;100;2;1;;;;;;8;101/100.000.99.99;246/000.000.122.122

Comments

[Дмитрий Шицков]

Количество полей в строке всегда одинаковое?

Answer 1

[Leks]

Проще всего наверное с помощью awk разобрать строку по разделителю ";" сравнить что вам нужно и собрать обратно.

если совсем в лоб:

#!/bin/bash


a="0000000000000000;39999999999;2;NONE;true;526;246;101;100;2;1;;;;;;8;101/100.000.99.99;246/000.000.122.122"

b=`echo $a | awk -F ";" '{print $7"-"$8}'`

c=`echo ${a} | awk -F ";" '{print $18}' | awk -F "/" '{print $1}'`

d=`echo ${a} | awk -F ";" '{print $19}' | awk -F "/" '{print $1}'`

if [[ "$b" == "$d"-"$c" ]]
then

echo $a | awk -F ";" '{print $1 ";" $2 ";" ";" $3 ";" $4 ";" $5 ";" $6 ";" ";" ";" ";" $9 ";" $10 ";" $11 ";" $12 ";" $13 ";" $14 ";" $15 ";" $16 ";" $17 ";" $18 ";" $19}'

fi

Comments

[Дмитрий Кузьмин]

Я думал так. Но, получается как-то чертовски громоздко с кучей условий.

[CityCat4]

Дмитрий Кузьмин: Ну на перле можно... Но все равно - громоздкость-то не от языка, а от задачи. Нарисуйте блок-схему - и увидите

Answer 2

[pcdesign]

my $str = '0000000000000000;39999999999;2;NONE;true;526;246;101;100;2;1;;;;;;8;101/100.000.99.99;246/000.000.122.122';

 
#-------------------------------------------------------------------------------
#  Заменили дроби на ;
#-------------------------------------------------------------------------------
$str =~ s!/!;!gx;


#-------------------------------------------------------------------------------
#  Получили один большой массив
#-------------------------------------------------------------------------------

my (@arr) = split ';', $str;


#-------------------------------------------------------------------------------
#  Получаем дубликаты
#-------------------------------------------------------------------------------

my %seen = ();
my @dup = map { 1==$seen{$_}++ ? $_ : () } @arr;

say Dumper @dup;

На перле примерно так. Дальше сами справитесь?

Comments

[Дмитрий Кузьмин]

Думаю да. Спасибо.