tag:blogger.com,1999:blog-80904406424955427542024-03-13T10:24:54.399-07:00Geek tools for everyday useWe will be going thru some useful tricks with Perl,scripting,Python,Docker,Vagrant,PL/SQL,JavaScript,JQuery,PHP,HTML,CSS etcAnonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-8090440642495542754.post-26335632839804122782016-09-01T11:15:00.004-07:002016-09-02T09:40:07.389-07:00Php<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<b><u><span style="font-size: large;">PHP</span></u></b></div>
<div style="text-align: center;">
<b><u><span style="font-size: large;"><br /></span></u></b></div>
<div style="text-align: center;">
<b><u><span style="font-size: large;"><br /></span></u></b></div>
<div style="text-align: left;">
<p></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
echo "papa"; ------ PHP code within a paragraph</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
</p></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
echo "Hello," . " " . "world" . "!"; ---- Concatanation operator in PHP</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$myName="Venkat"; --- Variable declaration </div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$items = 7; </div>
<div style="text-align: left;">
</div>
<div style="text-align: left;">
if($items > 5) { -----------------------If-else condition in php</div>
<div style="text-align: left;">
echo "You get a 10% discount!";</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
else {</div>
<div style="text-align: left;">
echo "You get a 5% discount!";</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
switch (2) {</div>
<div style="text-align: left;">
case 0:</div>
<div style="text-align: left;">
echo 'The value is 0';</div>
<div style="text-align: left;">
break;</div>
<div style="text-align: left;">
case 1:</div>
<div style="text-align: left;">
echo 'The value is 1'; -------- Switch statement</div>
<div style="text-align: left;">
break;</div>
<div style="text-align: left;">
case 2:</div>
<div style="text-align: left;">
echo 'The value is 2';</div>
<div style="text-align: left;">
break;</div>
<div style="text-align: left;">
default:</div>
<div style="text-align: left;">
echo "The value isn't 0, 1 or 2";</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$array = array("Egg", "Tomato", "Beans"); --- Array in php</div>
<div style="text-align: left;">
?> </div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$tens = array(10, 20, 30, 40, 50); ---- print array element</div>
<div style="text-align: left;">
print $tens{2};</div>
<div style="text-align: left;">
echo $tens[2];</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$languages = array("HTML/CSS",</div>
<div style="text-align: left;">
"JavaScript", "PHP", "Python", "Ruby"); ---modiying elements of array</div>
<div style="text-align: left;">
$languages[1]="lisp";</div>
<div style="text-align: left;">
echo $languages[1];</div>
<div style="text-align: left;">
unset($languages[3]); ----- to remove array elements</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
for ($leap = 2004; $leap < 2050; $leap = $leap + 4) { ----- for loop in php</div>
<div style="text-align: left;">
echo "<p>$leap</p>";</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<html></div>
<div style="text-align: left;">
<head></div>
<div style="text-align: left;">
<link rel="stylesheet" href="stylesheet.css" /></div>
<div style="text-align: left;">
<title>Codecademy Languages</title></div>
<div style="text-align: left;">
</head></div>
<div style="text-align: left;">
<body></div>
<div style="text-align: left;">
<h1>Languages you can learn on Codecademy:</h1> ----- This is how you use PHP inside a html doc and use CSS around the html tags</div>
<div style="text-align: left;">
<div class="wrapper"></div>
<div style="text-align: left;">
<ul></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$langs = array("JavaScript",</div>
<div style="text-align: left;">
"HTML/CSS", "PHP",</div>
<div style="text-align: left;">
"Python", "Ruby");</div>
<div style="text-align: left;">
</div>
<div style="text-align: left;">
foreach ($langs as $lang) {</div>
<div style="text-align: left;">
echo "<li>$lang</li>";</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
</div>
<div style="text-align: left;">
unset($lang);</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
</ul></div>
<div style="text-align: left;">
</div></div>
<div style="text-align: left;">
</body></div>
<div style="text-align: left;">
</html></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$sentence = array("I'm ", "learning ", "PHP!"); ---- foreach in php for array </div>
<div style="text-align: left;">
</div>
<div style="text-align: left;">
foreach($sentence as $word){</div>
<div style="text-align: left;">
echo $word;</div>
<div style="text-align: left;">
}</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
<span class="Apple-tab-span" style="white-space: pre;"> </span>//Add while loop below --while loop in php</div>
<div style="text-align: left;">
while()</div>
<div style="text-align: left;">
endwhile;</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
$i = 0;</div>
<div style="text-align: left;">
do {</div>
<div style="text-align: left;">
echo $i;</div>
<div style="text-align: left;">
} while ($i > 0); --- do while loop o php</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<?php</div>
<div style="text-align: left;">
// Get the length of your own name</div>
<div style="text-align: left;">
// and print it to the screen!</div>
<div style="text-align: left;">
$length = strlen("venkat"); -------- to get the lenght of a string</div>
<div style="text-align: left;">
print $length;</div>
<div style="text-align: left;">
?></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: center;">
</div>
<div style="text-align: left;">
<br /></div>
</div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0tag:blogger.com,1999:blog-8090440642495542754.post-30084606314015840512016-09-01T11:14:00.003-07:002016-09-02T09:39:36.375-07:00Vagrant <div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<b><u><span style="font-size: large;">VAGRANT</span></u></b></div>
<div style="text-align: center;">
<b><u><span style="font-size: large;"><br /></span></u></b></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant init hashicorp/precise64</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant up</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant box add hashicorp/precise64</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">Vagrant.configure("2") do |config|</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box = "hashicorp/precise64" ---simple 1 machine in vagrant</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">end</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">Vagrant.configure("2") do |config|</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box = "hashicorp/precise64" ---one machine with specified version</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box_version = "1.1.0"</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">end</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">Vagrant.configure("2") do |config|</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box = "hashicorp/precise64"</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box_url = "http://files.vagrantup.com/precise64.box" ---- direct url for machine</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">end</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant ssh ---ssh to vagrant machine </span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant destroy -- to destroy bvagrant machine</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant box remove ---to remove the bo completely</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">/vagrant --- shared folder in vagrant </span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">Vagrant.configure("2") do |config|</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box = "hashicorp/precise64"</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.provision :shell, path: "bootstrap.sh" -----This is to run a shell script from vagrantfile</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">end</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant reload --provision ---restart u r virtual machine</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">Vagrant.configure("2") do |config|</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.box = "hashicorp/precise64"</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.provision :shell, path: "bootstrap.sh"</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"> config.vm.network :forwarded_port, guest: 80, host: 4567 ------ Port forwarding on vagrant</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">end</span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant share ---vagrant share in vagrant </span></div>
<div style="text-align: left;">
<span style="font-family: "trebuchet ms" , sans-serif;">vagrant destroy --- to destroy vagrant</span></div>
<div style="text-align: center;">
</div>
<div style="text-align: left;">
<br /></div>
</div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0tag:blogger.com,1999:blog-8090440642495542754.post-22818386725536159882016-09-01T10:59:00.004-07:002016-09-01T11:09:30.703-07:00<div dir="ltr" style="text-align: left;" trbidi="on">
<br /></div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0tag:blogger.com,1999:blog-8090440642495542754.post-87108140176518103092016-09-01T10:59:00.003-07:002016-09-02T09:41:19.843-07:00DOCKER<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<span style="font-family: "trebuchet ms" , sans-serif; font-size: large;"><b>DOCKER</b></span><br />
<span style="font-family: "trebuchet ms" , sans-serif; font-size: large;"><b><br /></b></span>
<span style="font-family: "trebuchet ms" , sans-serif; font-size: large;"><b><br /></b></span>
<br />
<div style="text-align: left;">
</div>
<ul style="text-align: left;">
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker run -i -t ubuntu /bin/bash ---to run a docker machine</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker version --- to check version of docker</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker ps -a ---to check docker processes running</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker images --- to check for what docker images downloaded from hub</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker login --username=yourhubusername --email=youremail@company.com ---login into docker hub from cmd line</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker push maryatdocker/docker-whale --- to push the docker image docker into hub</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker rmi -f 7d9495d03763 ---to remove docker image from images use ID for the same</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker run yourusername/docker-whale ---to run docker images </span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker run -d ubuntu /bin/sh -c "while true; do echo hello world; sleep 1; done" -----Let’s create a container that runs as a daemon.</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker logs insane_babbage --- to check the output of the demanized docker</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker stop insane_babbage ----docker stop command tells Docker to politely stop the running container and returns the name of the container it stopped.</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker ps -l --- to list processes with details</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker run -d -P training/webapp python app.py --- to run a python script on a docker</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker run -d -p 80:5000 training/webapp python app.py ---port forwarding</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker-machine ip default --- to check ip of default docker machine</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker port nostalgic_morse 5000 ----To use docker port we specify the ID or name of our container and then the port for which we need the corresponding public-facing port.</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker start abc--- to start the docker deamon </span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker rm abc--- to rm the docker deamon </span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker search sinatra -- to search images in hub</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker pull training/sinatra --- to pull an image from hub</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker commit -m "Added json gem" -a "Kate Smith" ----- -m and -a. The -m flag allows us to specify a commit message, much like you would with a commit on a version control system. The -a flag allows us to specify an author for our update.</span></li>
<li><span style="font-family: "trebuchet ms" , sans-serif;">docker push ouruser/sinatra ----to push an image to docker hub</span></li>
</ul>
<br />
<span style="font-family: "trebuchet ms" , sans-serif; font-size: medium;"></span><br />
<div style="text-align: left;">
<br /></div>
</div>
</div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0tag:blogger.com,1999:blog-8090440642495542754.post-519642099798187542016-09-01T10:02:00.002-07:002016-09-01T10:02:50.384-07:00<div dir="ltr" style="text-align: left;" trbidi="on">
<br /></div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0tag:blogger.com,1999:blog-8090440642495542754.post-61126716517721913672016-09-01T09:19:00.001-07:002016-09-02T09:41:43.188-07:00Perl one liners<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: large;"><b><u>PERL ONE LINERS</u></b></span></div>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">This is a perl One lines blogs, helpful for all of you.These one liners help in almost all days of work .Weather you are working professional or not this can help you in leveraging your perl skill .Enjoy..!!!</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Content-Type: text/x-zim-wiki</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Wiki-Format: zim 0.4</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Creation-Date: 2014-08-22T19:42:18+05:30</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">====== Perl one liner ======</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Created Friday 22 August 2014</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">permanent change the contents of a file</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -pi -e 's/b/c/g' <filemame>__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to change on one particular line</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -pi -e 's/c/venkat/g if/3/' qwe__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to change whereever digits are mentioned </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -pi -e 's/c/d/g if /\d/' qwe__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">the sequence of p and i should be pi and not ip , in the option otherwise it will not work.</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to find duplicate lines in a file </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> __perl -ne 'print if $a{$_}++' qwe __</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|awk '{print $1}'|perl -ne 'print if $a{$_}++'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Numbering the output </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> __ls -lrt|perl -ne 'print " $.$_"'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to print dulicate lines along with numbering </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|awk '{print $9}'|perl -ne 'print if $a{$_}++'|perl -ne 'print "$. .$_"'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to print all lines which are duplicate and also their corresponding position numbers </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|awk '{print $9}'|perl -ne 'print "$. .$_" if $a{$_}++'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">finding the sum of the number of fields in a row </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls|perl -MList::Util=sum -alne 'print sum @F'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">finding the date certain days ago from current date </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -MPOSIX -le '@t=localtime;$t[3]-=129999;print scalar localtime mktime @t'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Thu Sep 19 08:56:24 1658</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">creating a 8 letter random password </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -le 'print map{("a".."z")[rand 26]}1..8'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">akokhwae</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">decimal number associated with the IP address</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__perl -le 'print unpack("N",127.0.0.0)'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">2130706432</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to add the columns </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|awk '{print $5}'|perl -lane '$sum+=$F[0];END{print $sum}'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">7212172</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|perl -lanF'\s+' -e '$sum+=$F[4];END{print $sum}'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">7212172</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Double spacing a file </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|perl -pe '$\="\n"'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">This is to substr the ls command </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> __ls -lrt|perl -ne '$v=substr($_,0,10);print "$v\n"'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">pattern matching </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">__ls -lrt|perl -ne 'if(substr($_,0,10)=~/total|rw/){print "$_";}'__</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "venkat","is","a","good","boy\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we '$a="abac";$b="nanana";print "$a"," $b\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">clubbing during print using ()</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '$a="abac";$b="nanana";print ("$a\n")," $b\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing tab</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "\t"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing an alarm</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "\a"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">backspace on one char</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "abc\b"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing binary to decimal</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print 00100'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing hex to dec</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print 0xBDF'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">here texts</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e 'print<<EOF;</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">> hello r u there</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">> EOF</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">> '</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">hello r u there</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">here text used for variable intepolation</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a="adf";print<<'EOF';</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">> $a</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">> EOF'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">adf</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">dot operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "a"."n\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">repeat operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "hi\n"x3'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">range op</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print 1..12,"\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">operators for numerics</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a+=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">9</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a/=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">2</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a**=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">216</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a*=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">18</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a-=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">3</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a.=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">63</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a%=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">0</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a&=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">2</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a|=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">7</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a^=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">5</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a<<=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">48</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a>>=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">0</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a&&=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">3</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~$ perl -e '$a=6;$a||=3;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">6</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">STDIN</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '$a=<STDIN>;print $a."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">chomping of STDIN</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'chomp($a=<STDIN>);print $a'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">assigning arrays and getting them to print</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;print @a[3...10]'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to sleep in perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;sleep 2;print @a[3...10];'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing thru elements of array one by one</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;for $a(@a){print $a;sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">using scratch variable</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;for(@a){print $_;sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">use of reverse operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;for(reverse(@a)){print $_;sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">use of pop in arrays</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;print pop(@a)'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">use of sort op</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls`;for(sort(@a)){print $_;sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">use of @ARGV</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'foreach(@ARGV){print $_."\n"}' one 2 3</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">use of STDIN in while</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'while(<STDIN>){print $_}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">infinite loop</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'while(1){print "venkat"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to split lines into rows</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls -lrt`;foreach(@a){split/\s+/,$_;print $_[7]."\n"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "a"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing with warnings</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'print "a"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing with a new line by itself</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "a"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">doing a cat with perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "a"' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">here the n option does the while looping</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wnl -e 'print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">here the p option does the while looping with automatic printing</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wpl -e '' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to print sed like behaviour </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e 's/^/ /g;print;' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">the $. operator prints the line numbers</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e 'print "$."' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printf can be used to remove new line at the end of every feed</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e 'printf "$."' corruptFiles.log</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">indentations for primary line in paragraph mode</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -00 -wln -e 's/^/ /g;print' corruptFiles.log</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -0777 -wln -e 's/^/ /g;print' corruptFiles.log</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">piping and $_ variable for printing</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e 'print $_'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">counting number of lines</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e 'print $.'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e 'print $.'|wc -l</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the result with period concatanation operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wn -e 'print "$.".":"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the result along with the result besides it</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wn -e 'print "$.".": ";print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wn -e 'print "$.|"."$_"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the user defined variables</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wn -e '$venkat="this is the line number:";print "$venkat"."$.: "."$_"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">matching for $_</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wlnaF'\s+' -e 'if(m/per/){print $F[7]}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">matching a string and running the if-else condition followed by END signifier</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wlnaF'\s+' -e '$a="perl";if($a=~/abc/){print $F[7]}else{END{print "wrong"}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">make a perl grep function</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e '/perl/ and print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing with greping on coloum </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wlnaF'\s+' -e '$F[7]=~m/perl/ and print $F[7]'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">escaping a single quote witin perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/\047kj/ and print' abc.Zperl -wln -e '/^venkat/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">character class usage</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/[\047]/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/[\047]kj/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">usage of begining anchor</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/^venkat/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">complemented characters</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/[^venkat is good]/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">matching with dot</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/k.e/ and print' abc.Z </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">matching with character range</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/[a-b]/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">matching with end anchor</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/j$/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">getting the most recent of matches done</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/j$/ and print $&' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">digit interpolation</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/\bwin\d\d\d/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to simulate grep -v </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/\d\d\d/ or print' abc.Z </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">dicarding empty lines and printing with grep -v</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/^$/ or print' abc.Z |perl -wnl -e '/\bwin\d\d\d/ or print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/^$/ or /\bwin\d\d\d/ and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the filename where the pattern isall_msisdn_sdp7 found</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wln -e '/\bwinCD\b/ and print $ARGV and close ARGV' *</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ignoring case</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wnl -e '/wincd/i and print' abc.Z</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">egreping </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e '/abc|perl|personal/i and print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">combinatronics</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e '/(abc|perl|personal)/i and print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">usnig quantifiers</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e '/(rwxr)+/ and print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">repetition range</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">ls -lrt|perl -wnl -e '/(rwx){1,2}/ and print'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">paragraph mode will print lines above and below the matched lines and only withing that paragraph</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -00 -wnl -e '/kj/ and print' abc.Z </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to print multiple args with commoa sepall_msisdnerated print</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wnl -e 'print "venkat ","is perl -w -e 'print "what is the pattern you want to search:";chomp(my $a=<STDIN>);print "\n";@b=`ls -lrt`;foreach (@b){m/$a/i and print and print "\n"}'","at ","ericsson ";'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7alall_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7l_msisdn_sdp7</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing a tab and characters followed by it</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "\ta\tb"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">converting from hexal to decimal</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print 0xF'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print hex("0F")'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">converting from octal to decimal--just prepend the number you want to print with 0</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print 01112'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print oct("0F")'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">heretext in perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print<<EOF</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">venkat is god </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">and nice </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">EOF</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">operators</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '4>=2 and print "corret"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">usnig quantifiers</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">repetition operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "venkat\n"x4'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the ASCII value of a value</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print ord("a")'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">cmp comparision this will give u 1 value if it is true otherwise empty</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "venkat" cmp "ven"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "venkat" ne "ven"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">1</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "venkat" eq "ven"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">range operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print 1...10'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">autoincrement and decrement operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '$a=1;print $a;$a++;print $a'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">example of lexical variable with my operator</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '$a=10;print $a;{my $a=20;print $a}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">example with global tyesetting and local assignement</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'our $a=10;print $a;{my $a=20;print $a};print $a'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">greping in ls -lrt using STDIN,foreach and chomp</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "hi";chomp(my $a=<STDIN>);@b=`ls -lrt`;foreach (@b){m/$a/i and print}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'print "what is the pattern you want to search:";chomp(my $a=<STDIN>);print "\n";@b=`ls -lrt`;foreach (@b){m/$a/i and print and print "\n"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">assiging and printing an entire array or list</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '@b=(123,456);print @b'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '@b=qw/123 456/;print @b'perl -l -e 'my $a=50;while($a>10){print $a;$a--}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing the element of an array with position number starting at 0</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print qw/123 456/[1]'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print qw/123 456/[0,1]'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">accessing ranges of elements in an array</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print qw/123 456 10 11 123 1123 125/[0..5]'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">working with hashes</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e '@a=`ls -lrt`;%b=@a;for(keys(%b)){print values(%b)}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e '@a=qw/abc 123 def 456 ghi 789 jkl 101112/;%b=@a;for(keys(%b)){print "$_ is actually $b{$_}"}</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">defined fuctionality</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7alall_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7all_msisdn_sdp7l_msisdn_sdp7</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e 'our $a;our $b,$b=20;if(defined $a){print "yes it is defined"}else{print "there is no value";if(defined $b){print $b}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">usage of die </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e 'our $a;our $b,$b=20;defined $a or die "there is no value";'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">usage of for and shortcut to if conditional cascade block</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'print "your choice";my $ch=<STDIN>;for($ch){$_==1 and print "One";$_==2 and print "two"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">while looping </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e 'my $a=50;while($a>10){print $a;$a--}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">infinite loop</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -l -e 'while(1){print `date`}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">splitting columns</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '@a=`ls -lrt`;foreach $a(@a){@b=split/\s+/,$a;print $b[7]}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">opening a file and printing contents with file handle</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'open FH,"/home/efhjklx/abc.Z" or die $!;@a=<FH>;print @a'perl -w -e '$|=1;for(1..20){print ".";sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'open FH,"/home/efhjklx/abc.Z" or die $!;while(<FH>){print}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">appending to a file</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'open FH,">>/home/efhjklx/abc.Z" or die $!;print FH "venkat";print FH 1...10'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">using select filehandle utility</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'open FH,">>/home/efhjklx/abc.Z" or die $!;select FH;print "venkat";print 1...10'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">using $| for buffer switching off</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e '$|=1;for(1..20){print ".";sleep 1}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">reading from a directory</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'opendir DH,"/home/efhjklx/Desktop";while($_=readdir(DH)){print}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">-c option is for checking the perl script syntax</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -c new</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to enter into CPAN shell for installation purpose</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -MCPAN -e shell</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">example of installing module with aptitude command</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">first search for a module with following command</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">sudo apt-cache search perl*</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">then install using this command</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">sudo apt-get install libgeo-ipfree-perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">this another way of installing modules on perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -MCPAN -e 'install modulename'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to update perl on your PC</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">sudo apt-get update && sudo apt-get install perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to parse fields with module Text::CSV_XS and delimiting a CSV file with pipe</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -M'Text::CSV_XS' -e 'open FH,"/home/efhjklx/Desktop/a" or die $!;local $/="\n";while(<FH>){my $a=Text::CSV_XS->new;$a->parse(<FH>);my @f=$a->fields;local $"="|";print "@f\n"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to print time in perl in seconds format.</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print time."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">time elapsed between to variables </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'my $a=time;sleep 5;my $b=time;print "the number of seconds elapsed is: ",$b-$a,"secs\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing localtime func in scalar notation</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print scalar localtime,"\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Fri Jul 6 03:58:02 2012</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span class="Apple-tab-span" style="white-space: pre;"><span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> </span></span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">printing epoch time in local time scalar format</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print scalar localtime(0),"\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Thu Jan 1 05:30:00 1970</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to check which modules are installed on perl </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">efhjklx@6KV2ZR1:~/Desktop$ instmodsh</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Available commands are:</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> l - List all installed modules</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> m <module> - Select a module</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> q - Quit the program</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">cmd? l</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">Installed modules are:</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> App::CSV</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> DBD::Oracle</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> Perl</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"> Spreadsheet::WriteExcel</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">cmd? q</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">this is where you get the module list for perl on ubuntu</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">http://packages.ubuntu.com/lucid/perl/</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">this is how to install .deb file for packages in ubuntu</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">sudo dpkg -i package.deb</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">to interact with databases</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});my $sql=qq{select sysdate from dual};$sth=$dbh->prepare($sql);$sth->execute();while(my($abc)=$sth->fetchrow_array){print $abc,"\n";}$dbh->disconnect()'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">getting all the output from DB</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'print "\n","Type the SQL command here:";our $a=<STDIN>;use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});my $sql=qq{$a};$sth=$dbh->prepare($sql);$sth->execute();while(my @abc=$sth->fetchrow_array){foreach $abc(@abc){$abc="\t" if !defined($abc);print "$abc\t";}print "\n";}$dbh->disconnect()'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});print $dbh->selectrow_array(qq{select * from employees});$dbh->disconnect()'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">taking SQL statement as input from user</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'print "Type the SQL command here:";our $a=<STDIN>;use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});print $dbh->selectrow_array(qq{$a}),"\n";$dbh->disconnect()'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">taking SQL command from user,taking field delimiter from user and representing data accordingly</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'print "\n","Type the SQL command here:";our $a=<STDIN>;print "Type the delimiter for field segregation:";our $b=<STDIN>;chomp($b);use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});my $sql=qq{$a};$sth=$dbh->prepare($sql);$sth->execute();while(my @abc=$sth->fetchrow_array){foreach $abc(@abc){$abc="\t" if !defined($abc);print "$abc",$b;}print "\n";}$dbh->disconnect()'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">taking sql command and running it infinitely.also asking for quiting or not.</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -we 'while(1){print "\n","Type the SQL command here:";our $a=<STDIN>;print "Type the delimiter for field segregation:";our $b=<STDIN>;chomp($b);use DBI;my $dbh=DBI->connect("dbi:Oracle:orcl","venkatabc","venkat",{RaiseError=>1,AutoCommit=>0});my $sql=qq{$a};$sth=$dbh->prepare($sql);$sth->execute();print "\n";while(my @abc=$sth->fetchrow_array){foreach $abc(@abc){$abc="\t" if !defined($abc);print "$abc",$b;}print "\n";}$dbh->disconnect();print "\n","Do you want to exit(y/n):";$n=<STDIN>;chomp($n);if($n eq "y"){exit}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">opening pipes inside a perl program</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -w -e 'open FH,"ls -lrt|cut -d\" \" -f 1|" or die $!;while(<FH>){print}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">file test conditions</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'if(-e "/home/efhjklx/abc.Z"){print "hi"}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">findutils</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">globbing in file serching</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '$f=glob("abc*");print "$f"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">reading a directory</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'opendir DH,"/home/efhjklx/" or die $!;while($_=readdir(DH)){print}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">defining a subroutine and using it</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e 'abc();sub abc{opendir DH,"/home/efhjklx/" or die $!;while($_=readdir(DH)){print}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -wl -e '&abc;sub abc{opendir DH,"/home/efhjklx/" or die $!;while($_=readdir(DH)){print}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">loading data into a hash from 2 files</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls -lrt`;@n=`cat m`;foreach $n(@n){$m{$n}=@a[$n];}print values(%m)'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">extracting from a hash values</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e 'print "\nThe key value:";chomp($d=<STDIN>);@a=`ls -lrt`;@m=`cat m`;foreach(@m){$c{$_}=@a[$_]};foreach(keys %c){if($_=~/$d/){print "\n",$c{$_},"\n"}}'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">hash assignemnet and printing</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '@a=`ls -lrt`;foreach $a(@a){@m=split/\s+/,$a;$c{$m[7]}=$m[8]}print $c{"12:25"}."\n"'</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">how to delete stobborn files </span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;"><br /></span>
<span style="font-family: "arial" , "helvetica" , sans-serif; font-size: x-small;">perl -e '$dir="/var/opt/fds/CDR/scheduledJobCdrOut";opendir DH,$dir;foreach $file(readdir DH){if($file=~/e_/){unlink $file}}'</span><br />
<br /></div>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
<!-- Ad 1 -->
<br />
<ins class="adsbygoogle" data-ad-client="ca-pub-5137736062369448" data-ad-slot="5961928811" style="display: inline-block; height: 280px; width: 336px;"></ins><script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
</div>
Anonymoushttp://www.blogger.com/profile/16647901123252284886noreply@blogger.com0