Que dois-je utiliser lorsque couper ne le coupe pas?

J'ai un fichier citiescomme celui-ci:

[1598] San Diego, US (inactive)
[4517] St Louis, US (inactive)
[6346] Orlando, US (inactive)

Je veux découper les noms des villes pour avoir:

San Diego
St Louis
Orlando

C'est le mieux que j'ai pu trouver:

cut -d ',' -f1 cities | cut -d ']' -f2

Mais cela me laisse encore un espace devant les noms. Existe-t-il une cutcommande similaire que je peux utiliser qui accepte les délimiteurs de plusieurs caractères afin que je puisse continuer ]?

Awk (vérifiez également Awk Info ) est magnifique avec ce genre de question. Essayer:

awk -F'[],] *' '{print $2}' cities

Cela définit un séparateur de champ -Fcomme [],] *- ce qui signifie une occurrence d'un crochet carré de fermeture ou d'une virgule, suivie de zéro ou d'un nombre quelconque d'espaces. Bien sûr, vous pouvez changer cela pour répondre à toutes les exigences. Lisez sur les expressions régulières.

Une fois la ligne divisée, vous pouvez faire ce que vous voulez avec le résultat de la division. Ici, j'ai décidé d'imprimer le deuxième champ uniquement avec print $2. Notez qu'il est important d'utiliser des guillemets simples autour des instructions awk sinon $ 2 est remplacé par le shell.

Vous pouvez modifier le dernier cutde votre pipeline comme suit:

cut -d ' ' -f2-

Ce qui précède signifie que le séparateur de champs est un espace, et nous voulons sélectionner tous les champs à partir du second. La séquence complète devient:

cut -d ',' -f1 cities | cut -d ' ' -f2-

Pour une analyse plus complexe, vous devez utiliser sed (1) :

sed -e 's/\[[0-9]\+\] \([^,]\+\),.*/\1/' cities

Ou en utilisant -rpour simplifier l'expression régulière, comme le suggère pepoluan :

sed -re 's/\[[0-9]+\] ([^,]+),.*/\1/' cities

J'utilise normalement Perl lorsque les choses deviennent trop difficiles pour sed et grep.

Il existe plusieurs façons de l'écrire en Perl. Par exemple, vous pouvez préférer qu'il soit rapide, ou vous pouvez préférer qu'il gère de légers problèmes inattendus dans l'entrée (par exemple, deux espaces où l'un était prévu).

Une façon évidente (suppose que l'id est numérique, la ville est alphabétique, le statut est alphabétique):

while (<>) {
    if (/^\[\d+\] (\w+(?: \w+)*), \w+ \(\w*\)$/) {
        my $city = $1;
        print "$city\n";
    }
}

Ou plus lent mais plus permissif (fait plus de recul):

while (<>) {
    if (/^.*\]\s+(.*),.*$/) {
        my $city = $1;
        print "$city\n";
    }
}

Ou plus rapidement (le champ s'arrête à la première occurrence du crochet de fermeture):

while (<>) {
    if (/^\[[^]]*\] ([^,]*), \S+ \([^)]*\)$/) {
        my $city = $1;
        print "$city\n";
    }
}

À partir de la ligne de commande plutôt que d'un script, vous pouvez utiliser l' -noption, qui ajoute essentiellement la while (<>) { BLOCK }boucle:

perl -ne '/^\[[^]]*\] ([^,]*), \S+ \([^)]*\)$/ and print $1, "\n";' cities

ou si vous voulez que l'utilisation ressemble à couper, vous pouvez utiliser l' -Foption, qui est similaire à l' -Foption awk , par exemple:

perl -a -n -F'/[],]\s+/' -e 'print $F[1], "\n"' cities

De cette façon, on suppose évidemment qu'aucun champ ne contiendra aucun des délimiteurs.