briandfoy

use 5.010;
use Data::Dumper;

my %hash;

while( my $line = <DATA> ) {
	chomp $line;

	given ( $line ) {

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

# I created this to translate a bunch of projects I had in one big git
# repo into separate repos. The big git repo was converted from the SVN
# repo of my old SourceForge project.

use v5.14;
use strict;
use warnings;

use File::Spec::Functions;
use File::Path qw(remove_tree);

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
use v5.14;
use strict;
use warnings;

use PPI;
use Scalar::Util qw(blessed);


# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

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);