jnbek

perl -e'open my $PROG, "-|", "ls -hal"; while (<$PROG>) { print $_; } close $PROG;'

jnbek

#!/bin/zsh
# Install all the packages for my Arch Linux Installs
yaourt -Syy; 
W=(`pacman -Ss gimp | grep -v help | perl -p -i -e 's/^.*\/(.*).+/$1/xs' | sed -e's/\s.*//'`); 
X=(`pacman -Ss ttf- |  perl -p -i -e 's/^.*\/(.*).+/$1/xs' | sed -e's/\s.*//'`); 
Y=(`pacman -Ss gstreamer0.10- |  perl -p -i -e 's/^.*\/(.*).+/$1/xs' | sed -e's/\s.*//'`);
PACMAN=( abs ack ati-dri audex aurvote cabextract cdrdao cifs-utils clementine clojure ctags cups customizepkg cvs dnstracer dnsutils dvd+rw-tools easytag enchant faac findutils firefox flac flashplugin fpc fuse fuseiso gdb gdm gecko-mediaplayer geoip ghostscript gimp-help-en git gprolog gramps graphviz guifications gvfs gvfs-afc gvfs-afp gvfs-gphoto2 gvfs-smb gvim htop hunspell hunspell-en icedtea-web-java7 inetutils intel-dri iputils jre7-openjdk k3b kdegraphics-okular kdesdk-kate keychain lame lazarus lib32-ati-dri lib32-intel-dri lib32-nouveau-dri libgnomeui libgpod libreoffice libreoffice-en-US lua luakit mate mate-extras mercurial mesa mlocate multilib-devel net

jnbek

I had added this value to /etc/sysctl.conf:

# For PostgreSQL jails
security.jail.sysvipc_allowed=1

I needed to set this in /etc/rc.conf

jail_sysvipc_allow="YES" # For PostgreSQL

jnbek

#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;

sub do_print {
    for (keys %ENV) {
        print "$_ => $ENV{$_}\n";
    }   
}

jnbek

X=(`pacman -Ss gstreamer0.10- | sed -e's/\s.*//'`); yaourt -S $X

jnbek

X=(`pacman -Ss xfce | sed -e's/\s.*//'`); yaourt -S $X 

jnbek

perl -MFile::Find=find -MFile::Spec::Functions -Tlwe 'find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'

jnbek

perl -MFile::Find=find -Tlwe 'for $inc (@INC) { find { wanted => sub { return if !/\.pm\z/; ($a=$File::Find::name)=~s|^\Q$inc\E/||; $a =~ s/\//::/g; $a =~ s/(.*)\.pm$//g;print $1 }, no_chdir => 1 }, $inc }'

jnbek

    my $smtp_connection = $self->{'smtp_obj'} ||= do {
        my $smtps_obj = eval {
            require Net::SMTP::SSL;
            my $s = Net::SMTP::SSL->new(
                $args->{'smtp_server'},
                Port    => 465,
                Hello   => $mail_domain,
                Timeout => 10, 
                Debug   => 0,
            );  

jnbek

const Lang = imports.lang;
const St = imports.gi.St;
const Cinnamon = imports.gi.Cinnamon;
const Applet = imports.ui.applet;
const Main = imports.ui.main;
const PopupMenu = imports.ui.popupMenu;

function DriveMenuItem(place) {
    this._init(place);
}