Discussion :

[kbz]

Bonjour,

Un collegue me pose cette colle:
Il voudrait indenter du code (genre algorightme) base sur des parentheses:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
INPUT : qwe ( rtygrt ( ht) ygrtui ) yui
 
OUTPUT: 
qwe
(
    rtygrt
    (
        ht
    )
    ygrtui
)
yui

Je dois vous avouer ne pas trop savoir comment m'y prendre !
le but etant de lui fournir un truc du style ./myindent.pl infile.txt outfile.txt
ou infile contient la ligne a indenter!

merci

[Philou67430]

Un oneline à ré-écrire proprement :

Code :

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

1
2
3
4
5
6
7
8
9
10
$ echo "qwe ( rtygrt ( ht) ygrtui ) yui" | perl -ne 'chomp(@a = split /(?=\(|\))|(?<=\(|\))/, $_); foreach (@a) { s/^\s+//g;$indent-- if /^\)/ ; print "  " x $indent, $_, "\n"; $indent++ if /^\(/; }'
qwe
(
  rtygrt
  (
    ht
  )
  ygrtui
)
yui

Il utilise le split avec une expression régulière basée sur les "zero-width assertion" (motif de taille nulle cherchant une caractère avant ou après un autre, sans le prendre dans la sélection résultat).
Le split découpe alors chaque chaine de l'entrée standard en une liste de texte et de parenthèses ouvrantes et fermantes.
Le foreach ensuite, incrémente et décrémente l'indentation selon le type de parenthèse, et affiche le texte et ces parenthèses.

[Jedai]

Faisons tout en une regexp :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict; use warnings;
 
while( <> ) {
  my $indent = 0;
  s/\s* ( \( (?{ $indent++ }) | \) (?{ $indent-- }) ) \s*
   /"\n" . "  " x ($indent + ($1 eq "(" ? -1 : 0)) . "$1\n" . "  " x $indent/gxe;
  print;
}
__END__

(pas vraiment utile, mais rigolo )
--
Jedaï

[Philou67430]

Bien vu