Discussion :

[disedorgue]

moi et l'ORTOGRAF...

Sinon, comme je dois mabsenter, voici un bout de code perl qui fait exactement la même chose que le sed:

Code :

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

perl -pe 'if($x){$_=" $_";$x="";next};$nr++ while m/\G./gc ;if($nr < 600){chomp;$x=1};$nr=0' fichier

[disedorgue]

Là, je ne comprends plus rien, chez moi, le perl me rend bien la main sans souci et d'ailleurs, il n'y a aucune raison qu'il ne le fasse pas...

Et que donne la dernière uniligne perl qui dans la pratique fait la même chose que ce que le sed est censé faire ?

[Bragu Demon]

uniligne

Je ne connaissais pas l'expression ...
Je me fait un fichier test demain et je te dis ça.

Je vais exécuter cette uniligne () sur un serveur RedHat ... c'est peut-être un indice pour comprendre pourquoi je ne récupère pas la main, et je suis avec moba Xterm 9.4

[Bragu Demon]

par contre le perl ne me rend pas la main :-(

Alors sur un fichier de 115 Mo je récupère la main, sur un fichier de 3,3 Go, je n'ai peut-être pas suffisamment attendu

perl -pe 'if($x){$_=" $_";$x="";next};$nr++ while m/\G./gc ;if($nr < 600){chomp;$x=1};$nr=0' fichier

Code :

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

1
2
3
4
5
6
[Mon Feb 13 08:34:05]> /home/srv
$ perl -pe 'if($x){$_=" $_";$x="";next};$nr++ while m/\G./gc ;if($nr < 600){chomp;$x=1};$nr=0' test.test > repar.repar
[srv09e156@vxlnfs002.retraite.lan, Mon Feb 13 08:34:56]> /home/srv09e156
$ perl -ne '$nr++ while m/\G./gc ; print "$.\n" if $nr < 600; $nr=0' repar.repar
[Mon Feb 13 08:35:58]> /home/srv
$

Par contre je ne peux pas encore le faire sur mon fichier (qui est sur la prod), j'ai pas complètement envie de l'exploser (la prod).
Du coup je marque le sujet résolu, puisqu'il l'est de 2 façon différentes.


A titre d'info :

LSB Version: :base-4.0-amd64:base-4.0-noarch:core-4.0-amd64:core-4.0-noarch:graphics-4.0-amd64:graphics-4.0-noarch:printing-4.0-amd64:printing-4.0-noarch
Distributor ID: RedHatEnterpriseServer
Description: Red Hat Enterprise Linux Server release 6.6 (Santiago)
Release: 6.6
Codename: Santiago

Merci pour tout