World Of Tirtha

Shot Patro

2011-05-08T08:25:00.000-07:00

Kumaon 2009

2009-10-31T23:22:00.000-07:00

On the Way to My Sweet Home - Basirhat

2009-05-29T09:19:00.001-07:00

Sky Scape III

2009-05-18T13:31:00.000-07:00

The Great Thunder (Taken after 30 shots)

Akasher Buk Chire

Karunamoyee

Rajarhat

Change or reset or recover password for mysql 'root' account

2009-05-17T22:14:00.000-07:00

You can recover MySQL database server password with following five easy steps.

Step # 1: Stop the MySQL server process.

Step # 2: Start the MySQL (mysqld) server/daemon process with the --skip-grant-tables option so that it will not prompt for password

Step # 3: Connect to mysql server as the root user

Step # 4: Setup new root password

Step # 5: Exit and restart MySQL server

Here are commands you need to type for each step (login as the root user):


Step # 1 : Stop mysql service

# /etc/init.d/mysql stop
Output:

Stopping MySQL database server: mysqld.


Step # 2: Start to MySQL server w/o password:

# mysqld_safe --skip-grant-tables &
Output:

[1] 5988
Starting mysqld daemon with databases from /var/lib/mysql
mysqld_safe[6025]: started


Step # 3: Connect to mysql server using mysql client:

# mysql -u root
Output:

Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 1 to server version: 4.1.15-Debian_1-log

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql>


Step # 4: Setup new MySQL root user password

mysql> use mysql;
mysql> update user set password=PASSWORD("NEW-ROOT-PASSWORD") where User='root';
mysql> flush privileges;
mysql> quit


Step # 5: Stop MySQL Server:

# /etc/init.d/mysql stop
Output:

Stopping MySQL database server: mysqld
STOPPING server from pid file /var/run/mysqld/mysqld.pid
mysqld_safe[6186]: ended

[1]+  Done                    mysqld_safe --skip-grant-tables

Step # 6: Start MySQL server and test it

# /etc/init.d/mysql start
# mysql -u root -p

OR

goto 
http://localhost/phpmyadmin

and login as 'root' with NEW-ROOT-PASSWORD.

Sky Scape II

2009-05-15T10:19:00.001-07:00

cross connection lyrics "mon gieche moner gror" মোন গিয়েছে মোনের ঘর

2009-05-11T06:42:00.000-07:00

মোন গিয়েছে মোনের ঘর, রাত্রি খোজে সয়ম্বর ।
জলের বুকে চাঁদ ভেঙে যায় অনরগল ॥
আয়না শহর পরবাস, আঙুল থাকে স্মৃতির ঘাস ।
অন্য আকাশ উড়াল নিল পাখির দল ॥

দেখ এই আঁচলে টুকর ঝিনূক খামখেয়াল ।
এই পকেটে ফুলের শরির অল্প লাল ॥
শিরশিরিয়ে সুর বয়ে যায় আনমোনে ।
পথ নিয়েছে হঠাৎ বাঁক, এই কুয়াষায় আঁকছে বাঁকে ,
সেও কি আমার ভিষণ চেনা ছলাৎ ছল ॥

ইচ্ছে গেল গুলমোহরের চৌকাঠে,
আদর হাতের মোন কেমনের পথ ঘাটে ।
চেনা মেঘের বৃষ্টি এল স্নানের কিনারায় ॥
সেমুখ ছিল নাগাল ঘর, সেই বাতাসের ভেতর ঘরে,
নরম পালক বিছিয়ে যেত রঙ রঙিন ॥

হয়ত আছি দিনের ঝৃণের পথ চিনে,
হয়ত নেব দমকা হাওয়ার গান গাওয়া ।
দুরের পাখি বলছে আঁকি, নরম ঠিকানায় ॥
রাতের বাগান চোখ পাকায়, জোৎস্না গুড়ো যানতে চায় ।
মায়ার খবর তৈরী হল সংগোপন ॥

Handle .xls file with Perl Script

2009-05-10T01:10:00.000-07:00

Easy Way to access .xls file from perl script.

test.xls

CODE:

#!/usr/bin/perl -w
use strict;
use Spreadsheet::Read;
use Data::Dumper;

my $xls = ReadData ($ARGV[0]);

#print Dumper($xls);
print Dumper($xls->[1]);

exit;

command: perl xls.pl test.xls
Output:

