|
alias oku {
var %x $lines(dosya.txt)
while $read(dosya.txt,%x) {
dagit $read(dosya.txt,%x)
dec %x
}
}
alias dagit {
var %ş 1
while $gettok($1-,%ş,32) {
echo -a $gettok($1-,%ş,32)
inc %ş
}
}
Haklısın .)
$1 1. kelimedir.
Doğal olarakta hep 1. kelimeler Çıkar.
Yukardaki Çalışacaktır...
|