pl/slq de fibonacci sayı dizisini oluşturma

Merhaba
Hayatında herkes Fibonacci sayı dizisini duymuştur. Bu konuda detaylı bilgi Leonardo Fibonacci linkinden ve özet ve basit bilgiyi ise Fibonacci Dizisi adresinden görebilirsiniz.
Bilindiği gibi Fibonacci dizisi bir matematiksel işlemdir. Herhangi bir programlama dili ile bu dizi rahatlıkla oluşturulabilinir.Fibonacci dizisinin temel formülü F(n-1)+F(n-2) şeklindedir. Pl/Sql ile de bir Fibonacci dizisi oluşturabiliriz.

DECLARE
  fibo VARCHAR2(4000);

  FUNCTION fibonacci(n NUMBER) RETURN NUMBER IS
  BEGIN
    IF n = 0 OR n = 1 THEN
      RETURN n;
    ELSE
      RETURN fibonacci(n - 1) + fibonacci(n - 2);
    END IF;
  END;

BEGIN
  FOR i IN 0 .. 20 LOOP
    fibo := fibo || fibonacci(i) || ' ';
  END LOOP;
  dbms_output.put_line(fibo);
END;

Ben örnek olarak 0-20 arasındaki sayılar için Fibonacci dizisi oluşturdum fakat bilindiği gibi Fibonacci dizisi herhangi bir sayıdan başlanılarak da oluşturulabilinir.

0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 

0-20 arasındaki sayılar için yukarıda gibi bir Fibonacci dizisi oluşurken bu işlemi 5-20 arasında yaparsak bahsettiğim herhangi bir sayıdan başlanıp Fibonacci dizi oluşturulduğunu ve değerlerin değişmediğini görelim.

DECLARE
  fibo VARCHAR2(4000);

  FUNCTION fibonacci(n NUMBER) RETURN NUMBER IS
  BEGIN
    IF n = 0 OR n = 1 THEN
      RETURN n;
    ELSE
      RETURN fibonacci(n - 1) + fibonacci(n - 2);
    END IF;
  END;

BEGIN
  FOR i IN 5 .. 20 LOOP
    fibo := fibo || fibonacci(i) || ' ';
  END LOOP;
  dbms_output.put_line(fibo);
END;

5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 

Görüldüğü gibi dizide başlangıç değeri dışında değişen bir durum olmadı. Genel Fibonacci dizisi kuralı olan F(n-1)+F(n-2) durumu ile yazılım dili ne olursa olsun istenilen Fibonacci dizisi oluşturulabilinir.
NOT: Kodlarda da göreceğiniz gibi F(n-1)+F(n-2) işlemi yapmak için n>1 olması gerekiyor. n=1 ya da n=0 olduğu durumda kodlarda görülen işlemi yapmak n değerini olduğu gibi kullanmak gerekir.
Kolay gelsin.

pl/sql de sequence de cycle kullanımı

Merhaba,

Database üzerinde kullandığımız tablolar için kayıt ekleme işlemi yaparken ya da kullanmış olduğumuz fonksiyon ,prosedür gibi veritabanı işlemlerinde sabit artan sayısal verilere ihtiyacımız olduğu zaman sequence yapısını kullanırız.Sequence sayesinde sıralı olarak sürekli yeni bir sayı elde ederiz. Bu işlem sequence oluşturduğumuzda verdiğimiz başlangıç değeri ile başlar ve bitiş değerine kadar devam eder.
Bazı durumlarda bu işlemin sabit bir değerler arasında tekrar etmesi gerekebilir. Bunun içinde kullandığımız sequence içinde cycle işlemini kullanırız.Cycle sayesinde sequence değerlerimiz kısıtlı başlangıç ve bitiş değerleri arasından işlem yapar.
Bu işlemi daha iyi anlamak için sequence yapısı iki farklı biçim içinde kullanalım. İlk olarak normal şekilde kullanımı yapalım ve bunun için bir sequence yaratalım.

create sequence normal_sequence
minvalue 1
maxvalue 10
start with 1
increment by 1
cache 20;

Strandart bir sequence elimizde olduğuna göre bu sequence si kullanalım ve alacağı değerli ve değer aşımından alacağımız hatayı görelim. Bu işlem için basit bir declare yazalım.

DECLARE
  seq_val NUMBER;
BEGIN
  BEGIN
    FOR i IN 1 .. 10 LOOP
      SELECT normal_sequence.NEXTVAL INTO seq_val FROM dual;
      dbms_output.put_line('Döngü Değeri=' || i || ' Sequence Değeri=' || seq_val);
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('Hata Oluştu=' || SQLERRM);
  END;
