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 ****
