- More code.

Author: manwar

scripts/cpu-bound/cpu-bound.pl

@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use v5.38;
+use threads;
+use Time::HiRes qw(time);
+
+sub cpu_worker($id) {
+    my $result = 0;
+    for (my $i = 0; $i < 10_000_000; $i++) {
+        $result += sqrt($i);
+    }
+    say "Thread $id completed.";
+}
+
+my $start_time = time();
+my @threads = map { threads->create(\&cpu_worker, $_) } (1..9);
+$_->join for @threads;
+my $end_time = time();
+
+printf("Total time taken: %.2f seconds\n", $end_time - $start_time);

scripts/cpu-bound/cpu-bound.py

@@ -0,0 +1,22 @@
+#!/usr/bin/env python3
+
+import time
+import math
+import threading
+
+def cpu_worker(id):
+    result = 0
+    for i in range(10_000_000):
+        result += math.sqrt(i)
+    print(f"Thread {id} completed.")
+
+start_time = time.time()
+threads = []
+for i in range(9):
+    thread = threading.Thread(target=cpu_worker, args=(i + 1,))
+    threads.append(thread)
+    thread.start()
+for thread in threads:
+    thread.join()
+end_time = time.time()
+print(f"Total time taken: {end_time - start_time:.2f} seconds")

scripts/io-bound/io-bound-new.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use v5.38;
+use threads;
+use HTTP::Tiny;
+use Time::HiRes qw(time);
+
+sub io_worker($id) {
+    my $url = "https://www.google.com";
+    my $content = HTTP::Tiny->new->get($url);
+    say "Thread $id finished.";
+}
+
+my $start_time = time();
+my @threads = map { threads->create(\&io_worker, $_) } (1..9);
+$_->join for @threads;
+my $end_time = time();
+printf("Total time taken: %.2f seconds\n", $end_time - $start_time);

scripts/io-bound/io-bound.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use v5.38;
+use threads;
+use LWP::Simple;
+use Time::HiRes qw(time);
+
+sub io_worker($id) {
+    my $url = "https://www.google.com";
+    my $content = get($url);
+    say "Thread $id finished.";
+}
+
+my $start_time = time();
+my @threads = map { threads->create(\&io_worker, $_) } (1..9);
+$_->join for @threads;
+my $end_time = time();
+printf("Total time taken: %.2f seconds\n", $end_time - $start_time);

scripts/io-bound/io-bound.py

@@ -0,0 +1,21 @@
+#!/usr/bin/env python3
+
+import time
+import requests
+import threading
+
+def io_worker(id):
+    url = "https://www.google.com"
+    response = requests.get(url)
+    print(f"Thread {id} finished.")
+
+start_time = time.time()
+threads = []
+for i in range(9):
+    thread = threading.Thread(target=io_worker, args=(i + 1,))
+    threads.append(thread)
+    thread.start()
+for thread in threads:
+    thread.join()
+end_time = time.time()
+print(f"Total time taken: {end_time - start_time:.2f} seconds")