perl

</p> </p> 1. <p style="margin-top:.21cm;line-height:150%;"> <span style="font-family:Verdana, sans-serif;"><span style="font-size:small;">Define Manage IP address for interfaces</span></span> </p> 2. <p style="margin-top:.21cm;line-height:150%;"> <span style="font-family:Verdana, sans-serif;"><span style="font-size:small;">Turn off unnecessary management services</span></span> </p> </p> INTRODUCTION Rationale An out-of-box firewall implementation is not fully secure and needs to be hardened. This document details the various aspects of Juniper firewall security and standards implemented for securing Juniper firewalls. Purpose This document is to define a baseline security standard for the Juniper Firewall...

Hello World file (hello.pl) Test Perl file with expect bindings (test.pl)

I bought a prestige portable hard drive from IT dot COM from Margao, Goa, India. After a few months the drive stopped functioning properly. I have no idea why. The light keeps blinking; does not detect. Tried on many different systems. I was in Hyderabad when this happened. Believe it or not I couldn’t find an authorized service center in whole of Hyderabad/Secunderabad city. So, when I got back to Goa I gave it back to the above mentioned store....

<td> <code>time</code> </td> <td> <code>time()</code> </td> <td> <code>Time.now</code> (or <code>Time.new</code>). To display the epoch: <code>Time.now.to_i</code> </td> <td> <code>import time first, then int(time.time())</code> </td> <td> <code>long epoch = System.currentTimeMillis()/1000;</code> </td> <td> <code>epoch = (DateTime.Now.ToUniversalTime().Ticks - 621355968000000000) / 10000000;</code> </td> <td> <code>DateDiff("s", "01/01/1970 00:00:00", Now())</code> </td> <td> <code>calendar:datetime_to_gregorian_seconds(calendar:now_to_universal_time( now()))-719528*24*3600.</code><br /> OR<br /> <code>element(1, now()) * 10000 + element(2, now()).</code> </td> <td> <code>SELECT unix_timestamp(now())</code> </td> <td> <code>SELECT extract(epoch FROM now());</code> </td> <td> <code>SELECT (SYSDATE - TO_DATE('01-01-1970 00:00:00', 'DD-MM-YYYY HH24:MI:SS')) *&lt;br /> 24 * 60 * 60 FROM DUAL <td> <code>SELECT DATEDIFF(s, '1970-01-01 00:00:00', GETUTCDATE())</code> </td> <td> <code>Math....

To find the system load use the following perl snippet : System load of last one minute : System load of last 5 minutes : System load of last 15 minutes :

If you get the following error while running the client code : Can’t call method “syswrite” on an undefined value at /usr/local/share/perl/5.10.1/Gearman/Taskset.pm line 202. … then change this

[slideshare id=3028682&doc=gearman-100130043018-phpapp02]

<p> <span style="color:#000000;">If you are working with large file(s) you might consider using File::Slurp.<br /> It is much fast than the conventional: </span> </p> <pre><span style="color:#000000;">{ local $/=undef; open FILE, “myfile” or die “Couldn’t open file: $!”; binmode FILE; $string = <FILE>; close FILE; } <p> <span style="color:#000000;">The format for the read function is:</span> </p> <p> <span style="color:#000000;">read(filehandle, destination, size/length);</span> </p> <p> <span style="color:#000000;">The example above will read 2000 bytes into the scalar variable $data....

With the recent changes in the economy, a lot of developers are focused on their short-term job prospects. At the same time, it’s important to make sure that you get the most bang for your buck when it comes to taking the time and energy to learn new skills. Here is a list of 10 skills you should be learning right now to make sure that your resume is relevant for the next five years....