Ich glaube, das braucht keinen Kommentar:

$subnet = 000;
while($subnet < = 255){
    system("ping -q -c 1 -w 1 172.21.$subnet.11");
    $subnet = $subnet + 1;
}

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl

if($info =~ /(.+)<br./>.<b>Warning.(.+)<br./>.<b>Warning/)
# this is pretty funny that you capture two strings and only
# use one. showing again that you dont know how to code
# but instead copy paste also what is the point of <br./>?
# were you trying to match <br >? they have this thing
# called “s” it stands for “space” not that you would know
# for reasons mentioned before. also why do you have
# Warning.(.+) ? did you mean to escape the special
# character “.”? Do you even know what escaping is…….
# How about:
# if($info =~ /(.+)<brs/>.<b>Warning..+<brs/>.
# <b>Warning/){
    print “$finaln”;
    last;
# ^ SEE THE TAB MAKES YOUR CODE READABLE NOT LIKE ANYONE USES
# YOUR BULLSH*T ANYWAY

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl

my $port = 1;
$file = “/home/retail/perl/ports.txt”;
# Why do you declare $port with my, and then make $file
# a package variable?
while($port < 10000){
    # You've got to be kidding me...
    # See, in Perl, we have this nifty thing called a
    # for() loop. It's very useful in situations like this.
    # for my $port (1..10000) {
    # ...
    # }
[...]

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl