Formatli yazdirma...... - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Web Master Kaynakları > CGI

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 08 February 2008, 17:20   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Formatli yazdirma......

Formatli yazdirma......

FORMATLI YAZDIRMA

Tanımlama: Aşağıdaki tanım basit bir örnektir.



format FORMATIM =



===================================



B a s k ı F o r m a t ı d ı r

===================================



.



syntax:



format FORMAT_ADI =

----

---- çıktı satırları

----

----

.



BASKI FORMATINI GÖSTERME

Bu işlem için iki şeye ihtiyaç vardır.

Kullanmak istediğiniz formatı, $~ sistem değişkenine(sistem değişkenlerini göreceğiz), set edin.
write fonksiyonunu çağırın.
Bununla ilgili bir örnek program görelim.



Ör. program: #! /usr/bin/perl

$~="FORMATIM";

write;

format FORMATIM =

=====================

g ö r mek i s t e d i ğ i n i z t e x t

=====================

.



çalıştır ¿



=====================

g ö r mek i s t e d i ğ i n i z t e x t

=====================



İzah: format adı ( FORMATIM ) sistem değişkenine ($~) atandığında perl şunu anlar.

write fonksiyonu kullanıldığında atanan format basılacaktır.

Son kısımda ise formatın tanımlanması vardır.



Not: eğer $~ sistem değişkenine atanma olmasaydı, yazdırma işlemi standart çıktıya (STDOUT) olacak şeklinde algılanacaktı.



BASKI FORMATINDA DEĞERLERİ GÖSTERME



Tabi ki bu işlemin amacı değişken ve dizilerdeki değerlerin uygun biçimde yazdırılmasıdır.



Ör. programSesli harfleri bulur sayar ve basar)

1:#!/usr/local/bin/perl

2:

