การเขียน Code NoSQL CRUD โดยใช้ภาษา Fortran: การสำรวจความน่าสนใจของการเขียนโปรแกรมที่ต่ำต้อยแต่ทรงพลัง**

ในยุคที่เทคโนโลยีสารสนเทศมีการพัฒนาอย่างรวดเร็ว ระบบฐานข้อมูลที่ใช้ในการจัดเก็บข้อมูลก็มีการเปลี่ยนแปลงไปจากที่ผ่านมา ในขณะที่ฐานข้อมูลเชิงสัมพันธ์ (Relational Database) เป็นที่นิยม แต่ NoSQL ก็เข้ามาเปลี่ยนแปลงให้เราเห็นภาพใหม่ ในบทความนี้เราจะเดินทางไปยังการเขียน Code NoSQL CRUD (Create, Read, Update, Delete) โดยใช้ภาษา Fortran ซึ่งแม้ว่าจะดูแปลกใหม่ไปซักหน่อย แต่เราจะพบว่ามันยังคงเปิดโลกสู่วิธีใหม่ๆ ในการเขียนโปรแกรมนั่นเอง

ทำไมถึงเลือกใช้ Fortran?

Fortran อาจจะไม่ได้เป็นภาษาที่ใช้งานในการพัฒนาเว็บหรือแอปพลิเคชันที่ทันสมัยมากนัก แต่ในบางกรณี เช่น งานด้านคณิตศาสตร์และวิทยาศาสตร์ การคำนวณที่ซับซ้อนหรือแม้กระทั่งการประมวลผลข้อมูลใหญ่ Fortran ก็ยังคงเป็นตัวเลือกที่ดี เนื่องจากมันมีประสิทธิภาพที่สูงในด้านการคำนวณ ในความเป็นจริง Fortran ถูกใช้งานในระบบที่ต้องการความแม่นยำและประสิทธิภาพสูงๆ ไม่เพียงแค่การคำนวณเชิงตัวเลขเท่านั้น แต่รวมถึงการจัดการกับข้อมูลที่มีขนาดใหญ่เช่นกัน การเชื่อมต่อ NoSQL กับ Fortran อาจจะทำให้เรามีมุมมองใหม่ในการพัฒนาโปรแกรม

NoSQL คืออะไร?

NoSQL ก็คือ ระบบฐานข้อมูลที่ไม่เป็นแบบสัมพันธ์ ซึ่งมีลักษณะการจัดเก็บข้อมูลที่หลากหลาย ไม่ว่าจะเป็นแบบ Key-Value, Document, Column-Family หรือ Graph โดยที่ฐานข้อมูลประเภทนี้มักถูกเลือกใช้งานเมื่อมีข้อมูลที่ไม่มีโครงสร้างที่ชัดเจน หรือเมื่อประสิทธิภาพในการเข้าถึงข้อมูลเป็นสิ่งสำคัญ

การสร้าง CRUD ด้วย Fortran และ NoSQL

แม้ว่า Fortran จะไม่ใช่ภาษาโปรแกรมที่มีไลบรารีในการจัดการกับ NoSQL โดยตรง แต่นักพัฒนาสามารถใช้การเรียก REST API เพื่อเข้าถึงฐานข้อมูล NoSQL ได้ สำหรับบทความนี้เราจะใช้ MongoDB เป็นกรณีศึกษา เนื่องจาก MongoDB เป็น NoSQL ที่เป็นที่นิยมใช้กันอย่างกว้างขวาง

การเชื่อมต่อกับ MongoDB

ในการเริ่มต้น เราต้องติดตั้งไลบรารี `curl` เพื่อใช้ใน Fortran ในการทำ HTTP Requests ไปยัง MongoDB API

 sudo apt-get install libcurl4-openssl-dev

