memo.xight.org

### CPAN Moduleの検索リンク
# usage: {{cpan_search('Keyword','mode')}}
# mode : all    - Search in All
#        dist   - Search in Distributions
#        module - Search in Modules (default)
#        author - Search in Author
sub cpan_search {
	my ($word,$mode) = @_;
	my $prefix = q(http://search.cpan.org/search);
	if ($mode ne 'all' && $mode ne 'dist' && $mode ne 'author' && $mode ne 'module'){
		$mode = q(all);
	}
	return qq(<a href="$prefix?m=$mode&q=$word" title="CPAN Search - $word">$word</a>);
}
sub cpan{cpan_search(@_)}

$self->proxy(['http', 'ftp'], 'http://proxy.example.com:8000/');

$self->env_proxy();

use WWW::Mechanize;
my $url = "http://www.example.com/form.html";
my $mech = WWW::Mechanize->new( cookie_jar => undef );
my $response = $mech->get( $url );
foreach my $form ($mech->forms) {
	foreach my $input ($form->inputs) {
		printf("%s (%s) ... %s\n", $input->name, $input->type, $input->value);
	}
}

{
	local $^W = 0;
	$agent->field( name => $value );
}

#!/usr/bin/perl
 
use MSN;
use Jcode;
 
my $msn = MSN->new(Handle => 'hoge@hotmail.com', Password => 'hogepass');
$msn->set_handler(Message   => \&on_message);
$msn->connect();
 
while(1) {
	$msn->do_one_loop();
}
 
sub on_message {
	my ($self, $email, $name, $msg) = @_;
	my $utf8_name = Jcode->new($name, 'utf8')->euc;
	my $str = Jcode->new($msg, 'utf8')->euc;
 
	# $str を処理...
 
	my $utf8_str = Jcode->new($str, 'euc')->utf8;
	$self->sendmsg($utf8_str);
}

#!/usr/bin/perl
 
use Image::Magick;
 
# 新しい幅だけ指定する
$newwidth = 120;
 
$i = Image::Magick->new;
$i->Read('input.gif');
 
# Transformは同じ比率で画像を縮小拡大する
$i = $i->Transform(geometry=>$newwidth);
 
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("gif:-");
 
exit;

#!/usr/bin/perl
 
use Image::Magick;
 
$newwidth  = 160;
$newheight = 160;
 
$i = Image::Magick->new;
$i->Read('input.gif');
 
# Scaleは縦横のピクセルを与え縮小拡大する
$i->Scale(geometry=>geometry,width=>$newwidth,height=>$newheight);
 
print "Content-type: image/gif\n\n";
binmode(STDOUT);
 
# JPEGで出力
$i->Write("jpeg:-");
exit;

#!/usr/bin/perl
 
use Image::Magick;
 
$infile = "input.jpg";
 
$i = Image::Magick->new;
$i->Read($infile);
 
# 枠の幅がwidth,枠の高さがheight，内枠の幅がinner,外枠の幅がouter
$i->Frame(geometry=>geometry,width=>6,height=>6,inner=>2,outer=>2,color=>'#50FF50');
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;

#!/usr/bin/perl
 
use Image::Magick;
 
$infile = "input.jpg";
 
$i = Image::Magick->new;
$i->Read($infile);
$i->Set(bordercolor=>'#FFFFFF');
$i->Rotate(degrees=>-30,crop=>0,sharpen=>1);
$i->Trim();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;

use XML::Parser;
 
my $parser = new XML::Parser(Style=>'Stream');
$parser->parsefile($ARGV[0]);
 
sub StartDocument {
	print qq(StartDocument\n);
}
sub EndDocument {
	print qq(EndDocument\n);
}
 
sub StartTag {
	print qq(StartTag $_[1]\n);
}
sub EndTag {
	print qq(EndTag $_[1]\n);
}
 
sub Text {
	print qq($_\n);
}

foreach $firstkey (keys %HOGE){
	print "<b>$firstkey:</b><br>";
	foreach $secondkey (keys %{$HOGE{$firstkey}}){
		print "$secondkey = $HOGE{$firstkey}{$secondkey}<br>";
	}
	print "<br>\n";
}

%PREF = (
	'kyoto' => {
		'NAME'	 => '京都',
		'JINKOU' => '200万',
		'MEISAN' => '豆腐',
	},
	'osaka' => {
		'NAME'	 => '大阪',
		'JINKOU' => '500万',
		'MEISAN' => 'たこやき',
	},
);

$PREF{'kyoto'}{'NAME'} = 京都

$PREF = array(
	"kyoto" => array(
		"NAME"   => "京都",
		"JINKOU" => "200万",
		"MEISAN" => "豆腐",
	),
	"osaka" => array(
		"NAME"   => "大阪",
		"JINKOU" => "500万",
		"MEISAN" => "たこやき",
	),
);

$PREF["kyoto"]["NAME"] = 京都

foreach $key (sort(keys %hash)) {
	print "$key => $hash{$key}\n";
}

foreach $key (sort {$b cmp $a} keys %hash){
	print "$key => $hash{$key}\n";
}

foreach $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$a} cmp $hash{$b} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$b} cmp $hash{$a} } keys %hash) {
	print "$key => $hash{$key}\n";
};