|
Страници по тази тема: 1 | 2 | 3 | >> (покажи всички)
Тема
|
Perl e N1
|
|
Автор | gzlio (Нерегистриран) |
Публикувано | 21.01.05 02:13 |
|
Viva Perl!!!
| |
Тема
|
Re: Perl e N1
[re: gzlio]
|
|
Автор |
__me (непознат
) |
Публикувано | 22.01.05 13:49 |
|
ти пробвал ли си го та се изказваш неподготвен?
| |
|
Съгласен съм :)
| |
Тема
|
Re: Perl e N1
[re: gzlio]
|
|
Автор | MaY (Нерегистриран) |
Публикувано | 02.02.05 11:12 |
|
my $hRe = getAttribs($chldClx->item(0)->getParentNode()) if defined($chldClx->item(0));
my $Named = $chldClx->item(0)->getParentNode()->getNodeName if defined($chldClx->item(0));
my $Valued = $chldClx->[0]->getData if defined($chldClx->[0]);
| |
Тема
|
Re: Perl e N1
[re: MaY]
|
|
Автор | nonono (Нерегистриран) |
Публикувано | 05.02.05 22:17 |
|
use strict, diagnostics, warnings or die!
| |
Тема
|
Re: Perl e N1
[re: gzlio]
|
|
Автор |
martyr (fallen) |
Публикувано | 06.02.05 15:38 |
|
Естесвено, че е номер 1. Кой друг език може да се опише в една страница:
man perlcheat
!
| |
Тема
|
Re: Perl e N1
[re: gzlio]
|
|
Автор |
zuluz ($>=$<=0) |
Публикувано | 12.04.05 22:50 |
|
По идея на Anonymous Monk, автор - mtve:
#!just another perl hacker,
open$?;<0>!~<!>;print$'
#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~
| |
|
require 'getopts.pl';
use Net::RawIP;
Getopts('vrs:e:d:x:y:i:n:');
$a = new Net::RawIP;
die "usage: $0 -d target_host [options]\
\t-s source_host\t\t(def:random)\
\t-v \t\t\tprints generated mac-addresses\
\t-r | -e dest_mac \trandomize or set destination mac address\
\t\t\t\tshould be in format ff:ff:ff:ff:ff:ff or host\
\t-x source_port\t\t(def:random)\
\t-y dest_port \t\t(def:random)\
\t-i interface \t\tset sending interface \t\t(def:eth0)\
\t-n times\t\tset number of times to send \t(def:1000)\n" unless ($opt_d &&
!($opt_r && $opt_e) );
$opt_i=eth0 unless $opt_i;
$times=0;
$opt_n=1000 unless $opt_n;
$s_host=$opt_s if $opt_s;
$s_port=$opt_x if $opt_x;
$d_port=$opt_y if $opt_y;
if($opt_e) {
$a->ethnew($opt_i, dest => $opt_e);
} else {
$a->ethnew($opt_i);
}
for($times=1; $times < $opt_n; $times++) {
$i=0;
$mac="00";
if($opt_r) {
$d_mac="00";
while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$d_mac=$d_mac . ":" . int rand 9;
$mac=$mac . int rand 9;
$d_mac=$d_mac . int rand 9;
}
print "$d_mac \t$mac\n" if($opt_v);
$a->ethset(source => $mac, dest => $d_mac);
} else {
while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$mac=$mac . int rand 9;
}
print "$mac\n" if($opt_v);
$a->ethset(source => $mac);
}
$s_host=17000000+int rand 4261000000 unless $opt_s;
$s_port=int rand 65535 unless $opt_x;
$d_port=int rand 65535 unless $opt_y;
$a->set({ip => {saddr => $s_host, daddr => $opt_d},
tcp => {source => $s_port,dest => $d_port}
});
$a->ethsend;
}
| |
Тема
|
Re: Perl e N1
[re: After_Dark]
|
|
Автор | level 8 (Нерегистриран) |
Публикувано | 08.06.05 01:59 |
|
$|++;$.=25;@$=a..z;$a++for 1..$.;*_=sub{select$l,$l,$l,
'0.0'.shift;print"\b"};$^=sub{_(7)for 1..5;map{_(0)}1..$a
;map{print' '}1..$a;map{_(0)}1..$a};map{if(/\s+|\./){$^
->();$c=0}else{map{print$$[int rand(@$)];_(4)}split'',$.
;$c++;print}}split '','Just another Perl Hacker '
| |
Тема
|
Re: Perl e N1
[re: zuluz]
|
|
Автор | novobranec (Нерегистриран) |
Публикувано | 09.06.05 00:18 |
|
Кефите ме!!!
| |
|
Страници по тази тема: 1 | 2 | 3 | >> (покажи всички)
|
|
|