Discussion :

[Toutankharton]

Bonjour,
J'essaye de trouver dans un fichier ceux qui se terminent par des espaces.

Malheuresement, j'ai l'impression que perl me supprime tout les espaces en fin de ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
open(fd, $ARGV[0]);
@file = <fd>;
close(fd);
 
foreach $line (@file)
{
    print "'$line'";
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
thomas@tefnout# ./test.pl titif
'sddfds
''ddd
'%                                                                                                                                                            thomas@tefnout# cat -e titif
sddfds   $
ddd$
thomas@tefnout#

merci d'avance !

[Mr6]

salut,

Tu devrais peut-etre remplacer tes espaces par qqch d'autre si tu veux les voir. Perso j'ai du mal a les voir dans ton code

genre ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -i.bak -pe 's/\s\n$/ESPACE\n/g' titif

@+
Mr6

[mensoif]

Ou sinon, tu peux rajouter dans ta boucle, (avant le print)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
next if ( $line !~ /\s$/ );

qui passe à la ligne suivante si la ligne courante ne se termine pas par un espace (au sens large du terme), et ne t'affichera donc que les lignes souhaitée!

[Jedai]

Bonjour,
J'essaye de trouver dans un fichier ceux qui se terminent par des espaces.

Malheuresement, j'ai l'impression que perl me supprime tout les espaces en fin de ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
open(fd, $ARGV[0]);
@file = <fd>;
close(fd);
 
foreach $line (@file)
{
    print "'$line'";
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
thomas@tefnout# ./test.pl titif
'sddfds
''ddd
'

Il ne les supprime pas, regarde attentivement où les quotes se retrouvent : le problème est que tu mets les quotes autour de la ligne tout entière, nouvelle ligne (\n) inclue...

Pour quelque chose de plus lisible, essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 'chomp; print qq('\''$_'\''\n)' titif

ou en script complet (pas un uniligne) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
#!/usr/bin/env perl
use strict; use warnings;
 
while(<>) {
  chomp;
  print qq('$_'\n);
}

Le code de mensoif marchera pour détecter une ligne avec des espaces à la fin, mais uniquement si tu as bien fait un chomp() avant (sinon il matchera toutes les lignes puisque \n est considéré comme un espace par \s).

--
Jedaï