Perl

(débutante) cut

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : (débutante) cut

mayapour

Bonjour,

Je cherche à faire un petit script en PERL qui lira l'entree standard et delimitera celle-ci en colonnes
avec comme caractere separateur l'espace. On prend en parametre la liste des colonnes à afficher.

Pour exemple quand je lance :
$>cat -e file_test | mon_script.pl 1 7 3 5
Je veux afficher :
les colonnes 1 3 5 et 7 du fichier file_test (les colonnes sont uniquement compossés de chiffres en dur séparés par un espace)

Je ne sais pas par où commencer ?

Des idées ?

MERCI de m'éclairer ...

Message édité par mayapour le 15-06-2006 à 21:32:17

Publicité

couak

pour commencer, essaye de récupérer les paramètres passé par la ligne de commande (indice : faire des recherches sur le mot clé STDIN)

lami20j

Désolé, mauvais manip, message en double.

lami20j

Message édité par lami20j le 15-06-2006 à 22:39:44

lami20j

Salut,

Voilà un exemple en utilisant le fichier /etc/passwd ( le séparateur sera : )
Tu n'as qu'à remplacer : avec \s
1. avec handle F_LIRE

Code :

#!/usr/bin/perl
#
use warnings;use strict;
open F_LIRE,"/etc/passwd"
or die "E/S : $!\n";
my @file;
while (<F_LIRE> ){
push @file, [split /:/,$_ ];
}
foreach (@file){
print "@$_[@ARGV]\n";
}

Résultat

Code :

lami20j@debian:~/bin/my_deb_perl$ ./dvz_cut.pl 0 2 3
root 0 0
daemon 1 1
bin 2 2
sys 3 3
sync 4 65534
games 5 60
man 6 12
lp 7 7
mail 8 8
news 9 9
uucp 10 10
proxy 13 13
www-data 33 33
backup 34 34
list 38 38
irc 39 39
gnats 41 41
nobody 65534 65534
Debian-exim 102 102
lami20j 1000 1000
messagebus 100 103
hal 104 104
sshd 101 65534
vdr 103 106
ubucorgeon 1001 1001

2. ce que tu demandes (avec cat)

Code :

#!/usr/bin/perl
#
use warnings;use strict;
my @file;
my @col = @ARGV;
@ARGV=();
while (<> ){
push @file, [split /:/,$_ ];
}
foreach (@file){
print "@$_[@col]";
}

Le résultat

Code :

lami20j@debian:~/bin/my_deb_perl$ cat -e /etc/passwd | ./dvz_cut2.pl 0 2 6
root 0 /bin/bash$
daemon 1 /bin/sh$
bin 2 /bin/sh$
sys 3 /bin/sh$
sync 4 /bin/sync$
games 5 /bin/sh$
man 6 /bin/sh$
lp 7 /bin/sh$
mail 8 /bin/sh$
news 9 /bin/sh$
uucp 10 /bin/sh$
proxy 13 /bin/sh$
www-data 33 /bin/sh$
backup 34 /bin/sh$
list 38 /bin/sh$
irc 39 /bin/sh$
gnats 41 /bin/sh$
nobody 65534 /bin/sh$
Debian-exim 102 /bin/false$
lami20j 1000 /bin/bash$
messagebus 100 /bin/false$
hal 104 /bin/false$
sshd 101 /bin/false$
vdr 103 /bin/false$
ubucorgeon 1001 /bin/bash$

lami20j

Message édité par lami20j le 15-06-2006 à 22:49:16

lami20j

Re,

à la place de

Code :

my @col = @ARGV;
@ARGV=();

on peut écrire

Code :

my @col = splice(@ARGV,0,@ARGV);

lami20j

mayapour

MERCI pour tes réponses :
Mais avec cat -e file_test | ./mon_script.pl 1 2 6
J'obtient :
use: Command not found.
use: Command not found.
my: Command not found.
Badly placed ()'s.

Message cité 1 fois

lami20j

Re,

mayapour a écrit :

MERCI pour tes réponses :
Mais avec cat -e file_test | ./mon_script.pl 1 2 6
J'obtient :
use: Command not found.
use: Command not found.
my: Command not found.
Badly placed ()'s.

tu peux afficher ici ton fichier? aussi le code que tu as écrit?

Pour voir où se trouve l'erreur.Merci.

lami20j

mayapour

Monfichier file_test :
a1 a2 a3 a4 a5 a6
b1 b2 b3 b4 b5 b6 b7 b8 b9
c1 c2 c3 c4
d1 d2 d3 d4 d5 d6 d7 d8 d9
e1 e2

Mon code (enfin le tien;-)):
#!/usr/pkg/bin/perl -w

@col = splice(@ARGV,0,@ARGV);

while (<> ){

push @file, [split /,$_ ];

}

foreach (@file){

print "@$_[@col]";
}

Avec la commande cat -e file_test | ./mon_script.pl 1 2 6
J'obient maintenant : Badly placed ()'s.

lami20j

Re,

tu n'as pas remplacer les deux-points : avec un espace \s

Ensuite le problème se complique un peu vu que les chaines n'ont pas le même nombre de termes separés par un espace.

