| #!/usr/bin/env perl | |
| use strict; | |
| use Data::Dumper; | |
| my $action = shift @ARGV || "ls"; | |
| sub usage { | |
| print "Usage: $0 ls <entry>\n"; | |
| exit 1; |
| import pprint | |
| class Bitmask(object): | |
| def __init__(self, bitdict): | |
| super(Bitmask, self).__init__() | |
| self.bitdict = bitdict | |
| def dump_bits(self): | |
| return pprint.pprint(self.bitdict) |
| import smtplib | |
| email_defaults = { | |
| "from": "replies-disabled@domain.com", | |
| "content-type": "text/html", | |
| "X-Automation": "true", | |
| } | |
| style_sheet = """ | |
| <style> |
| import yaml | |
| import logging | |
| import ldap | |
| from ldap.controls import SimplePagedResultsControl | |
| from pprint import pprint as pp | |
| import sys | |
| import ldap.modlist as modlist | |
| DEFAULT_PAGE_SIZE = 10 |
| package bitmask | |
| import "sort" | |
| type Decoder struct { | |
| Flags map[string]int | |
| } | |
| func NewDecoder(flags map[string]int) *Decoder { | |
| return &Decoder{Flags: flags} |
| #!/usr/bin/env perl | |
| use Try::Tiny | |
| # determine which package to use | |
| my $pkg = "My::Package"; | |
| # call require (runtime) instead of use (compile-time) | |
| try { | |
| require $pkg; |
| Fifty Writing Tools: Quick List | |
| src: http://www.poynter.org/2006/fifty-writing-tools-quick-list/76067/ | |
| Click to share on Twitter (Opens in new window)Click to share on Facebook (Opens in new window)11Click to share on LinkedIn (Opens in new window)11Click to share on Google+ (Opens in new window)Click to email this to a friend (Opens in new window) | |
| By Roy Peter Clark • June 30, 2006 | |
| Use this quick list of Writing Tools as a handy reference. Copy it and keep it in your wallet or journal, or near your desk or keyboard. Share it and add to it. | |
| I. Nuts and Bolts |
| #!/bin/zsh | |
| # left padding parameter expansion flag | |
| value=145 | |
| echo ${(l:10::0:)value} | |
| # 0000000145 |
_source: https://askql.wordpress.com/2011/01/11/zsh-writing-own-completion/ __
By Alp1/11/2011
To be honest it wasn’t easy for me to get from the ZSH man pages how to make own completion functions. Sharing my modest achievement in that area here.
The main source of info is man zshcompsys.
| #!/bin/sh | |
| cat count.txt | awk '{ sum+=$1} END {print sum}' |