Re: [CBLX] passer d'un format de 40 chars à 80 + corriger les CR/LF

[Dominique Asselineau <asseline@xxxxxxxxxxxxxxxxxxxx>]

Aldo wrote on Tue, Jun 23, 2009 at 07:11:43PM +0200
> Phil,
> 
> je transmets cela en traduisant un peu en NL pour Dick du BLXF.
> 
> Je suppose que la syntaxe est:
> unedeux.pl fichier.txt

pour avoir lu le code, la syntaxe est

$ unedeux.pl le_fichier

et ça produit le_fichier.new

le_fichier peut évidemment être fichier.txt
> 
> Aldo.
> 
> 
> On Tue, Jun 23, 2009 at 06:06:46PM +0200, Philippe Delavalade wrote:
> > Re Aldo.
> > 
> > Les solutions emacs, fmt ou par sont sûrement meilleures que la mienne mais
> > moi j'aime bien perl !
> > 
> > Je te joins un script qui fait l'affaire à un détail prêt : si tu concatène
> > deux lignes de 40 tu peux obtenir une ligne de 81.
> > 
> > Philippe
> 
> > #!/usr/bin/perl -w
> > 
> > # réunit deux lignes consécutives
> > 
> > use File::Basename;
> > use strict;
> > 
> > if( $#ARGV != 0 )
> > {
> >   print "\nSyntaxe : ".basename($0)." fichier\n";
> >   exit 1;
> > }
> > 
> > open( SRC, "<$ARGV[0]" ) || die "\nImpossible d'ouvrir $ARGV[0]";
> > $/ = "";
> > my @par;
> > my $i = 0;
> > 
> > while( <SRC> )
> > {
> >     $par[$i] = $_;
> >     $i++;
> > }
> > 
> > close SRC;
> > 
> > open( DST, ">$ARGV[0].new" ) || die "\nImpossible d'ouvrir $ARGV[0].new";
> > 
> > $\ = "\n";
> > my @l;
> > my $j;
> > 
> > foreach $i (0..$#par)
> > {
> >     @l = split( '\n', $par[$i]);
> >     foreach $j (0..$#l)
> >     {
> > 	if( $j%2 == 0 )
> > 	{
> > 	    print DST "$l[$j] $l[$j+1]";
> > 	}
> >     }
> >     print DST '';
> > }
> > 
> > close DST;
> > 
> > exit 0;
> 
> 
> --
> 	https://bugs.launchpad.net/ubuntu/+bug/1 : 
> Micro$oft has a majority market share in the new desktop PC marketplace..
> This is a bug, which Ubuntu is designed to fix ! 
> 	http://www.ubuntu.com/ 
> 
> ---
> --
>    CarrefourBLinuX MailingListe
>    Pour obtenir de l'aide, envoyez le sujet  help  à:
>    carrefourblinux-request@xxxxxxxxxxxxxxxxxxx
>    Archives:
>    http://listengine.tuxfamily.org/lists.tuxfamily.org/carrefourblinux
> 

-- 
+--------------------------------o--------------------------------------------+
| P-mail:                        | E-mail:                                    |
|   TELECOM ParisTech - Dep. TSI |  Dominique.Asselineau@xxxxxxxxxxxxxxxxxxxx |
|   Dominique Asselineau         | Phone: (33/0) 1 45 81 78 91                |
|   46, rue Barrault             |   Fax: (33/0) 1 45 81 37 94                |
|   75634 PARIS Cedex 13         |                                            |
| France                         |                                            |
+--------------------------------o--------------------------------------------+

---
--
   CarrefourBLinuX MailingListe
   Pour obtenir de l'aide, envoyez le sujet  help  à:
   carrefourblinux-request@xxxxxxxxxxxxxxxxxxx
   Archives:
   http://listengine.tuxfamily.org/lists.tuxfamily.org/carrefourblinux