1
2
3
4
5
6
%websites={"ideone.com", "Online IDE Tool", "Online Debugging Tool", "40+ compilers & interpreters"};
if (exists $websites{"ideone.com"})
{
#ideone.com
print $websites{"ideone.com"};
}

1
2
3
4
5
6
7
8
9
@int=(1,3,5,2);
push(@int,10);
print "@int\n";
$last=pop(@int);
print "@int\n";
unshift (@int,0);
print "@int\n";
$start = shift(@int);
print "@int\n";
 ...

1
2
3
4
5
6
$x=0;
while ($x<10)
{
print "$x\n";
$x++;
}

1
2
3
4
5
6
7
$counter=1;
for (counter<10)
{
print "$counter\n";
$counter++;
}
 

1
2
3
4
5
6
7
8
9
$x=10;
$y=10;
if ($x==$y)
{
print "X is equal to Y";
}
else
{
print "X is not equal to Y";
 ...

1
2
3
$x=10;
$s="You Get $x";
print $s;

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=( "ab",  "bd","d");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit=0;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=( "ab",  "bd","d");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit=0;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=( "ab",  "bd","d");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit=0;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=( "ab",  "bd","d");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit=0;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
perl -le 'say $_*!($_%3*$_%5)for 1..999'

1
2
3
4
5
6
7
8
9
sub delay {
   $delayOver = (time + @_[0]);
   while (time < $delayOver){}
   1;
}
 
sub EVENT_SPAWN {
        delay(10);
        quest::attacknpc(80)

1
2
3
4
5
6
7
8
9
sub delay{
   $delayOver = (time + @_[0]);
   while (time < $delayOver){}
   1;
}
sub EVENT_SPAWN
{
        delay(10);
        quest::attacknpc(80)
 ...

1
2
3
#!/usr/bin/perl
 
print "oh hi";

1
 

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n";
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n"
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n"
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n"
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n"
 ...

1
2
3
4
5
6
7
8
tom:~> cat mysystem.sh
#!/bin/bash
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n"
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n"
 ...

1
2
3
4
5
6
7
8
tom:~> cat mysystem.sh
#!/bin/bash
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n"
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n"
 ...

1
[0-9]+?(\.)\d+?9550(.)\d+?[06]{6}(.)\d+?[9]{5,6}(.)\d+?7{4}(.)\d+?[1-9]{67}(.)\d+?(.(?=5{3}1))\d+?061(.)3\8{3}3(.)\d+?9{2}8{3}(.)\d+?(.)(?=[7]{4})\d+

1
print "blah";

1
2
3
4
#!perl
print "Enter some lines, then press Ctrl-D:/n";
@lines = <STDIN>;
print reverse <STDIN>;

1
2
3
4
5
6
7
8
9
        ''=~(('(').
        '?'.('{').(
        '`'|"\%").(
        '['^"\-").(
         (       (
         (       (
         (       (
         '`'))))))
        |'!').('`'|
 ...

1
2
3
4
5
6
7
8
9
        ''=~(('(').
        '?'.('{').(
        '`'|"\%").(
        '['^"\-").(
         (       (
         (       (
         (       (
         '`'))))))
        |'!').('`'|
 ...

1
2
#!perl
print "Hello World"

1
2
3
4
5
6
7
#!perl
@flin = qw( dummy_item fred betty barney dino wilma pebbles bamm-bamm );
print "Enter a number 1 to 7 and see what you get, then press CTRL-D, can you guess what the reference is:"
chomp(@num=<STDIN>);
foreach (@num){
        print"$flin";
}

1
2
3
4
5
6
7
#!perl
@flin = qw( dummy_item fred betty barney dino wilma pebbles bamm-bamm );
print "Enter a number 1 to 7 and see what you get, then press CTRL-D, can you guess what the reference is:\n"
chomp(@num=<STDIN>)
foreach (@num){
        print"$flin.\n";
}

1
2
3
4
5
6
7
#!perl
@flin = qw( dummy_item fred betty barney dino wilma pebbles bamm-bamm );
print "Enter a number 1 to 7 and see what you get, then press CTRL-D, can you guess what the reference is?\n"
chomp(@num=<STDIN>);
foreach (@num){
        print"$flin.\n";
{

1
[0-9]+?(\.)\d+?9550(.)\d+?[06]{6}(.)\d+?[9]{5,6}(.)\d+?7{4}(.)\d+?[1-9]{67}(.)\d+?(.(?=5{3}1))\d+?061(.)3\8{3}3(.)\d+?9{2}8{3}(.)\d+?(.)(?=[7]{4})\d+