Free Online Kotlin to Perl Code Converter

Instantly convert code snippets from Kotlin to Perl with our free online code converter. Transform your code easily and accurately.

How to Use Our Kotlin to Perl Code Converter

Paste your Kotlin code snippet into the input box.
Click the "Convert" button to transform your code.
Our AI-powered converter will instantly translate your Kotlin code to Perl.
Copy the converted Perl code and use it in your project.

Is Our Kotlin to Perl Converter Secure?

We prioritize your code's security and privacy. Your code is not stored on our servers and is only temporarily processed for conversion. We use OpenAI's secure servers for the conversion process, ensuring your code remains confidential.

About Kotlin

Kotlin is a cross-platform, statically typed, general-purpose programming language with type inference.

About Perl

Perl is a family of two high-level, general-purpose, interpreted programming languages.

Palindrome Check Example: Kotlin vs Perl

Palindrome Check in Kotlin

fun isPalindrome(str: String): Boolean {
    val clean = str.lowercase().filter { it.isLetterOrDigit() }
    return clean == clean.reversed()
}

fun main() {
    println(isPalindrome("A man, a plan, a canal: Panama")) // true
    println(isPalindrome("race a car")) // false
}

Palindrome Check in Perl

sub is_palindrome {
    my $str = shift;
    $str =~ s/[^a-zA-Z0-9]//g;
    $str = lc($str);
    return $str eq reverse($str);
}

# Example usage
print is_palindrome("A man, a plan, a canal: Panama") ? "true\n" : "false\n";
print is_palindrome("race a car") ? "true\n" : "false\n";

Bubble Sort Example: Kotlin vs Perl

Bubble Sort in Kotlin

fun bubbleSort(arr: IntArray) {
    val n = arr.size
    for (i in 0 until n) {
        for (j in 0 until n - i - 1) {
            if (arr[j] > arr[j + 1]) {
                val temp = arr[j]
                arr[j] = arr[j + 1]
                arr[j + 1] = temp
            }
        }
    }
}

fun main() {
    val arr = intArrayOf(64, 34, 25, 12, 22, 11, 90)
    bubbleSort(arr)
    println(arr.joinToString(" "))
}

Bubble Sort in Perl

sub bubble_sort {
    my @arr = @_;
    my $n = scalar @arr;
    for my $i (0..$n-1) {
        for my $j (0..$n-$i-2) {
            if ($arr[$j] > $arr[$j+1]) {
                @arr[$j,$j+1] = @arr[$j+1,$j];
            }
        }
    }
    return @arr;
}

my @arr = (64, 34, 25, 12, 22, 11, 90);
print join(" ", bubble_sort(@arr)) . "\n";