Perl Online Compiler

Run Perl scripts online with our Perl interpreter. Perfect for text processing, regular expressions, system administration, and rapid prototyping.

perl Online Compiler

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, World!\n";
print "Welcome to Perl Online Compiler\n";

# Variables
my $language = "Perl";
my $version = 5.38;
my $is_powerful = 1;

print "Language: $language\n";
print "Version: $version\n";
print "Is powerful: " . ($is_powerful ? "Yes" : "No") . "\n";

# Arrays
my @numbers = (1, 2, 3, 4, 5);
print "Numbers: @numbers\n";

# Hash (associative array)
my %person = (
    "name" => "Developer",
    "age" => 30,
    "language" => "Perl"
);

print "Person: $person{name}, Age: $person{age}\n";

# Loops
print "Squares:\n";
foreach my $num (@numbers) {
    my $square = $num * $num;
    print "$num^2 = $square\n";
}

# Regular expressions
my $text = "Perl is great for text processing";
if ($text =~ /text/) {
    print "Found 'text' in the string\n";
}

# String manipulation
$text =~ s/great/awesome/;
print "Modified text: $text\n";

# Subroutines
sub calculate_factorial {
    my $n = shift;
    return 1 if $n <= 1;
    return $n * calculate_factorial($n - 1);
}

my $factorial_5 = calculate_factorial(5);
print "Factorial of 5: $factorial_5\n";

# File operations (simulated)
my $filename = "example.txt";
print "Working with file: $filename\n";

# References and complex data structures
my @fruits = ("apple", "banana", "orange");
my @colors = ("red", "yellow", "orange");
my @data = (\@fruits, \@colors);

print "Fruits: @{$data[0]}\n";
print "Colors: @{$data[1]}\n";

# String interpolation and formatting
my $name = "Perl Developer";
my $experience = 5;
print "Hello, $name! You have $experience years of experience.\n";

# Conditional statements
if ($experience > 3) {
    print "You are an experienced developer!\n";
} elsif ($experience > 1) {
    print "You have some experience.\n";
} else {
    print "You are a beginner.\n";
}

Output

Click "Run" to execute your code and see the output here...