memo.xight.org

$y = 2000;
$m = 1;
$d = 1;
# 1月は13月,2月は14月とみなす
if ($m < 3) {
	--$y;
	$m+=12;
}
$w = ($y + int($y/4) - int($y / 100) + int($y/400) + int((13 * $m + 8) / 5) + $d) % 7;
print "\$w = $w\n";
# $w=6 つまり土曜日で正解です

use DBI;
$db  = DBI->connect('DBI:mysql:データベース名:サーバ名', ユーザー名, パスワード);
$sth = $db->prepare("SQL文");
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";
for ($i = 0; $i < $num_rows; $i++) {
	@a = $sth->fetchrow_array;
	print "id=$a[0], name=$a[1] memo=$a[2] \n";
}
$sth->finish;
$db->disconnect;

$name ||= 'nobodyさん';

$name = 'nobodyさん' unless defined $name;

if (!(defined $name)){
	$name = 'nobodyさん';
}

#!/usr/bin/env perl
use MeCab;
my $sentence = "太郎はこの本を二郎を見た女性に渡した．";
my @arg = ($0, "オプション");
my $c = new MeCab::Tagger (\@arg);
my $result = $c->parse($sentence);
print $result;
exit;

my @arg = ($0, qq(-F%m\t%f[7]\n));

q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,]|%[0-9A-Fa-f} .
q{][0-9A-Fa-f])*@)?(?:(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.)} .
q{*[a-zA-Z](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.?|[0-9]+\.[0-9]+\.[0-9]+\.} .
q{[0-9]+)(?::[0-9]*)?(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f]} .
q{[0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-} .
q{Fa-f])*)*(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f} .
q{])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*)} .
q{*)?(?:\?(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])} .
q{*)?(?:#(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*} .
q{)?};

s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+

{
	my $tmp = $line;
	$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
	@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}
	($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}

{
	my %count;
	@array = grep(!$count{$_}++, @array);
}

@data = ('A,7,緑',
	 'C,6,青',
	 'B,4,赤',
	 'A,9,紫',
	 'A,2,黄緑',
	 'B,10,黄',
	 'C,3,青紫');
@data = map {$_->[0]}
sort {$a->[1] cmp $b->[1] or $b->[2] <=> $a->[2]}
map {[$_, split /,/]} @data;

@data = ('A,9,紫',
	 'A,7,緑',
	 'A,2,黄緑',
	 'B,10,黄',
	 'B,4,赤',
	 'C,6,青',
	 'C,3,青紫');

my %options = ( help  =>  0);
$ret = GetOptions(\%options,\$pattern,'help|h');
if ($options{help}){ &usage(); }

$ret = GetOptions('file|f=s@',\@filelist);

$out = s/hoge/huga/s;