1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1[1]=~m/\s/)
{
print "wrong";
}
print "\n array ".$str1[0];
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1[1]=~m/\s/)
{
print "wrong";
}
print "\n array ".$str1[0];
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1[1]=~m/\s/)
{
print "wrong";
}
print "\n array ".$str1[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 = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1=~m/\s?/)
{
print "\n array ".$str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1=~m/ /?)
{
print "\n array ".$str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
 ...

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 = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1=~m/ ?/)
{
print "\n array ".$str1[0];
print "\n array ".@str1[1];
print "\n array ".@str1[2];
 ...

1
2
3
4
5
6
7
8
9
a="malayalam"
i=0
digits=0
while(a[i]):
  i++
digits=i
j=digits-1
flag=1
for i in digits/2:
 ...

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

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
#!/usr/bin/perl
# "Music Live"
my $str = "12                hr 4 min"; 
my @str1 = split (/\s/, $str);
if($str1[1] eq " ")
{
print "wrong";
}
 ...

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
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

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

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

1
2
print "Kode Multus"
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.[-]

1
2
3
#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

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

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

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

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

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

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 4 min"; 
my @str1 = split (/\s/, $str);
if(@str1[0] eq " ")
{
print "wrong";
}
print "\n array ".@str1[0];
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# "Music Live"
my $str = "12 hr 4 min"; 
my @str1 = split (/\s/, $str);
if(@str1[0]=" ")
{
print "wrong";
}
print "\n array ".@str1[0];
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
open(TL,">test.txt");
print TL ("error");
close (TL);
open(RL,"test.txt");
$test = <RL>;
$error = grep(/error/,$test);
printf ("ERROR %d ",$error);
close (RL);

1
2
3
4
5
6
7
8
#!/usr/bin/perl
open(TL,">test.txt");
print TL ("error");
close (TL);
open(RL,"test.txt");
$test = <RL>;
$error = grep(/error/,$test);
printf ("ERROR %d ",$error);