Deletar frase em lista (1ª ocorrência) [RESOLVIDO]

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 10:53h

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 10:57h

#!/bin/bash

 for i in $( cat lista.txt)

 do

 	if [ $(cat lista2.txt | grep "$i" ) 2> /dev/null -z ]; then

 		echo "$i - nao existe"

 		echo "$i" >> lista2.txt

 	else

 		echo "$i - existe"

 	fi

 done

 

paulo1205
(usa Ubuntu)

Enviado em 31/03/2016 - 10:58h

while(<>){

  if(exists($frase{$_})){

    print $_;

  }

  else {

    $frase{$_}=1;

  }

} 

perl -ne 'if(exists($frase{$_})){ print $_; } else { $frase{$_}=1; }' 

declare -A frase

while read a; do

  if [[ -z "${frase[$a]+1}" ]]; then

    echo "$a"

  else

    frase[$a]=""

  fi

done 

Williamm
(usa Linux Mint)

Enviado em 31/03/2016 - 11:01h

wellington_r
(usa Debian)

Enviado em 31/03/2016 - 11:12h

sed '0,/RE/{//d;}' file 

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 11:24h

msoliver
(usa Debian)

Enviado em 31/03/2016 - 11:32h

sort frases |uniq -c|sed 's/^[ ]\+//' > frases-temp

while IFS=" " read -r A B C;do

for ((x=0;x<$((A-1));x++));do

(($A>1)) && echo $B $C

done

done < frases-temp 

banana nanica

laranja mimo 

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 11:37h

#!/bin/bash 

VAR=0

_removedor() {



        while read line 

        do 

                if [ "$line" == "$1" ] && [ $VAR -eq 0 ]

                then 

                        echo "saiu $line"

                        VAR=1

                else

                        echo "$line" >> lista2.txt

                fi

        done < lista.txt

}



_removedor "banana nanica" 

wellington_r
(usa Debian)

Enviado em 31/03/2016 - 11:44h

#!/bin/bash 

VAR=0

_removedor() {



        while read line 

        do 

                if [ "$line" == "$1" ] && [ $VAR -eq 0 ]

                then 

                        echo "saiu $line"

                        VAR=1

                else

                        echo "$line" >> lista2.txt

                fi

        done < lista.txt

}



_removedor "banana nanica" 

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 11:46h

removido
(usa Nenhuma)

Enviado em 31/03/2016 - 11:48h

while(<>){

  if(exists($frase{$_})){

    print $_;

  }

  else {

    $frase{$_}=1;

  }

} 

perl -ne 'if(exists($frase{$_})){ print $_; } else { $frase{$_}=1; }' 

declare -A frase

while read a; do

  if [[ -z "${frase[$a]+1}" ]]; then

    echo "$a"

  else

    frase[$a]=""

  fi

done 

xerxeslins
(usa openSUSE)

Enviado em 31/03/2016 - 12:15h

sed '0,/banana nanica/ { /banana nanica/ d }' file