briandfoy

# compiled by Tom Christiansen
v1.0	\0, \0N,\0NN	Match octal character up to octal 077.
v1.0	\N, \NN, \NNN	Match Nth capture group (decimal) if not in charclass and that many seen, else (octal) character up to octal 377.
v4.0	\a	Match the alert character (ALERT, BEL).
v5.0	\A	True at the beginning of a string only, not in charclass.
v1.0	\b	Match the backspace char (BACKSPACE, BS) in charclass only.
v1.0	\b	True at Unicode word boundary, outside of charclass only.
v1.0	\B	True when not at Unicode word boundary, not in charclass.
v4.0	\cX	Match ASCII control character Control-X (\cZ, \c[, \c?, etc).
v5.6	\C	Match one byte (C char) even in UTF‑8 (dangerous!), not in charclass.

briandfoy

use v5.10;
use utf8;
use strict;
use warnings;

# https://trac.transmissionbt.com/browser/branches/1.7x/doc/rpc-spec.txt

use Mojo::UserAgent;
use JSON qw(to_json);

briandfoy

#!perl

die "Two files only!\n" if @ARGV != 2;

rename $ARGV[0] => my $temp = "$ARGV[0].bak";

rename $ARGV[1] => $ARGV[0];

rename $temp    => $ARGV[1];

briandfoy

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

use Cwd;
use Digest::MD5;

my $md5     = Digest::MD5->new();
my %digests = ();

briandfoy

#!/usr/bin/perl

use File::Find;
use Digest::MD5;

find( \&wanted, grep { -e } @ARGV );

our %digests;
sub wanted {
	return if( -d $File::Find::name or -l $File::Find::name );

briandfoy

#!/usr/bin/perl -s

use strict;
use warnings;

use Data::Dumper;
use DBM::Deep;
use Net::TiVo;

our $S;

briandfoy

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

use vars qw( $Longest_name );

use Data::Dumper;
use File::Spec::Functions qw(catfile);
use Spreadsheet::WriteExcel;
use Test::Manifest qw(get_t_files);

briandfoy

Introduction
  Why Perl over Powershell?
  This isn't Learning Perl on Win32

Perl distributions for Windows
  ActivePerl
  Strawberry Perl
  Cava
  cygwin (only briefly)

briandfoy

#!/usr/local/perls/perl-5.14.2/bin/perl
use v5.14;

use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

my $url = 'http://www.toonarific.com/show_episodes.php?show_id=2177';
my @seasons = $ua->get( $url )
	->res

briandfoy

[
   {
      "priority" : "P4",
      "name" : "Canonicalize path names before validating them",
      "rule" : "",
      "section" : "1",
      "recommedation" : "1",
      "level" : "L3",
      "url" : "https://www.securecoding.cert.org/confluence/display/perl/IDS00-PL.+Canonicalize+path+names+before+validating+them",
      "class" : "IDS00-PL",