Comment puis-je imprimer uniquement certains champs dans un espace séparé de fichier?

J'ai un dossier contenant les éléments suivants contenu de 1000 lignes dans le format suivant:

abc def ghi gkl

Comment puis-je écrire un script Perl pour imprimer uniquement la première et la troisième champs?

abc ghi
InformationsquelleAutor Muhammad Hewedy | 2010-03-19
  1. 14

    Si aucune réponse n'est bonne pour vous encore, je vais essayer d'obtenir la prime 😉

    #!/usr/bin/perl
# Lines beginning with a hash (#) denote optional comments,
# except the first line, which is required,
# see http://en.wikipedia.org/wiki/Shebang_(Unix)

use strict;   # http://perldoc.perl.org/strict.html 
use warnings; # http://perldoc.perl.org/warnings.html

# http://perldoc.perl.org/perlsyn.html#Compound-Statements
# http://perldoc.perl.org/functions/defined.html
# http://perldoc.perl.org/functions/my.html
# http://perldoc.perl.org/perldata.html
# http://perldoc.perl.org/perlop.html#I%2fO-Operators
while (defined(my $line = <>)) {
    # http://perldoc.perl.org/functions/split.html
    my @chunks = split ' ', $line;
    # http://perldoc.perl.org/functions/print.html
    # http://perldoc.perl.org/perlop.html#Quote-Like-Operators
    print "$chunks[0] $chunks[2]\n";
}

    Pour exécuter ce script, étant donné que son nom est script.pl, invoquer celle-ci comme

    perl script.pl FILE

    où FILE est le fichier que vous souhaitez analyser. Voir aussi http://perldoc.perl.org/perlrun.html. Bonne chance! 😉

    • peut-être même intéressant de le remplacer split ' ' par split /\s+/ à split sur tout type d'espaces (répétées ou pas)
    • Le fractionnement par ' ' a une signification spéciale dans Perl.
    • quelle en est la signification?
    • si je suis en train de lire perldoc.perl.org/functions/split.html correctement, il permet awk émulation: "split émule le comportement par défaut de l'outil de ligne de commande awk quand le MODÈLE est soit omis ou une chaîne composée d'un seul caractère espace (comme ' ' ou "\x20" , mais pas par exemple / / ). Dans ce cas, tous les premiers espaces dans des EXPR est retiré avant le fractionnement se produit, et le MOTIF est plutôt traitée comme si elle était /\s+/"
    • c'est un peu bizarre, mais bon à savoir!
    InformationsquelleAutor codeholic
  2. 13

    C'est vraiment le genre de déchets pour quelque chose d'aussi puissant que perl, puisque vous pouvez faire la même chose dans un trivial ligne de awk.

    awk '{ print $1 $3 }'

    • C'est une perte de temps pour apprendre awk quand vous savez Perl.
    • si l'OP su Perl, qu'ils ne serait pas de poser la question. À l'aide de Perl pour cela est l'utilisation d'une tête thermonucléaire à essayer de tuer une mouche. +1 pour cette réponse.
    • Ne pas dire la plate-forme, mais il est plus facile à obtenir que perl, awk pour Windows. Aussi, cela pourrait faire partie d'une plus grande tâche de programmation ... je suis sûr que awk est jusqu'à elle, mais parfois, le travail veut ce qu'il veut.
    • Ils ont tous deux besoin d'un téléchargement et d'installation. awk est une partie de mingw; URL de téléchargement est sourceforge.net/projects/mingw/files . Je ne fais pas un travail de développement sur n'importe quel PC Windows sans avoir à télécharger mingw sur elle. Perl otoh, que, j'ai installer uniquement quand j'en ai besoin
    InformationsquelleAutor T.E.D.
  3. 13
    perl -lane 'print "@F[0,2]"' file
    • À l'aide de Perl dans awk-killer mode - avec autosplit.
    • -un établit implicitement -n de sorte que vous n'avez pas besoin de n en fait. Donc perl -lae est assez. Mais de toute façon la meilleure réponse ici
    InformationsquelleAutor mob
  4. 9
    while ( <> ) {
    my @fields = split;
    print "@fields[0,2]\n";
}

    et juste de variété, sur Windows:

    C:\Temp> perl -pale "$_=qq{@F[0,2]}"

    et sur Unix

    $ perl -pale '$_="@F[0,2]"'
    InformationsquelleAutor Sinan Ünür
  5. 4

    Que perl one-liner:

    perl -ane 'print "@F[0,2]\n"' file

    Ou en tant que script exécutable:

    #!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', 'file' or die "Can't open file: $!\n";

while (<$fh>) {
    my @fields = split;
    print "@fields[0,2]\n";
}

    Exécuter le script comme ceci: 

    perl script.pl

    ou 

    chmod 755 script.pl  
./script.pl
    • Si vous utilisez stricte et d'avertissement, vous pouvez fermer votre fichier à la fin de votre script 🙂
    InformationsquelleAutor Eugene Yarmash
  6. 4

    Je suis sûr que je ne devrais pas obtenir la prime, puisque la question demande le résultat sera donné en perl, mais de toute façon:

    En bash/ksh/ash/etc:

    cut -d " " -f 1,3 "file"

    Dans Windows/DOS:

    for /f "tokens=1-4 delims= " %i in (file) do (echo %i %k)

    Avantages: comme les autres ont dit, pas besoin d'apprendre Perle, Awk, rien, juste la connaissance de certains outils. Le résultat à la fois les appels peuvent être enregistrés sur le disque à l'aide de la ">" et ">>" de l'opérateur.

    • +1 pour la coupe. Si couper prend un fichier facultatif argument, alors je serais probablement ignorer le chat et le tuyau.
    • vrai, je vais corriger ça. Merci pour l'astuce.
    InformationsquelleAutor Bruno Brant
  7. 1
    while(<>){
  chomp;
  @s = split ;
  print "$s[0] $s[2]\n";
}

    commencez à passer par la la documentation ainsi

    • perldoc.perl.org/functions/split.html : Un split sur /\s+/ est comme un split(' ') sauf que toute fonction de direction espace produit un null premier champ. Un split avec aucun argument vraiment un split(' ', $_) en interne.
    InformationsquelleAutor ghostdog74
  8. 0
    #!/usr/bin/env perl
open my$F, "<", "file" or die;
print join(" ",(split)[0,2])."\n" while(<$F>);
close $F
    InformationsquelleAutor 3ED
  9. 0

    Un moyen facile est:

    (split)[0,2]

    Exemple:

    $_ = 'abc def ghi gkl';
print( (split)[0,2] , "\n");
print( join(" ", (split)[0,2]  ),"\n");

    Ligne de commande:

    perl -e '$_="abc def ghi gkl";print(join(" ",(split)[0,2]),"\n")'
    InformationsquelleAutor lynx_74