Rechercher : dans
Par :

[PERL]Saut de ligne

Dernière réponse le 19 fév 2007 à 22:58:31 Zep3k!GnO, le 10 nov 2005 à 14:31:17 
 Signaler ce message aux modérateurs

Bonjour à tous, je comprens pas pourquoi mais j'ai un vieu problème , cça fait pas mal débutant mais bon , j'comprends pas :
mon fichier:

blahblahblahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah

bref vous voyez le truc !
Et ce que je veux faire c'est de supprimer les 2 sauts de lignes avant mes tags <RENV> , alors dans mon script j'ai essayé
s/& #0D;& #0A;& #0D;& #0A;\<RENV/<RENV/g;  //les & et # sont décollés pour que le site puissent afficher ces caractères Unicode...

OU

s/\n\n\<RENV/<RENV/g;


Et ça ne marche pas... pourquoi ? !

Merci.

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Meilleures réponses pour « [PERL]Saut de ligne » dans :
Code ASCII VoirLe codage des informations Le morse a été le premier codage à permettre une communication longue distance. C'est Samuel F.B.Morse qui l'a mis au point en 1844. Ce code est composé de points et de tirets (un codage binaire en quelque sorte...). Il...
Perl - Les fichiers VoirLa notion de filehandle On appelle filehandle (traduisez descripteur de fichier), dans un programme Perl, le nom permettant de manipuler une connexion d'entrée-sortie (les entrées-sorties standards vues précédemment sont connues par les filehandles...
Introduction aux courants porteurs en ligne (CPL) VoirIntroduction aux CPL On retient sous l'appellation CPL « Courants Porteurs en Ligne » toute technologie qui vise à faire passer de l'information à bas débit ou haut débit sur les lignes électriques en utilisant des techniques de modulation...

1

mamiemando, le 10 nov 2005 à 18:07:24

Je pense que le \ devant le '<' est en trop, ce qui donne :

s/\n\n<RENV/<RENV/g;

En tout cas sous vi ça marche (très pratique cette petite bête pour débuger les regexp).

Technique à deux balles de la mamie :

D'une manière générale quand un regexp ne marche pas, essaye de la reduire au minimum, de voir si elle marche et de la rallonger progressivement pour voir d'où vient le pb.

Bonne chance

Répondre à mamiemando

2

lami20j, le 10 nov 2005 à 22:53:00

Salut,
Si tu veux supprimer les 2 sautes de lignes tu obtiens quelque chose comme ça

blahblahblahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah
C'est ça que tu veux obtenir. En ce cas la réponse de mamiemando est suffisante.
En revanche si tu veux que ton fichier soit
blahblahblahblahblahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah
<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

Tu n'as qu'un seul saute de ligne à supprimer (pas 2)
#! /usr/bin/perl -w
$/=" ";
open FLIRE,'Zep3k!GnO.txt' or die "Impossible d'ouvrir le fichier : $!\n";
while (<FLIRE>){
s/\n(?=<RENV)//; # teste avant, ne consomme pas de texte donc plus rapide
print;
}

Le scrip ne fait que lire et afficher à l'écran. Pour écrire il faut ajouter encore quelque lignes.
Ou en ligne de commande. Ici le fichier est modifé sur place et l'original est sauvegardé.
perl -pi.orig -e 's/^\n$//' Zep3k\!GnO.txt

Répondre à lami20j

3

Zep3k!GnO, le 14 nov 2005 à 09:28:43

Okay bin merci à tous les 2 je vais tester ça . . . et je vous dit :D

Un grand merci.


Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Répondre à Zep3k!GnO

4

Zep3k!GnO, le 14 nov 2005 à 10:20:59

Hélas c'est bien la prmièe forme que tu exposes lami20j que je veux obtenir et ce que mamiemando m'a mis ne fonctionne pas, j'avais déjà essayé comme ça . . . :(
Si vous avez d'autres idées . . .

Merci

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Répondre à Zep3k!GnO

5

mamiemando, le 14 nov 2005 à 10:30:03

