गिनती संख्या पीएल/एसक्यूएल में एक स्ट्रिंग में वर्णों और शब्दों की

हमें किसी भी लम्बाई की एक स्ट्रिंग दी गई है और कार्य PL/SQL का उपयोग करके एक स्ट्रिंग में वर्णों और शब्दों की गिनती की गणना करना है।

PL/SQL प्रोग्रामिंग भाषाओं की प्रक्रियात्मक विशेषताओं के साथ SQL का एक संयोजन है। इसे Oracle Corporation द्वारा 90 के दशक की शुरुआत में SQL की क्षमताओं को बढ़ाने के लिए विकसित किया गया था। PL/SQL, स्वयं SQL और Java के साथ, Oracle डेटाबेस में एम्बेड की गई तीन प्रमुख प्रोग्रामिंग भाषाओं में से एक है।

PL/SQL ब्लॉक में, हमारे पास DECLARE ब्लॉक है जिसका उपयोग प्रोग्रामिंग में उपयोग किए गए वेरिएबल्स को घोषित करने के लिए किया जाता है और हमारे पास BEGIN ब्लॉक है जहां हम दी गई समस्या के लिए तर्क लिखते हैं,

उदाहरण के लिए

Input − string str = “Tutorials Point”
Output− count of characters is: 15
      Count of words are: 2

व्याख्या-:दी गई स्ट्रिंग में हमारे पास कुल 2 शब्द हैं इसलिए शब्द गणना 2 है और उन शब्दों में हमारे पास 14 वर्ण हैं और एक दिए गए स्ट्रिंग में एक स्थान के लिए है।

Input − string str = “Honesty is the best policy”
Output − count of characters is: 26
      Count of words are: 5

स्पष्टीकरण - दी गई स्ट्रिंग में हमारे पास कुल 5 शब्द हैं, इसलिए शब्द गणना 5 है और उन शब्दों में हमारे पास 24 वर्ण हैं और चार एक दिए गए स्ट्रिंग में चार रिक्त स्थान के लिए हैं।

नीचे दिए गए प्रोग्राम में इस्तेमाल किया गया तरीका इस प्रकार है

• किसी भी लम्बाई के स्ट्रिंग को इनपुट करें और इसे एक वेरिएबल में स्टोर करें, मान लें, str

• लंबाई () फ़ंक्शन का उपयोग करके स्ट्रिंग की लंबाई की गणना करें जो रिक्त स्थान सहित स्ट्रिंग में अक्षरों की संख्या के अनुसार एक पूर्णांक मान लौटाएगा।

• लूप को i से 0 तक और स्ट्रिंग की लंबाई तक ट्रैवर्स करें str

• फ़ंक्शन सबस्ट्र () का उपयोग करें जो एक स्ट्रिंग में सबस्ट्रिंग की संख्या लौटाएगा जो एक स्ट्रिंग में शब्दों की संख्या है

• और, एक लूप के प्रत्येक पुनरावृत्ति के साथ वर्णों की संख्या बढ़ाएँ जो एक स्ट्रिंग की लंबाई तक जा रहा है।

• एक स्ट्रिंग में वर्णों और शब्दों की गिनती प्रिंट करें।

उदाहरण

DECLARE
      str VARCHAR2(40) := 'Tutorials Point';
      nchars NUMBER(4) := 0;
      nwords NUMBER(4) := 1;
      s CHAR;
BEGIN
   FOR i IN 1..Length(str) LOOP
      s := Substr(str, i, 1);
      nchars:= nchars+ 1;
      IF s = ' ' THEN
      nwords := nwords + 1;
      END IF;
END LOOP;
dbms_output.Put_line('count of characters is:'
   ||nchars);

dbms_output.Put_line('Count of words are: '
   ||nwords);
END;

आउटपुट

यदि हम उपरोक्त कोड चलाते हैं तो यह निम्न आउटपुट उत्पन्न करेगा -

count of characters is: 15
Count of words are: 2