tobez

#! /usr/bin/env perl
use 5.010;
use strict;
use warnings;
use utf8;
use open qw(:encoding(UTF-8) :std);

use Mojo::UserAgent;
use Mojo::DOM;

tobez

#! /usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Data::Dumper;
use Mojo::UserAgent;

my $r = Mojo::UserAgent->new->get(
    "https://swapi.co/api/people/4/"

tobez

=========== PERL:

SEND
Data::Hexdumper: data length isn't an integer multiple of lines
so has been padded with NULLs at the end.
  0x0000 : 95 01 CE 00 02 46 38 C4 07 38 2E 38 2E 38 2E 38 : .....F8..8.8.8.8
  0x0010 : CC A1 81 C4 09 63 6F 6D 6D 75 6E 69 74 79 C4 06 : .....community..
  0x0020 : 70 75 62 6C 69 63 00 00 00 00 00 00 00 00 00 00 : public..........

RECEIVED

tobez

---
auto-filter:
  '*.md': md2html
  '*.odp': ppt2pdf
  '*.ppt*': ppt2pdf
canonical-module: ../../en/cisco-config-elements/cisco-config-elements.mdp
default-version: current
description: 'Minimal configuration for Cisco IOS based equipment - HP as well'
language: en
maintainers:

tobez

#!/bin/sh
output=/tmp/jail.rc
#rm $output

if=em0
here=`pwd`
configs=../configs
grep -v '^#' hostlist.txt >/tmp/meow
echo "debug: MMM"
while read line

tobez

#!/usr/bin/perl
use strict;
use warnings;
sub meow (&);
my %h;
my $k;

meow {
	my $t : need_this;
	$t = {

tobez

#! /usr/bin/perl
use 5.006;
use strict;
use warnings;

use Data::Dump;
use IO::All;
use Encode;
use utf8;

tobez

#! /usr/bin/perl
use strict;
use warnings;
use utf8;
use DateTime::Format::Strptime;

my @engine =
(
  {
    locale     => "af_ZA",