# **🐫 Booth: Perl (1987)** * **Creator:** Larry Wall * **Design Philosophy:** "Practical Extraction and Reporting Language" — designed to make command-line system utilities and text manipulation quick, painless, and highly expressive. Built on the core motto: *There's more than one way to do it* (TMTOWTDI). * **Key Innovations:** Built-in regular expression engine, associative arrays (hashes), context-sensitive evaluations (scalar vs. list), and a flexible, permissive syntax optimized for scripting. ## **🚀 Hello, World\!** \#\!/usr/bin/perl use strict; use warnings; print "Hello, World\!\\n"; ## **🎨 Showpiece: Regular Expression Log Parser** Perl quickly became the undisputed champion of the early web due to its unmatched ability to process text files. It evaluates matches using internal deterministic and non-deterministic finite automata (NFA/DFA): ![][image1]This script reads raw textual logs, runs regular expression extractions, and compiles counts inside an associative array (hash): \#\!/usr/bin/perl use strict; use warnings; \# Mock Log Files (In-memory file handles) my $log\_data \= \<\<'END\_LOG'; 192.168.1.1 \- SUCCESS \- login 192.168.1.5 \- FAILURE \- invalid password 10.0.0.12 \- SUCCESS \- checkout 192.168.1.1 \- FAILURE \- database timeout END\_LOG open(my $fh, "\<", \\$log\_data) or die "Cannot open log string: $\!"; \# Initialize dynamic hash map my %status\_counts; while (my $line \= \<$fh\>) { chomp($line); \# regex capture structure: IP \- STATUS \- MSG if ($line \=\~ /^(\[\\d\\.\]+)\\s+-\\s+(\[A-Z\]+)\\s+-\\s+(.\*)$/) { my $ip \= $1; my $status \= $2; my $info \= $3; \# Accumulate counter $status\_counts{$status}++; } } \# Iterate through hash map keys foreach my $status (keys %status\_counts) { print "System Event Status '$status' occurred: $status\_counts{$status} time(s)\\n"; } close($fh); [image1]: