• # En perl

    Posté par . En réponse au message Suppression de X carractère d'une ligne. Évalué à 2.

    [gco@gc]:~% cat pouet
    D:04/08/05 10:06 197 amap.log
    27/03/06 16:45 5 400 acad.kgb
    D:\test
    07/11/03 16:59 85 504 travaux.xls

    [gco@gc]:~% cat pouet|perl -ne 'if(/^.+\d{1,2}:\d{2} (.+)$/) { print "1ドル\n"; } else {print "$_" };'
    197 amap.log
    5 400 acad.kgb
    D:\test
    85 504 travaux.xls
    [gco@gc]:~%