$VAR1 = {
     'maxrow' => 6,
     'A1' => '10',
     'B4' => '341',
     'A2' => '12',
     'B6' => '340',
     'C1' => '700',
     'D5' => '5435',
     'E4' => '45',
     'C2' => '655',
     'C6' => '650',
     'maxcol' => 5,
     'C5' => '649',
     'B1' => '223',
     'E6' => '341',
     'C4' => '651',
     'A3' => '10',
     'E2' => '43',
     'label' => 'Sheet1',
     'D2' => '5432',
     'D6' => '8',
     'D3' => '5433',
     'attr' => [],
     'E1' => '50',
     'B2' => '345',
     'cell' => [
                 [],
                 [
                   undef,
                   10,
                   12,
                   10,
                   8,
                   6,
                   7
                 ],
                 [
                   undef,
                   223,
                   345,
                   343,
                   341,
                   339,
                   340
                 ],
                 [
                   undef,
                   700,
                   655,
                   653,
                   651,
                   649,
                   650
                 ],
                 [
                   undef,
                   6000,
                   5432,
                   5433,
                   5434,
                   5435,
                   8
                 ],
                 [
                   undef,
                   50,
                   43,
                   44,
                   45,
                   46,
                   341
                 ]
               ],
     'E3' => '44',
     'B5' => '339',
     'A6' => '7',
     'A5' => '6',
     'D1' => '6000',
     'A4' => '8',
     'D4' => '5434',
     'C3' => '653',
     'B3' => '343',
     'E5' => '46'
   };

VOTE 2009 ( WEST BENGAL HOWRAH 7th May )

2009-05-09T23:05:00.000-07:00

My Painting

2009-05-09T23:03:00.000-07:00

Sky Scape

2009-05-09T22:51:00.000-07:00

Potrait

2009-05-09T22:40:00.000-07:00

On the Way to My Home

2009-05-09T22:34:00.000-07:00

Nocturnal Art

2009-05-09T22:15:00.001-07:00

Abstract & Macroscopic Photograph

2009-05-09T12:16:00.000-07:00

West Bengal IT HUB.

On the way to my Dreamland. .

Every hours & Minutes are chasing the Second... . .

. . Wait a minuit.
. . Touch the Dream.
. . Make a choice.
. .

Following My Shadow.

Bogenvalia.

Finding the right Key of Life ...

. .

Bachelor's Morning tea full of ashes ...

perl find the two pair combination of an array

2009-02-25T22:21:00.000-08:00

A simple algorithm to implement the combination of an array. It is a recursive function.And you have to pass a blank array along with the actual one. i/p - [1,2,3,4] o/p - [ [1,2] [1,3] [1,4] [2,3] [2,4] [3,4] ]

my @combination=@{combine(\@class,\@Comb_Nothing)};
sub combine
{
    my @comb=@{@_[1]}; my @arrin=@{@_[0]}; my $ci; my $push1; my $push2;
    for( $ci=1;$ci<=$#arrin;$ci++ )
    {
        if($arrin[0] < $arrin[$ci])
        {
            $push1=$arrin[0]." ".$arrin[$ci];
        }
        else
        {
            $push1=$arrin[$ci]." ".$arrin[0];
        }
        push(@comb,$push1);
    }
    shift(@arrin);
    if($#arrin != -1)
    {
        combine(\@arrin,\@comb);
    }
    else
    {
        return(\@comb);
    }
}

Perl advance system() function sysarg()

2009-02-25T22:09:00.000-08:00

In perl it is very easy to use the system command and get the output in an array.

my @return = sysarg("ls -l");
print @return."\n";

sub sysarg
{
    my $system_arg=shift;$system_arg=$system_arg." |";
    open (HD, $system_arg);my @con_sys = < HD >;close HD;
    return @con_sys;
}

In this way you can handle huge file without accessing the file each time. it fasten the execution as it use the buffer in full pace.

bsnl Broadband Connection Restarter

2009-02-25T21:44:00.000-08:00

Here i'm giving the content of the batch file. -----------------------------------------------------------------------

@ECHO off
cls
:LN
set conn=
set /p conn=Type your connectionname name -
set uname=
set /p uname=Type your user name -
set passw=
set /p passw=Type your password -
ECHO.
ECHO your connectionname name is "%conn%"
ECHO your user name is "%uname%"
ECHO your password is "%passw%"
ECHO.

set temp=
set /p temp=If you want to Re-Enter the account information press 'A'.
if '%temp%'=='A' goto LN

set str_conn=rasdial %conn% /disconnect
::echo string connect: = %str_conn%
echo %str_conn%>%conn%.bat
echo %str_conn%>%conn%_disconnect.bat

set str_ds_conn=rasdial %conn% %uname% %passw%
::echo string dis-connect: = %str_ds_conn%
echo %str_ds_conn%>>%conn%.bat

echo.
echo.
echo shortcut is creatted in this directory.
echo Thank You for Using This Service.................
echo.
pause

---------------------------------------------------------------------- Copy the content in a text file.Rename it as Install.bat. Then dowble click on that file. Its very easy to set up the disconnetor and Restarter. It will help you to change your ip if your isp provide you dynamic ip.