kaz-utashiro

;;; cdif.el --- cdif and ansi-color interface

;;; Code:

(autoload 'ansi-color-apply-on-region "ansi-color" nil t)

(defun cdif-buffer (&optional prefix)
  "Execute cdif command on current buffer and apply ansi-color."
  (interactive "P")
  (if prefix

kaz-utashiro

while (/pattern/g) {
    my($s, $e) = ($-[0], $+[0]);
    ...

kaz-utashiro

tir -rGRc10

kaz-utashiro

set border lw 0.1
set samples 1000

set title "x^2.8 + (y/1.6)^2.8 = 1"
n = 2.8
h = 1.6
unset key
set size ratio h
set xr[0:1.0]
set yr[0:h]

kaz-utashiro

use Math::Trig;

my $m = 1.6;
my $b = 2.8;
for (my $theta = 90; $theta >= 0; $theta -= 5 ){
    my $x = cos($theta / 180 * pi);
    $y = $m * (1 - $x ** $b) ** (1/$b);
    printf "x=%f, %f, %f\n", $x, $x * 300, $y * 300;
}

kaz-utashiro

# ~/.greplerc
option --ical_data \
	--chdir ~/Library/Calendars/*.caldav/*.calendar/Events \
	--glob *.ics

kaz-utashiro

######################################################################
# iCal
######################################################################
option --ical_data \
	--chdir ~/Library/Calendars/*.caldav/*.calendar/Events \
	--glob *.ics

help   --ical Search iCal data
option --ical \
	--all \

kaz-utashiro

#!/usr/bin/perl

use strict;

my %freq;
while (<>) {
    chomp;
    map { $freq{$_}++ } split //;
}

kaz-utashiro

=head1 NAME

perl - Greple module for perl script

=head1 SYNOPSIS

greple -Mperl [ options ]

=head1 SAMPLES

kaz-utashiro

sub print_wdiff {
    my %arg = @_;
    my @matched = @{$arg{matched}};

    for (my $i = $#matched; $i >= 0; $i--) {
	my($s, $e) = @{$matched[$i]};
	my $t = substr($_, $s, $e - $s);
	if ($t =~ s/\A (?:\{\+|\[\-) (.*) (?:\+\}|\-\]) \Z/$1/sx) {
	    substr($_, $s, $e - $s) = $t;
	    $matched[$i][0] = $s - $i * 4;