END;

Bu komutlar çalıştığı zaman sorunsuz olarak sequence çalışacaktır ve sonuç olarak aşağıdaki gibi bir çıktı oluşacaktır.

Döngü Değeri=1 Sequence Değeri=1
Döngü Değeri=2 Sequence Değeri=2
Döngü Değeri=3 Sequence Değeri=3
Döngü Değeri=4 Sequence Değeri=4
Döngü Değeri=5 Sequence Değeri=5
Döngü Değeri=6 Sequence Değeri=6
Döngü Değeri=7 Sequence Değeri=7
Döngü Değeri=8 Sequence Değeri=8
Döngü Değeri=9 Sequence Değeri=9
Döngü Değeri=10 Sequence Değeri=10

Fakat yazdığımız declare içindeki döngümüzü sequence max değeri olan 10 kere yerine 11 kere çalıştırdığımızda ise hata alırız. Değişen declare komutlarımız ve sonuçları aşağıdaki gibidir.

DECLARE
  seq_val NUMBER;
BEGIN
  BEGIN
    FOR i IN 1 .. 11 LOOP
      SELECT normal_sequence.NEXTVAL INTO seq_val FROM dual;
      dbms_output.put_line('Döngü Değeri=' || i || ' Sequence Değeri=' || seq_val);
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('Hata Oluştu=' || SQLERRM);
  END;
END;

Görüldüğü gibi döngümüz 10 kere değil 11 kere işlem yapacak ve sonuçları ise aşağıdaki gibi olacaktır.

Döngü Değeri=1 Sequence Değeri=1
Döngü Değeri=2 Sequence Değeri=2
Döngü Değeri=3 Sequence Değeri=3
Döngü Değeri=4 Sequence Değeri=4
Döngü Değeri=5 Sequence Değeri=5
Döngü Değeri=6 Sequence Değeri=6
Döngü Değeri=7 Sequence Değeri=7
Döngü Değeri=8 Sequence Değeri=8
Döngü Değeri=9 Sequence Değeri=9
Döngü Değeri=10 Sequence Değeri=10
Hata Oluştu=ORA-08004: sequence NORMAL_SEQUENCE.NEXTVAL exceeds MAXVALUE and cannot be instantiated

Aldığımız hatadan da anlaşılacağı gibi döngümüzün 11. dönüş değerinde sequence imiz max değerinden fazla bir değer almaya çalıştığı için hatayı alıyoruz.

Şimdi sabit başlangıç ve bitiş değerleri arasında bir sequence ve içerisinde cycle kullanımına bir göz atalım. Öncelikle cycle değerine sahip bir sequence oluşturalım.

create sequence cycle_sequence
minvalue 1
maxvalue 10
start with 1
increment by 1
cache 2
cycle;

Cycle değerine sabhip bir sequence elimizde olduğuna göre bu sequence si kullanalım ve alacağı değerli ve değer aşımında nasıl davranacağını görelim. Bu işlem için basit bir declare yazalım.

DECLARE
  seq_val NUMBER;
BEGIN
  BEGIN
    FOR i IN 1 .. 10 LOOP
      SELECT cycle_sequence.NEXTVAL INTO seq_val FROM dual;
      dbms_output.put_line('Döngü Değeri=' || i || ' Sequence Değeri=' || seq_val);
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('Hata Oluştu=' || SQLERRM);
  END;
END;

Normal olarak sequence max değeri olan 10 kadar döngümüz çalıştığından hiçbir sorun olmadan aşağıdaki gibi sonuç elde edilmektedir.

Döngü Değeri=1 Sequence Değeri=1
Döngü Değeri=2 Sequence Değeri=2
Döngü Değeri=3 Sequence Değeri=3
Döngü Değeri=4 Sequence Değeri=4
Döngü Değeri=5 Sequence Değeri=5
Döngü Değeri=6 Sequence Değeri=6
Döngü Değeri=7 Sequence Değeri=7
Döngü Değeri=8 Sequence Değeri=8
Döngü Değeri=9 Sequence Değeri=9
Döngü Değeri=10 Sequence Değeri=10

Fakat bu işlem yerine sequence max değerinden fazla bir şekilde döngümüz çalıştığı zaman ise ilk örnekteki gibi hata almak yerine cycle yapımızın nasıl çalıştığını görüyoruz. Hemen bu işlemi test etmek için declare satırımız aşağıdaki gibi değiştirelim.