จากนั้นเราจะสร้างโปรแกรม Fortran ที่เรียกใช้ API ของ MongoDB ในการดำเนินการ CRUD

 program NoSQL_CRUD
  use, intrinsic :: iso_c_binding
  implicit none

  ! เพิ่มคำสั่งใช้ไลบรารี Curl
  interface
    function curl_easy_init() bind(C, name="curl_easy_init")
      use, intrinsic :: iso_c_binding
      implicit none
      type(c_ptr) :: curl_easy_init
    end function curl_easy_init

    function curl_easy_setopt(curl, option, param) bind(C, name="curl_easy_setopt")
      use, intrinsic :: iso_c_binding
      implicit none
      type(c_ptr), value :: curl
      integer(c_int), value :: option
      type(c_ptr), value :: param
      integer(c_int) :: curl_easy_setopt
    end function curl_easy_setopt

    function curl_easy_perform(curl) bind(C, name="curl_easy_perform")
      use, intrinsic :: iso_c_binding
      implicit none
      type(c_ptr), value :: curl
      integer(c_int) :: curl_easy_perform
    end function curl_easy_perform

    function curl_easy_cleanup(curl) bind(C, name="curl_easy_cleanup")
      use, intrinsic :: iso_c_binding
      implicit none
      type(c_ptr), value :: curl
      integer(c_int) :: curl_easy_cleanup
    end function curl_easy_cleanup
  end interface

  type(c_ptr) :: curl
  integer :: res

  ! Initialize libcurl
  curl = curl_easy_init()
  if (.not. associated(curl)) then
    print *, "Error initializing curl!"
    stop
  end if

  ! ตัวอย่างรหัสสำหรับสร้าง (Create)
  ! โดยใช้ POST request

  ! ตั้งค่า URL สำหรับ MongoDB
  character(len=255) :: url
  url = 'http://localhost:27017/yourdatabase/yourcollection'

  character(len=255) :: json_data
  json_data = '{"name": "John Doe", "age": 25}'

  ! ตั้งค่าลิงค์ไปยังที่อยู่ MongoDB
  call curl_easy_setopt(curl, 10002, trim(url))

  ! ตั้งค่าสำหรับ POST
  call curl_easy_setopt(curl, 10004, trim(json_data))

  ! ทำการเรียก API
  res = curl_easy_perform(curl)

  if (res /= 0) then
    print *, "Error in performing request"
  else
    print *, "Data created successfully!"
  end if

  ! Clean up
  call curl_easy_cleanup(curl)

end program NoSQL_CRUD

การใช้ CRUD กับ MongoDB

ตัวอย่างในการอ่านข้อมูล

 ! การอ่านข้อมูล (Read)

character(len=255) :: url
url = 'http://localhost:27017/yourdatabase/yourcollection'

! ตั้งค่าลิงค์ไปยังที่อยู่ MongoDB
call curl_easy_setopt(curl, 10002, trim(url))

! ทำการเรียก API
res = curl_easy_perform(curl)

! การจัดการผลลัพธ์

สรุป

แม้ว่าภาษา Fortran จะไม่ใช่ภาษาหลักในการพัฒนาเว็บแอปพลิเคชัน แต่ในบางกรณีก็สามารถใช้ร่วมกับฐานข้อมูล NoSQL ได้ โดยเฉพาะในการทำการประมวลผลข้อมูลที่ต้องการความเร็วและประสิทธิภาพสูง งานเหล่านี้ Opens up to new possibilities!

หากเพื่อนๆ สนใจในการเรียนรู้การเขียนโปรแกรมที่ละเอียดและเป็นระบบ ในยุคที่เทคโนโลยีเปลี่ยนแปลงไปเช่นนี้ โรงเรียน EPT (Expert Programming Tutor) มีหลักสูตรที่หลากหลายในการสอนและเตรียมความพร้อมให้กับนักเรียนในการก้าวเข้าสู่วงการ IT หากคุณอยากเรียนรู้การเขียนโปรแกรมแบบมีระบบ ก็สามารถเข้ามาศึกษาที่ EPT ได้เลย!

มาเรียนรู้ไปด้วยกันนะครับ!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง