Peace

#!/usr/bin/perl

use Net::Telnet;

$prompt=’/tpr-route-server>/’;

$server=”tpr-route-server.saix.net”;

$saix_cmd=”show ip bgp community 5713:56225\n”;

print “Connecting to $server\n”;
my $session = Net::Telnet->new(Host => $server,Prompt => $prompt,Timeout=>30);
unlink(“t.log”);
$session->dump_log(“t.log”);
$session->login(“saix”, “saix”);

#turn off paging
$session->cmd(“terminal length 0″);

#get list of local routes
print “Retrieving BGP routes\n”;
my @output = $session->cmd($saix_cmd);
foreach (@output) {
@fields = split(/\s+/);
$fields[1] =~ s/^i//;
@parts = split(/\./, $fields[1]);
if ($parts[3] =~ /\//) {
print $fields[1] . “\n”;
} elsif ($parts[0] < 128) {
print $fields[1] . "/8\n";
} elsif ($parts[0] < 192) {
print $fields[1] . "/16\n";
} elsif ($parts[0] close;

I would like you to share the name of the doctor that diagnose your child (if you would share). If you do not want to share on an open forum please email me at gillian {at} homemakers-sa.co(.)za

Wait, that doesn’t work. Sorry, Perl, you suck.

I can do that too, for any language you like. What does it prove?

>>> name=”jerith”; (“hello %s” % name).title().center(20)
‘ Hello Jerith ‘

A Python string is not an array of bytes and trying to treat it like one will end in tears.

>>> “true” if True else “false”
‘true’
>>> “true” if False else “false”
‘false’

Of course, there’s the old fallback that uses boolean operators that has been around forever:

>>> True and “true” or “false”
‘true’
>>> False and “true” or “false”
‘false’