perl m8

#!/usr/bin/perl -w

use LWP::Simple qw($ua get);

$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3');

my @url = ("http://www.whatismyip.org"" target='_blank'>http://www.whatismyip.com","http://www.whatismyip.org";);
my $body = "";
my $exit = "";

print $url[0] . "\t(1)\n";
print $url[1] . "\t(2)\n";
print "Choose a website: ";
chop ($checker=<STDIN>);

if ($checker == 1){
    print "Checking: " . $url[0] . "\n";
    $body = get($url[0]);
}
if ($checker == 2){
    print "Checking: " . $url[1] . "\n";
    $body = get($url[1]);
    print "IP: " . $body;
    chop($exit=<STDIN>);
}
else{
    print "Choose either 1 or 2\n";
}
if($body =~ m/<TITLE>WhatIsMyIP.com -(.*?)<\/TITLE>/) {
    print "IP: " . $1;
    chop($exit=<STDIN>);
}

WHY DOES IT STILL
print "Choose either 1 or 2\n";

EVEN IF I CHOOSE 1! THANKS.

elsif

lol

explain what this insult to all perl users is supposed to do.

>>1
ELSIF YOU FAG

IF() {}
ELSIF() {}
ELSEIF() {}
ELSE {}

You don't do this with ifs in the first place.

$body=get($url[$checker] or print "Choose either 1 or 2\n" and exit)

>>5
bloated code

($body = get($url[$checker])) or print "Choose either 1 or 2\n" and exit;

if ($checker eq "1") {

WHYYYYYYYYYYYYYY doesn't Perl have selects/switches/cases?

>>6
mine code checks if $url[$checker] is set, and exits in fot
your code first GETs link (even if it's empty string), then assigns result to $body, and only then exits if body is empty.
what is bloated again?

>>8
Perl6 has

>>8
Larry didn't want 'em

You can emulate switch in Perl5, but it's ugly: http://www.perl.com/doc/FMTEYEWTK/style/slide37.html

... but it's ugly
So, par for the course for Perl then.

>>12
for($somevar){
 /a/&&do{
  #do something here
  last;
 }
 /b/&&do{
  #do something else here
  last;
 }
 #do something for default case here
}

not much uglier than a switch in any other language... and it's a lot more flexible.


use Switch;

switch ($somevar) {
    case 1: {
          # do something here
    }
    case /a/: {
          # do something else here
    }
    else {
         # do something for default case here
    }
}

pretty much the same as in any other language..


You can also do

use Switch qw(Perl6);

switch ($value) {
   when 1: { # do stuff }
   default: { # do stuff }
}

else for default? ewww

>>16
does it really bother you so much?

>>17

No, not really. I just wanted to comment.

>>14
Does it need the 'do'? I thought plain
/b/ && {
    stuff;
}
worked.

Maybe I'm thinking of sh, though.

>>19
$ perl -e "//&&{print qq{hello\n}}"
hello
$ perl -e "//&&{print qq{hello\n};print qq{world\n};}"
syntax error at -e line 1, near ";print"
Execution of -e aborted due to compilation errors.
$ perl -e "//&&do{print qq{hello\n};print qq{world\n};}"
hello
world

http://checkip.dyndns.org/

STOP USING LWP

HAVE YOU LOOKED AT ITS INTERNALS AND THE HIDEOUS NETWORK OF MODULES (NET::, HTTP::, SPAGHETTI::) IT DEPENDS ON

once you see it, you will shit bricks.

i'd suggest doing `wget ...` instead.

I don't know what this thread is about, but I found the following from my script directory:

#!/bin/sh

w3m -dump http://ipid.shat.net/iponly/

Fuck wget, use bash.

exec 3<> /dev/tcp/dis.4chan.org/80 0<&3
(
        echo -ne "GET /prog/ HTTP/1.1\015\012"
        echo -ne "Host: dis.4chan.org\015\012"
        echo -ne "User-Agent: Mozilla/4.0 (compatible; bash/$BASH_VERSION)\015\012"
        echo -ne "Connection: close\015\012"
        echo -ne "\015\012"
) >&3
exec cat

>>25
ONE WORD, "\015\012", THREAD OVER.

>>25
godamn sancore perl

>>26
What's really interesting about this is, discounting the trailing \0 at the end of the string, "\015\012" actually is a word by its technical definition.

>>28
That's not very interesting.

>>22

What's your alternative?

LISP