Perl で変数を使ってファイルハンドル名を動的に生成する

Perl

こんな感じでできたのでメモ。ソースコード filehandle.pl #!/usr/bin/env perl use strict; use warnings; my @array = (1,2,3,4,5,6,7,8,9,10); foreach my $item (@array) { no strict "refs"; my $fh = "OUT${item}"; open (${$fh}, ">", "${item}.txt"…

2012-01-31

Perl の grep sort map とか

Perl

Perlクックブック〈VOLUME1〉作者: トムクリスチャンセン,ネイザントーキントン,Tom Christiansen,Nathan Torkington,Shibuya Perl Mongers,ドキュメントシステム出版社/メーカー: オライリージャパン発売日: 2004/09/01メディア: 単行本購入: 1人クリック:…

2012-01-31

String found where operator expected at ... (Missing operator before ...?)

Perl

String found where operator expected at ./status_log_spliter.pl line 109, near "} "$line\n"" (Missing operator before "$line\n"?) ある Perl スクリプトを実行すると、実行はできるけど「String found where operator expected」と怒られるので、 pr…

2012-01-30

ハッシュテーブルと二分木についてのメモ

アルゴリズムデータ構造

ハッシュテーブル 7. ハッシュテーブル(Hash Table)メモリー効率を犠牲にしてでも(たいていのケースで)O(1)でデータにアクセスすることを可能にするこの方法は、連想配列の実装に最適で、Perlで多用されたことから今では連想配列の代名詞にすらなってしまっ…

2012-01-26

表領域をバックアップ・モードにした状態では shutdown immediate できない

Oracle

備忘録です。アーカイブログモードに変更する startup mount alter database archivelog; archive log list alter database open; alter system archive log current; BEGIN BACKUP を実行する select tablespace_name from dba_tablespaces; alter tablesp…

2012-01-22

アルゴリズムとデータ構造

アルゴリズムプログラミング

「アルゴリズムとデータ構造」とはについてのメモ。アルゴリズムとはアルゴリズムは問題を解決する手順のことです。まつもと直伝プログラミングのオキテ第1回（2） | 日経 xTECH（クロステック）厳密な定義 1920〜30年代、アルゴリズムの概念を定式化…

2012-01-21

今となっては、ページサイズはもっと大きくしても良い

OS

プロセッサを支える技術 ??果てしなくスピードを追求する世界 (WEB+DB PRESS plus)作者: Hisa Ando出版社/メーカー: 技術評論社発売日: 2011/01/06メディア: 単行本（ソフトカバー）購入: 22人クリック: 250回この商品を含むブログ (54件) を見るに書かれて…

2012-01-21

最前線UNIXのカーネル

書籍 UNIX

最前線UNIXのカーネル作者: ユーレッシュヴァハリア,Uresh Vahalia,徳田英幸,戸辺義人,中村明,津田悦幸出版社/メーカー: ピアソンエデュケーション発売日: 2000/05メディア: 単行本購入: 4人クリック: 37回この商品を含むブログ (8件) を見るOSの排他制御に…

2012-01-17

割り込みについて調べてみました

x86 Linux

割り込みについて調べてみたのでメモしておきます。ほとんどは詳解 Linuxカーネル第3版で調べた内容なので、x86 と Linux よりの内容になっていると思います。「割り込み」ってなんだろ？（2012/03/04追記）「割り込み」は何らかの要因によって今やっ…

2012-01-12

アクティブセッション数と statspack レポートの集計処理に使った Perl ワンライナー

Perl Oracle

こんにちは、コードゴルフ界の飛ばし屋ですw*1 自分用のメモです。アクティブセッション数の集計に使ったもの。レコードセパレータを段落に、フィールドセパレータを改行にしています。 perl -00 -F'\n' -lane '$sum=0;map{@line=split(q/,/,$_);$sum+=$line…

2012-01-05

Oracle Database 11g の自動化メンテナンス・タスクの無効化・有効化

Oracle

自動化メンテナンス・タスクの状態を確認する。 set linesize 200 col window_name for a20 col window_next_time for a40 SELECT window_name, window_next_time, window_active, autotask_status, optimizer_stats, segment_advisor, sql_tune_advisor FRO…