Eskimiş Cisco Router'ınızı sayısal loto makinasına çevirebilirsiniz :)

Herkese merhaba,

Birkaç gündür EEM (Embedded Event Manager) ve bir süredir de TCL (Tool Command Language) scripting ile ilgili birşeyler öğrenmek için çalışıyorum. Bunların neler oldukları ve ne işe yaradıklarını daha teknik kullanımlarıyla ilgili örneklerle en kısa sürede hazırlayıp siteye ekleyeceğim fakat daha önce tcl ile ilgili güzel bir olayı sizle paylaşmak istedim. Paylaşacağım tcl kodu ile network sorunlarından bunaldığınız  anlarda, backbone cihazını artık daha az cpu tüketecek vaziyette kullanmak ve bu sayede oluşabilecek pek çok sorundan bir an olsun uzaklaşmak için onu basit bir  sayılsal loto makinasına çevirebilirsiniz 🙂

1. adım: Aşağıda belirttiğim kodu kopyalayıp, isim.tcl olarak bir metin belgesine kopyaladıktan sonra bu örnek için tftp sunucunuzun kök dizinine atmanız ilk aşama için yeterli olacaktır.

puts “\n*—–Sayisal Loto 6/49 —–*\n”

for {set j 1} {$j <= 6} {incr j} {
set z [expr { int((rand()*49) 1)}]
set myNumbers($j) $z
if {$j >= 2} {
for {set k 1} {$k < $j} {incr k} {
if {$z == $myNumbers($k)} {incr j -1}
}
}
}

puts “Haydi Rastgele:”
for {set j 1} {$j <= 6} {incr j} {
puts -nonewline “$j: “
flush stdout
gets stdin yourNumber
if {$yourNumber < 1 || $yourNumber > 49} {
puts “opss, 1″den 49″a kadar sadece!”
incr j -1
continue
}
if {$j == 1} {
set yourNumbers($j) $yourNumber
}
if {$j > 1} {
for {set k 1} {$k < $j} {incr k} {
if {$yourNumber == $yourNumbers($k)} {
puts “Bir numarayi sadece online casino canada bir kez girmelisin!”
incr j -1
break
}

else {
set yourNumbers($j) $yourNumber
}
}
}
}
puts “\n”

set scounter 0

for {set j 1} {$j <= 6} {incr j} {
for {set k 1} {$k <= 6} {incr k} {
if {$myNumbers($j) == $yourNumbers($k)} {incr scounter}
}
}

set myUnsortedNumbers “”

for {set c 1} {$c <= [array size myNumbers]} {incr c} {
append myUnsortedNumbers ” ” $myNumbers($c)
}
set mySortedNumbers [lsort -integer $myUnsortedNumbers]

puts “Benim Sectiklerim:   $mySortedNumbers\n”

set yourUnsortedNumbers “”
for {set c 1} {$c <= [array size yourNumbers]} {incr c} {
append yourUnsortedNumbers ” ” $yourNumbers($c)
}
set yourSortedNumbers [lsort -integer $yourUnsortedNumbers]

puts “Senin Numaralarin: $yourSortedNumbers\n”
puts “Kac tane tutturdun?:    $scounter\n”

2. aşama olarak ise,

“Agciyiz(config)#alias exec loto tclsh tftp://1.1.1.1/isim.tcl” kısayolunu oluşturduktan sonra şansımızı deneyebiliriz.

sonuç;

Agciyiz#loto
Loading isim.tcl from 1.1.1.1 (via FastEthernet0/0): !
[OK – 1523 bytes]

*—–Sayisal Loto 6/49 —–*

Haydi Rastgele:
1:
opss, 1″den 49″a kadar sadece!
1: 1
2: 2
3: 3
4: 4
5: 5
6: 6

Benim Sectiklerim:   1 7 9 14 39 43

Senin Numaralarin: 1 2 3 4 5 6

Kac tane tutturdun?:    1

————————–

İddaa tüyoları veren routerlarda görüşmek üzere  (:

“Eskimiş Cisco Router'ınızı sayısal loto makinasına çevirebilirsiniz :)” için 5 cevap

  1. Safa her çekilişten önce bizim routerın yaptığı tahminleri yayınla burda, biz de kendi ahtapot paul’umuzu çıkartmış oluruz:)

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir