1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP HEADER
 
@coins = qw(Quarter Dime Nickel Penny);
@slicecoins = @coins[0,2];
print "@slicecoins\n";
print "<br />";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP HEADER
 
# AN ARRAY
@coins = ("Quarter","Dime","Nickel");
 
# ADD ELEMENTS
push(@coins, "Penny");
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
print "content-type: text/html \n\n";   #HTTP HEADER
 
# SHORTCUTS SAVE TIME
@10 = (1 .. 10);
@100 = (1 .. 100);
@1000 = (100 .. 1000);
@abc = (a .. z);
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
print "content-type: text/html \n\n";   #HTTP HEADER
 
# DEFINE AN ARRAY
@coins = ("Quarter","Dime","Nickel");
 
# PRINT THE ARRAY
print "@coins";
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl -w 
$add = 395425559298; 
for($year=513400;;$year++) { 
$var = $year; 
for ($i = 1; $i <= $year; $i++) { 
$var += $year+$i} 
if($var == $add) { 
print $year,"!!!","\n\n\n"; 
die; } 

1
2
3
#!/usr/bin/perl -w 
$Tor = "Torment Hacker";
print $Tor;

1
2
3
$s="# #### ### abc ##";
$r= reverse $s;
print"$r";

1
2
3
$s="## ##### # xyz";
$r= reverse $s;
print"$r";

1
2
3
$s="## ##### # xyz";
$r= reverse $s;
print"$r";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#autol.plx
use warnings ;
use strict ;
 
my $test = 30 ;
print 
   "Here is a list containing strings, (this one) ",
   "numbers (",
 ...

1
2
3
4
5
#!/usr/local/bin/perl/
 
chomp $input = <SDTIN>;
 
print "Your name is $input!";

1
2
3
4
 
my $input = <SDTIN>;
 
print "Your name is $input!";

1
2
3
4
5
6
7
8
9
use warnings;
use strict;
 
$| = 1;
$Num_Games = '0';
 
print "Enter number of games to play: ";
chomp(my $Num_Games = <STDIN>);
 
 ...

1
2
3
4
5
6
7
8
9
use warnings;
use strict;
 
$| = 1;
$Num_Games = '0'
 
print "Enter number of games to play: ";
chomp(my $Num_Games = <STDIN>);
 
 ...

1
2
3
4
5
6
7
8
9
use warnings;
use strict;
 
$| = 1;
 
print "Enter number of games to play: ";
chomp(my $Num_Games = <STDIN>);
 
my $Num_Guesses = 0;
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
print "Enter weight in pounds: ";
$input = <STDIN>;
 
$kg = $input * 0.454;
 
print "$input pounds is equal to $kg kilos! \n"

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
print "Enter weight in pounds: ";
$input = <STDIN>;
 
$kg = $input * 0.454
 
print "$input pounds is equal to $kg kilos! \n"

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp($input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp($input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne $answer) {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp($input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp($input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp($input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        my $input = <STDIN>;
        chomp(input);
}
if ($input = 'cookie') {
        print "Yum! \n"
 ...

1
2
3
4
5
6
7
8
9
#/usr/local/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        chomp $input = <STDIN>;
}
if ($input = 'cookie') {
        print "Yum! \n"
}

1
2
3
4
5
6
7
8
9
#/usr/local/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        chomp $input = <STDIN>;
}
if ($input = 'cookie') {
        print "Yum! \n"
}

1
2
3
4
5
6
7
8
#/usr/local/bin/perl
 
while ($input ne 'cookie') {
        print "Give me a cookie: ";
        chomp $input = <STDIN>;
}
        if ($input = 'cookie') {
        print "Yum! \n"

1
2
#!/bin/bash
files="$(ls)"

1
2
3
4
5
6
7
8
#!/bin/bash
files="$(ls)"
web_files=`ls public_html`
echo "$files"      # we need the quotes to preserve embedded newlines in $files
echo "$web_files"  # we need the quotes to preserve newlines 
X=`expr 3 \* 2 + 4` # expr evaluate arithmatic expressions. man expr for details.
echo "$X"
 

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
@t;
 
for($i = 0; $i < $t; $i++) {
        $t[$i] = int (rand(100)) + 1;
}
 
#tri 1  
@t = sort @t; #$a cmp $b
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
@t;
 
for($i = 0; $i < $t; $i++) {
        $t[$i] = int (rand(100)) + 1;
}
 
#tri 1  
@t = sort @t; #$a cmp $b
 ...