PERLã«ã¦2次元é…列ã®å‹•çš„ãªä½œæˆæ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„。
PERLã«ã¦2次元é…列ã®å‹•çš„ãªä½œæˆæ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„。
PERLã«ã¦2次元é…列ã®å‹•çš„ãªä½œæˆæ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„。
perl - å‹æ‰‹ã«æ·»å‰Š - ニコニコ動画ダウンãƒãƒ¼ãƒ€ãƒ¼ : 404 Blog Not Found
2007å¹´08月04æ—¥04:30 カテゴリLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - ニコニコ動画ダウンãƒãƒ¼ãƒ€ãƒ¼ スライドもãªã‚“ã¨ã‹ä¸ŠãŒã£ãŸã®ã§ã€ãƒªãƒãƒ“リもã‹ãã¦ä¹…々ã®æ·»å‰Šã€‚ Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvã¨ã‚³ãƒ¡ãƒ³ãƒˆxmlをダウンãƒãƒ¼ãƒ‰ã™ã‚‹ (Yusukebe::Tech) ã•ã‚“ã–ん既出ã‹ã‚‚ã—ã‚Œãªã„ã‘ã©Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvファイルã¨ã‚³ãƒ¡ãƒ³ãƒˆã®xmlファイルをダウンãƒãƒ¼ãƒ‰ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ト。ã¾ãšã¯çµæžœã‹ã‚‰ã€‚ #!/usr/bin/env perl # # $Id: nicoget.pl,v 0.1 2007/08/03 19:26:19 dankogai Exp dankogai $ # original: http://yusukebe.com/tech/archives/20070803/124356.html # use strict; use wa
幅優先探索ã§è¿·è·¯ã®æœ€çŸçµŒè·¯ã‚’探ã™
幅優先探索ã§è¿·è·¯ã®æœ€çŸçµŒè·¯ã‚’探㙠2010-01-14-4 [Algorithm][Programming] è¿·è·¯ã®æœ€çŸçµŒè·¯ã‚’探ã™ãƒ—ãƒã‚°ãƒ©ãƒ を作æˆã™ã‚‹ã¨ã„ã†å•é¡Œã«ã¤ã„ã¦ã€‚ - 人æç²å¾—作戦・４　試験å•é¡Œã»ã‹ (人生を書ãæ›ãˆã‚‹è€…ã™ã‚‰ã„ãŸã€‚) http://okajima.air-nifty.com/b/2010/01/post-abc6.html ã“ã‚Œã¯å˜ãªã‚‹å¹…優先ã§OKã§ã™ã。 足跡を記録ã—ã¦ã„ãã€ã™ã§ã«åˆ¥ã®åãŒé€šã£ãŸé“ã«ã¶ã¤ã‹ã‚‹ã‹ï¼ˆè¶³è·¡ã®æœ‰ç„¡ã§åˆ¤å®šï¼‰ã€è¡Œãæ¢ã¾ã‚Šã«åˆ°é”ã—ãŸã‚‰æžç‹©ã‚Šã€‚ 幅優先ãªã‚“ã ã‹ã‚‰ã“ã‚Œã§è¦‹ã¤ã‹ã‚‹ã®ãŒæœ€çŸçµŒè·¯ã€‚ 後ã‹ã‚‰ã®ã€Œæœ€çŸæ€§ã®ãƒã‚§ãƒƒã‚¯ã€ã¯ä¸è¦ã§ã™ã€‚ 「アルゴリズム知らãªã„ã¨ã§ããªã„ã€ã¨ã‹ä»¥å‰ã®å•é¡Œã§ã€æ£å¼ã«ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®åŸºç¤Žã‚’å¦ã‚“ã 人ãªã‚‰ã§ãã¦å½“ãŸã‚Šå‰ã®å•é¡Œã§ã™ã€‚ピンã¨æ¥ãªã„人ã¯ã€ãƒã‚¤ãƒ³ã‚¿ã‚ã‹ã‚‰ãªã„ã€å†å¸°ã‚ã‹ã‚‰ãªã„人ã¨åŒåˆ—ã‹ãªã‚。 ãƒãƒªãƒãƒªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã‹ã‚‰ã¯ä¸€ç·š
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - YAPC::Asia 2010 ã§ç™ºè¡¨ã—ã¦ã㟠#yapcasia
「Web API ã®ã™ã™ã‚ã€ã¯å‰²ã¨æ¦‚念的ãªè©±ã«çµ‚始ã—ã¦ã„ã¦ã€ã‚³ãƒ¼ãƒ‰ãƒ™ãƒ¼ã‚¹ã®ã‚‚ã£ã¨ã‚´ãƒªã£ã¨ã—ãŸè©±ã‚’期待ã—ã¦ã„ãŸäººã«ã¯ç”³ã—訳ã‚ã‚Šã¾ã›ã‚“ã§ã—ãŸã€‚ ãŒã€ã‚„ã¯ã‚Šæ—¢å˜ã® WAF を使ã£ã¦ã„ã‚‹ã ã‘ã ã¨ã‚ã‹ã‚‰ãªã„ã“ã¨ã£ã¦ã„ã†ã®ãŒå¤šã„ã¨æ€ã†ã®ã§ã€ã‚‚ã£ã¨ä¸‹ã®ãƒ¬ã‚¤ãƒ¤ãƒ¼ã«é™ã‚Šã¦ã€è‡ªåˆ†ã§å®Ÿè£…ã™ã‚‹ã®ã‚‚ã‚ã‚Šãªã‚“ã˜ã‚ƒãªã„ã®ã‹ãªã£ã¦æ€ã£ã¦ã„ã¾ã™ã€‚ 「let's database testingã€ã§ã¯ã€å‰²ã¨è¦‹è½ã¨ã•ã‚ŒãŒã¡ãªã‚“ã˜ã‚ƒãªã„ã‹ã¨ã„ã†ã€DB ã®ãƒ†ã‚¹ãƒˆæ–¹æ³•ã«ã¤ã„ã¦ã–ã£ãã°ã‚‰ã‚“ã«è©±ã—ã¾ã—ãŸã€‚ã¡ã‚‡ã£ã¨æœ¬è³ªçš„ã§ãªã„ã“ã¨ã‚‚書ã„ã¦ã‚ã‚Šã¾ã™ãŒã€é‡è¦ãªã®ã¯ã€ã€Œå®Ÿéš›ã«é‹ç”¨ã•ã‚Œã‚‹ç’°å¢ƒã«*ãªã‚‹ã¹ã*è¿‘ã„環境ã§ã€ãƒãƒ¼ã‚«ãƒ«ã§ãƒ†ã‚¹ãƒˆã‚’ã™ã‚‹ã€ã£ã¦ã“ã¨ã§ã™ã€‚DB テストã®ã»ã‚“ã®è¶³ãŒã‹ã‚Šã«ãªã‚Œã°å¹¸ã„ã§ã™ã€‚ BD テストã®è©±ã§ä½¿ã£ãŸã‚µãƒ³ãƒ—ルã®ãƒªãƒã‚¸ãƒˆãƒªã¯ä»¥ä¸‹ã«ãªã£ã¦ã„ã¾ã™ã€‚ xaicron's Mayoi at master - GitHub çµæ§‹ä¸é€”åŠ
PC】Plagger導入メモ(2010年版) | ã¯ãƒ¼ã¶ãŒãƒ¼ã§ã‚“
一定期間更新ãŒãªã„ãŸã‚広告を表示ã—ã¦ã„ã¾ã™
スレッドã§ã®å¤‰æ•°å…±æœ‰(Threadã¨ithreadsã®é•ã„) - My life is programming
Thread(Perl 5.6?)ãªã‚‰asyncã§ã‚¹ãƒ¬ãƒƒãƒ‰ã‚’実行ã™ã‚Œã°ã€åŒã˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒ¬ã‚シカル変数(myã§å®£è¨€ã—ãŸå¤‰æ•°)を共有ã§ããŸã€‚ プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Perl P.536ã®ä¾‹ãŒithreads(Perl 5.8)ã§ã¯å®Ÿè¡Œã§ããªã„ ithreadsã§ã¯threads::sharedを使ã£ã¦å¤‰æ•°ã‚’明示的ã«å…±æœ‰ã™ã‚‹å¿…è¦ãŒã‚る。 use threads::shared; 共有データã¨éžå…±æœ‰ãƒ‡ãƒ¼ã‚¿ iスレッド 㨠5.005型スレッドã®é–“ã®ï¼ˆã‚‚ã£ã¨ã„ãˆã°ã€ãã“ã‹ã‚‰å¤–れる多ãã®ã‚¹ãƒ¬ãƒƒãƒ‰ã‚·ã‚¹ãƒ†ãƒ ã«ã¨ã£ã¦ã®ï¼‰æœ€å¤§ã®é•ã„ã¯ã€ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ãƒ‡ãƒ¼ã‚¿ãŒå…±æœ‰ã•ã‚Œãªã„ã¨ã„ã†ç‚¹ã 。新ã—ã„perlスレッドãŒç”Ÿæˆã•ã‚Œã‚‹ã¨ãã€ç¾åœ¨ã®ã‚¹ãƒ¬ãƒƒãƒ‰ã«é–¢é€£ã™ã‚‹å…¨ã¦ã®ãƒ‡ãƒ¼ã‚¿ã¯æ–°ã—ã„スレッドã«ã‚³ãƒ”ーã•ã‚Œã‚‹ã€‚続ã„ã¦ãã®ãƒ‡ãƒ¼ã‚¿ã¯æ–°ã—ã„スレッド内ã§ãƒ—ライベートãªã‚‚ã®ã¨ãªã‚‹ï¼ã“ã‚Œã¯UNIXã®ãƒ—ãƒã‚»ã‚¹ãŒforkã™ã‚‹ã¨ãã«èµ·ãã‚‹ã“ã¨ã¨ä¼¼ã¦ã„る。ãŸã
HOMMEZå…¬å¼ã‚ªãƒ³ãƒ©ã‚¤ãƒ³ã‚·ãƒ§ãƒƒãƒ—
HOMMEZ(オムズ)ã¯ç”·æ€§ã®å¿ƒã¨èº«ä½“ã®å¥åº·ã‚’支æ´ã—ã€ä¸€äººã§ã‚‚多ãã®äººãŒå供を得る幸ã›ã‚„男性ã¨ã—ã¦ã®å–œã³ã‚’享å—ã§ãる社会ã®å®Ÿç¾ã‚’目指ã—ã¦ã„ã¾ã™ã€‚男性ã®å¦Šæ´»ã€æ´»åŠ›ã«ã¾ã¤ã‚ã‚‹æƒ…å ±ã‚„å•†å“ã®åŠ›ã§æ€§ã‚„妊活ã«æ‚©ã‚€ç”·æ€§ãŒåŠ¹çŽ‡çš„ã«ç´å¾—æ„Ÿã‚’æŒã£ã¦æ´»å‹•ã§ãる機会を創出ã—ã¾ã™ã€‚
threads - インタプリタスレッドã®ä½¿ç”¨ã‚’å¯èƒ½ã«ã™ã‚‹Perlæ‹¡å¼µ - perldoc.jp
åå‰Â¶ threads - インタプリタスレッドã®ä½¿ç”¨ã‚’å¯èƒ½ã«ã™ã‚‹Perlæ‹¡å¼µ 概è¦Â¶ use threads; sub start_thread { print "Thread started\n"; } my $thread = threads->create("start_thread","argument"); my $thread2 = $thread->create(sub { print "I am a thread"},"argument"); my $thread3 = async { foreach (@files) { ... } }; $thread->join(); $thread->detach(); $thread = threads->self(); $thread = threads->object( $tid ); $thread->tid(); thr
Perlã®ithreads（iスレッド）ã«é–¢ã™ã‚‹ãƒ¡ãƒ¢
Perlã®ithreadsã«ã¤ã„㦠ithreadsã«é–¢ã™ã‚‹æ—¥æœ¬èªžã®ã‚µã‚¤ãƒˆãŒã‚ã¾ã‚Šãªã„ã®ã§ã€ä½•ã‹é©å½“ã«ãƒ¡ãƒ¢ã£ã¦ãŠãã¾ã™ã€‚ 基本 サンプル ç•™æ„点（é‡è¦ãªåŸºæœ¬äº‹é …） ã§ãã‚‹ã ã‘最新ã®Perlã§ä½¿ãŠã† スレッドã®ã‚³ãƒ³ãƒ†ã‚スト スレッドã¨å€¤ オブジェクトã®å…±æœ‰ オブジェクトã¯äºŒåº¦ï¼ˆä»¥ä¸Šï¼‰æ»ã¬ Windows上ã§ã®detach 特別ãªã‚µãƒ–ルーãƒãƒ³CLONEã«ã¤ã„㦠マルãƒã‚¹ãƒ¬ãƒƒãƒ‰ã«ãŠã‘ã‚‹rand()ã®ä½¿ç”¨ スレッドã«ãŠã‘ã‚‹ã‚·ã‚°ãƒŠãƒ«å‡¦ç† é–¢é€£æƒ…å ± モジュール ãã®ä»– forkã«ã‚ˆã‚‹threadsã®ã‚¨ãƒŸãƒ¥ãƒ¬ãƒ¼ãƒˆ cond_timedwait ãªãœã‹ã‚¹ãƒ¬ãƒƒãƒ‰ã®ç”Ÿæˆã«æ™‚é–“ãŒã‹ã‹ã‚‹æ™‚ãŒã‚ã‚‹ã®ã§ã™ãŒâ€¦ Thread::Queueã«ã¤ã„㦠CLONEサブルーãƒãƒ³ マルãƒã‚¹ãƒ¬ãƒƒãƒ‰ã«ãŠã‘ã‚‹å†ç¾æ€§ã®ã‚る乱数列 Thread::Tieã‚’WIN32 with activeperlã§ä½¿ã† スレッドãŒç”Ÿãã¦ã„ã‚‹ã‹ã©ã†ã‹ã®ãƒã‚§
Perlã§ãƒžãƒ«ãƒã‚¹ãƒ¬ãƒƒãƒ‰
2003å¹´3月15æ—¥ (土) - Perl ithreads 休日ãªã®ã§ã€ Perl 5.8.0ã®ãƒžãƒ«ãƒã‚¹ãƒ¬ãƒƒãƒ‰ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã§éŠã¶ã€‚ use v5.8.0; use strict; use threads; my $thread1 = threads->new(\&main, "One"); my $thread2 = threads->new(\&main, "Two"); $thread1->join; $thread2->join; print "done.\n"; sub main { my ($name) = @_; for (1..10) { print "I am $name ($_)\n"; threads->yield(); } } 以下ãŒå®Ÿè¡Œä¾‹ã€‚ I am One (1) I am One (2) I am Two (1) I am One (3) I am Two
bashã®getoptsã«ã¤ã„㦠- ã‚‚ã¡ãŠã®WEBアプリ開発日記
bashã§ãƒãƒƒãƒå‡¦ç†ã‚’書ãéš›ã«ä¾¿åˆ©ãªã®ãŒgetopts 例ãˆã° batch.sh -f aaa.txt -d 20080829 ã£ã¦æ„Ÿã˜ã§å¼•æ•°ã‚’処ç†ã—ãŸã„å ´åˆ #!/bin/bash OPTIONS="f:d:" while getopts $OPTIONS opt $@ do case $opt in "f") filename=$OPTARG ;; "d") date=$OPTARG ;; *) exit -1;; esac done ã£ã¦æ„Ÿã˜ã§å‡¦ç†ã§ãã‚‹ 関数ã«å¼•æ•°ã‚’渡ã™å½¢ã§é…列内ã«ã‚る値ã«å¯¾ã—ã¦å‡¦ç†ã‚’è¡Œã†ã‚µãƒ³ãƒ—ルを作ã£ã¦ã¿ãŸ test1.sh #!/bin/bash OPTIONS="f:i:" aryItems=(a.txt b.jpg c.pdf) aryItemCD=(100 200 300) main() { unset filename unset image_cd wh
ãºã‚‹ã‚Šã‚ã‚‚ / 簡易オプションã®å–å¾— (module)Getopt-Std
簡易オプションã®å–å¾— (module)Getopt-Std back Perl::Getopt・Getoptions 標準モジュール #usage #perl getopt.pl -o test -D test2 -I test3 #output #test,test2,test3 use Getopt::Std; getopt('oDI'); print "$opt_o,$opt_D,$opt_I","\n"; 引数をå–れるタイプ。後ã‚ã«ã€Œï¼šã€ãŒã¤ã„ã¦ã„ãªã„ã®ãŒãƒ•ãƒ©ã‚°åž‹ã€‚ #usage #perl getopt.pl -a -b test2 -c test3 -d #output #1,test2,test3,1 getopts('ab:c:d'); print "$opt_a,$opt_b,$opt_c,$opt_d","\n"; ãƒãƒƒã‚·ãƒ¥ã§å—ã‘å–ã‚‹ã«ã¯ getopt('abcde',
Perlメモ
複数ã®ãƒ—ãƒã‚»ã‚¹ã§ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—，ãã®ã†ã¡ã® 1ã¤ãŒãƒãƒƒã‚¯ã‚’解除ã—ãŸã“ã¨ã«ã‚ˆã‚Šï¼Œåˆ¥ã®ãƒ—ãƒã‚»ã‚¹ãŒãƒãƒƒã‚¯ã—ãŸã«ã‚‚ã‹ ã‹ã‚らãšï¼Œå…ˆã»ã©ãƒãƒƒã‚¯çŠ¶æ…‹ãŒç•°å¸¸ã§ã‚ã‚‹ã¨åˆ¤æ–ã—ãŸãƒ—ãƒã‚»ã‚¹ã«ã‚ˆã£ã¦ã“ã®æ£å¸¸ãªãƒãƒƒ クを解除ã•ã‚Œã¦ã—ã¾ã†å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™ï¼Ž ã“ã®æ–¹æ³•ã®å•é¡Œç‚¹ã¯ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’解除ã™ã‚‹æ“作ãŒæ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’ã‚‚ 解除ã§ãã¦ã—ã¾ã†ã“ã¨ã«ã‚ã‚Šã¾ã™ï¼Žé€†ã«è¨€ãˆã°ï¼Œç•°å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’解除ã™ã‚‹æ“作㫠よã£ã¦æ£å¸¸ãªãƒãƒƒã‚¯çŠ¶æ…‹ã‚’解除ã§ããªã‘ã‚Œã°å•é¡Œãªã„ã‚ã‘ã§ã™ï¼Žãã®ãŸã‚ã«ã¯ã©ã†ã™ ã‚Œã°ã‚ˆã„ã®ã‹ï¼Ÿ ç”ãˆã¯ãƒãƒƒã‚¯çŠ¶æ…‹ãŒå¸¸ã«å¤‰åŒ–ã—ã¦ã„ã‘㰠よã„ã¨ã„ã†ã“ã¨ã§ã™ï¼Žãã—ã¦ï¼Œã“れを実ç¾ã™ã‚‹ã®ã«éƒ½åˆãŒã‚ˆã„ã®ãŒ rename ã«ã‚ˆã‚‹æ–¹æ³•ã«ãªã‚Šã¾ã™ï¼Ž 最åˆã®ã‚¹ã‚¯ãƒªãƒ—トã§èª¬æ˜Žã—ã¾ã™ã¨ï¼Œãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ«ãŒ lockfile ã¨ã„ㆠåå‰ã®ã¨ããŒãƒãƒƒã‚¯ãŒè§£é™¤ã•ã‚Œã¦ã„る状態ã§ï¼Œlockfile987654321 ã®ã‚ˆã† ã«å¾Œã‚ã«
Perlæ£è¦è¡¨ç¾é›‘技
ã“ã®ãƒšãƒ¼ã‚¸ã¯ Perl5.6 を対象ã¨ã—ã¦ã„ã¾ã™ï¼Ž perl スクリプト㯠EUC-JP ã§æ›¸ã‹ã‚Œã‚‹ã“ã¨ã‚’想定ã—ã¦ã„ã¾ã™ï¼Ž ã“ã®ãƒšãƒ¼ã‚¸ã¯ æ£è¦è¡¨ç¾ãƒ¡ãƒ¼ãƒªãƒ³ã‚°ãƒªã‚¹ãƒˆ ã‚’å‚考ã«ï¼Œç§ãŒç‹¬è‡ªã«ãƒ¡ãƒ¢ã¨ã—ã¦ã¾ã¨ã‚ãŸã‚‚ã®ã§ã™ï¼Ž ã“ã®ãƒšãƒ¼ã‚¸ã®æ£è¦è¡¨ç¾ã‚„スクリプトã«ã¤ã„ã¦ã®è©³ã—ã„説明， ã‚ã‹ã‚Šã‚„ã™ã„説明ã¯ãŠãらãã§ãã¾ã›ã‚“． ã“ã®ãƒšãƒ¼ã‚¸ã«æ›¸ã‹ã‚Œã¦ã„るスクリプトã¯ï¼Œ 個人ã®è²¬ä»»ã«ãŠã„ã¦å®Ÿè¡Œã—ã¦ãã ã•ã„． ã“ã®ãƒšãƒ¼ã‚¸ã«æ›¸ã‹ã‚Œã¦ã„ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã® åˆ©ç”¨ãƒ»æ”¹é€ ã¯è‡ªç”± ã§ã™ï¼Ž ãã®éš›ã¯ã©ã“ã‹ã«ã“ã®ãƒšãƒ¼ã‚¸ã® URI( http://www.din.or.jp/~ohzaki/regex.htm )ã‚’å‚考ã¨ã—ã¦è¨˜è¿°ã—ã¦ã„ãŸã ã‘ã‚Œã°å¹¸ã„ã§ã™(ä»»æ„)． ã”æ„見・ã”感想・ã”è¦æœ›ãªã©ã¯ ã«ãŠé¡˜ã„ã—ã¾ã™ï¼Žã“ã†æ›¸ã„ãŸæ–¹ãŒã„ã„， å‹•ã‹ã‚“，ã‚ã‹ã‚‰ã‚“，ãƒã‚°ã£ã¦ã‚‹ï¼Œã“れ書ã‘，ãªã©ãªã©ãŠå¾…ã¡ã—ã¦ã„ã¾ã™ï¼Ž ã“ã®ãƒšãƒ¼ã‚¸ã¸ã® リンクã¯è‡ªç”± ã«å¼µã£ã¦ã
Cepheid [Blog] Perl é…列ã‹ã‚‰æŒ‡å®šã—ãŸå€¤ã‚’削除ã™ã‚‹ã‚µãƒ–ルーãƒãƒ³
é…列ã‹ã‚‰ç‰¹å®šã®å€¤ã‚’削除ã—ãŸã„å ´åˆã«ä½¿ç”¨ã™ã‚‹ã‚µãƒ–ルーãƒãƒ³ã€‚引数ã¯ã€é…列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¨å‰Šé™¤ã—ãŸã„値を指定ã™ã‚‹ã€‚ 注æ„点ã¨ã—ã¦ã‚µãƒ–ルーãƒãƒ³ã¸ã®å¼•æ•°ã¯ã€é…列ã¨ã‚¹ã‚«ãƒ©ãƒ¼å€¤ã‚’åŒæ™‚ã«æ¸¡ã›ãªã„ãŸã‚é…列を一旦リファレンス（スカラー値）ã«ã—ã¦ã‚„ã‚‹å¿…è¦ãŒã‚る。 # 指定ã—ãŸå€¤ã‚’é…列ã‹ã‚‰å‰Šé™¤ (é…列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€å‰Šé™¤ã™ã‚‹å€¤) @output = &delArray(\@input, $value); sub delArray { my($array,$v) = @_; my @new = (); foreach (@{$array}) { next if($v eq $_); push(@new,$_); } return @new; }
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
PHP/CGI検索 夢幻
PSGI/Plackã¯æœ¬è³ªãƒ»æœ¬å‘½ãƒ»æœ¬æµãƒ»æœ¬æ°—ã§ã—㟠- Eorzea Lounge
Re: CPAN failed to install XML::Parser module
[Perl]ç„¡é™ãƒ«ãƒ¼ãƒ—を書ã最も簡å˜ãªæ–¹æ³•ï¼Ÿ
é…列ã‹ã‚‰ä¸€æ„ãªè¦ç´ ã‚’å–り出㙠ã€Perl CGIプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°å…¥é–€ã€‘
{{#tags}}- {{label}}
{{/tags}}