Answer / kuldip singh behal

if we are looking for occurrences of single character in a
string then we can use TR command
syntax: tr///
example:
$string="The lion group will meet me after lunch";
and we are looking for the occurrences of character 'l' in
the given string. then we can write tr like
$count = ($string=~tr/l//);
print "l is coming $count time(s)";

but for multiple characters look up we have to use:

$string = "-9 55 48 -2 23 -76 4 14 -44";
while ($string =~ /-\d+/g) { $count++ }
print "There are $count negative numbers in the string";


Donated by :- Kuldip singh behal

Answer / ramya

while ($string =~ /<pattern>/g) { $count++ }

Answer / shah faisal

($count)=$string =~ s/<pattern>/<pattern>/g;

Answer / perllearner

my %hshUniq;

my $testString = "This is the programme to check the count of unique values present in this text This is the programme to check";
my @arrList = split (" ",$testString);

foreach (@arrList);
{
chomp($_);
if ( exist %hshUniq{$_})
{
my $count = $hshUniq{$_};
$hshUniq{$_} = $count++;
}else
{
$hshUniq{$_} = 1;
}
}

while (($key,$value) = each(%hshUniq))
{
print "The unique character $key count in the string is $value
";
}

my @array=('data1','data2'); my @array1=('data1','data2'); my ($i,$k); $i=7; $k=7; while($i){ $array [++$#array] = 'ree'; $i--; print "@array"; } while($k){ push(@array1,'ree'); $k--; print "@array1"; } Are these two while loop are doing the same functionality ? What may be the difference?

1 Answers   A1 Technology,

---

Explain the functioning of conditional structures in perl.

0 Answers  

---

Is perl a case sensitive language?

0 Answers  

---

Write a program to decode the data in the form using cgi programming

0 Answers  

---

I have created a CGI-based page,after entering all the values in to the fields, How to get the output on the web browser using Perl

4 Answers  

---

Define print() function in perl?

0 Answers  

---

There are two types of eval statements i.e. Eval expr and eval block. Explain them.

0 Answers  

---

How to read from a pipeline with Perl

0 Answers  

---

what is Polymorphism in Perl?

0 Answers  

---

How to read a single line from a file in perl?

0 Answers  

---

How to connect to SQL server through Perl?

0 Answers  

---

How can you create anonymous subroutines?

0 Answers  

---