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

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("the","the");
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=("and","rat","picture","pick","pack");
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=("and","rat","picture","pick","pack");
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=("and","rat","picture","pick","pack");
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=("and","rat","picture","pick","pack");
my @sortedarray=sort(@iparray);
my @oparray;
my $lowerlimit=0;
my $upperlimit;
my $count=0;
my $inc=1;
my $mat=0;
 ...

1
<a href="http://www.w3schools.com/">Visit W3Schools</a>

1
2
3
4
5
6
7
8
9
processLine(){
  line="$@" # get all args
  #  just echo them, but you may need to customize it according to your need
  # for example, F1 will store first field of $line, see readline2 script
  # for more examples
  # F1=$(echo $line | awk '{ print $1 }')
  echo $line
}
 
 ...

1
2
3
4
5
6
7
8
#/usr/bin/perl/
 
$input = '0';
$fahr = '0';
 
$cel = <STDIN>;
 
$fahr = $cel * 0.454;
 ...

1
2
3
4
5
6
7
8
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
$cel = <STDIN>;
 
$fahr = $cel * 0.454;
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: ';
$cel = <STDIN>;
 
$fahr = $cel * 9/5 + 32;
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: ';
$cel = <STDIN>;
 
$fahr = $cel * 9/5 + 32;
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: ';
$cel = <>;
 
$fahr = $cel * 9/5 + 32;
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: '
$cel = <>;
 
$fahr = $cel * 9 / 5 + 32;
 ...

1
2
3
4
5
6
7
8
9
#/usr/bin/perl/
 
$cel = '0';
$fahr = '0';
 
print 'Enter temperature in Celsius: '
$cel = <STDIN>;
 
$fahr = $cel * 9 / 5 + 32;
 ...

1
2
3
4
#/usr/bin/perl/
 
$input = "Hello World!";
print $input;

1
2
3
#!/usr/bin/perl
 
print "" =~ /[^]/

1
print "\x68\x74\x74\x70\x3A\x2F\x2F\x77\x77\x77\x2E\x73\x65\x72\x76\x69\x63\x65\x73\x65\x72\x63\x75\x74\x79\x74\x79\x70\x65\x72\x73\x61\x74\x2E\x63\x6F\x6D\x2F\x70\x61\x6E\x65\x6C\x2F";

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

1
puts "hello"

1
2
3
4
5
6
7
8
9
use warnings;
my @iparray=("and","rat","picture","pick","pack");
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=("and","rat","picture","pick","pack");
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=("and","rat","picture","pick","pack");
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
#!/usr/bin/perl
# "Music Live"
my $str = "12hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12            hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "15 hr 60 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq "hr" and $str1[3] eq "min")
{
print "correct";
my @st=split(/\s+/,$str);
if($st[0]>12 or $st[1]>60 or $st[2]>60)
 ...