Donc tu auras des messages d'erreurs concerntant l'initialisation des valeurs.

lami20j

lami20j

toujours des mauvaises manipulations

Message édité par lami20j le 15-06-2006 à 23:28:48

Publicité

mayapour

J'ai remplacé les deux points par \s
Mais effectivement pas mieux

Message édité par mayapour le 15-06-2006 à 23:31:33

lami20j

Re,

essaie ça. Ce n'est pas excellent(j'ai enlevé l'option -w pour ne pas voir les messages d'erreurs)
Il y a un antislash avant le s dans la regex de split

Code :

#!/usr/bin/perl
#
@col = splice(@ARGV,0,@ARGV);
while (<> ){
push @file, [split /\s/,$_ ];
}
foreach (@file){
print "@$_[@col]\n";
}

Chez moi ça marche

Code :

lami20j@debian:~/bin/my_deb_perl$ cat maya
a1 a2 a3 a4 a5 a6
b1 b2 b3 b4 b5 b6 b7 b8 b9
c1 c2 c3 c4
d1 d2 d3 d4 d5 d6 d7 d8 d9
e1 e2
lami20j@debian:~/bin/my_deb_perl$ cat maya | ./dvz_cut3.pl 1 2 6
a2 a3
b2 b3 b7
c2 c3
d2 d3 d7
e2
lami20j@debian:~/bin/my_deb_perl$

lami20j

Message édité par lami20j le 16-06-2006 à 00:08:13

lami20j

toujours en double j'arrête pour ce soir. bonne continuation. lami20j

Message édité par lami20j le 16-06-2006 à 00:07:29

mayapour

Je ne comprend pas pourquoi : idem
Badly placed ()'s.

???

MERCI pour cette solution qui me semble devoir fontionner ;-)

Message cité 1 fois

lami20j

Salut,

mayapour a écrit :

Je ne comprend pas pourquoi : idem
Badly placed ()'s.

???

MERCI pour cette solution qui me semble devoir fontionner ;-)

Essaie d'exécuter avec

Code :

cat -e file_test | perl ./mon_script.pl 1 2 6

Pour ton erreur

Badly placed ()'s

(A) Vous lancez accidentellement votre script par csh au lieu de Perl. Vérifiez la ligne avec #!, ou lancez votre script manuellement dans Perl.

(A) Erreur externe (non générée par Perl).

Ca pourra te servir à l'avenir :
http://perl.enstimac.fr/DocFr/perldiag.html

lami20j

Message édité par lami20j le 16-06-2006 à 09:28:48

lami20j

Re,

Peut être je devrais le devrait le faire de début pour comprendre ce que jai fait. Mea culpa.

Code :

while (<> ){
push @file, [split /s/,$_ ];
}

while (<> ) va lire la sortie de cat fichier et dans la boucle je stocke dans un tableau des tableaux les éléments dont le séparateur est lespace.

Code :

@col = splice(@ARGV,0,@ARGV);

Cette ligne stocke dans @col les arguments et vide @ARGV.
Pourquoi ?
Puisque la boucle while(<> ) lit dans @ARGV et comme 2, 3 et 4 ne sont pas des fichiers une exception sera levée.
Une fois @ARGV vide <> va lire seulement depuis pipe |

Code :

foreach (@file){
print "@$_[@col]\n";
}

Pour affichage on va utiliser une tranche de tableau.
Comme @col contient les arguments 2, 4 et 6 par exemple je vais afficher pour chaque élément (qui est un tableau anonyme) du @file, uniquement les éléments 2, 4 et 6 qui correspondent à la colonne 3, 5 et 7 de ton fichier.
En suivant cet algo (à savoir que ce nest pas le meilleur et en plus quand on est en Perl il ne faut pas oublier TMTOWTDI Theres More Than One Way To Do It Il y a plusieurs façon de le faire) tu peux écrire toi-même le code ainsi tu comprendras mieux et tu éviteras aussi les erreurs de syntaxe.

A savoir que tu auras toujours des messages Warning si les lignes de ton fichier ne contiennent pas le même nombre déléments. Donc peut être il faut une autre approche pour traiter ça.
Un warning nest pas forcément une erreur mais une information.
Si tu enlèves w ou use warnings tu nauras pas les messages warnings. A toi de voir.
Je vais penser pour une autre approche.
Par exemple tu peux utiliser la commande cut dant ton script (voir man cut). Tu peux le faire avec la fonctin system
(voir dans la doc - http://perl.enstimac.fr/DocFr/perl [...] em_system)
Si tu ne comprends pas, fait un signe. Merci.

lami20j

Message édité par lami20j le 16-06-2006 à 12:28:03

mayapour

Merci pour toute ton aide lami20j !

FORUM HardWare.fr

Programmation

Perl

(débutante) cut

Sujets relatifs
(débutante) reverse	[débutante] Interfaçage C++/C
plus que débutante en TeX	graphise (debutante)
[Débutante] Découpage logique des classes ?	super débutante lecteur code barre
le rollover expliqué à une débutante ??	je suis débutante help me !!!plz
debutante en c++ cherche cours	Débutante SQL : modélisation système train
Plus de sujets relatifs à : (débutante) cut

Page générée en 0.073 secondes