All posts by WhiteWind

About WhiteWind

I'm a Perl-PHP Developer from India. I'm a great fan of Wordpress & Perl.

How can we break out from a loop in perl?

Perl Scripts, Uncategorized

It’s can be done as :-

my @a=(1,2,3,4,5,6,7,8,9,12);
my $b=3;
#print "ttt:-".$a[$b-2];
foreach my $c (@a)
{
    print $c."\n";
    if($c==$b)
    {
        last;
    }
}

The output will be as :

  1
 2
 3

How can I get last characters of a string using JavaScript?

Java Scripts, Uncategorized

You’ll want to use the Javascript string method .substr() combined with the .length property.

var id = "ctl03_Tabs1";
var lastFive = id.substr(id.length - 5); // => "Tabs1"
var lastChar = id.substr(id.length - 1); // => "1"

This gets the characters starting at id.length – 5 and, since the second argument for .substr() is omitted, continues to the end of the string.

If you’re simply looking to find the characters after the underscore, you could use this:

var tabId = id.split("_").pop(); // => "Tabs1"

This splits the string into an array on the underscore and then “pops” the last element off the array (which is the string you want).

Substr() in Perl…

Perl Scripts, Uncategorized

It can be done as follows :-

Following is the example code showing its basic usage:

#!/usr/bin/perl -w

$temp = substr("okay", 2);
print "Substring valuye is $temp\n";

$temp = substr("okay", 1,2);
print "Substring valuye is $temp\n";

O/p

Substring valuye is ay
Substring valuye is ka

How add values to %hash in perl?

Perl Scripts, Uncategorized

It’s as follows:

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my @a=(1,2,3,4,5,6,9);
my @b=('q','w','e','r','t','y','u');
my %hash;
for(my $i=0;$i<7;$i++)
{
  $hash{$a[$i]}=$b[$i];
}

print $hash{'9'};

O/p

u

How to get the row number or rank of row in mysql?

MySQL Queries, Uncategorized

It should be done as follows:

SELECT @x:= @x + 1 AS rank, title FROM t1 JOIN ( SELECT @x:= 0 )X ORDER BY weight