Your First Perl Script
Writing a first real Perl script means combining what a beginner has already learned, the shebang line, use strict; use warnings;, scalars, arrays, hashes, and operators, into a small program that actually does something useful, such as reading a list of names from a file and printing a personalized greeting for each one. A well-structured script separates concerns even at a small scale: input handling (opening and reading a file or STDIN) is kept distinct from processing logic (looping and transforming the data) and from output (printing results), which makes the script easier to debug and to later split into subroutines as it grows. Every Perl file that will be reused as a module rather than run directly should end with a true value, conventionally the literal 1;, but a standalone executable script does not need this.
Cricket analogy: Similar to how a match is cleanly divided into distinct phases, the toss, the innings, and the presentation ceremony, a well-structured Perl script separates input, processing, and output into clearly distinct stages.
Reading Input and Printing Output
Perl reads from files with the three-argument form of open, open(my $fh, '<', $filename) or die "Cannot open $filename: $!";, where $! holds the operating system's error message if the open fails, and reading STDIN interactively works the same way using the special filehandle <STDIN>, so my $name = <STDIN>; chomp $name; reads one line and chomp strips the trailing newline character that <STDIN> leaves attached. Output is produced with print, which writes exactly what you give it with no added formatting, or with printf, which works like C's printf and lets you control numeric precision and column width, for example printf("%-10s %5.2f\n", $name, $price); left-aligns a name in a 10-character field and right-aligns a price to two decimal places in a 5-character field.
Cricket analogy: Similar to how a commentator reads the live scoreboard feed and then formats it into a clean on-screen graphic, <STDIN> reads raw input and printf formats it cleanly, like padding a batter's name to a fixed column width.
Running and Debugging
Run your script with perl script.pl first (or ./script.pl after chmod +x on Unix-like systems), and if it fails, Perl's error messages usually name the exact line number, such as 'Global symbol "$total" requires explicit package name at script.pl line 12,' which almost always means use strict; caught a variable you forgot to declare with my. For deeper debugging, running perl -d script.pl launches Perl's interactive built-in debugger, where commands like n step to the next line, s step into a subroutine call, and p $variable print a variable's current value; alternatively perl -c script.pl performs a syntax-only check without actually running the script, which is a fast way to catch typos before execution. The Data::Dumper core module is invaluable once your script grows beyond simple scalars, since print Dumper(\%hash); pretty-prints the full structure of a complex nested hash or array reference that a plain print statement could not display usefully.
Cricket analogy: Similar to how DRS reviews a decision ball by ball rather than re-watching the whole innings, perl -d lets you step through a script line by line (n) instead of re-running the whole thing to find a bug.
#!/usr/bin/env perl
use strict;
use warnings;
my $filename = 'names.txt';
open(my $fh, '<', $filename) or die "Cannot open $filename: $!";
my @greetings;
while (my $line = <$fh>) {
chomp $line;
next unless length $line; # skip blank lines
push @greetings, "Hello, $line! Welcome to Perl.";
}
close($fh);
for my $greeting (@greetings) {
printf("%-40s [%d chars]\n", $greeting, length($greeting));
}
print "\nProcessed " . scalar(@greetings) . " name(s).\n";
perl -c script.pl is the fastest sanity check in your workflow: it parses the script and reports syntax errors, such as a missing semicolon or an unbalanced brace, without actually executing any of the code, which is especially useful before running a script that has side effects like deleting files.
- A well-structured first script separates input handling, processing logic, and output into distinct, readable sections.
- Use the three-argument
open(my $fh, '<', $filename) or die "...: $!";idiom to read files safely and report failures clearly. <STDIN>reads a line of interactive input, andchompshould be used immediately to strip the trailing newline.printfgives precise control over field width and numeric precision that plainprintdoes not offer.perl -c script.plperforms a fast syntax-only check;perl -d script.pllaunches the interactive line-by-line debugger.- Perl's error messages report the exact failing line number, and most 'requires explicit package name' errors mean a missing
my. Data::Dumper'sDumper()function pretty-prints complex nested data structures that a plainprintcannot display usefully.
Practice what you learned
1. What is the recommended three-argument idiom for safely opening a file for reading in Perl?
2. What does `chomp` do when used after reading a line with `<STDIN>` or a filehandle?
3. Which command performs a syntax-only check of a Perl script without actually running it?
4. Why is `printf` sometimes preferred over plain `print`?
5. What does the core module Data::Dumper's Dumper() function help with?
Was this page helpful?
You May Also Like
Scalars, Arrays, and Hashes
A guide to Perl's three core data types, how their sigils work, and the everyday operations for each one.
Perl Operators
A tour of Perl's arithmetic, string, comparison, logical, and assignment operators, and the pitfalls of mixing numeric and string comparisons.
Installing and Running Perl
How to check for an existing Perl installation, install Perl on Windows, macOS, and Linux, and run your first scripts safely.
Related Reading
Related Study Notes in Programming
Browse all study notesApache Spark Study Notes
Programming · 30 topics
ProgrammingApache Flink Study Notes
Programming · 30 topics
ProgrammingHadoop Study Notes
Programming · 30 topics
ProgrammingSnowflake Study Notes
Programming · 30 topics
ProgrammingApache Airflow Study Notes
Programming · 30 topics
Programmingdbt (Data Build Tool) Study Notes
Programming · 30 topics