การใช้งาน Web Server รอรับ HTTP Request ในภาษา Fortran

ในยุคที่เทคโนโลยีก้าวหน้าไปอย่างรวดเร็ว การเรียนรู้การเขียนโปรแกรมในภาษาใหม่ๆ เป็นสิ่งที่จำเป็นอย่างยิ่ง โดยเฉพาะในด้านการพัฒนาเว็บและการสร้าง Web server ที่สามารถรับและตอบสนองกับคำขอจากผู้ใช้งาน (HTTP Requests) ในบทความนี้เราจะมาทำความรู้จักกับการใช้งาน Web server ที่รอรับ HTTP requests โดยใช้ภาษา Fortran ซึ่งอาจจะดูไม่ธรรมดา แต่จริงๆ แล้วก็สามารถทำได้อย่างง่ายดาย

ทำความเข้าใจภาษา Fortran

Fortran (Formula Translation) เป็นภาษาที่ถูกพัฒนาในทศวรรษ 1950 และถือเป็นภาษาที่มีคุณสมบัติทางการคำนวณสูง หากคุณคุ้นเคยกับการทำงานด้านวิทยาศาสตร์หรือวิศวกรรมศาสตร์ คุณอาจจะเคยได้ยินชื่อเสียงของมันมาแล้ว แต่ในปัจจุบัน ภาษา Fortran มีการใช้งานในด้านอื่นๆ เพิ่มขึ้น รวมถึงการพัฒนา Web server ก็สามารถทำได้เช่นกัน

การทำงานของ Web Server

Web Server คือ โปรแกรมที่ทำหน้าที่รับ HTTP requests จาก client (เช่น เว็บเบราว์เซอร์) และส่ง HTTP responses กลับไปให้ โดยรูปแบบการทำงานที่สำคัญคือ:

ตัวอย่างโค้ด Web Server ในภาษา Fortran

เราจะทำการสร้าง Web server ง่ายๆ ในภาษา Fortran ที่สามารถรอรับ HTTP requests และตอบกลับด้วยข้อความง่ายๆ ดังนี้

 PROGRAM SimpleWebServer
  IMPLICIT NONE

  INTEGER :: i, sockfd, newsockfd
  CHARACTER(len=255) :: buffer
  INTEGER :: portno
  PARAMETER (portno=8080)

  TYPE(SOCKADDR_IN) :: serv_addr, cli_addr
  INTEGER :: addrlen, status

  ! สร้าง Socket
  sockfd = socket(AF_INET, SOCK_STREAM, 0)
  IF (sockfd < 0) THEN
    PRINT *, 'ERROR opening socket'
    STOP
  END IF

  ! กำหนดค่า serv_addr
  serv_addr%sin_family = AF_INET
  serv_addr%sin_addr = INADDR_ANY
  serv_addr%sin_port = htons(portno)

  ! Binding Socket
  status = bind(sockfd, ADDR(serv_addr), SIZEOF(serv_addr))
  IF (status < 0) THEN
    PRINT *, 'ERROR on binding'
    STOP
  END IF

  ! เริ่มฟังการรอรับคำขอ
  listen(sockfd, 5)
  addrlen = SIZEOF(cli_addr)

  PRINT *, 'Waiting for HTTP request on port', portno

  ! รอคำขอจาก client
  newsockfd = accept(sockfd, ADDR(cli_addr), addrlen)
  IF (newsockfd < 0) THEN
    PRINT *, 'ERROR on accept'
    STOP
  END IF

  ! อ่านคำขอจาก client
  READ(newsockfd, '(A)', IOSTAT=status) buffer
  PRINT *, 'Received: ', buffer

  ! ส่ง HTTP Response
  WRITE(newsockfd, '(A)') 'HTTP/1.1 200 OK'
  WRITE(newsockfd, '(A)') 'Content-Type: text/plain'
  WRITE(newsockfd, '(A)') ''
  WRITE(newsockfd, '(A)') 'Hello from Fortran Web Server!'

  ! ปิด Socket
  CLOSE(newsockfd)
  CLOSE(sockfd)

END PROGRAM SimpleWebServer

การอธิบายการทำงานของโค้ด

Use Case ในโลกจริง

จากตัวอย่างที่เราทำขึ้นข้างต้น Web server ที่สร้างด้วย Fortran อาจจะดูเรียบง่าย แต่คุณสามารถพัฒนาต่อยอดให้มีฟีเจอร์มากมาย เช่น:

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

เชิญชวนเรียนรู้กับ EPT

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

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