Perlゼミ(サンプルコードPerl入門)
Perlå…¥å¦å¼ å…¨6回ã®Perl入門講座。æ±äº¬ã€å¤§é˜ªã€æ²–縄ã€æœå¹Œã§é–‹å‚¬ã€‚(æ±äº¬ã¯4月ã¨10月スタートã€ãれ以外ã¯5月スタート) YAPC::Japan Perlを軸ã¨ã—ãŸITã«é–¢ã‚ã‚‹å…¨ã¦ã®äººã®ãŸã‚ã®ã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€‚ æ±äº¬ å‰ç¥¥å¯º.pm 五åç”°.pm 大阪 ãªã«ã‚Perl 沖縄 沖縄.pm
ゆーã™ã‘ã¹ãƒ¼æ—¥è¨˜
サã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ーマーケットã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚彼女ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ーã‚ングã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’一本å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ーマーケットã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’出ãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚時刻ã¯åˆå¾Œ5時ã«ãªã‚‹ã€‚時計ã‹ã‚‰ç›®ã‚’上ã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„様åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’作るã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒå分足りã¦ã„ãªã„らã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ーマーケットã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚サã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªã点検ã—ã¦ã„ã£ãŸã€‚欲ã—ã„食æãŒã‚ã‚‹ã¨ã€2秒間程度ãれらをå‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„もやら豚肉やらを迷ã†ã“ã¨ãªã僕ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã 。最後ã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„る棚ã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
ç¾ä»£çš„ãªPerlã®è¨˜è¿°æ–¹æ³•ä¸€è¦§ - Perl入門ゼミ
Perl › here Perl5.8以é™ã«ãŠã‘る標準的ãªPerlã®æ›¸ã方を解説ã—ã¾ã™ã€‚ インターãƒãƒƒãƒˆã§æ¤œç´¢ã™ã‚‹ã¨Perl4ã®ã“ã‚ã®å¤ã„記述ãŒãŸãã•ã‚“ã‚ã‚Šã¾ã™ã€‚ã¾ãŸæ›¸ç±ãªã©ã®å¤šãã‚‚Perl4ã®è¨˜æ³•ã§æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚Perl4ã®è¨˜æ³•ã¯è¤‡é›‘ã«ãªã‚Šã‚„ã™ãé–“é•ã„を生ã¿ã‚„ã™ã„ã®ã§ã“ã‚Œã‹ã‚‰Perlを書ã人ã¯Perl5ã®ç¾ä»£çš„ãªè¨˜æ³•ã§è¨˜è¿°ã™ã‚‹ã“ã¨ã‚’å¼·ããŠå‹§ã‚ã—ã¾ã™ã€‚ strictプラグマã¨warningsプラグマ (å¿…é ˆ) strictプラグマã¨warningsプラグマを有効ã«ã—ã¾ã™ã€‚ use strict; use warnings; use strict;ã¨use warnings;ã®ï¼’è¡Œã¯ã‚¹ã‚¯ãƒªãƒ—トã®æœ€åˆã«å¿…ãšè¨˜è¿°ã—ã¦ãã ã•ã„。ã“れらã¯Perlã®æ–‡æ³•ãƒã‚§ãƒƒã‚¯ã‚’厳ã—ãã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚é¢å€’ã ã¨ã„ã†è»½ã„æ°—æŒã¡ã§ã“れを記述ã—ãªã„ã¨å¾Œã€…本当ã«é¢å€’ãªã“ã¨ã«ãªã‚Šã¾ã™ã€‚ use strict;ã¨use wa
Perl ã§åŠè§’カナã¨å…¨è§’カナã®å¤‰æ›ã‚’ã™ã‚‹ : Serendip – Webデザイン・プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
Perl を使ã£ã¦åŠè§’カタカナã¨å…¨è§’カタカナã®å¤‰æ›ã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トをã€æ¨™æº–モジュール㮠Encode.pm 㨠Unicode::Japanese 㨠Lingua::JA::Regular::Unicode を使ã£ã¦ãã‚Œãžã‚Œå¤‰æ›ã‚¹ã‚¯ãƒªãƒ—トを書ã„ã¦ã¿ã‚‹ã€‚ ã¾ãšã¯ã€æ¨™æº–モジュール㮠Encode.pm を使ã£ãŸå ´åˆã€‚ 変æ›ã‚’æ–‡å—コード euc-jp ã§è¡Œã†ãŸã‚ã«ã€å¤‰æ›å‰ã¨å¤‰æ›å¾Œã« utf-8 ã¨ã®æ–‡å—コード変æ›ã‚’è¡Œã†å¿…è¦ãŒã‚ã£ãŸã€‚ use Encode; use Encode::JP::H2Z; my $str_z = "Hello ï¼·ï½ï½’ｌｄ.全角カタカナデス。 12345　６７８９ï¼"; my $str_h = "Hello ï¼·ï½ï½’ｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９ï¼"; # 全角カナ→åŠè§’カナ Encode::from_to($str_z, "utf-8", "euc-j
perl - ã§å…¨è§’åŠè§’変æ›ã‚’モダンã«è¡Œã† : 404 Blog Not Found
2009å¹´06月06æ—¥01:15 カテゴリLightweight Languages perl - ã§å…¨è§’åŠè§’変æ›ã‚’モダンã«è¡Œã† 今ãªã‚‰Lingua::JA::Regular::UnicodeãŒç¬¬ä¸€é¸æŠžè‚¢ã§ã™ãŒã€ã“ã†ã„ã†æ–¹æ³•ã‚‚ã‚ã‚‹ã¨ã„ã†ã“ã¨ã§ã€‚ Perl ã§åŠè§’カナã¨å…¨è§’カナã®å¤‰æ›ã‚’ã™ã‚‹ : Serendip - Webデザイン・プãƒã‚°ãƒ©ãƒŸãƒ³ã‚° Perl を使ã£ã¦åŠè§’カタカナã¨å…¨è§’カタカナã®å¤‰æ›ã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トをã€æ¨™æº–モジュール㮠Encode.pm 㨠Unicode::Japanese 㨠Lingua::JA::Regular::Unicode を使ã£ã¦ãã‚Œãžã‚Œå¤‰æ›ã‚¹ã‚¯ãƒªãƒ—トを書ã„ã¦ã¿ã‚‹ã€‚ CORE Moduleã®ã¿ã‚’使ã†ã¨ã„ã†ç¸›ã‚Šã‚’ã‹ã‘ã¦ã„ã¾ã™ã€‚ #!/usr/bin/perl use 5.008001; use strict; use warnings; use utf8; us
qr演算å - æ£è¦è¡¨ç¾ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’作æˆã™ã‚‹ - Perl入門ゼミ
Perl › 演算å › here 「qr演算åã€ã§æ£è¦è¡¨ç¾ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’作æˆã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚qr演算åを使ã†ã¨ã€æ£è¦è¡¨ç¾ã‚’リファレンスã¨ã—ã¦å¤‰æ•°ã«ä¿å˜ã§ãã¾ã™ã€‚æ£è¦è¡¨ç¾ã®ã‚ªãƒ—ションもå«ã‚ã¦ä¿å˜ã§ãã¾ã™ã€‚æ£è¦è¡¨ç¾ãŒã€ã‚³ãƒ³ãƒ‘イルã•ã‚Œã‚‹ã®ã§ã€ç¹°ã‚Šè¿”ã—パターンマッãƒã‚’è¡Œã†å ´åˆã€é«˜é€Ÿã«å‹•ä½œã—ã¾ã™ã€‚ # æ£è¦è¡¨ç¾ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ my $regex = qr/\d+/sm; パターンマッãƒã‚’è¡Œã†ã¨ãã¯//ã®ä¸ã«å…¥ã‚Œã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã—ã€ãã®ã¾ã¾ä½¿ç”¨ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚//ã®ä¸ã«ã„ã‚ŒãŸã»ã†ãŒå°‘ã—見やã™ã¨æ€ã„ã¾ã™ã€‚ # //ã®ä¸ã§ä½¿ç”¨ if ($str =~ /$regex/) { ... } # ãã®ã¾ã¾ä½¿ç”¨ if ($str =~ $regex) { ... } リファレンスã£ã¦ä½•? リファレンスã«ã¤ã„ã¦ã¯ä»¥ä¸‹ã®è¨˜äº‹ã§è©³ã—ã解説ã—ã¦ã„ã¾ã™ã€‚ リファレンスã®ä½¿ã„方をマスターã—よㆠサンプル æ£è¦è¡¨ç¾
ファイルãƒãƒ³ãƒ‰ãƒ«ã¨å‡ºåŠ› - 2部 Perl言語仕様 - [SMART]
ファイルテスト演算åã®ä½¿ã„æ–¹ $file = "/home/httpd/html/index.html"; # ファイルãŒå˜åœ¨ã™ã‚‹ã‹ç¢ºèª if ( -e $file ){ .... } パイプ UNIX ç³» OS 全般やã€Windows NT ã¨ã„ã£ãŸã‚µãƒ¼ãƒ OSã«ã¯ã€ãƒ‘イプãŒç”¨æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚パイプã¯ã€ãƒ—ãƒã‚»ã‚¹é–“ã§é€šä¿¡ã™ã‚‹ãŸã‚ã«ç”¨æ„ã•ã‚ŒãŸæ©Ÿæ§‹ã§ã€æ¨™æº–出力ã¨æ¨™æº–入力を経由ã—ã¦ãƒ‡ãƒ¼ã‚¿ã‚’å—ã‘渡ã—ã™ã‚‹ãŸã‚ã®ã‚‚ã®ã§ã™ã€‚ã“ã‚Œã«ã‚ˆã£ã¦ã€ä¸€æ™‚ファイルãªã©ã‚’経由ã›ãšã«ã€ãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã«ãƒ—ãƒã‚°ãƒ©ãƒ ãŒæ¨™æº–出力ã«å‡ºåŠ›ã—ãŸçµæžœã‚’ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ¨™æº–入力ã«æ¸¡ã™ã“ã¨ãŒã§ãã¾ã™ã€‚ open ã§ãƒ‘ã‚¤ãƒ—å‡¦ç† ä»¥ä¸‹ã§ã¯ Perl ã‹ã‚‰ãƒ‘イプを使ã£ãŸä¾‹ã‚’紹介ã—ã¾ã™ã€‚ファイルåã®å…ˆé ã« | を付ã‘ã‚‹ã¨ã€ãã®ãƒ•ã‚¡ã‚¤ãƒ«åをコマンドã¨ã—ã¦è§£é‡ˆã—ã€ãã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã¸å‡ºåŠ›ã—ã¾ã™ã€‚ sendmail を使ã£ã¦ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ä¾‹ã§ã™ã€‚ open
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
Mac OSXã§Perlã®ç’°å¢ƒã‚’æ•´ãˆã‚‹ | Heart Beat
*2010/08/12追記 ã¾ãšã¯Macportsã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ« Perlã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã«ã‚‚Macportsを使ã†ã¨/opt/local以下ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãれるã®ã§ã‚ªã‚¹ã‚¹ãƒ¡ã—ã¾ã™ã€‚ Macã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®Perlã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚’汚ã•ãªã„ã§ã™ã—ã€ã‚¢ãƒ³ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã‚„アップグレードãªã©ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã‚‚ã§ãるパッケージ管ç†ãƒ„ールã§ã™ã€‚ MacPortsã¨ã¯ï¼Ÿ MacPorts(æ—§åDarwinPorts)ã¨ã„ã†ã®ã¯ãƒ‘ッケージ管ç†ãƒ„ールã§ã€UNIXå‘ã‘ã®ã‚ªãƒ¼ãƒ—ンソースソフトウェアをダウンãƒãƒ¼ãƒ‰ã€configureã€makeã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã€ãã®ãƒ‘ッケージ使用ã™ã‚‹ã®ã«å¿…è¦ãªä»–ã®ãƒ‘ッケージも一緒ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãªã©é¢å€’ãªä½œæ¥ã‚’ã™ã¹ã¦ä»£ã‚ã‚Šã«ã‚„ã£ã¦ãれる便利ãªã‚½ãƒ•ãƒˆã€‚ source: Macports – Macã®æ‰‹æ›¸ã説明書 事å‰ã«XcodeToolsã€X11ã‚’Macã«ä»˜å±žã—ã¦ã„るインストー
Perl&CGI最強講座 [smart]
indexã¯ã€ç¬¬1引数STRã®å…ˆé ã‹ã‚‰ç¬¬2引数SUBSTRãŒæœ€åˆã«è¦‹ã¤ã‹ã£ãŸä½ç½®ã‚’è¿”ã—ã¾ã™ã€‚ 第3引数 POSITIONã§æ¤œç´¢ã™ã‚‹ä½ç½®ã‚’指定ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚第3引数POSITIONã«ã¯æœ€åˆã®æ–‡å—ã‚’ 0 ã¨ã—ã¦æŒ‡å®šã—ã¾ã™ã€‚ è¿”å´å€¤ã¯ 0ã€ã‚‚ã—ãã¯å¤‰æ•°$[ã«è¨å®šã—ãŸå€¤ã§ã™ã€‚SURSTRãŒè¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸå ´åˆã¯ -1 ã‚’è¿”ã—ã¾ã™ã€‚ indexã®ä½¿ã„æ–¹ $str = "How you always hurt the one you love."; print index($str,'you'); > 4
![Perl&CGI最強講座 [smart]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}