Benoit Mordelet wrote:

cat fichier.txt | perl -e 'my $tmp = ""; while (<>) {chop $tmp if (/^!/); print $tmp; $tmp = $_;}' > final.txt

pardon, ce n'est pas exactement ce que tu voulas faire. ceci devrait convenir :

cat fichier.txt | perl -e 'my $tmp = ""; while (<>) {chop $tmp if (s/^!\s*/ /); print $tmp; $tmp = $_;}' > final.txt

a+
ben



Linux-Azur :      http://www.linux-azur.org
Désinscriptions: http://www.linux-azur.org/liste.php3
**** Pas de message au format HTML, SVP ****

Répondre à