xenoterracide

#!/bin/bash
# Check for an interactive session
[ -z "$PS1" ] && return

alias ls='ls --color=auto'
PS1='[\u@\h \W]\$ '

export ORACLE_BASE="${HOME}/app/oracle"
export ORACLE_HOME="${ORACLE_BASE}/product/11.2.0/dbhome_1"
export ORACLE_SID=orcl

xenoterracide

#!/usr/bin/env perl
# guess a number game
use strict;
use warnings;
use feature qw( say state switch );

say 'welcome';

# generate the winning number between 1 and 10
# see perlfaq4 for algorithm details

xenoterracide

#!/usr/bin/env perl
# guess a number game
use strict;
use warnings;
use feature qw( say state switch );

say 'welcome';

# generate the winning number between 1 and 10
# see perlfaq4 for algorithm details

xenoterracide

#!/usr/bin/env perl
# guess a number game
use strict;
use warnings;
use feature qw( say state switch );

say 'welcome';

# generate the winning number between 1 and 10
# see perlfaq4 for algorithm details

xenoterracide

etcat() {
    env cat "$@" | env expand -t 4;
}

xenoterracide

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

getprint("http://gist.github.com/api/v1/xml/380537")
    or die "Can't get the Gist of it";

xenoterracide

; remove GatherDir from basic so we can specify it seperately
[@Filter]
    bundle = @Basic
    remove = GatherDir

; specify the where your ungenerated source lives
[GatherDir]
    root = src
; specify where you want the generated source to live
[CopyTo]

xenoterracide

# $Id: PKGBUILD 54319 2009-10-08 13:26:47Z francois $
# Maintainer: kevin <kevin.archlinux.org>
# Contributor: judd <jvinet.zeroflux.org>
# Contributor: francois <francois.archlinux.org> 
pkgname=perl
pkgver=5.12.0
pkgrel=0
pkgdesc="Practical Extraction and Report Language"
arch=(i686 x86_64)
license=('GPL' 'PerlArtistic')

xenoterracide

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

getprint("http://aur.archlinux.org/packages/modern-perl/modern-perl/PKGBUILD");

xenoterracide

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

my $content = get("http://aur.archlinux.org/packages/modern-perl/modern-perl/PKGBUILD");

print $content;