3: while ($kayit = <STDIN&gt {

4: $kayit =~ s/[^aeiou]//g;

5: @sesliler = split(//, $kayit);

6: foreach $sesli (@sesliler) {

7: $seslisayisi{$sesli } += 1;

8: }

9: }

10: $~ = "SESLIFORMAT";

11: write;

12:

13: format SESLIFORMAT =

14: ================================================== ========

15: text içindeki sesli adedi:

16: a: @<<<<< e: @<<<<<

17: $seslisayisi {"a"}, $seslisayisi {"e"}

18: i: @<<<<< o: @<<<<<

19: $seslisayisi {"i"}, $seslisayisi {"o"}

20: u: @<<<<<

21: $seslisayisi {"u"}

22: ================================================== ========

23: .



çalıştırılır¿



Bu bir sesli harf bulma testidir.

Kartal Cimbomu yendi.



^D

================================================== ========

text içindeki sesli adedi:

a: 4 e: 3

i: 6 o: 1

u: 3

================================================== ========



çalışması: satır girilir.

4. satırda; a,e,i,o,u dışındakiler elenir

5. satırda; kalanlar(sesli) @sesliler dizisine aktarılır.

6. satırda; sesliler sayılır (@sesliler dizisi test edilerek) ve %seslisayisi bileşik dizisine eklenir.

10. satırda; basım formatı SESLIFORMAT olarak Set edilir.





NOT:

Değer alanları formatları için tanımlanan değerler hakkında 3 şeyi not etmeliyiz.

alanların içerikleri basılır.
alan boşluklarını hizalamaya gerek yoktur.
alanlar bir üst satırda tanımlı formata uygun tanımlanırlar.




DEĞER ALANI FORMATI SEÇİMİ



Geçerli değer alanı formatları tablosu





Alan Değer Alan Formatı



@<<< sola dayalı baskı



@>>> sağa dayalı baskı



@||| merkeze dayalı baskı



@##.## sabit noktalı sayısal baskı



@* çok satırlı text





Not: @* haricinde tüm tanımlarda alan ölçüsü tanımlı karakter sayısı kadardır. Bu sayıya @ karakteri dahildir. Örneğin;

@>>>> tanımı 5 karakter uzunluğu belirtir. Benzer şekilde

@##.## uzunluğu 6 dır(. da dahil)





ÇOK SATIRLI ALAN FORMATI KULLANIMI



Ör prog.



#!/usr/local/bin/perl

@kayit = <STDIN>;

$karakterler = join("",@kayit);

$~ = "SATIRLAR";

write;

format SATIRLAR =

****** Girdiğiniz dosyanin icindekiler: ******

@*

$karakterler

*****************************************

.



çalıştır: program.pl ¿



ilk satir

ikinci satir

ucuncu satir

****** Girdiğiniz dosyanin icindekiler: ******

ilk satir

ikinci satir

ucuncu satir

*****************************************



2. satır file'ın tamamını @input dizisine atar. Her bir satır dizinin bir elemanı olarak yerleşir.

3. satır girilen satırları tek karakter stringi olarak $stringe birleştirerek yerleştirir. Bu karakter stringi newline karakterlerini de içermektedir.

6. satır formatı çağırarak bastırır . @*tanımı çok satırlı text olarak formatlar.



DİĞER ÇIKTI DOSYALARINA YAZMA

Şu ana kadar write fonksiyonu ile standart çıktı dosyasına yazılma örnekleri gördük. Diğer dosyalara da yazdırabiliriz. En kolayı write'a argüman olarak file'ı geçirmektir. Örneğin DOSYAM ile temsil edilen dosyaya yazmak için (DOSYAM print formatı kullanarak) şu ifadeyi kullanırız; write (DOSYAM);



Bu örnekte DOSYAM file adı ve format adı olarak kullanılıyor bu düzenli ve hoştur ama bazı kısıtlamaları vardır. Böyle bir durumda $~ kullanılamaz.(print format seçimi için). $~ sistem değişkeni default file değişkeniyle çalışır. O da write ile çıktıya gönderilir. default file variable'nı değiştirmek böylece $~ da etkin file'ı değiştirmek için hazır select fonksiyonu kullanılır.



select (DOSYAM);



Select kullanım için default file değişkenini set eder. Örneğin; file değişkeni DOSYAM ile temsil edilen, dosyaya yazmak amacıyla FORMATIM print formatını kullanmak için;



select(DOSYAM);

$~ = "FORMATIM";

write;



kodlamak gerekir. Bu kodlama ile FORMATIM formatı DOSYAM değişkeni ile birleştirilmiş oldu. Bundan sonra write artık bu dosyaya yazdırmaya başlar. Eğer tekrar standart çıktıya yazdırmak istersek



select(STDOUT); komutunu kodlarız.



Not: select kullanımı sadece write ' a değil print ' e de etki eder.



Select fonksiyonu çok kullanışlı olup aynı altyordamla aynı anda birden fazla dosyaya yazdırma imkanı sağlar. Örnek programda bunu görebiliriz.





1: #!/usr/local/bin/perl

2:

3: open (DOSYA1, ">dosya1"

4: $karakterler = "Denemeler";

5: select (DOSYA1);

6: &kayityaz;

7: select (STDOUT);

8: &kayityaz;

9: close (DOSYA1);

10:

11: sub kayityaz {

12: $~ = "KAYITYAZ";

13: write;

14: }

15:

16: format KAYITYAZ =

17: CIKTI DOSYALARIMA@<<<<< YAZIYORUM.

18: $karakterler

19: .



çalışması: program.pl¿



CIKTI DOSYALARIMADeneme YAZIYORUM.



Yukardaki satır hem ekrana hem de dosya1 isimli dosyaya yazar.







Not: select ve $~ rastgele kullanılmaz format takibini kaybedebiliriz. Aşağıdaki örnekteki gibi kullanım uygundur .

select (DOSYAM);

$~ = "FORMATIM";

write;





DEFAULT FİLE DEĞİŞKENİNİ SAKLAMAK (SAVE) .



Select son seçilen file değişkeninin içeriğini tutar. Örneğin;



$eskidosya = select(YENIDOSYA);

select ($eskidosya);

şeklindeki kullanımla da önceki dosya lazım olduğunda kullanılabilir.



Select ile seçim işini bir alt programla yapar ve programın geri kalanını etkilemede kullanabilirsiniz. Aşağıdaki örneği bu amaçla kullanabilirsiniz, inceleyin.



sub standarta_yaz {

local ($dosyasakla, $formatsakla);

$dosyasakla = select(STDOUT);

$formatsakla = $~;

$~ = "FORMATIM";

write;

$~ = $formatsakla;

select($dosyasakla);

}



Bu alt program default olarak STDOUT set etmek için select'i çağırır. select'in dönüş değeri önceki default file' dır ve $dosyasakla içine saklanmıştır. Sonraki adım STDOUT' a yazmak için kullanılan printformatı save etmektir. Altyordam bunu, $~ halihazırdaki değerini $formatsakla değişkenine saklayarak yapar ve sonra altprogram, FORMATIM 'ı printformatı olarak set eder..(o an kullanımda olacak printformat olarak) write çağrıldığında artık standart output dosyasına FORMATIM formatını kullanarak yazar.

Birinci adım; $~' i $formatsakla içindeki değere resetlemek,

son adımda $dosyasakla içindeki file' ı default output olarak set etmektir.



SAYFA BAŞLIK AYARI



dosyaadı_TOP



örnek: format STDOUT_TOP =

Ertanlar Kollektif Şirketi

.



yukarıda tanımdaki format her sayfa başına yazacaktır. Bu alanda değişkenlerde kullanılabilir(diğer format tanımlarında olduğu gibi) sayfa başlarına yazılan sayfa numaralarını sistem değişkeni olan

$% tutar.



örnek:



format STDOUT_TOP =

Sayfa @<<.

$%

.

bu tanımla mesela 1.sayfa basılırken sayfanın üzerindeki baskı şöyle çıkar.

Sayfa 1.



BAŞLIK BASKI FORMATINI DEĞİŞTİRME



Bu işlem için $^ sistem değişkeni kullanılır. $~ de olduğu gibi default file değeri değişir. Örneğin; başlık formatı olarak BASLIGIM baskı formatını ve başlık file ' ı olarak ta DOSYAM ' ı kullanmak için şu ifadeleri ekleriz.



$eskidosya = select(DOSYAM);

$^ = "BASLIGIM";

select($eskidosya);

.



SAYFA UZUNLUĞU ARALIĞI



Bu iş için $= sistem değişkeni kullanılır. Default değer 60 satırdır. Mesela 66 satıra ayarlamak için şöyle yazarız.



$= = 66; bu atama ilk write' dan önce yapılmalıdır.sayfa ortasında böyle bir ayar yapılırsa sonraki sayfadan geçerli olur.



Baskı ve uzunluk ayarı ve formatı kullanan program örneği aşağıdadır.



Ör11.08

1: #!/usr/local/bin/perl

2:

3: open (BASKI, ">dosya.dat" #çıktı file' ı tanımlandı.

4: select (BASKI);

5: $~ = "SATIRYAZ"; #çıktı formatı(OUTFILE için) bu atama sayfa başlığını #içermez.

6: $^ = "TOP_OF_PAGE"; #OUTFILE için satır başlığı formatı belirlendi.

7: $= = 60; #satır ayarı 60 olarak belirlendi.

8: while ($satir = <STDIN&gt {

9: write;

10: }

11: close (BASKI);

12:

13: format TOP_OF_PAGE =

14: - sayfa @<

15: $%

16: .

17: format SATIRYAZ =

18: @>>>>>>>>>>>>& gt;>>>>>>>>>>>&gt ;>>>>

19: $satir

20: .



çalışması: program.pl ¿

bu bir satirdir

bu ise ikinci satirdir

son satir da bu olsun bakalim.

^D



$ more dosya.dat (dosya.dat içeriğini görelim)



- sayfa 1

bu bir satirdir

bu ise ikinci satirdir

son satir da bu olsun bakalim.



UZUN KARAKTER STRİNGLERİN FORMATI



@* multiline text karakteri ile çok satırı alt alta yazdırmıştık ama bunda formatlama yoktu. Düzgün basım formatı için başlangıçtaki @ yerine ^ karakteri kullanırız.



Örnek rogram.pl



1: #!/usr/local/bin/perl

2:

3: $string = "Bu\ndengesiz satır\nörneğidir.\n";

4: $~ = "OUTLINE";

5: write;

6:

7: format OUTLINE =

8: ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<

9: $string

10: .



çalışması: program.pl ¿



Bu dengesiz satır





Not: 8.satırda ^ yerine @^kullanılsaydı çıktı şöyle olurdu.



Bu

dengesiz satır

örneğidir.


Şimdi çok satırlı, formatlı bir örnek görelim.



Örnekrogram.pl



1: #!/usr/local/bin/perl

2:

3: @aktarma = <STDIN>;

4: $aktarma = join("",@aktarma);

5: $~ = "ALINTI";

6: write;

7:

8: format ALINTI =

9: Günün sözü:

10: -----------------------------

11: ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<

12: $aktarma

13: ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<

14: $aktarma

15: ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<

16: $aktarma

17: -----------------------------

18: .



çalışması: program.pl ¿



Etkin bir programlama dili

programcinin eli ayagidir sihirli bir asadir.

^D



Günün sözü:

-----------------------------

Etkin bir programlama dili programcinin eli ayagidir

sihirli bir asadir.

-----------------------------







FORMATLAMA ANINDA BOŞ SATIRLARI ELEMEK



Bu işlev için yukardaki örnekteki 11,13,15. satırların en başına ~ karakteri konur.Diğer kısımlar aynıdır.



11: ~ ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<
12: $aktarma
13: ~ ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<
14: $aktarma
15: ~ ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<
16: $aktarma



BELİRSİZ SAYIDA SATIR GİRMEK.



Bunun içinde ~~ sembolü kullanılır.



1: #!/usr/local/bin/perl
2:
3: @aktarma = <STDIN>;
4: $aktarma = join("", @aktarma);
5: $~ = "ALINTI";
6: write;
7:
8: format ALINTI =
9: Günün Notu :


10: -----------------------------
11: ~~ ^<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<<& lt;<<<<<<<<<<<&lt ;<
12: $aktarma
13: -----------------------------
14: .

çalışması: ¿



bir başarılı proglamlama dili

iyi dizayn edilmişse büyüden farksızdır.

^D

Günün Notu :

----------------------------
bir başarılı programlama dili
iyi dizayn edilmişse büyüden farksızdır.
-----------------------------


ÇIKTI FORMATLAMADA printf

Aşağıdaki argümanlar printf ' ye geçirilir.

a) Bir veya fazla alan tanımlayıcı içeren basılacak string
b)Basılacak string de görülecek her alan için bir değer.

Alan tanımlayıcıları tablosu aşağıdadır. % işaretiyle kullanılırlar.

%c tek karakter
%d 10 tabanlı integer
%e bilimsel floating-point
%f floating-point (sabit noktalı)
%g floating-point (birleşik format)
%o oktal tamsayı (integer)
%s string
%u işaretsiz tamsayı
%x 16 tabanlı integer

Örn:
printf("Bastırmak istediğim sayı : %d.\n", $toplam);

printf ' ile ilgili bazı özellikler


eğer d,o,u,x önüne l (le) koyarsak Long anlamındadır(uzun integer) %ld gibi... bu durum integer çok rakamlıysa kullanılmalıdır.
pozitif tamsayı uzunluk gösterir. Örneğin; %20s ifadesi 20 karakter uzunluğunda string anlamındadır. Ve sağa dayalı yerleşir.
eğer negatif sayı ile verilirse alan dolmadığında sola dayalı yerleşir. Örneğin; %-20s sola dayalı 20 karakter (alan dolmazsa)
eğer e,f,g kullanıyorsak noktadan sonraki hane sayısını verebiliriz.


Şöyleki;



%8.3f







alan genişliği nokta sonrası



Not: eğer rakam fazla girilmişse yuvarlama yapılır. Örneğin;



Tanım değer

%5.2f 43.499 girilmişse değer 43.50 olur.



Şu örnekte; %15.10s ise

String 15 karakter uzunluğunda bir alana basılacak ama stringin kendisi en fazla 10 karakter uzunluğunda olacak ifadesi vardır. (bu durum basılacak alanda 5 tane boşluk garanti eder).



Not: printf ile diğer dosyalara da write ' da olduğu gibi yazma işlemi yapılır.

printf DOSYAM ("Toplam: %d.\n", $toplam);





Alıntı ile Cevapla
Cevapla

Bookmarks

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

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Yaziyi tersten yazdirma tamerr89 C++ 0 29 March 2008 18:42

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.