IPV4 to IPV6: Perl Programs

GUI Programming using PERL-TK

GUI Programming using PERL-TK

Perl - Practical Extraction and Report LanguagePerl is an interpreted scripting language.Perl is optimised for scanning arbitrary text files and system administration.It has built-in extended regular expression matching and replacement, a data-flow… Read more »

06Nov2013

Perl with MySQL Database Connectivity

Tukiyooo 0 Open Source Lab Programs, Perl Programs 05:27

Perl with MySQL Database Connectivity

Tukiyooo 0 Open Source Lab Programs, Perl Programs 05:27

Perl - Practical Extraction and Report LanguagePerl is an interpreted scripting language.Perl is optimised for scanning arbitrary text files and system administration. It has built-in extended regular expression matching and replacement, a data-flo… Read more »

06Nov2013

Simple Perl Programs

Tukiyooo 0 Open Source Lab Programs, Perl Programs 05:00

<div dir="ltr" style="text-align: left;" trbidi="on"><a href="http://en.wikipedia.org/wiki/Perl" target="_blank">Perl </a>- Practical Extraction and Report Language Perl is an interpreted scripting language. Perl is optimised for scanning arbitrary text files and system administration. It has built-in extended regular expression matching and replacement, a data-flow mechanism to improve security with setuid scripts and is extensible via modules that can interface to C libraries. Installation : <blockquote class="tr_bq">sudo apt-get install perl</blockquote> Compiling method : <blockquote class="tr_bq">perl filename.pl</blockquote> e.g perl hello.pl 1. Simple mathematical calculation program <blockquote class="tr_bq">  #usr/bin/perl $str = " Hello "; print "cse:$str \n"; print "2+2 = ",2+2,"\n"; print "log(1e23) = ",log(1e23),"\n"; print "sin(3.141) = ",sin(3.141), "\n";</blockquote> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmuckwdMwJ4hhdZUWae3uUvFEcbjgzngcamPFYLaWEzgLnn_b8CAPrFSmymTOKD0xrGLlotw-KGD1mYr16UaQ0BULbbyWnfUQ8JtLUIQgQlzni1MOF0YBZ7GAAh7-3FmdJCTcaK4xakps/s1600/plhello.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmuckwdMwJ4hhdZUWae3uUvFEcbjgzngcamPFYLaWEzgLnn_b8CAPrFSmymTOKD0xrGLlotw-KGD1mYr16UaQ0BULbbyWnfUQ8JtLUIQgQlzni1MOF0YBZ7GAAh7-3FmdJCTcaK4xakps/s1600/plhello.png" /></a></div> 2. Pattern Matching Program <blockquote> $_="hello how are you"; if(/hello/){ print "Default Variable = $_ \n"; print "Found hello \n"; } # i modifier ignore case difference if(m/HOw/i){ print "found how \n"; } #match with negation if(!/hall/){ print "Not found hall \n"; } else {  print "found\n"; }</blockquote> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj0CSJ70w3SOs2BcSxa1r8JHQSgBCKK7xnAH1s_0Xg56kRyckFWj1XDZXS5O7otfo4e_mBHmudLSlpDRjDEdlqCqlOHG0mQVkkq_5CoVeWDWZ_LcOpsomaPcXP0qk-B3ZPeRvbRq6WCQc/s1600/plpattern.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj0CSJ70w3SOs2BcSxa1r8JHQSgBCKK7xnAH1s_0Xg56kRyckFWj1XDZXS5O7otfo4e_mBHmudLSlpDRjDEdlqCqlOHG0mQVkkq_5CoVeWDWZ_LcOpsomaPcXP0qk-B3ZPeRvbRq6WCQc/s1600/plpattern.png" /></a></div> 3. System Command Accepting Program <blockquote class="tr_bq"> $time = localtime; print "Time is now - $time \n"; print "Enter a shell command:"; $n = <STDIN>; system $n;</blockquote> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEMHTAx2sAG0LjDoTcAY_soXRZOha9Il8YRKrimG6a_JjVf8pBikj1izjqGHm9g3k-SuFDDaWJewplrSUtkozSkntngRA9fDiT139NCXf5R7M3XduOje3jMIXnp9ubmJ7c5OwGEDgo0fM/s1600/plcmd.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEMHTAx2sAG0LjDoTcAY_soXRZOha9Il8YRKrimG6a_JjVf8pBikj1izjqGHm9g3k-SuFDDaWJewplrSUtkozSkntngRA9fDiT139NCXf5R7M3XduOje3jMIXnp9ubmJ7c5OwGEDgo0fM/s1600/plcmd.png" /></a></div> 4. Program for Counting Words, Lines and Characters in a File <blockquote class="tr_bq">#usr/bin/perl $filen = "fileh.pl"; open($fh,"<",$filen); while($line = <$fh>){ @lines = [split(/ +/,$line)]; $noline += scalar(@lines); $words += scalar(split(/\w+/,$line)); $chars += length($line); } print "\n No.of Lines - $noline \n        No.of Words - $words \n        No.of Characters - $chars \n";  close($fh);</blockquote> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg41oMrMC5sht2ESq3xu1ynO8HBmCufGyRIURIY2J0XBKSItoVRzUN-IjNBfWA_AF_dUfE6V7a_OQHznsYHvclJaF3phNXqR_pqjQyYvrfMK6elLtG-LkAugt7szCnCElf5RYsqsu8NhDo/s1600/plfile.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg41oMrMC5sht2ESq3xu1ynO8HBmCufGyRIURIY2J0XBKSItoVRzUN-IjNBfWA_AF_dUfE6V7a_OQHznsYHvclJaF3phNXqR_pqjQyYvrfMK6elLtG-LkAugt7szCnCElf5RYsqsu8NhDo/s1600/plfile.png" /></a></div> 5. Program for Printing all 5 letter words in Paragraph by giving as it as input <blockquote class="tr_bq"> print "Enter a text:"; while(<>){ chop; tr/;:;.!?-//d; foreach $w (split) {   if(length($w)==5) {     print "$w \n";     $score++;           }     }}</blockquote> <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2iMNtB9vV05IDCRzBHhOhCQR7XZQ_RD50GCS05_NtP2uFddjiWLge9O8cZOjv9vzLOjd4GDs-kEATaVbu4A1jbj5JwgKGTbAYOR1zNaN9kzriGpaE8zIhWxwp6tXto9kcu5hx3jsV8xA/s1600/plcount5LetterWords.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2iMNtB9vV05IDCRzBHhOhCQR7XZQ_RD50GCS05_NtP2uFddjiWLge9O8cZOjv9vzLOjd4GDs-kEATaVbu4A1jbj5JwgKGTbAYOR1zNaN9kzriGpaE8zIhWxwp6tXto9kcu5hx3jsV8xA/s1600/plcount5LetterWords.png" /></a></div> 6. Program for Printing the words which are all end with "ly" <blockquote>print "Enter the text:"; while (<>) {    foreach $wd(split){        if($wd =~ /ly$/i) {          print " $wd \n";                  $var++;                   }          }}</blockquote>   <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg15C7uZzEtvWyFOds5Tzi2VgP2I_z6s_faxPQOmdeaxhcJobJ85M1k85xSwu7YNUrckZP8ZZ5d9BZCcSqtTj8SiO0eyn3SIBRgnTNwdOETW2jteEytY9EgeeV3xqXs0ISC2iMZ4GJEJ-Q/s1600/pl-lyCOunts.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg15C7uZzEtvWyFOds5Tzi2VgP2I_z6s_faxPQOmdeaxhcJobJ85M1k85xSwu7YNUrckZP8ZZ5d9BZCcSqtTj8SiO0eyn3SIBRgnTNwdOETW2jteEytY9EgeeV3xqXs0ISC2iMZ4GJEJ-Q/s1600/pl-lyCOunts.png" /></a></div> 7. Program to find average length of words in a text. #! usr/bin/perl use strict; open (FILE,"wel.txt") or die "error in open wel.txt"; my $TSentences=0; my $TWords=0; my $TLetters=0; my $AvgWordLength=0; my $AvgSentenceLength=0; while(my $line=<FILE>) { my @words=split(" ",$line); my $nwords=@words;#no of words in that line for(my $i=0;$i< $nwords;$i=$i+1) {           my @letters=split("",$words[$i]);           my $nletters=@letters;           $TLetters=$TLetters+$nletters;         } $TWords=$TWords+$nwords; $AvgWordLength=$TLetters/$TWords; } print("Total Words:$TWords\n"); print("Total letters:$TLetters\n\n"); print("The average word length (in characters):$AvgWordLength\n "); close(FILE); open (FILE,"wel.txt") or die "error in open wel.txt"; while(my $ch=getc(FILE)) {   if($ch eq "." || $ch eq "!" || $ch eq "?") {      $TSentences=$TSentences+1;   } } $AvgSentenceLength=$TWords/$TSentences; print("Total sentences:$TSentences\n"); print("The average sentence length (in words):$AvgSentenceLength \n"); exit(0); <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrYHFCOIg7Ygpbe4V602ZqN5rTHUi1JfpYnS98xneyqcZ5c6ZkWAzGe5R5C5gBROPoipJ99XsrSs2JNeO8qGef0PDt8rTFd8MoiSMQuFDZ53Fw2GLhyYn9xgqx64d-wyiU0R8HGnBEjwU/s1600/plavgword.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrYHFCOIg7Ygpbe4V602ZqN5rTHUi1JfpYnS98xneyqcZ5c6ZkWAzGe5R5C5gBROPoipJ99XsrSs2JNeO8qGef0PDt8rTFd8MoiSMQuFDZ53Fw2GLhyYn9xgqx64d-wyiU0R8HGnBEjwU/s1600/plavgword.png" /></a></div> 8. Program to count the frequency of words in text # Clear word hash %words = (); print "What is the text you wish to analyze? \n"; print "Please include the filename and extension \n\n"; $textfile = <>;                                   # Read the filename from the keyboard input chop $textfile;                                                # Remove line return print "Now analyzing lexical frequency in $textfile\n\n"; open text_in, "< $textfile"; while ($line = <text_in>) {    chomp($line);                                                           # Remove line returns    $line = lc($line);                                                       # Change to lower case    $line = ' ' . $line . ' ';                                                 # Add spaces    $line =~ s/["(),;:.!?]/ /g;                                            # Remove punctuation    @words = split (" ", $line );                                     # Put words into an array       foreach $word (@words) {          $words{$word} = $words{$word} + 1;             # Put word and word frequency in hash       } #end foreach word } #end while close text_in; # Display the results foreach $word (sort keys %words) {                          # Sort the word hash    print "$word $words{$word}\n";                        # Print word and frequency    } <div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQD3PLYR21gMemVqohyWYW9aDKJhZpjQPtUQVdmwkH7vMa2B0-3DJsw7RSoPpgN2HmlX5lqiLk-ujcfFVu1ffi-VasnKfyashoLCren7Sd_MJME9UBF35fupqbYmrtQMBzPL6YdIdOSug/s1600/plfreqword.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQD3PLYR21gMemVqohyWYW9aDKJhZpjQPtUQVdmwkH7vMa2B0-3DJsw7RSoPpgN2HmlX5lqiLk-ujcfFVu1ffi-VasnKfyashoLCren7Sd_MJME9UBF35fupqbYmrtQMBzPL6YdIdOSug/s1600/plfreqword.png" /></a></div></div>

Simple Perl Programs

Tukiyooo 0 Open Source Lab Programs, Perl Programs 05:00

06Nov2013

GUI Programming using PERL-TK

Perl with MySQL Database Connectivity

Simple Perl Programs

ADV

Populars

Arsip Blog