Train pnr print division

Perl Script to Fetch PNR Status reservation on train from Indian Railways

http://digitalpbk.com/perl/script-fetch-pnr-status-reservation-train-indian-railways Perl Script to Fetch PNR Status reservation on train from Indian Railways The code below is a perl script that fetches the PNR status from the indianrail.gov.in website and displays it on the command line. Warning: No one is authorised to make any type of commercial usage like putting web advertisements or SMS service and Reproducing/Transmitting/Storing in its database, any content of www.indianrail.gov.in website, without prior written permission from Indian Railways. Violators ...

Create 24 using Addition Subtraction Multiplication and Division from 3 3 8 8

http://digitalpbk.com/interview-questions/create-24-using-addition-subtraction-multiplication-and-division-3-3-8-8 Create 24 using Addition Subtraction Multiplication and Division from 3 3 8 8 None 8 / (3 - 8 / 3) = 24 Interview Questions ...

Perl Script to Login to Orkut

http://digitalpbk.blogspot.com/2007/05/perl-script-to-login-to-orkut.html = WWW::Mechanize->new(cookie_jar => $cj);@prc = ("\e[0m\n","[\e[1;31mFAILED\e[0m]","[\e[2;32m OK \e[0m]\n"); print "\n\e[31;1mG\e[0mmail iD : "; $email = ; print "\e[31;1mP\e[0massword : \e[97m"; $pass = ; print $prc[0]; chomp $email;chomp $pass;RELOGIN: for($i=3; $i>=0;$i--) { printf("\e[2m%-60s","GET /Home.aspx"); $mech->get("http://www.orkut.com/Home.aspx"); last if($mech->success()); printf("%10s",$prc[1]); ...

Perl Download Manager

http://digitalpbk.blogspot.com/2008/06/perl-download-manager.html ""); print "Downloading $url \n to $file \n"; our @stats:shared = (0,0,0,0,0,0,0,0,0,0,0,0,0,0); our $exit:shared = 0; our $tdl:shared = 0; our $tgl:shared = 0; our $lastime:shared = time(); our $lasdl:shared = 0; my $folder = "/home/arun/download/"; select STDOUT; $| = 1; sub catchintr() { my $who = shift; print "\n$who is Bugging me\nDownload Paused\nExit message dispatched"; $exit = 1; } $SIG{INT} = \&catchintr; $SIG{HUP} = \&catchintr; sub dloader { select ...

PERL: How to remove an element from hash or array?

http://digitalpbk.com/perl/how-remove-element-hash-or-array => 'bbb', 'c' => 'ccc', ); print %hash; delete $hash{a}; #key value pair 'a' => 'aaa' would be deleted print %hash; Example for deleting an element from an array The code below deletes an index from an array. #!/usr/bin/perl $, = "\n"; # Fields separator my @array= ('a','b','c','d','e'); print @array; delete $array[0]; #value a would be deleted print @array; Example for deleting an element from a hash By Value ...

Sprintf Function in Python

http://digitalpbk.com/python/php-sprintf-function-in-python Sprintf Function in Python The printf or sprintf function is used to format strings in PHP and C programming constructs. sprintf in php returns the formatted string whereas printf just prints the output. $variable = sprintf("%d %s %d = %d",4,"+",5,9); print $variable; //OR printf("%d %s %d = %d",4,"+",5,9); //Both lines are identical. //Prints 4 + 5 = 9 On python, sprintf is handled using an operator instead of function. The % operator on a string ...

Orkut Perl Script - Login, Scrapper and more

http://digitalpbk.blogspot.com/2007/06/orkut-mass-scrapper-scrap-all-friends.html Orkut Perl Script - Login, Scrapper and more IntroThis is a PERL script that logs you into Orkut and allows you to scrap yiur friends. Following is the program and beneath it lies the manual to use the program. I assume that you already have PERL installed on your system with the required modules:LWPWWW::MechanizeProgram#! /usr/bin/perl -wuse WWW::Mechanize;use HTTP::Cookies;use HTTP::Request::Common;use subs qw(print_c login logout home grab proces scrap);#autoflush STDOUT 1;printf ...

My First useful PERL program

http://digitalpbk.blogspot.com/2007/05/my-first-useful-perl-program.html the response...#if($res->is_success){ $contents = $res->content; $contents =~ m/(.*)/i; #regexp to find the title if($1 =~ m/Site Meter/) { print "Wrong User name!\nAborting\n"; exit 0; # # If the web page title contains the words "Site Meter", # it means the username was invalid and got redirected to # index. # } print "$1\n","="x length $1,"\n";## Print the title and draw an underline...# $contents =~ s/ //g; #Strip ` ` $contents =~ s ...

Showing similar content nodes on Drupal

http://digitalpbk.com/2009/12/showing-similar-content-nodes-drupal Showing similar content nodes on Drupal To show similar content nodes on drupal you have to install the similar module. After installing the similar module goto admin/build/block Drag the Similar Entries module OR If you want to integrate the similar content to the node body, call the similar_content theme function. print theme('similar_content', $node); on node.tpl.php Using the variables available withing node.tpl.php you can choose whether to display the similar content ...

Perl Script to send Free SMS to any mobile number in INDIA using way2sms

http://digitalpbk.com/perl-sms/perl-script-send-free-sms-any-mobile-number-india-using-way2sms = WWW::Mechanize->new(); my $username = ""; #fill in username here my $keyword = ""; #fill in password here my $mobile = $ARGV[0]; my $text = $ARGV[1]; $deb = 1; print length($text)."\n" if($deb); $text = $text."\n\n\n\n\n" if(length($text) get("http://wwwl.way2sms.com/content/index.html"); unless($mech->success()) { exit; } $dest = $mech->response->content; print "Fetching...\n" if ...