How to create a self signed SSL certificate and how to use it with your web Server.

Image
SSL certificate is the foremost important aspect of any website. If your website is running without the SSL, the modern browsers will stop the users from entering the website. Of course, there are ways to bypass that, at your own risk. As long as your website has no commercial data exchange, sensitive user information, etc, you are still good to run a website without a proper SSL certificate. For example, a blog can run without an SSL.  Note that Google AdSense accepts websites without SSL.  But the topic of this post is about Self Signed SSL certificate. How to create one, how to use it, and where to use it.  Let us see where to use it. For any website which is used for internal purposes, it's always a good idea to use Self Signed SSL, instead of paying for a real SSL certificate. Internal I mean, within a company, team, or for personal uses, for testing purposes, etc.  Now, let us see how to create a self-signed SSL certificate.  What you need A Linux machine.  OpenSSL utility  A

How to implement Linux tail command in Perl

I have tried writing a Perl script to simulate Linux tail command - print last n lines from a file. This is one of the common interview questions in Perl. This can be extended to print selected lines of other Linux commands like head. It works perfectly fine.


print "\nImplements linux tail command in perl \n\n";

$file   =  $ARGV[0];
$n = $ARGV[1];
open(FILE, $file);
@arr = ;
close(FILE);
$length  = scalar(@arr);
$n = $length  - $n;

while($n<$length )
{
print $arr[$n];
$n =$n + 1;
}

Comment  below if you have a better option

Comments

  1. how about implementing tail -f after this :)
    while(1){
    $prev_size = -s $file;
    tailf($file,10) if (-s $file > $prev_size);
    }

    tailf() will be your written code with little updates :)

    ReplyDelete
  2. We can also write tail implementation in Perl as below

    my $maxline = 10;
    if(scalar(@ARGV) == 2){
    $maxline = shift;
    }

    my $file_name =shift;
    open(FILE, "$file_name") || die "Can't open file. Error: $!\n";
    my @arr = ;
    close(FILE);
    my $index=scalar(@arr)-$maxline;
    print @arr[$index .. $#arr];

    ReplyDelete

Post a Comment

Popular posts from this blog

Connecting Bluetooth headset with laptop - Bluetooth A2DP

Convert currency to word in excel

[SOLVED] MacBook Pro keyboard backlight not working? Check this post