Поиск и удаление элемента массива

Легче будет написать на питоне.

баш отключает мозг ? почему не сделать по нормальному через egrep ?

egrep -v 'igor\.ivanov|gregoriy\.pavlov' /usr/local/script/user_list.csv

И ещё проще — на Perl.

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

хотелось сделать читаемо
bash

Отказано.

В job

Ну сделай цикл с грепом, будет читаемо. Ну или собиралку регекспа для грепа.

https://stackoverflow.com/questions/2696055/intersection-of-two-lists-in-bash не ?

Спасибо. Что-то похожее на правду.

Вообще на любителя конечно, но большими буквами переменные карячить это моветон какой-то. Когда вызываешь переменную - надо указывать $. В цикле переменная USER без $. В остальном должно работать.

Да, верно. Но, идей как получить индекс того или иного элемента не прибавилось. Похоже, только отдельной накапливаемой переменной.

Я бы послушал вот этого уважаемого человека.

Я понимаю, что python и perl больше подходят для этой задачи. Тут уже вопрос наличия навыков. Но, чую это будет тот самый толчок, чтобы начать постигать неизведанное.

Если выберешь Perl — буду тебе помогать, расскажу как вырубить левым в печень и двоечкой посадить на задницу любого хейтера. Если достигнешь нормального уровня с меня кизлярский нож.

Я понимаю, что python и perl больше подходят для этой задачи.

Не «и», а «или». Перл — идеальный выбор для жевания текста, питон более… универсальный.

Примеров не будет, так как готовые примеры гуглятся на раз.

В общем, ваше замечание сыграло ключевую роль. Накосячил с тем как пытался исключить элемент массива.

Так вроде как выводит то, что нужно.

#!/usr/bin/env bash

declare -a USER_LIST=(`cat "/usr/local/script/user_list.csv" | awk '{print $1}' | tr '\n' ' '`)

######СПИСОК ПОЛЬЗОВАТЕЛЕЙ, КОТОРЫХ НЕОБХОДИМО ОСТАВИТЬ######
declare -a EXCEPTION_LIST=(
    igor\.ivanov
    gregoriy\.pavlov
)
#############################################################

for USER in "${!USER_LIST[@]}"
do
    for EXCEPTION in "${EXCEPTION_LIST[@]}"
    do
        if [[ "${USER_LIST[USER]}" == "$EXCEPTION"* ]]
        then
            unset USER_LIST[$USER]
        fi
    done
done


exit 0

Спасибо, всем! Включая идеи изучить что-то новое.

Если выберешь Perl — буду тебе помогать

«Учи Perl, сука!» подошло бы под

расскажу как вырубить левым в печень и двоечкой посадить на задницу любого хейтера