Essaye de debugger ta regexp en l'allongeant petit à petit pour voir où elle bloque. Désolé mais je ne peux pas faire de perl actuellement pour t'aider :/

Répondre à mamiemando

6

Zep3k!GnO, le 14 nov 2005 à 11:47:05

Désolé mais je ne peux pas faire de perl actuellement pour t'aider :/
Y'as trop pas de soucis :D

Mais c'est tout de même dingue , même un simple :

s/\n\n/saute!/g;

Ca ne fonctionne pas...
c'est Con car du coups je suis obligé de réouvrir le ficheir resultant avec mon Ultra Edit et de faire un povre :
^p^p<RENV <--remplacer par --> <RENV

Et la j'ai pô de soucis ... c'est beuuuute non ?!

Merci

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Répondre à Zep3k!GnO

7

mamiemando, le 14 nov 2005 à 14:45:48

Sinon il y a possibilité de faire une boucle pour traiter ligne par ligne mais c'est vrai que c'est très laid... Enfin sinon tu le fais avec la regexp que je t'ai filé pour vi et c'est bon

http://www.vim.org/download.php

:%s/.../.../g
:wq

Bonne chance

Répondre à mamiemando

8

Zep3k!GnO, le 14 nov 2005 à 15:20:34

Arf merci c'est CoOl mamiemando . . . !
ouais ca devrait aller , là j'ai vu que ça passe pas trop crade .. hi hi ..

En tous cas merci de ton aide c'est sympa ;P

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Répondre à Zep3k!GnO

9

lami20j, le 14 nov 2005 à 18:36:56

Bonsoir,

Hélas c'est bien la prmièe forme que tu exposes lami20j que je veux obtenir et ce que mamiemando m'a mis ne fonctionne pas, j'avais déjà essayé comme ça . . . :(
Si vous avez d'autres idées . . .


Alors en ce cas voilà le script, pareil il affiche le résultat sur STDOUT.

Si tu veux modifier le fichier sur place et tu ne sais pas le faire dit le.

Voilà le script ( faire une boucle et traiter ligne par ligne ce n'est pas laide)

#! /usr/bin/perl -w

$/=" ";
open FLIRE,'Zep3k!GnO.txt' or die "Impossible d'ouvrir le fichier : $!\n";
while (<FLIRE>){
 s/\n\n<RENV/<RENV/;
 print;
}


Et le résultat
[lamitest@localhost bin]$ cat Zep3k\!GnO.txt
blahblahblahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah

<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

[lamitest@localhost bin]$ perl suppr_ligne_vide1.pl
blahblahblahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
blahblahblahblahblahblahblahblahblahblahblahblahblahblahblah
blahblahblah<RENV blahblah></RENV>blahblahblahblahblahblahblahblah
iblahblahblahblahblah

[lamitest@localhost bin]$

Répondre à lami20j

10

Repen07, le 18 fév 2007 à 00:08:34

Salut lami20j, j'ai vu tes participations sur le forum, je voudrais bien avoir ton aide sur un script plus ou moins bête, mais je n'en sors tjrs pas, car je suis encore débutant
en fait, l'objectif est de faire un script en perl, pour comparer deux fichiers textes de grande taille, en passant par les tables de hachage, c'est une notion que je ne saisis pas trop pour le moment. il y a aussi l'alternative de passer par des tableaux en parcourant les deux fichiers, bref, c ma vision des choses!

Répondre à Repen07

12

 lami20j, le 19 fév 2007 à 22:58:31
  • +1

Regarde ici fichiers texte en perl lami20j

Répondre à lami20j

11

lami20j, le 18 fév 2007 à 09:01:49

Salut,

j'ai besoin de plus de détails.
"grande taille" ça veut dire?!...
et pour comparer les 2 fichiers, que veux tu obtenir comme résultat?

En bref, j'eai besoin de
Les Entrées(les fichiers) -> Que veut tu obtenir en sortie (le résutat)

Sous linux il y a la commande diff
lami20j

Répondre à lami20j
Collection CommentÇaMarche.net