IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

3Beğeni(ler)
  • 3 Post By saywhat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Kasım 2014, 09:58   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Dosya Bilgisi Tcl.




yine bir kullanıcının isteği üzerine yazdığım küçük scriptlerden biri...

ne iş yapar :
komutla istenen dosyanın (.uzantısı fark etmez .txt , .tcl .conf vs vs ..) kaç satır olduğunu ve boyutunu verir.
sorgulanmak istenen dosya, bot ana dizinindeyse (misal ; eggdrop.conf vs ise) direk dosya adıyla sorgu yapılabilir. ancak ,bilgi istenen dosya, botun alt dizinlerinden birindeyse yada bot dizini dışında bir yerdeyse,o halde scriptin bulabilmesi için dosyanın diziniyle sorgulanmalı....

örnek : bota yüklü bir scriptin boyutu sorgulanacaksa ,scripts/ dizini içinde olacağından

.dosya scripts/falanca.tcl

şeklinde sorgulanmalı yada ;

.dosya /home/kullanıcı/.bash_history

yada :

.dosya /home/kullanıcı/bot/scripts/filan.tcl

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - ".dosya" line_counter proc line_counter {nick uhost hand chan text} { set myfile [lindex [split $text] 0] if {[llength $myfile] eq "0"} { puthelp "privmsg $chan :Kullanımı : $::lastbind <dosya-adı>" return 0 } elseif {[file exists $myfile] && [llength $myfile] > "1"} { puthelp "privmsg $chan :$myfile adında birden fazla dosya var." return 0 } elseif {![file readable $myfile] || ![file exists $myfile] || [file isdirectory $myfile]} { puthelp "privmsg $chan :$myfile okunamıyor.böyle bir dosya yok yada bir dizin adı olabilir." return 0 } else { set infile [open "$myfile" r] set number 0 while {[gets $infile line] >= "0"} { incr number } close $infile if {[format %.2f [expr {[file size $myfile] / 1024.0}]] > "1024.0"} { set size "[format %.3f [expr {[file size $myfile] / 1024.0 / 1024.0}]] MB" } else { set size "[format %.2f [expr {[file size $myfile] / 1024.0}]] KB" } puthelp "privmsg $chan :$myfile $number satır, boyutu : $size" } }


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

buraya postaladığım o kişiye yazdığım orjinal scriptin tercümesidir...

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
bilgisi, dosya, dosya bilgi, eggdrop, snippet, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
hedef dosyanın path (yolu) dosya adı ve dosya uzantısını bulmak hAte PHP 0 11 Kasım 2014 05:06
Ses bilgisi Ecrin Türkçe 0 18 Şubat 2012 23:26
ip bilgisi sedaa006 mIRC Scripting Sorunları 8 26 Mart 2011 20:47
/dtara sürücü dosya(Dosya arama) L4roXyL mIRC Scripting Hazır Kodlar 2 21 Eylül 2007 15:44