Answer Posted / 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
";
}

Enlist the advantages of using c over perl?

916

---

Write a script to reverse a string without using perl's built in functions?

989

---

What are the advantages of programming in perl?

1040

---

I have one question regarding to eval function. I know eval function is use for error checking but I am not able to understand below line. eval \'exec perl -S $0 ${1+\"$@\"}\' if 0; $0 for script name $@ set if error occur

2040

---

Explain tk?

994

---

Explain what is perl language?

930

---

What are hashes?

946

---

Where the command line arguments are stored and if you want to read command-line arguments with Perl, how would you do that?

1092

---

What are the steps involved when the cgi program starts running?

915

---

How to code in perl to implement the tail function in unix?

938

---

What is the importance of perl warnings? How do you turn them on?

1041

---

Explain chop?

918

---

Explain use of ‘my’ keyword in perl?

937

---

Differences between die and exit.

999

---

Define perl scripting?

983

---