実行ã•ã‚Œã¦ã„ã‚‹ Perl スクリプトã®çµ¶å¯¾ãƒ‘スをå–å¾—ã™ã‚‹æ–¹æ³•ãŒçŸ¥ã‚ŠãŸã„ã§ã™ã€‚…
実行ã•ã‚Œã¦ã„ã‚‹ Perl スクリプトã®çµ¶å¯¾ãƒ‘スをå–å¾—ã™ã‚‹æ–¹æ³•ãŒçŸ¥ã‚ŠãŸã„ã§ã™ã€‚ __FILE__ ã§ãƒ•ã‚¡ã‚¤ãƒ«åã‚’å–å¾—ã§ãã‚‹ã“ã¨ã¯çŸ¥ã£ã¦ã„ã‚‹ã®ã§ã™ãŒã€å–å¾—ã—ãŸãƒ•ã‚¡ã‚¤ãƒ«åを探ã™å‡¦ç†ã‚’入れるã¹ããªã®ã‹ã€CPAN ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ãã«è§£æ±ºã§ãã‚‹ã®ã‹è¦‹å½“ãŒã¤ãã¾ã›ã‚“。 ググッã¦ã¯è¦‹ãŸã®ã§ã™ãŒã€è©²å½“ã™ã‚‹çµæžœãŒå¾—られã¾ã›ã‚“ã§ã—ãŸã€‚
実行ファイルã®ãƒ•ãƒ«ãƒ‘スã®å–å¾— - Shohei Yoshida's Diary
会社ã®äººã«èžã‹ã‚Œã¦å¼·å¼•ãªæ–¹æ³•ã‚’æ示ã—ã¦ã—ã¾ã£ãŸã§ã€ 普通ã«ã§ãã‚‹ã ã‚ã£ã¦ã“ã¨ã§èª¿ã¹ã¦ã¿ãŸã€‚ Perl, シェルスクリプトã©ã¡ã‚‰ã§ã‚‚ $0ã§å®Ÿè¡Œãƒ•ã‚¡ã‚¤ãƒ«å㌠å–å¾—ã§ãã¾ã™ã€‚ãれをフルパスã«ã§ãã‚Œã°ã‚ˆã„ã¨ã„ã†ã‚ã‘ã§ã™ã€‚ ã¾ã‚ basenameã¨ã‹ dirnameãŒã‚ã‚‹ã‚“ã ã£ãŸã‚‰ abspathã¨ã‹ãŒ ã‚ã‚‹ã¯ãšã ã£ã¦æ€ã£ã¦è£œå®Œã§å‡ºã¦ãã‚‹ã‹ãªã£ã¦æ€ã£ãŸã‚“ã§ã™ãŒã€ ã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã€‚basenameã® manpageを見る㨠readlinkã¨ã„ㆠã®ãŒ SEE ALSOã«ã‚ã‚Šã¾ã™ã€‚ã§ã€ã“れを調ã¹ã¦ã¿ã‚‹ã¨ä»¥ä¸‹ã®é€šã‚Šã§ フルパスãŒå–å¾—ã§ãã¾ã™. % readlink -f ファイルåã—ã‹ã—説明をèªã‚€ã¨ã‚·ãƒ³ãƒœãƒªãƒƒã‚¯ãƒªãƒ³ã‚¯ã«ã‚³ãƒžãƒ³ãƒ‰ã¿ãŸã„ãªã®ã§ 使ã„æ–¹ãŒã‚ã£ã¦ã‚‹ã®ã‹ãŒå¾®å¦™ã§ã™ã。ã•ã‚‰ã«èª¿ã¹ã¦ã¿ã‚‹ã¨, realpath ã¨ã„ã†ã‚³ãƒžãƒ³ãƒ‰ãŒã‚ã£ã¦, 絶対パスを表示ã•ã›ã‚‹å°‚é–€ã¿ãŸã„ã§ã™. % realpath フ
Time::Piece - 日付・時刻を扱ã†æ–°ã—ã„方法 - Perl入門ゼミ
Perl › モジュール › here Perlã®5.10ã‹ã‚‰Time::Pieceã¨å‘¼ã°ã‚Œã‚‹æ™‚刻を便利ã«æ‰±ã†ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒæ¨™æº–モジュールã«åŠ ã‚ã‚Šã¾ã—ãŸã€‚Perlã®5.10以上を使用ã—ã¦ã„ã‚‹å ´åˆã¯Time::Pieceモジュールを日付ã¨æ™‚刻を扱ã„ãŸã„å ´åˆã«åˆ©ç”¨ã™ã‚‹ã¨ä¾¿åˆ©ã§ã™ã€‚ 従æ¥ã®Perlã§ã¯æ—¥ä»˜ã‚„時刻を直感的ã«æ‰±ã†æ‰‹æ®µãŒæ¨™æº–モジュールã«ã¯ã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã€‚日付や時刻を扱ã†ãŸã‚ã«ã¯å°‘ã—é¢å€’ãªä½œæ¥ãŒå¿…è¦ã§ã—ãŸã€‚Time::Pieceã¯æ—¥ä»˜ã¨æ™‚刻ã®ç›´æ„Ÿçš„ãªæ“作をæä¾›ã—ã¾ã™ã€‚ã¾ãŸæ—¥ä»˜ãƒ»æ™‚刻ã®æ›¸å¼åŒ–ã®æ©Ÿèƒ½ã‚„解æžã™ã‚‹æ©Ÿèƒ½ã‚‚å‚™ãˆã¾ã™ã€‚ Perlã«ã¯å®Ÿè³ªçš„ã«æ—¥ä»˜ã‚’扱ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚¹ã‚¿ãƒ³ãƒ€ãƒ¼ãƒ‰ã¨ã„ãˆã‚‹DateTimeã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚Šã¾ã™ã€‚ãŸã ã—ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯æ¨™æº–モジュールã§ã¯ãªãCPANã‹ã‚‰ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ã¾ãŸå·¨å¤§ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã®ã§ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’èªã¿è¾¼ã‚€æ™‚é–“ãŒéžå¸¸ã«ã‹ã‹ã‚Šã¾ã™
ã¡ã‚ƒã‚“ã¨configファイルを作らãªã„ã¨æ»ãる→Perlãªã‚‰Config::Simpleã§ç”Ÿãã¦ã„ã‘ã‚‹ - oranie's blog
[追記] ã¡ã‚‡ã£ã¨configã®è¨˜è¿°ã«é–“é•ã„見ã¤ã‘ãŸã®ã§ä¿®æ£ã€‚ ã—ょã¼ã„メモã§ã™ã€‚ 「ã—ょã¼ã„ãƒãƒƒãƒå‡¦ç†ã ã‹ã‚‰DB接続用ã®ãƒ‘ラメータã¨ã‹é©å½“ã«æ›¸ã„ã¦ãŠãã‹( ´ー｀)y-~〠→ 「ã“ã†ã„ã†å‡¦ç†ã‚‚足ã—ã¦ãŠãã‹(´∀｀)ã€ã€Œæ®µã€…é•·ããªã£ã¦ããŸã‹ã‚‰pmファイルã§åˆ†å‰²ã™ã‚‹ã‹(｀・ω・)〠→何度ã‹ç¹°ã‚Šè¿”ã™ æ°—ã¥ã„ãŸã‚‰å…¨éƒ¨ã§ä½¿ã†è¨å®šå€¤ã‚’色んãªãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ã„ã¦ã„る＞＜ ã¨ã„ã†äº‹ã¯åƒ•ã¿ãŸã„ãªåº•è¾ºã ã¨è‰¯ãやる訳ã§ã™ã‚ˆã€‚ã§ã€configファイル作らãªãゃã£ã¦ã‚„ã‚ã†ã¨ã—ãŸã‚“ã§ã™ãŒã€ ã°ã°ãƒ¼ã£ã¦ our $database = "hogehoge"; our $user = "fugafuga"; our $pass = "mogamoga"; ã£ã¦æ›¸ã„ã¦requireã§èªã¿è¾¼ã‚‚ã†ã¨ã—ãŸã‚Šã§è‰¯ã„ã‹ãªï¼Ÿã£ã¦æ€ã£ãŸã‚“ã§ã™ã‘ã©ã€ãªã‚“ã‹ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã¨ã‹ä½¿ã†ã®ã‚„ã˜ã‚ƒãªã„ã§ã™ã‹ã€‚ ãªã‚“ã‹ä½¿ã£ãŸã‚‰ã€Œãƒ—ークスクスã€ã£ã¦ã•ã‚Œ
Log::Minimalã§Perlã®ãƒã‚°å‡ºåŠ›ã—ã¦ã¿ãŸ - Qiita
use Log::Minimal; # デãƒãƒƒã‚°ã‚’出力ã™ã‚‹å ´åˆï¼š1 $ENV{LM_DEBUG} = 1; debugf( 'デãƒãƒƒã‚°ãƒ¬ãƒ™ãƒ«å‡ºåŠ›ã•ã‚Œã‚‹.' ); # $ENV{LM_DEBUG} ãŒtrueã®å ´åˆå‡ºåŠ›ã•ã‚Œã‚‹ infof( 'インフォレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); warnf( 'ワーニングレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); critf( 'クリティカルレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); # フルスタックトレースをã™ã‚‹å ´åˆ debugff( 'デãƒãƒƒã‚°ãƒ¬ãƒ™ãƒ«å‡ºåŠ›ã•ã‚Œã‚‹.' ); # $ENV{LM_DEBUG} ãŒtrueã®å ´åˆå‡ºåŠ›ã•ã‚Œã‚‹ infoff( 'インフォレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); warnff( 'ワーニングレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); critff( 'クリティカルレベルãŒå‡ºåŠ›ã•ã‚Œã‚‹.' ); # パラメータをè¨å®šã™ã‚‹å ´åˆ debugf( 'This is %s', 'de
DBD::Oracle ã«æ¿€é…ã®ã‚³ãƒ¼ãƒ‰ãŒæ··åœ¨ã—ã¦ã„る件ã«ã¤ã„ã¦
ãˆãƒ¼ã£ã¨ã€ã“ã“数日やã£ã¦ã„ã‚‹ DBIx::Class 関連ãªã‚“ã§ã™ãŒã€DBIx::Class::Schema::Loader::Oracle を作ã£ã¦ã¿ãŸã‚‚ã®ã®ã€Oracle ã®å ´åˆã€ãªãœã‹ _load_relationships ãŒç•°å¸¸ã«é…ã„ã‚“ã§ã™ã‚ˆã€‚ã§ã‹ãªã‚Šæ·±è¿½ã„ã—ã¦ã¿ã¾ã—ãŸã€‚ DBIx::Class::Schema::Loader::Base->_load_relationships ã‚ãŸã‚ŠãŒé…ã„ã®ã§ãƒ¡ã‚½ãƒƒãƒ‰ã‚³ãƒ¼ãƒ«ã‚’深追ㄠ↓ DBIx::Class::Storage::DBI->columns_info_for ã® $dbh->column_info ãã®ã‚‚ã®ãŒé…ã„ã“ã¨ã‚’çªãæ¢ã‚る。 eval { my $sth = $dbh->column_info( undef, undef, $table, '%' ); $sth->execute(); while ( my $info =
SQL::Abstract - Perlã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã‹ã‚‰SQL文を生æˆã™ã‚‹ - perldoc.jp
åå‰Â¶ SQL::Abstract - Perlã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã‹ã‚‰SQL文を生æˆã™ã‚‹ 概è¦Â¶ use SQL::Abstract; my $sql = SQL::Abstract->new; my($stmt, @bind) = $sql->select($table, \@fields, \%where, \@order); my($stmt, @bind) = $sql->insert($table, \%fieldvals || \@values); my($stmt, @bind) = $sql->update($table, \%fieldvals, \%where); my($stmt, @bind) = $sql->delete($table, \%where); # ãã‚Œã‹ã‚‰ã€ã“れらをDBIステートメントã§ä½¿ã† my $sth = $dbh->prepare($stmt);
「ã—ーã±ã‚“ã€ãªã®ã‹ã€Œãã±ã‚“ã€ãªã®ã‹ãƒãƒƒã‚リã•ã›ã‚ˆã† : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
CPAN - Comprehensive Perl Archive Network 言ã‚ãšã¨çŸ¥ã‚ŒãŸ Perl ã¨ã„ã†ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã«ç”¨ã„ã‚‹ module ã®å®åº«ã€‚ 一般的ã«ã¯ã€Œã—ーã±ã‚“ã€ã¨èªã¿ã¾ã™ã€‚ ãŠã„らもãã†èªã‚“ã§ã„ã¾ã™ã€‚ ã—ã‹ã—ã€ã“れを「ã—ーã±ã‚“ã€ã¨èªã¾ãªã„人ãŒã„ã¾ã™ã€‚ LL ä¾ã“ã¨ã€æ—©å·çœŸä¹Ÿæ°ã§ã™ã€‚ 彼㯠CPAN を「ãã±ã‚“ã€ã¨èªã¿ã¾ã™ã€‚ 実際ã«å½¼ã¯ã€LL ä¾ã‚’ã‚„ã£ãŸæ™‚ã«ã€C-P-A-N C-P-A-N 世界ä¸ã‹ã‚‰é›†ã¾ã£ãŸ 膨大㪠モジュール㌠Perlユーザを支ãˆã‚‹ãœ ã£ã¦ã€è¨€ã†ã˜ã‚ƒãªã„ ã ã‘ã© èªã¿æ–¹é–“é•ãˆã¦ã¾ã™ã‹ã‚‰ æ®‹å¿µï¼ ã€Œã‚¯ãƒ‘ãƒ³ クパン å°ã•ããŸã£ã¦ä¸€äººå‰ã€ 斬りã¨ã€ãƒãƒƒã‚リ「クパンã€ã¨è¨€ã£ã¦ã„ã¾ã™ã€‚ (cf. http://www014.upp.so-net.ne.jp/tetryl/llw2004/ll-samurai.txt) ã§ã‚‚ã€ãã®å‘¼ã³æ–¹ã¯ã¨ã¦ã‚‚ã‚モã„ã®
Module::Refresh ã¨ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒ€ã‚¤ãƒŠãƒŸãƒƒã‚¯ãƒãƒ¼ãƒ‰ã®ç›¸æ€§ - daily dayflower
以å‰ï¼ˆâ‡’ã€æ°¸ç¶šåŒ–Perlã§ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®å†èªã¿è¾¼ã¿ ⇒ Module::Refresh - daily dayflower】）ã®ç©ã¿æ®‹ã—課題ã§ã™ã€‚ main.cgi ㌠MyApp::Runner を呼ã³ï¼ŒMyApp::Runner ㌠MyApp::App をダイナミックãƒãƒ¼ãƒ‰ã—ã¦å®Ÿè¡Œã—，戻り値を表示ã™ã‚‹ CGI ã§ã™ã€‚ CGI 㯠#!/usr/bin/perl use strict; use Module::Refresh; Module::Refresh->refresh(); use MyApp::Runner; MyApp::Runner->run('MyApp::App'); ãƒãƒ¼ãƒ€ã‚¯ãƒ©ã‚¹ã¯ package MyApp::Runner; use strict; sub load_module { my ($class, $target) = @_; eval "require
CPAN を使ㄠPerl モジュールをインストールã™ã‚‹ï½œperl｜@OMAKASE
※追記2010-03-28 ã“ã®è¨˜äº‹ã¯ä½•å¹´ã‚‚å‰ã«æ›¸ã„ãŸã‚‚ã®ã§ã™ã€‚ç¾åœ¨ã¯ã¾ã£ãŸãå‚考ã«ãªã‚Šã¾ã›ã‚“。今ã‹ã‚‰CPANモジュールをインストールã—よã†ã¨ã—ã¦ã„ã‚‹æ–¹ã¯miyagawaã•ã‚“作 App::cpanminus を使ã†ã¨å¹¸ã›ã«ãªã‚Œã¾ã™ã€‚ cpanmã®è¨˜äº‹ã¯ã‚³ã‚³ã§æ›¸ã„ã¦ã¾ã™ã€‚å‚考ã«ãªã‚Œã°ãƒ»ãƒ» CPAN ã£ã¦ä½•ï¼Ÿ 一言ã§è¨€ãˆã° perl module をインストールã™ã‚‹ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãªã®ã§ã™ã€‚ CPAN.pm を使ã†ã¨ perl モジュールã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãŒé©šãã»ã©ç°¡å˜ã«ãªã‚Šã¾ã™ã€‚ãŸã ã—åˆã‚㦠CPAN を使用ã™ã‚‹å ´åˆã«ã¯ä»¥ä¸‹ã®è¦é ˜ã§è¨å®šãŒå¿…è¦ãªå ´åˆãŒã‚ã‚Šã¾ã™ã€‚＃ã»ã¨ã‚“ã©ã®éƒ¨åˆ†ã¯ [Enter] を押ã™ã ã‘ãªã‚“ã§ã™ãŒ... CPAN ã®åˆæœŸè¨å®š ※全ã¦ã®ä½œæ¥ã¯ root ã§å®Ÿè¡Œ [root@celeron2 /root]# perl -MCPAN -e shell /usr/lib/perl5/5
CPANã‹ã‚‰JSON::XSをインストールã—ã¦ã¿ã‚‹ - Lllocity::Memo
PerlãŒå¥½ããªã®ã§ä»Šå¾ŒCPANã‹ã‚‰ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’インストールã™ã‚‹ã“ã¨ãŒã‚ã‚‹ã ã‚ãªãã¨æ€ã£ãŸã®ã§ã€è©¦ã—ã«JSONã®ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰/デコードã®å„ªã‚Œã‚‚ã®ã€JSON::XSをインストールã—ã¦ã¿ã¾ã™ã€‚ インストール（一回目） $ sudo cpan JSON::XS ã™ã‚‹ã¨ã€ Warning (maybe harmless): 'YAML' not installed. ã¨è¨€ã‚ã‚Œã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ããªã‹ã£ãŸã€‚YAMLã‚‚å¿…è¦ãªã®ã‹ãªã€‚ インストール（二回目） $ sudo cpan YAML JSON::XS ã¨ã—ã¦ã¿ã‚‹ã¨ã€ /bin/sh: cc: not found ã¨è¨€ã‚ã‚Œã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ããªã‹ã£ãŸã€‚ãã£ã‹XSã ã‹ã‚‰ã‚³ãƒ³ãƒ‘イルã—ã¦ã‚‹ã‚“ã ãªã€‚ インストール（三回目） ã¾ãšã¯gccをインストールã—ã¦ãŠã。 $ sudo apt-get install gcc ã“ã‚Œã§gccã¨ccãŒå…¥ã‚Šã¾ã™ã€‚ $ which
Config::Simple - ç°¡å˜ãªè¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã‚¯ãƒ©ã‚¹ - perldoc.jp
åå‰Â¶ Config::Simple - ç°¡å˜ãªè¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã‚¯ãƒ©ã‚¹ 概è¦Â¶ use Config::Simple; # --- ç°¡å˜ãªä½¿ã„方。è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã‚’ãƒãƒƒã‚·ãƒ¥ã«èªã¿è¾¼ã¿ã¾ã™: Config::Simple->import_from('app.ini', \%Config); # --- オブジェクト指å‘インターフェース: $cfg = new Config::Simple('app.ini'); # 値ã¸ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹: $user = $cfg->param('User'); # 値をãƒãƒƒã‚·ãƒ¥ã¨ã—ã¦å¾—ã‚‹: %Config = $cfg->vars(); # æ–‡å—列ã§å€¤ã‚’æ›´æ–°ã™ã‚‹: $cfg->param('User', 'sherzodR'); # é…列ã§å€¤ã‚’æ›´æ–°ã™ã‚‹: $cfg->param('Users', ['sherzodR', 'geek', 'merlyn']); # i
ã€expect】会話形å¼ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’自動実行ã™ã‚‹ã€‚(ライブラリ編) | Tricorn Tech Labs
メタルラックを組ã¿ç«‹ã¦ãŸã‚Šæ•´ç†æ•´é “ã«ã¯ã¾ã£ã¦ã—ã¾ã£ãŸykarinoã§ã™ã€‚ 今回ã¯å‰å›žã«å¼•ã続ã„ã¦ã€Expectçš„ãªãƒ©ã‚¤ãƒ–ラリを軽ã触ã£ã¦ã¿ã¾ã—ãŸã€‚ 実際ã«ã€Perlモジュールã®expect.pmを使用ã—ã¦ã€sftpã§ãƒ‡ãƒ¼ã‚¿ã‚’アップãƒãƒ¼ãƒ‰ã™ã‚‹ã‚µãƒ³ãƒ—ルソースを紹介ã—ã¾ã™ã€‚ ※事å‰ã«Expectモジュールã¨IO::Sttyモジュールをインストールã—ã¦ãã ã•ã„。 サンプルソースã€expect.pl】 #!/usr/bin/perl -w # Expectモジュールをèªã¿è¾¼ã‚€ã€‚ use Expect; # タイムアウト時間指定 $timeout = 5; # ユーザå指定 $user = 'ã€ãƒ¦ãƒ¼ã‚¶å】'; # パスワード指定 $pass = 'ã€ãƒ‘スワード】'; # ホストå指定 $host = 'ã€ãƒ›ã‚¹ãƒˆå】'; # アップãƒãƒ¼ãƒ‰å…ƒã®PATH $LocalPath = 'ã€ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰å…ƒã®PAT
Expect.pm
NAME Expect.pm - Expect for Perl VERSION 1.15 SYNOPSIS use Expect; # create an Expect object by spawning another process my $exp = Expect->spawn($command, @params) or die "Cannot spawn $command: $!\n"; # or by using an already opened filehandle my $exp = Expect->exp_init(\*FILEHANDLE); # if you prefer the OO mindset: my $exp = new Expect; $exp->raw_pty(1); $exp->spawn($command, @parameters) or die
SQL::Makerã§å‹•çš„ã« SQLを生æˆã™ã‚‹ - Articles Advent Calendar 2010 Hacker
ã©ã†ã‚‚ã“ã‚“ã«ã¡ã¯ã€‚hacker track ãŒã‚„ã‚‹æ°—ãªã•ã™ãŽã‚‹ã®ã§ã‚‚ã†ä¸€å›žã‹ãよ!ã¨ã„ã†ã‚ã‘㧠tokuhirom ã§ã™ã“ã‚“ã«ã¡ã¯ã€‚ã“ã‚“ã«ã¡ã¯ã€‚ ã•ã¦ã€æœ€è¿‘ã¤ãã£ãŸ SQL::Maker ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¤ã„ã¦ç´¹ä»‹ã—ã¾ã™ã€‚SQL::Maker ã¯ã€è¦ã¯ SQL::Abstract ã¿ãŸã„ãªã‚„ã¤ã§ã™ã€‚ã˜ã‚ƒã‚ãªã‚“㧠SQL::Abstract ã˜ã‚ƒãªã㦠SQL::Maker ãªã®ï¼Ÿã£ã¦ã“ã¨ã«ãªã‚‹ã‚ã‘ã§ã™ãŒã€ SQL::Abstract ã¯å®Ÿç¸¾ãŒã‚ã‚‹ã—ã€éžå¸¸ã«ä¾¿åˆ©ãªã‚“ã§ã™ãŒã€ã„ã‹ã‚“ã›ã‚“コードãŒã¾ã˜ã‚ˆã¿ã¥ã‚‰ã„ã£ã¦ã„ã†ã‹ã“れよむã®ç„¡ç†ã˜ã‚ƒã!!ã£ã¦ã“ã¨ã‚’ãŠã‚‚ã†ã®ã§ã€ã‚ãŸã‚‰ã—ãã¤ãã£ãŸã¨ã„ã†æ¬¡ç¬¬ã€‚ ã¾ãŸã€SQL::Maker 㯠method chain 㧠SELECT 文を構築ã™ã‚‹æ©Ÿèƒ½ã‚‚ã¤ã„ã¦ã¾ã™ã€‚ã‚らã¹ã‚“り。ã“ã‚“ãªã‹ã‚“ã˜â†“↓ my $sql = SQL::Maker::Select−>new
perl/perl-Expect - # cat /var/log/stereocat | tail -n3
目的 ã‚„ã‚‹ã“㨠: perl-expectを使ã£ãŸCisco機器æ“作ã®è‡ªå‹•åŒ– 自動ãƒã‚°ã‚¤ãƒ³ コマンド実行ã®è‡ªå‹•åŒ–(åŠã³ãƒã‚°å–å¾—) コマンド出力ã®åŠ å·¥ å‚ç…§ : Expect.pm - Expect for Perl - search.cpan.org Expectã¨ã‹Perl-Expectã«ã¤ã„ã¦ã®ã¾ã¨ã¾ã£ãŸè³‡æ–™ã£ã¦ã‚ã‚“ã¾ã‚Šãªã„ã‚“ã よãªã€‚ã¿ã‚“ãªãã‚Œãªã‚Šã«ä½¿ã£ã¦ãã†ãªã‚“ã ãŒã€‚ 準備 テスト用ダミー端末 : 手元ã«CiscoルータãŒã‚ã‚‹ã‹ã‚‰ãれ使ãˆã°ã„ã„ã‚“ã ã‘ã©ã€æ©Ÿæ¢°ãŒãªã„ã¨ãƒ†ã‚¹ãƒˆãŒã§ããªã„ã¨ã„ã†ã®ã‚‚é¢å€’ãªã®ã§ãƒ€ãƒŸãƒ¼ã‚’作ã£ã¦ã¿ãŸã€‚Cisco ã½ã„プãƒãƒ³ãƒ—トã¨ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’è¿”ã™ã ã‘ã®é©å½“ãªãƒ—ãƒã‚°ãƒ©ãƒ ……ãªã®ã ãŒã€ã“れ作るã®ãŒçµæ§‹é¢å€’ã ã£ãŸã€‚コマンドã®ãƒžãƒƒãƒãƒ³ã‚°ã¯é©å½“。ワードã”ã¨ã®ãƒžãƒƒãƒãƒ³ã‚°ã‚„りゃã„ã„ã‚“ã ã‘ã©ã€é¢å€’ã ã—。今回㯠login (login localã§ã¯ãªã)ã‹ã¤ã€Enable Sec
Perl 㧠Expect - ç†ç³»å¦ç”Ÿæ—¥è¨˜
対話的ãªãƒ—ãƒã‚°ãƒ©ãƒ を自動化ã™ã‚‹ã®ã« expect ãŒã‚ã‚‹ã¨ã„ã†è©±ã‚’å‰ã«åŒåƒšã‹ã‚‰èžã„ã¦ã„ã¾ã—ãŸãŒã€Perl ã§ã‚„ã‚‹ã¨ã©ã†ãªã‚‹ã‚“ã ã‚ã†ã¨ã‹æ€ã£ã¦ã‚‹ã¨ã€ãã®ã¾ã¾ Expect ã£ã¦ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã£ãŸã€‚ インタラクティブãªã‚³ãƒžãƒ³ãƒ‰ã®ã‚¯ã‚½é¢ç™½ããªã„例ã¨ã—ã¦ãƒ‘スワード変更ãŒã‚ã‚Šã¾ã™ãŒã€ãれを Expect.pm ã§æ›¸ãã¨ãŸã¶ã‚“ã“ã‚“ãªæ„Ÿã˜ã«ãªã‚‹ã‚“ã ã¨æ€ã„ã¾ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use Expect; my $cmd = 'passwd'; my $oldpass = 'aaaa'; my $newpass = 'bbbb'; my $expect = Expect->new; $expect->log_stdout(0); # hide stdout of 'passwd' $expect->log_file('./passwd.l
use Encode; - 今日ã®CPANモジュール（跡地）
宣ä¼ã¨æ³¨æ„書ã ã“ã®ã‚µã‚¤ãƒˆãŒå…ƒã«ãªã£ãŸCPANモジュールガイドã¨ã„ã†æœ¬ã‚’書ãã¾ã—ãŸã€‚ 本書ã§ã‚‚å–り上ã’ã¦ã„ã¾ã™ã€‚ ã“ã®ãƒšãƒ¼ã‚¸ã«ã‚ã‚‹ã“ã¨ã¯é–“é•ã„ã§ã¯ãªã„ã®ã§ã™ãŒã€ã€ŒUTF8フラグã€ã€ŒUnicodeã€ã€Œæ–‡å—列ã€ã€Œãƒã‚¤ãƒˆåˆ—ã€ã“ã®ã‚ãŸã‚Šã«ã¤ã„ã¦ã€ã‚ˆã‚Šæ£ç¢ºã§ç°¡æ½”ãªè§£èª¬ã‚’心ãŒã‘ã¾ã—ãŸã€‚ã¾ãŸã€å…¨ç·¨ã‚’通ã—ã¦æ—¥æœ¬èªžã‚’扱ã†æ–¹æ³•ã‚‚ãµã‚Œã¦ã„ã¾ã™ã€‚ 2008-06-11 use Encode; 日本語ï¼ãƒ•ãƒ©ã‚°å‘¨ã‚Šã§ã¤ã¾ã¥ãã®ã¯ã‚ã‚ŠãŒã¡ãªã®ã§è½ã¡è¾¼ã‚€å¿…è¦ã¯ãªã„ã§ã™ã€‚ã“ã®é€£è¼‰ã‚‚「ãã‚ãã‚日本語ã®è©±é¡Œã‹ãƒ»ãƒ»ã€ã¨æ€ã£ãŸã®ã§ã™ãŒã€ã¾ã¨ã‚ã‚‹ã®ãŒã‚ã‚“ã©ã†ã§ãƒ†ãƒ©æ”¾ç½®ã—ã¦ã¾ã—ãŸã€‚ ã™ã§ã«ãŸãã•ã‚“ã®è³‡æ–™ãŒå‡ºå›žã£ã¦ã„ã‚‹ã“ã¨ã‚’è¸ã¾ãˆé•ã†åˆ‡ã‚Šå£ã§ã¾ã¨ã‚ã¦ã¿ã¾ã™ï¼ˆå°‘々乱暴ãªéƒ¨åˆ†ã‚‚ã‚ã‚‹ã®ã§ã€å¾Œã§ ADVANCED も見ã¦ä¸‹ã•ã„）。 ã¾ãšã€ä»¥ä¸‹ã¯ãã‚Œãžã‚Œã ã„ãŸã„åŒã˜ã‚‚ã®ã¨è€ƒãˆã¦ã„ã„ã§ã™ã€‚ A： æ–‡å—列〠ユニコード（Unicode）〠utf8フ
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
IO::Ttyã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«
JIRA::REST
{{#tags}}- {{label}}
{{/tags}}