Transferring display of non-windows machine using Putty and X-Manager

Pre-requisites
1. Download and Install Putty.exe.  Latest putty can be downloaded from http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html
2. Doiwnload and Install XManager 2.0 or above.  XManager can be downloaded from http://download.cnet.com/Xmanager/3000-7240_4-10038129.html

Steps you need to follow
1. Go to Start->Programs->Xmanager2->Xmanager - Passive
2. Launch Putty and load/provide the IP of the machine you wanted to connect
3. Goto SSH->X11->Enable X11 forwarding
4. Click Open
5. Set Display environment variable by using below command

    export DISPLAY=:0.0
 6. Test if display is transferred by using xclock command

Note: This will work only if host is having SSH.

Compare two files

use File::Compare;

# Function Name : compareFile
# Input : Two files to compare.
# Output : Pass or Fail.
# Description : This function will compare two given files. If both files are same then it will return Pass
# else it will return Fail.
#
sub compareFile($$)
{
my ($file, $exp_file) = @_;

$file = convertSlash($file);
$exp_file = convertSlash($exp_file);

my $result = "";
if (compare($file, $exp_file) == 0)
{
$result = "Pass";
}
else
{
$result = "Fail";
}

return $result;
}

Getting OS Name

my $os = $^O;
print "$os\n";

Getting Current working Directory

use Cwd;

my $pwd = getcwd();
print "$pwd\n";

Convert unix path to windows path by converting frontslash to backslash

# Function Name : windowsSlash
# Input : String with or without slash
# Output : Path with double backslash
# Description : This function will convert all forward slash (/) to double backward slash(\\). Also,
# extra slashes will be removed.
#
sub windowsSlash($)
{
my ($str) = @_;
$str =~ s/\/\//\//g;
$str =~ s/\//\\\\/g;
return $str;
}

Convert windows path to unix path by converting backslash to frontslash

# Function Name : convertSlash
# Input : String with or without backslash
# Output : String without backslash
# Description : This function will convert all backslash (\) to front slash(/). Also, extr slashes
# will be removed. For Ex: Suppose given string is
# C://rinkesh//bansal//abc.pl then it will be converted to C:/rinkesh/bansal/abc.pl
#
sub convertSlash($)
{
my $str = $_;
$str =~ s/\\/\//g;
$str =~ s/\/\//\//g;
return $str;
}

Renaming a file

use File::Copy;

# Function Name : renameFile
# Input : Name of the Source file and destination file name
# Output : None
# Description : Renames source file to destination file name
# See my other blogs for FileExists function
sub renameFile()
{
my ($source, $destination) = @_;
FileExists($source);
rename($source,$destination);
}