ARCHIV

Dobry den potreboval bych poradit, z materialu co jsem nasel jsem to dohromady nedal. V perlu jsem zacatecnik. Potrebuju cislo prevest do binarniho tvaru. Mam IP 192.168.1.1, tu si rozdelim na jednotlive cisla.to uz mam ale ted tz cisla potrebuji dostat do binarniho tvaru. Resp.na zpatky na desitkovou. Moch by nekdo pomoci na poradit. dekuji

perl -MData::Dumper -le '$Data::Dumper::Useqq=1;
        $addr =  pack("C4", split(/\./, "192.168.1.1"));
        print length($addr);
        print unpack("H*", $addr);
        print Dumper($addr);
        print join".", unpack("C4", $addr)'

$addr =  pack("C4", reverse split(/\./, "192.168.1.1"));

Moc moudrej z toho na prvni pohled nejsem ale nejako se na to zkusim podivat, moc by me pomohly kometare obzvlaste pack("C4",.. dale k tomu unpack, a Dumper popr.join.
Zatim jsem ve stavu:
$ip = $ARGV[0]; #nacteni IP z konzole
@ip = split(/\//, $ip); #rozdeli na IP a masku
$ipsite = $ip[0];
$maska = $ip[1];
@segment_ip = split(/\./, $ipsite); #rozdeli IP
print $segment_ip[0],"\n"; #vypis
.
.
@segmet_masky = split(/\./, $maska); #rozdeli masku
print $segmet_masky[0],"\n"; #vypis
.
.

:(

VYRESENO a celkem jednoduseji, ted mam dalsi problem ale to (asi) k zacatecnictvi patri(:

ale vlastne jo, jak mam spocitat pocet 1 (ci 0) v rade cisel napr.:
1111111111110000 ?
jo a nedari se mi na tom yprovoynit fci grep - jestli retezec obsahuje napr.radu 01
ja na tom delam pomoc vitam

omlouvam se pocet 1 jsem uz spocital, ja obejveuju stale novy veci..

$ perl -le '%t=(a=>"addr",m=>"mask",i=>"minaddr",x=>"maxaddr");do{print "Input: $_";
($a,$m)=map{pack"C*",split/\./}split m(/);$i=$a&$m;$x=$a|~$m;printf"%10s: %s (%s)\n",$t{$_},
unpack("B*", $$_),join".",unpack"C4",$$_ foreach qw(a m i x);}
foreach @ARGV' 192.168.1.1/255.255.0.0 123.45.67.89/255.224.0.0
Input: 192.168.1.1/255.255.0.0
      addr: 11000000101010000000000100000001 (192.168.1.1)
      mask: 11111111111111110000000000000000 (255.255.0.0)
   minaddr: 11000000101010000000000000000000 (192.168.0.0)
   maxaddr: 11000000101010001111111111111111 (192.168.255.255)
Input: 123.45.67.89/255.224.0.0
      addr: 01111011001011010100001101011001 (123.45.67.89)
      mask: 11111111111000000000000000000000 (255.224.0.0)
   minaddr: 01111011001000000000000000000000 (123.32.0.0)
   maxaddr: 01111011001111111111111111111111 (123.63.255.255)

neslo by mi ten progrm poslat, myslim primo ten soubor.pl, moc by me to pomohlo, jsem samouk a tohle nejlip pochopim napsane rehledne ve funkcim programu. vypis je dobry ale jeste bych potreboval vypsat minaddr plus jeden bit a maxadrr minus jeden bit.
a dotaz nechbi v prvnim radku apostrof?
a nevim ale je to udelano tak ze v konzoli napisu: perl soubor.pl 192.168.1.1/255.255.0.0 ?
omlouvam se jestli se ptam blbe.. kdyztak fireblade@seznam.cz

zatim jsem mel jen tu cest s VB6.0. ucim se tak ze mam zadani a hledam to jak zch to udelal na tzhle zapisy jeste "nemam". Prozkoumam to, rozchodit se mi to zatim nepovedlo, a predpokladam ze kde je znak ; si muzy v editoru odradkovat, pro lepsi prehlednost, a jeste se zeptam program spustim vyse uvedenym zpusobem?
ja to resim sam prevadenim na binarni cisla pres sprinf nevim jestli je to dobra volba,ponevac ted se mi nedari znegoavt retezec..
no jinak dekuji

%t = ( a => 'addr', m => 'mask', n => 'net', b => 'broadcast' );
do {
	print "Input: $_\n";
	( $a, $m ) = map { pack 'C*', split /\./ } split m(/);
	$n = $a & $m;
	$b = $a | ~$m;
	printf "%10s: %s (%s)\n", $t{$_},
		unpack( 'B*', $$_ ), join '.', unpack 'C4', $$_
		foreach qw(a m n b);
	}
	foreach @ARGV;

perl soubor.pl 192.168.1.1/255.255.0.0 123.45.67.89/255.224.0.0

sub a(&$) { local $_ = unpack "L>", $_[1]; pack "L>", $_[0]->() }
%t = (
	a => "addr",
	m => "mask",
	n => "net",
	b => "broadcast",
	i => "minaddr",
	x => "maxaddr"
);
do {
	print "Input: $_";
	( $a, $m ) = map { pack "C*", split /\./ } split m(/);
	$n = $a & $m;
	$b = $a | ~$m;
	$i = a { $_ + 1 } $n;
	$x = a { $_ - 1 } $b;
	printf "%10s: %s (%s)\n", $t{$_}, unpack( "B*", $$_ ), join ".",
		unpack "C*", $$_
		foreach qw(a m n b i x);
	}
	foreach @ARGV;

jojo supr, jen u prikladu, s min a max adresou mi progrmam nefunguje, az po vymazani znaku > v unpack "L>".
i kdyz koukam do domumentaciperlu porad mi uplne neni jasna funkce map resp. pack - unpack, jak vlastne funguje. Ze se tam vybira ciselny typ B resp. C chapu, a pise se format. Nebo unpack L.. no neni mi to poradne jasny ani z dokumentace a to mam i knihy myslime v jazku perl, a perl pro zelenece. Nemohl by jste mi tuto zalezitost nejako priblizit, napriklad prikladem, komentari. Jinak dekuji moc jiz za toto.

$ perl -le 'print join",",map{$_*2}1..10'
2,4,6,8,10,12,14,16,18,20
$ perl -le 'print join",",map{$_%2?(1..$_):()}1..10'
1,1,2,3,1,2,3,4,5,1,2,3,4,5,6,7,1,2,3,4,5,6,7,8,9
$ perl -le '%t=map{($_=>$_*2)}1..5;print"$_=>$t{$_}"foreach keys%t'
4=>8
1=>2
3=>6
2=>4
5=>10

$ perl -le 'print join",",unpack"H*", "ahoj"; print unpack"B*","ahoj"'
61686f6a
01100001011010000110111101101010
$ perl -le 'print join",",@$_ foreach[unpack("H2"x4, "ahoj")],[unpack("B8"x4,"ahoj")]'
61,68,6f,6a
01100001,01101000,01101111,01101010

$ perl -le 'sub a(&$){local$_=unpack"L>",$_[1];pack"L>",$_[0]->()}
%t=(a=>"addr",m=>"mask",n=>"net",b=>"broadcast",i=>"minaddr",x=>"maxaddr");do{print "Input: $_";
($a,$m)=map{pack"C*",split/\./}split m(/);$n=$a&$m;$b=$a|~$m;$i=a{$_+1}$n;$x=a{$_-1}$b;
printf"%10s: %s (%s)\n",$t{$_},unpack("B*",$$_),join".",unpack"C*",$$_ foreach qw(a m n b i x);}
foreach @ARGV' 192.168.1.1/255.255.0.0 123.45.67.89/255.224.0.0
Input: 192.168.1.1/255.255.0.0
      addr: 11000000101010000000000100000001 (192.168.1.1)
      mask: 11111111111111110000000000000000 (255.255.0.0)
       net: 11000000101010000000000000000000 (192.168.0.0)
 broadcast: 11000000101010001111111111111111 (192.168.255.255)
   minaddr: 11000000101010000000000000000001 (192.168.0.1)
   maxaddr: 11000000101010001111111111111110 (192.168.255.254)
Input: 123.45.67.89/255.224.0.0
      addr: 01111011001011010100001101011001 (123.45.67.89)
      mask: 11111111111000000000000000000000 (255.224.0.0)
       net: 01111011001000000000000000000000 (123.32.0.0)
 broadcast: 01111011001111111111111111111111 (123.63.255.255)
   minaddr: 01111011001000000000000000000001 (123.32.0.1)
   maxaddr: 01111011001111111111111111111110 (123.63.255.254)

perldoc -f pack
perldoc -f unpack
perldoc -f join
perldoc Data::Dumper

$addr = join"", map chr, split/\./, "192.168.1.1"