TCL - trouver un motif régulier dans un fichier et de retour de l'événement et le nombre d'occurrences

Je suis en train d'écrire un code de grep une regular expression motif à partir d'un fichier de sortie et de cette expression régulière et le nombre de fois qu'elle a eu lieu.

Voici le code: je suis en train d'essayer de trouver le modèle "grep" dans mon fichier hello.txt:

set file1 [open "hello.txt" r]
set file2 [read $file1]
regexp {grep} $file2 matched
puts $matched
while {[eof $file2] != 1} {
set number 0
if {[regexp {grep} $file2 matched] >= 0} {
 incr number
}

puts $number
}

De sortie que j'ai eu:

grep

--------
can not find channel named "qwerty
iiiiiii
wxseddtt
lsakdfhaiowehf'
jbsdcfiweg
kajsbndimm s
grep
afnQWFH
 ACV;SKDJNCV;
    qw  qde 
 kI UQWG
grep
grep"
    while executing
"eof $file2"

OriginalL'auteur prashanthi | 2011-06-29

  1. 6

    C'est une erreur de vérifier eof dans une boucle while -- vérifier le code de retour de gets à la place:

    set filename "hello.txt"
set pattern {grep}
set count 0

set fid [open $filename r]
while {[gets $fid line] != -1} {
    incr count [regexp -all -- $pattern $line]
}
close $fid

puts "$count occurrances of $pattern in $filename"

    Une autre pensée: si vous êtes juste de comptage modèle correspond, en supposant que votre fichier n'est pas trop grande:

    set fid [open $filename r]
set count [regexp -all -- $pattern [read $fid [file size $filename]]]
close $fid

    OriginalL'auteur glenn jackman

  2. 3

    Le message d'erreur est provoqué par la commande eof $file2. La raison en est que $file2 n'est pas un descripteur de fichier (resp. canal), mais contient le contenu du fichier hello.txt lui-même. Vous lisez le contenu de ce fichier avec set file2 [read $file1].

    Si vous voulez le faire comme ça, je suggère de renommer $file2 en quelque chose comme $filecontent et en boucle sur tous les contenus en ligne:

    foreach line [split $filecontent "\n"] {
  ... do something ...
}

    OriginalL'auteur bmk

  3. 3

    Glenn est sur place. Voici une autre solution: Tcl vient avec le fileutil paquet, qui a la commande grep:

    package require fileutil
set pattern {grep}
set filename hello.txt
puts "[llength [fileutil::grep $pattern $filename]] occurrences found"

    Si vous vous souciez de la performance de Glenn solution.

    +1, mais je pense que tu veux dire TclLib ou ActiveTcl est livré avec fileutil -- ce n'est pas un package de base
    Merci à vous tous....apprécie vraiment votre aide
    Mon erreur, oui fileutil fait partie de la tcllib.

    OriginalL'auteur Hai Vu