Bonjour, c'est vendredi ! pourquoi s'ennuyer avec des outils standards alors qu'on a Perl 6 ?
$ cat > toto3 <<__FIN__ > ligne 1 > ligne 2 > ligne 3 > __FIN__ $ perl6 -ne 'state $i++ ; exit 1 if $i > 1' toto3 && echo "Une seule ligne." $ cat > toto1 <<__FIN__ ligne 1 __FIN__ $ perl6 -ne 'state $i++ ; exit 1 if $i > 1' toto1 && echo "Une seule ligne." Une seule ligne. Bonne fin de semaine, Conclusion, apt install perl6. Charles -- Charles Plessy Tsurumi, Kanagawa, Japan
