roni leonita 101745, Perl - rextester

Run Code | API | Code Wall | Misc | Feedback | Login | Theme | Privacy | Patreon

roni leonita 101745

Language: Layout:

#perl 5.22.1

$var = "This is string scalar!";
$quote = 'Single quote - $var';
$double = "Double quote - $var";

print $var;
print "\nThis is quote inside quotes: $quote\n";
print "\nHere we go double : $double\n";

print "\n*****************************************\n";

%data = ('hunt', 2100, 'benji', 54, 'faust', 13);

print "\$data{'hunt'} = $data{'hunt'}\n";
print "\$data{'benji'} = $data{'benji'}\n";
print "\$data{'faust'} = $data{'faust'}\n";

print "\n*****************************************\n";

$mission = "fast";       
$impossible = "furious";
$str = $mission." and ".$impossible;
$num = 5 + 3;                  
$mul = 4 * 5;                   
$mix = $str ."  ". $num;             
print "str = $str\n";
print "num = $num\n";
print "mul = $mul\n";
print "mix = $mix\n";

print "\n*****************************************\n";

@jokers = ("harry","ron","hermione");
@cartoons = ("chulbul","phunsuk wangdoo","pa dungu");

print "\$jokers[1] = $jokers[1]\n";
print "\$cartoons[2] = $cartoons[2]\n";

print "\n*****************************************\n";

@rhymes = (1, 2, 'Buckle','my','shoe');
@matrix3 = qw/Everything that has a beginning/;

print $rhymes[2]."\n";
print $matrix3[4]."\n\n";

print "\n*****************************************\n";

@circus = qw/Tinker
Tailor
Soldier
Spy/;

print "$circus[1] is the mole.\n\n";
print "$circus[3] is the mole.\n\n";
print "$circus[-2] is the mole.\n\n";

print "\n*****************************************\n";

@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);

print "@var_10\n";   
print "@var_20\n";   
print "@var_abc\n";

print "\n*****************************************\n";

@circus = qw/Tinker Tailor Soldier Spy/;

$spies = @circus;
@clowns = @circus;

print "$spies\n";
print "@clowns\n\n";

print "\n*****************************************\n";

@circus = qw/Tinker Tailor Soldier Spy/;
print "1. \@circus  = @circus\n";
push(@circus, "Moneypenny");
print "2. \@circus  = @circus\n";
unshift(@circus, "Ilsa Faust");
print "3. \@circus  = @circus\n";
pop(@circus);
print "4. \@circus  = @circus\n";
shift(@circus);
print "5. \@circus  = @circus\n";

print "\n*****************************************\n";

@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@weekdays = @days[3,4,5];

print "@weekdays\n";

print "\n*****************************************\n";

@nums = (1..20);
print "Before - @nums\n";

splice(@nums, 5, 5, 21..25); 
print "After - @nums\n";

print "\n*****************************************\n";

$rats = "Rats live on no evil star";
$fox = "A:quick:brown:fox:jumps:over:the:lazy:dog";

@star = split(' ', $rats);
@foxy  = split(':', $fox);

print "$star[4]\n"; 
print "$foxy[3]\n";

print "\n*****************************************\n";

@questions = qw/Them that ask no question 
		never told a lie/;
@odds = qw/May the odds be with you/;

$qstring = join(' ',@questions);
$oddstring = join(',',@odds);

print $qstring."\n";
print $oddstring."\n";

print "\n*****************************************\n";

@sea = qw/She sells sea shells on the sea shore/;
@core = (3,2,5,6,7,5,4,3,6,8,7,6);

print "Before : @sea\n";
print "Before : @core\n";
@sea = sort(@sea);
@core = sort(@core);
print "-+-+-+-+-+-+-+-+-+-+-+\n";
print "After : @sea\n";
print "After : @core\n";

print "\n*****************************************\n";

@jack = qw/jack and jill went up the hill/;
@twinkle = qw/twinkle twinkle little star/;

print "@jack\n";
print "@twinkle\n";
@rhymes = (@jack,@twinkle);
print "@rhymes\n";

print "\n*****************************************\n";

@sea = qw/She sells sea shells on the sea shore/;
@core = (3,2,5,6,7,5,4,3,6,8,7,6);

print "Before : @sea\n";
print "Before : @core\n";
@sea = sort(@sea);
@core = sort(@core);
print "-+-+-+-+-+-+-+-+-+-+-+\n";
print "After : @sea\n";
print "After : @core\n";

[ + ] Show input
Absolute running time: 0.07 sec, cpu time: 0.02 sec, memory peak: 3 Mb, absolute service time: 0,08 sec

edit mode | history | discussion

Error(s), warning(s):

Unquoted string "a" may clash with future reserved word at source_file.pl line 68.
Unquoted string "z" may clash with future reserved word at source_file.pl line 68.

This is string scalar!
This is quote inside quotes: Single quote - $var

Here we go double : Double quote - This is string scalar!

*****************************************
$data{'hunt'} = 2100
$data{'benji'} = 54
$data{'faust'} = 13

*****************************************
str = fast and furious
num = 8
mul = 20
mix = fast and furious  8

*****************************************
$jokers[1] = ron
$cartoons[2] = pa dungu

*****************************************
Buckle
beginning


*****************************************
Tailor is the mole.

Spy is the mole.

Soldier is the mole.


*****************************************
1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
a b c d e f g h i j k l m n o p q r s t u v w x y z

*****************************************
4
Tinker Tailor Soldier Spy


*****************************************
1. @circus  = Tinker Tailor Soldier Spy
2. @circus  = Tinker Tailor Soldier Spy Moneypenny
3. @circus  = Ilsa Faust Tinker Tailor Soldier Spy Moneypenny
4. @circus  = Ilsa Faust Tinker Tailor Soldier Spy
5. @circus  = Tinker Tailor Soldier Spy

*****************************************
Thu Fri Sat

*****************************************
Before - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
After - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

*****************************************
evil
fox

*****************************************
Them that ask no question never told a lie
May,the,odds,be,with,you

*****************************************
Before : She sells sea shells on the sea shore
Before : 3 2 5 6 7 5 4 3 6 8 7 6
-+-+-+-+-+-+-+-+-+-+-+
After : She on sea sea sells shells shore the
After : 2 3 3 4 5 5 6 6 6 7 7 8

*****************************************
jack and jill went up the hill
twinkle twinkle little star
jack and jill went up the hill twinkle twinkle little star

*****************************************
Before : She sells sea shells on the sea shore
Before : 3 2 5 6 7 5 4 3 6 8 7 6
-+-+-+-+-+-+-+-+-+-+-+
After : She on sea sea sells shells shore the
After : 2 3 3 4 5 5 6 6 6 7 7 8

λ

                                      .NET NoSQL database for rapid development