AWK dans Perl

j'ai un fichier hexadécimal le séparateur de chaque mot hexa et "|"
je voulais extraire des mots specifiques

en fait, c'est fichier tres long qui ressemble a celui de Wireshark l'or d'un enregistrement *.txt

je voulais tester $44

cat /home/../Bureau/hexa.txt | awk -F| `BEGIN {NR=4; int Nseq=0;int num=0;}
{

if( $44!="60")
{num = NR; Nseq =strcat($45,$46); NR=NR+32;}

else
{num = NR; NR=NR+33;}
}
END {print num " " Nseq}`>>/home/../Bureau/rtp.txt

ce code je veux l'introduire dans le script perl
puis-je le faire et comment ?
y a t-il des fautes dans ce bout de code svp?
merci bcp

Citation:

---

Envoyé par karim_khouja

cat /home/../Bureau/hexa.txt | awk -F| `BEGIN {NR=4; int Nseq=0;int num=0;}
{

if( $44!="60")
{num = NR; Nseq =strcat($45,$46); NR=NR+32;}

else
{num = NR; NR=NR+33;}
}
END {print num " " Nseq}`>>/home/../Bureau/rtp.txt

y a t-il des fautes dans ce bout de code svp?

---

L'instruction "num = NR" est écrite dans les 2 cas du if. Et modifier la variable NR (qui contient la ligne en cours de traitement) c'est pas forcément tiptop surtout que visiblement tu ne t'en sers que pour remplir num => autant travailler sur num directement.
De plus, les backquottes autour du script awk ça marche pas. Et enfin tu peux donner le nom de fichier à traiter à awk ce qui t'évite de lui faire passer le contenu du fichier via pipe => un processus de moins

Citation:

---

Envoyé par karim_khouja

ce code je veux l'introduire dans le script perl
puis-je le faire et comment ?

---

Bah, tu dois bien avoir un équivalent de system() dans perl (évidemment si t'avais posté dans le fofo perl t'aurais plus de réponse)...

Je confirme, il existe bien la command system en perl.

Son utilisation :

Code:

---

1 2 3

$cmd = "mettre les commandes shell"; system $cmd;

---

Si ta commande ne marche pas, vérifie que tu as bien bloqué les caractères spéciaux. ;)

cette commande ne s'execute pas
il m'indique qu'il y a une faute de syntaxe de "system $cmd

root@sst-desktop:/home/sst/Bureau# perl rtp.pl
syntax error at rtp.pl line 17, near "system"
(Might be a runaway multi-line "" string starting on line 3)
Execution of rtp.pl aborted due to compilation errors.


# !/usr/bin/perl -w

$cmd = "cat /home/sst/Bureau/Hexa.txt|awk-F| `BEGIN {NR=4; int Nseq=0; int num=0;}
{ if ($44!='60')
{
Nseq = strcat($45,$46);
num = NR;
NR = NR + 32;
}
else
{num = NR;
NR = NR + 33;
}
}
END {print num ' ' Nseq}`/home/sst/Bureau/rtp.txt
};"
system $cmd;

Citation:

---

Envoyé par karim_khouja

cette commande ne s'execute pas
il m'indique qu'il y a une faute de syntaxe de "system $cmd

root@sst-desktop:/home/sst/Bureau# perl rtp.pl
syntax error at rtp.pl line 17, near "system"
(Might be a runaway multi-line "" string starting on line 3)
Execution of rtp.pl aborted due to compilation errors.


# !/usr/bin/perl -w

$cmd = "cat /home/sst/Bureau/Hexa.txt|awk-F| `BEGIN {NR=4; int Nseq=0; int num=0;}
{ if ($44!='60')
{
Nseq = strcat($45,$46);
num = NR;
NR = NR + 32;
}
else
{num = NR;
NR = NR + 33;
}
}
END {print num ' ' Nseq}`/home/sst/Bureau/rtp.txt
};"
system $cmd;

---

Les backquottes en début et fin de script awk ne sont pas adaptées (2° fois). Faut utiliser les quottes simples

Citation:

---

Envoyé par karim_khouja

cette commande ne s'execute pas
il m'indique qu'il y a une faute de syntaxe de "system $cmd

root@sst-desktop:/home/sst/Bureau# perl rtp.pl
syntax error at rtp.pl line 17, near "system"
(Might be a runaway multi-line "" string starting on line 3)
Execution of rtp.pl aborted due to compilation errors.


# !/usr/bin/perl -w

$cmd = "cat /home/sst/Bureau/Hexa.txt|awk-F| `BEGIN {NR=4; int Nseq=0; int num=0;}
{ if ($44!='60')
{
Nseq = strcat($45,$46);
num = NR;
NR = NR + 32;
}
else
{num = NR;
NR = NR + 33;
}
}
END {print num ' ' Nseq}`/home/sst/Bureau/rtp.txt
};"
system $cmd;

---

N'oublie pas le point-virgule après les guillemets de la commande shell.

tu peux me réecrire cette commande toute complete
j'ai essayé mais sans resultat

j'ai changé de direction vers la programmation perl

a titre d'exemple ce code marche correctement sauf le separateur que j'ai est '|' (pipe)
et les conditions de saut de ligne pas encore


# !/usr/bin/perl -w

use strict;
use warnings;


open LIRE,"/home/sst/Bureau/hexa.txt" or die "fichier in trouvable";
open ECRIRE,">/home/sst/Bureau/rtp.txtn", or die "E/S : $!n";

while(<LIRE>)
{
if($. % 3 == 1){
my ($data_4, $data_5, $data_6, $data_7)= (split /s/,$_)[4, 5, 6, 7];
print ECRIRE "ligne$. $data_4 $data_5 $data_6 n";
}

}

j'ai changé d'avis et ca marche avec perl peut etre awk ne me permet pas ce que je veux réaliser
mais reste a changer le séparateur de split
je n'ai pas l'espace comme separateur mais j'ai le pipe '|'

# !/usr/bin/perl -w

use strict;
use warnings;


open LIRE,"/home/sst/Bureau/hexa.txt" or die "fichier in trouvable";
open ECRIRE,">/home/sst/Bureau/rtp.txt\n", or die "E/S : $!\n";

while(<LIRE>)
{
if($. % 3 == 1){
my ($data_4, $data_5, $data_6, $data_7)= (split /\s/,$_)[4, 5, 6, 7];
print ECRIRE "ligne$. $data_4 $data_5 $data_6 \n";
}
}

C'est tout à fait possible à réaliser avec awk.
Ca donnerait quelque chose du genre :

Code:

---

1 2 3 4 5

$cmd = "awk-F'|' 'BEGIN {NR == 4; Nseq = 0; num = 0;} {if ($44 != 60) {Nseq = strcat($45,$46); num = NR; NR += 32;} else {num = NR; NR += 33;}} END {print num \" \" Nseq}' /home/sst/Bureau/Hexa.txt >> /home/sst/Bureau/rtp.txt"; system $cmd;

---

Sinon, pour le perl, c'est bien dans le split qu'il faut renseigner le séparateur :

Code:

---

my ($data_4, $data_5, $data_6, $data_7)= split(/|/, $_)[4, 5, 6, 7];

---