reneeb

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;
use IO::File;
use Mojo::UserAgent;
use XML::RSS::Parser::Lite;

Zehkul

#README:

This script for mpv intends to offer the fastest and simplest way to convert parts of a video—while you’re watching it and not really more work intensive than making a screenshot. A short demonstration: https://d.maxfile.ro/omdwzyhkoa.webm

##Installation:

You need:

• yad (at least 0.26) (AUR)

jshy

#!/usr/bin/env perl
use Mojolicious::Lite;
use MongoDB;
use MongoDB::OID;

my $mongo_port = shift || 27017;

helper 'mongo' => sub {
    my ($self, $name) = @_;
    my $host = 'localhost:' . $mongo_port;

adaugherity

#!/usr/bin/ruby
# Create display override file to force Mac OS X to use RGB mode for Display
# see http://embdev.net/topic/284710

require 'base64'

data=`ioreg -l -d0 -w 0 -r -c AppleDisplay`

edids=data.scan(/IODisplayEDID.*?<([a-z0-9]+)>/i).flatten
vendorids=data.scan(/DisplayVendorID.*?([0-9]+)/i).flatten

jberger

#!/usr/bin/env perl

use Mojolicious::Lite;
use DBIx::Connector;
use SQL::Abstract;

helper db => sub { 
  state $db = DBIx::Connector->connect("dbi:mysql:host=localhost;db=testdb", 'testuser', 'xxxsecret')
};

pjlsergeant

#!perl

use strict;
use warnings;

use LWP::Simple;
use DateTime;
use Data::Google::Visualization::DataTable;

# Create a datatable

pjlsergeant

#!perl

# Draw the commit graph of a git repository, using GraphViz. Supply the directory
# the repo is in as the first argument. Writes a file called 'repo.svg' to the CWD.

use strict; use warnings;
use Cwd;
use Git::PurePerl;
use GraphViz2;