Devam Ediyor

convert simple perl tools to compilable c code for linux systems

small and simple perl tool need to be migrated to executables binaries, 'make'able c++ code should do it, mainly to be run on linux type OS...

perl version attached

perl piece:

----------------------------------------------------------------------

#!/usr/bin/perl

use strict;

use Socket;

my $me = $0;

my $input = $ARGV[0];

if ($me =~ /ip2int/) {

my $ipnumber = ip2num( "$input" );

if ( $ipnumber ) {

print "$ipnumber\n";

}

} elsif ($me =~ /int2ip/) {

my $ip = num2ip( $input );

if ( $ip ) {

print "$ip\n";

}

} elsif ($me =~ /mac2int/) {

my $num = mac2num( "$input" );

if ( $num ) {

print "$num\n";

}

} elsif ($me =~ /int2mac/) {

my $mac = num2mac( "$input" );

if ( $mac ) {

print "$mac\n";

}

}

sub ip2num {

return unpack 'N', inet_aton(shift);

}

sub num2ip {

return inet_ntoa( pack 'N', shift );

}

sub mac2num {

my $mac_hex = shift;

$mac_hex =~ s/://g;

$mac_hex = substr(('0'x12).$mac_hex, -12);

my @mac_bytes = unpack("A2"x6, $mac_hex);

my $mac_num = 0;

foreach (@mac_bytes) {

$mac_num = $mac_num * (2**8) + hex($_);

}

return $mac_num;

}

sub num2mac {

my $mac_num = shift;

my @mac_bytes;

for (1..6) {

unshift(@mac_bytes, sprintf("%02x", $mac_num % (2**8)));

$mac_num = int($mac_num / (2**8));

}

return join(':', @mac_bytes);

}

----------------------------------------------------------------------

Beceriler: C++ Programlama, Perl

Daha fazlasını görün: linux convert perl, systems programming, sprintf programming, programming tools, print pack, perl socket programming, mac tools, hex programming, programming sprintf, programming perl, c code, perl convert code, piece code, mac socket programming, programming socket, perl programming, socket programming mac, linux socket programming, socket programming linux, simple socket programming, linux systems, mac linux, convert run mac, perl print, bin pack

İşveren Hakkında:
( 1 değerlendirme ) herndon, United States

Proje NO: #4414069

Seçilen:

damirmarkovic

I have a lot of experience with C coding and Perl scripting. If the price is ok, you can have bulletproof code in a day. Let me know if you have any questions.

1 gün içinde 60$ USD
(36 Değerlendirme)
4.6

6 freelancer bu iş için ortalamada 90$ teklif veriyor

idleswell

Hello, I have ~30 years experience in both Perl and C/C++. I see what each step of your script is doing I will be able to translate this from Perl to C++ for you. A IDLER

in 3 gün içinde93$ USD
(96 Değerlendirme)
5.6
honeypotant

Dear Sir. I'm very interested in your job post involving these skills. I am just LinuxOS/Network expert and have 7 years experience. I have consistently delivered projects on time and under budget, which has earn Daha fazlası

in 4 gün içinde412$ USD
(7 Değerlendirme)
4.5
hddh

I can do it.

in 2 gün içinde80$ USD
(10 Değerlendirme)
3.5
zkutch

Hello. More 20 years programming experiense.

1 gün içinde 100$ USD
(1 Değerlendirme)
2.1
vkoder

Hi i can do this

in 3 gün içinde99$ USD
(2 Değerlendirme)
1.5
krvenkat

Hi, I can do it, Please check your PM.

in 2 gün içinde110$ USD
(0 Değerlendirme)
0.0