DECLARE
  seq_val NUMBER;
BEGIN
  BEGIN
    FOR i IN 1 .. 15 LOOP
      SELECT cycle_sequence.NEXTVAL INTO seq_val FROM dual;
      dbms_output.put_line('Döngü Değeri=' || i || ' Sequence Değeri=' || seq_val);
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('Hata Oluştu=' || SQLERRM);
  END;
END;

Görüldüğü gibi döngümüz 10 kere değil 15 kere işlem yapacak ve bu işlem sırasında hata almadan cycle sayesinde aşağıdaki gibi değerlere ulaşacağız.

Döngü Değeri=1 Sequence Değeri=1
Döngü Değeri=2 Sequence Değeri=2
Döngü Değeri=3 Sequence Değeri=3
Döngü Değeri=4 Sequence Değeri=4
Döngü Değeri=5 Sequence Değeri=5
Döngü Değeri=6 Sequence Değeri=6
Döngü Değeri=7 Sequence Değeri=7
Döngü Değeri=8 Sequence Değeri=8
Döngü Değeri=9 Sequence Değeri=9
Döngü Değeri=10 Sequence Değeri=10
Döngü Değeri=11 Sequence Değeri=1
Döngü Değeri=12 Sequence Değeri=2
Döngü Değeri=13 Sequence Değeri=3
Döngü Değeri=14 Sequence Değeri=4
Döngü Değeri=15 Sequence Değeri=5

Bu sonuçtan da anlaşılacağı gibi eğer cycle değerine sahip bir sequence kullanıyorsak , kullandığımız sequence max değerine ulaşında tekrardan min değerinden itibaren değer alır ve işlemine devam eder.

Kolay gelsin.

pl/sql de sabit metin içindeki belirli bir karakter sayısını bulma

Merhaba,

Database üzerinde kayıt olan bir metin içinde ya da herhangi bir sabit metin içerisinde bir kelimenin ya da karakterin kaç kere tekrar ettiği bilgisini bulmak için aşağıdaki pl/sql fonksiyonunu yazdım. Bu fonksiyon ile ister db üzerinde kayıtlı bir alandaki metinden ister sabit olarak fonksiyona gönderilen metin içerisinden istenilen karakter sayısı bulunabilinir. Fonksiyonun kodları ve kullanımı aşağıdadır.

CREATE OR REPLACE FUNCTION karakter_sayisi(metin VARCHAR2, aranan_karakter VARCHAR2) RETURN NUMBER IS
  karakter_adet    NUMBER;
  sonraki_karakter NUMBER;
  sabit_metin      VARCHAR2(4000);
  aranan_metin     VARCHAR2(4000);
BEGIN
  karakter_adet    := 0;
  sonraki_karakter := 1;
  sabit_metin      := lower(metin);
  aranan_metin     := lower(aranan_karakter);

  FOR i IN 1 .. length(sabit_metin) LOOP
    IF (length(aranan_metin) <= (length(sabit_metin) - sonraki_karakter + 1)) AND
       (substr(sabit_metin, sonraki_karakter, length(aranan_metin)) = aranan_metin) THEN
      karakter_adet := karakter_adet + 1;
    END IF;
    sonraki_karakter := sonraki_karakter + 1;
  END LOOP;

  RETURN karakter_adet;
END karakter_sayisi;

Örnek bir kaç kullanım aşağıdadır.

SELECT karakter_sayisi('sabit bir metin', 'i') "Karakter Sayısı" FROM dual;

SELECT karakter_sayisi('deneme olarak yazılan deneme bir sabit metin', 'deneme') "Karakter Sayısı" FROM dual;

Örneklerden de anlaşılacağı gibi sabit bir metin içerisinde ister sadece bir karakter isterse bir kelime araması yapılabilinir.

Kolay gelsin.

pl/sql çeşitli döngü kullanımı

PL/SQL ile kullanılabilecek döngü yapıları.

  WHILE TRUE LOOP
    --statements
  END LOOP;

  FOR i IN 1 .. 10 LOOP
    --statements
  END LOOP;

  FOR c IN (SELECT ) LOOP
    --statements
  END LOOP;

  OPEN c;
  LOOP
    FETCH c
      INTO abc;
    EXIT WHEN c%NOTFOUND;
    --statements
  END LOOP;
  CLOSE c;

  LOOP
    --statements
    EXIT WHEN a > 10;
  END LOOP;