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
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub afficher {
        foreach(@_) {
                print;
        }
}
 
sub trier {
 ...

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
4
5
6
7
8
9
use warnings;
my @iparray=("qua","aqua","backwa","kkokoko");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

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

1
2
print "$^T\n";
`$^X $0`

1
`$^X $0`

1
`$^X $0

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("a","qua","aqua","backwa","kkokokowa","koke","anderson");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

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

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

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

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("return","revert","reveal","rebel","real","relm","reign","response");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("return","revert","reveal","rebel","real","relm","reign","response");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("return","revert","reveal","rebel","real","relm","reign","response");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("return","revert","reveal","rebel","real","relm","reign","response");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...