[Perl] Remove all comments in c

Command

perl -i -wpe 'BEGIN{undef $/} s/\/\/[^\n\r]*(\n\r)?//g; s!/\*.*?\*/!!sg;' <file-name>    

Reference

1. How can I delete all /* */ comments from a C source file? ↩
2. Remove comments from C/C++ code ↩

Read More

[C][Coding Style Check] Check C / C++ Coding Style by using perl script

[C][Coding Style Check] Check C / C++ Coding Style by using perl script

1. This script is fixed from checkpatch.pl

I took off the function which will check the folder of kernel root.



2. Download from Webpage

After download, please rename if from raw.pl to checkpatch.pl



3. Execute by following command

perl checkpatch.pl --file --terse ./xxxxxx.c



--file           => check a source file\n

--terse          => one line per report\n



Reference :

• 
  [YouTube] Write and Submit your first Linux kernel Patch

Read More

[perl] How to connect to server by using ssh

[perl] How to connect to server by using ssh

#!/usr/bin/perl



use Net::SSH::Expect;



my $ssh = Net::SSH::Expect->new (

        host => "172.30.144.226",

        port => "22",

        user => "ubee",

        password => "ubee1234",

        raw_pty => 1,

        timeout => '20',

        #log_file => "$TempLogFile"

        );



my $login_output = $ssh->login();



if ($login_output !~ /nl-ams99z-cnr7/) {

        die "Login has failed. Login output was $login_output";

};



$ssh->exec("cd /tftpboot/66");

my @Output = $ssh->exec("ls");



print "@Output\n";



$ssh->close();



Reference :

• 
  Comment on Net::OpenSSH multiple commands
  
   

Read More

[perl] Install perl module without answer "yes"

[perl] Install perl module without answer "yes"

PERL_MM_USE_DEFAULT=1 perl -MCPAN -e 'install Net::SSH::Perl'

Reference :

• 
  How do I tell cpan to install all dependencies?

Read More

[perl] How to install the module of perl

[perl] How to install the module of perl

Install Net::Telnet

cpan Net::Telnet

Reference :

• 
  How to install CPAN modules

Read More

[perl] Ping6 to Ipv6

[perl] Ping6 to Ipv6

#!/usr/bin/perl

use strict;

use Net::Ping;



my $ip_address = $ARGV[0];

chomp($ip_address);





#Using System Command



my $retval=system("ping6 -c 2 $ip_address");



if ($retval==0) {

    print "Success!\n";

} else {

    print "Fail!\n";

}



print "\n\n\ Step2: $retval\n\n";

Reference :

• 
  Differences between system function “ping” and Net::Ping module in perl?

Read More

[Perl] The book of Perl

[Perl] The book of Perl

• 
   16 of the Best Free Perl Books


• 
  Last one : Using Perl 6 - a Perl 6 book in development

Read More

[Perl] How to communicate serial port by using perl program

[Perl] How to communicate serial port by using perl program

#!/usr/bin/perl



use Device::SerialPort;



my $port = Device::SerialPort->new("/dev/ttyUSB0");

$port->databits(8);

$port->baudrate(115200);

$port->parity("none");

$port->stopbits(1);

$port->read_char_time(0);

$port->read_const_time(20);





$port->lookclear;

$port->write("cli ? \r");



sleep(2);

while (1) {

    my ($rb, $byte) = $port->read(1);

    if ($rb > 0) {

        print $byte;

    } else {

        last;

    }

}



Reference :

• 
  http://www.perlmonks.org/bare/?node_id=872602

Read More

[Perl] How to fix "Can't locate Device/SerialPort.pm"

[Perl] How to fix "Can't locate Device/SerialPort.pm"

1. Change to root

sudo su

2. Type cpan

3. Type " install Device::SerialPort", then start to install package.



Another Question :

Q : 'YAML' not installed

A: Type "install YAML ", then start to install package.

Reference :

• 
  Perl Device::SerialPort problem

Read More