куда лучше. (%

Если достигнешь нормального уровня с меня кизлярский нож.

Нормальному перлисту нож не нужен, он должен кодом калечить. (%

Нормальному перлисту нож не нужен, он должен кодом калечить. (%

Конечно есть больше одного способа сделать это, но нож предполагался в рамках решения бытовых задач. Например, пробить дыру в чайнике (небольшой закрытый сосуд с носиком, крышкой) чтоб заварить кофейку.

Конечно есть больше одного способа сделать это, но нож предполагался в рамках решения бытовых задач. Например, пробить дыру в чайнике (небольшой закрытый сосуд с носиком, крышкой) чтоб заварить кофейку.

Я хочу кофе — я просто беру кружку и пью из неё кофе. Я никогда не задумывался, откуда он там появляется. о_О

Дорогой боженька! Если ты есть, то пожалуйста залей тред горящей серой и оставь только следующую строку:

fgrep -vf excepton.list user_list.csv

Спасибо!

У меня fgrep -vf не сработал. Просто

grep -v 1.csv 2.csv

declare -a USER_LIST=(`cat "/usr/local/script/user_list.csv" | awk '{print $1}' | tr '\n' ' '`)

Какой кошмар.

read -a USER_LIST -d '\n' < /usr/local/script/user_list.csv

О, спасибо. Я тут наткнулся на такую штуку и она тоже была недовольна моими «писаками» в этом месте.

Да и это:

for USER in "${!USER_LIST[@]}"
do
    for EXCEPTION in "${EXCEPTION_LIST[@]}"
    do
        if [[ "${USER_LIST[USER]}" == "$EXCEPTION"* ]]
        then
            unset USER_LIST[$USER]
        fi
    done
done

можно покороче

for EXCEPTION in "${EXCEPTION_LIST[@]}"; do
    USER_LIST=(${USER_LIST[@]/$EXCEPTION})
done

Конструкцию возьму на заметку, но в данном случае не прокатит. Там есть пачка записей вида manager.XXX, перечислять их не вариант, ибо придется тогда каждый раз править EXCEPTION_LIST, поэтому пусть уж цикл с условием с ними разбирается.

у нас в конторе есть старый сайт, написанный индусами на перле... сплошная портянка из копипасты, потому как разработка на perl не требует наличия мозга. идейный последователь великого и ужасного баша потому быстро умер как язык разработки. поддержка этой лапши слишком дорога. помимо perl и python есть равин (ruby) - это что-то среднее между обоими языками (регулярки как в перле - часть синтаксиса).

import csv забыл

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

В этом отличие перлокода для продакшна я хорошего перлокода.

Может кто-то подскажет еще по такому моменту.

printf "%s\n" "${USERS_FOR_CLEAN[@]}"

Печатает каждый элемент массива с новой строки, а как туда еще можно подсунуть отступ для каждого элемента?

Там есть пачка записей вида manager.XXX, перечислять их не вариант, ибо придется тогда каждый раз править EXCEPTION_LIST

ЯННП. Ты же делаешь то же самое. У тебя 2 массива, один из файла, второй ты формируешь внутри скрипта.

import csv забыл

Ты, по ходу, забыл о чём ТС спрашивал.

# Делаем что-то с данными

Впрочем, негуманоидный синтаксис пистона способствует.

printf " <=здравствуйте, я отступ=> %s\n" «${USERS_FOR_CLEAN[@]}»

Спасибо и еще снизошло озарение, что пытался сделать "%s\t%s\n", а нужно было "\t%s\n"

ЯННП. Ты же делаешь то же самое. У тебя 2 массива, один из файла, второй ты формируешь внутри скрипта.

Блин, на работе на 6й центоси отказывался убирать элементы по шаблону. Когда допустим у меня в первом массиве manager.1 manager.2 manager.3, во втором я просто пишу manager.* и не сработало. Сейчас проделал тоже самое в убунту 18 и всё норм. Надо будет завтра посмотреть, может что не так сделал.

говноеды какие-то будут тут пердл пиарить у которого нету у функций аргументов (тяжелое башевское наследие). что мешает питон использовать в говнобаше?

(dev) sergey@sergey-laptop:~$ echo foo bar baz | python -c "import sys; input = sys.stdin.read().split(); print(' '.join(sorted(input)))"
bar baz foo

Ты пьян?

Да, ваш способ с массивами работает, спасибо.

В итоге накостылял сие. Вдруг кому-то захочется ужаснуться. :) Раз в месяц запустить сойдет, я считаю.

Просто соберите регулярное выражение для egrep'а из EXCEPTION_LIST'а.

у которого нету у функций аргументов (тяжелое башевское наследие)

Вообще-то есть. Но любители языка без нормального выделения блоков скобками предпочитают этого не знать. В Perl можно указывать аргументы в декларации, вопрос только в том, что это нафиг никому не нужно (особенно учитывая то, что у аргументов невозможно указать тип данных). Прямо первый же раздел perlsub'а: https://perldoc.perl.org/perlsub.html#Signatures

я просто нигде в перлокоде не видел чтобы их явно указывали. в js тоже так можно:

function foo() {
  const arg1 = arguments[0]
  const arg2 = arguments[1]
  // ...
}

Но никто так не делает... кроме альтернативно-одаренных любителей пёрдла. А зачем тебе тип переменной указывать в скриптовом языке?

Кстати,еще любителя баша можно опознать в яваскрипте по конструкциям вида:

(somevar === 42) && (/* some shit code */)

А зачем тебе тип переменной указывать в скриптовом языке?

Скриптовый язык - это НЁХ. С таким же успехом можно всё, что не Си и Си++, называть скриптовым языком.

В Perl внутреннее приведение типов существует, и как раз отсутствие возможности указать тип явно (как и «привести» его) - один из рудиментов языка. Когда это всё придумывали считалось, что от типов у людей голова «бобо», и лучше делать эвристику внутри интерпретатора, чем заставлять думать о том, какое представление переменной нужно в данном месте - строковое или числовое (в Perl одна переменная может существовать сразу в нескольких ипостасях с т.з. внутренней логики интерпретатора).

Если не использовать сигнатуры, достаточно просто написать:

sub relocateSun {
  my ($x, $y, $z) = @_;
  ...
}

а редакторы как понимают эту писанину. вот я справку по функции вызываю и хочу увидеть список аргументов. я что-то увижу? - наврядли. если ты пишешь эпичные однострочники и простые скрипты для замены башу, то оно не очень важно. учить perl в 2018 не имеет смысла. пусть лучше php освоит хотя бы деньги перестанет у мамки клянчить.

Такие вещи очень просто делаются на ассоциативных массивах.

#!/bin/bash

USER_LIST="user_list.csv"

declare -a EXCEPTION_LIST=(
igor.ivanov
gregoriy.pavlov
x.y
)

declare -a NAMES
declare -A ASSOC_NAMES
num=0
while read line; do
        ASSOC_NAMES["$line"]=$num
        NAMES[num++]=$line
done < "$USER_LIST"

for e in "${EXCEPTION_LIST[@]}"; do
        num=${ASSOC_NAMES["$e"]}
        [[ -n $num ]] && unset NAMES[num]
done

for e in "${NAMES[@]}"; do
        echo "$e"
done