2006-04-01ãã1ã¶æéã®è¨äºä¸è¦§
ãã®ç·´ç¿åé¡ã®åé ãå¼ç¨ããã¨ã ãã®ç« ã®ç·´ç¿åé¡ã¯ãæ¬æ¸ã®ä¸ã§æãé£æåº¦ãããããªã£ã¦ãã¾ãã ã¨ãªã£ã¦ããããªãè ããã¾ããã§ããããã®ãããã¿ãã®ã§ååãããã®äºå®ã§;)ã 1. ç¥ æ£è¦è¡¨ç¾ãæ¸ãã¨ããåé¡ãå顿ããã¾ãã«é·ã£ãããã®ã§ãâ¦
æ¬æ¥ã¯ã¾ã ãã¦ãã¨æ§ãæã£ã¦ãªãããã§ãããæ£è¦è¡¨ç¾ã¯è©³èª¬æ£è¦è¡¨ç¾ã§ããã¨ãã£ãã®ã§ã䏿°ã«ãããããåãã¦ã®Perlã®p122ã«æ£è¦è¡¨ç¾ã®ãã¹ãç¨ã¹ã¯ãªãããç¨æããã¦ãã¾ããåé¡1ã2ã3ã§ä½¿ãã®ã§ä»¥ä¸ã«å¼ç¨ã #!/usr/bin/env perl -w while { chomâ¦
ä½ãè¨ããã«ç·´ç¿åé¡ãã ã£ã¦ãããããã ãããããããå¤ãæãããªã£ã¦ããã 1. åºåãéã«ãªãcatã£ã½ãããã°ã©ã tacãä½ã ã¨ãããã use strict; my @lines = <>; print reverse @lines;ã¨æ¸ãã¦ã¿ããã©ãããã§ãçæ¸©ãã£ãã use strict; printâ¦
ã¿ãªããã¯ã試ãã«ãªãããããããããã試ãããããããããã¯ãã¯ã¦ãªãã¤ã¢ãªã¼ã®æ°ç®¡çãã¼ã¸ã®å ¬éã«ã¤ã㦠ãåç §ãç°¡åã«ãã¬ãã¥ã¼ã§ããæ©è½ãããªã便å©ã ãªã¼ã以åã¾ã§ã¯ãã¬ãã¥ã¼ãã¿ã³é£æãã¦ããããJavaScriptã°ãã°ãã§ãã£ãããããâ¦
æ¥ã¯ããããããã ããå¯è½ã¡ã ã£ã¦ãããã(ãããã
ææ¥ãåç é å±ã®åèã«ããããã«Cè¨èªã®ãã¹ãããããæè¿ã¯LightWeightãªè¨èªã°ããã§éãã§ããã®ã§ããã¤ã¯å¤§å¤ã ããstdio.hã§ä½¿ãã颿°ãæãèªã¿ãããããªãè¨æ¶ããããã ã£ããã*1ãããããªãã ãä¸çªä½¿ã£ãè¨èªã¯Cãªæ°ãããã®ã§ããã£ã¨æâ¦
Perlã§ã¡ãã£ã¨ã ãæ£è¦è¡¨ç¾ã使ã£ã¦ã¿ã¾ããã $_ = "higurashi no NAku koro ni"; if (/NA/) { print "$`<span style=\"color:red;\">$&</span>$'\n"; }ã¡ããã¨NAã赤ããªãã¾ããã²ãããã®ãªãé ã«ã¯æãã¦å¤ã«ã¯è¦ãã¾ãããã²ããããªæãæ£è¦è¡¨ç¾èãã¾ãããã®ãã¡ãåãã¦ã®Perlä½è :â¦
ããã¯ãããªã«ãé£ãããªãã£ãã®ã§ã軽ãã¾ã¨ããé åã§ã¯ã[](ãã©ãã±ãã)ã使ãã¾ãããããã·ã¥ã§ã¯{}(ãã¬ã¼ã¹)ã使ãã # é å $sos[0] = 'haruhi; # ããã·ã¥ $sos{'dancho'} = 'haruhi;ããã·ã¥å ¨ä½ã表ãã®ã«ã¯ã%(ãã¼ã»ã³ãè¨å·)ã使ãããã¾â¦
WEB+DB PRESS Vol.32ä½è : WEB+DB PRESSç·¨éé¨åºç社/ã¡ã¼ã«ã¼: æè¡è©è«ç¤¾çºå£²æ¥: 2006/04/25ã¡ãã£ã¢: åè¡æ¬ ã¯ãªãã¯: 8åãã®ååãå«ãããã° (33ä»¶) ãè¦ãLarry Wallã®ã¤ã³ã¿ãã¥ã¼ãããã¨ããã®ã§è²·ã£ã¦ãããããããçããã¾ã ãããã¾ãèªãã§â¦
ãããã¾ã ã¾ã ç°¡åã 5-1 ååãå ¥åãã¦ããã«å¯¾å¿ããå§ãåºåãã use strict; my %nameset = ( "akari" => "mizunashi", "aika" => "granzchesta", "alice" => "carroll" ); print "input a name: "; chomp(my $name = <STDIN>); print "family name is $names</stdin>â¦
ãã£ãã«ç·´ç¿åé¡ã¾ã§ã 4-2 & 4-3 弿°ãªã¹ãã«å«ã¾ããæ°å¤ã®åè¨ãè¿ããµãã«ã¼ãã³ãä½ã åç´ã«ã use strict; #åé¡ã®ãµãã«ã¼ãã³ sub total{ my @nums = @_; my $sum = 0; foreach (@nums) { $sum += $_; } $sum; } # 4-1 my @fred = qw{1 3 5 7 9};â¦
ãµãã«ã¼ãã³ã®ç« ããã£ãºãã«èªãã ãã¾ãããããã«ãµãã«ã¼ãã³ãæ¸ãã¦ã¿ãã sub adder { my ($x, $y) = @_; $x + $y } print &adder(1, 2) . "\n";軽ã¼ãã¾ã¨ãã¦ãããã subã§ãµãã«ã¼ãã³ãå®ç¾©ãã ãµãã«ã¼ãã³åã«&ãä»ããã¨å¼ã³åºãã 弿°ã¯(â¦
ããã¶ãPerlã£ã½ãã«ããªããã®ã§ãã¼ã¹ãä¸ãã¦è¡ãããã¨ããã 3-1 æ¨æºå ¥åããèªã¿è¾¼ãã æååã®ãªã¹ããéãã表示 ãããããã¤ããããã¦æ¸ãã¨ãããªæãã @lines = <STDIN>; @lines = reverse @lines; print @lines;è§£çã®ãã¼ã¸ã«ã¯ã print reverse <STDIN></stdin></stdin>â¦
æ¬æ¥ã¯ã³ã³ããã¹ãã«ã¤ãã¦ãåãã¦ã®Perlããå¼ç¨ããæã«ããã¨ã ãããããã®ç« ã§æã大åãªã»ã¯ã·ã§ã³ã§ããäºå®ããã®æ¬ã®ä¸ã§æãéè¦ãªã»ã¯ã·ã§ã³ã¨ãããã§ããããããªããPerlã使ãããå¦ãã¯ãã¾ãã«ãã®ã»ã¯ã·ã§ã³ã«ããã£ã¦ããã¨ãã£ã¦ãéâ¦
ãããããããããå¦ç§ã®ããã°ã©ãã³ã°ãã¹ãã¨ããã«åãã¦ãå°ãCè¨èªãæ¸ãã¦ã¿ããæ¸ããã®ã¯PerlãRubyãPythonã§ã¯å®è£ ããã¦ãããsplit颿°*1ã£ã½ããã®ãçµå±ãstrtokã®ã©ããã¼é¢æ°ã¿ããã«ãªã£ã¦ãã¾ã£ãã #include <stdio.h> #include <stdlib.h> #include <string.h> #def</string.h></stdlib.h></stdio.h>â¦
ãã¡ã®R大å¦ã®æ å ±ç³»å©ææMå çã®ææ¥ããå æ¥åãã¦ãããããããã¨ãid: hyukiããã®ãã¨ãããããããä»ãã§ãããã¼ãããããã¼ããããã¨ãã¶ãã ããããªããæ°ã«ãªãã >>
æ¬æ¥å±ããã¡ã¼ã«ã«ããã¨ã ãããªãã¯æ¬æ¥ããã¯ã¦ãªãã¤ã¢ãªã¼å¸æ°ã§ãããã¤ãã¯ã¦ãªããå©ç¨ããã ãããããã¨ããããã¾ããæ¬æ¥ãããhakobe932ããã¯ãã¯ã¦ãªãã¤ã¢ãªã¼å¸æ°ãã«ãªããã¾ããã®ã§ãç¥ããã ããã¾ãã ã¨ã®ãã¨ããã¿ã¯ã¼ãç§ãä»â¦
åãã¦ã®Perlã·ãªã¼ãºãé åãã²ã¨ã¤ã²ã¨ã¤å¦çããã¨ãã«ç´ æµãªãå¶å¾¡æ§é foreachã«ã¤ãã¦ãforeachã使ãã¨ãã«ã¯ãå¶å¾¡å¤æ°ã¨å¤ã®ãªã¹ããæå®ããã @langs = qw{Ruby Python Java C/C++ Perl LISP}; foreach $lang (@langs) { print "$lang\n"; }ãã®å¶â¦
é åã«é¢ããããã¤ãã®æä½ã«ã¤ãã¦ãpopã¨pushã§ãæ«å°¾ã®ãã¼ã¿ã追å ããããåãåºããããããã¨ã§ãé åãã¹ã¿ãã¯ã¨ãã¦ä½¿ãã¾ãã @books = ('AWDwR', 'henna_kaisha', 'K&R', 'LearnigPerl'); print "@books\n"; # AWDwR henna_kaisha K&R LearnigPâ¦
æ¬æ¥ã¯é åã®åºæ¬çãªé¨åãå¦ãã ãé åã¸ã®ã¢ã¯ã»ã¹ã¯ã $host_bu[0] = 'tamaki'; $host_bu[1] = 'kyoya'; $host_bu[2] = 'haruhi';ã¨å¤æ°ã«ã¤ã³ããã¯ã¹ãä»ãããã¨ã§è¡ãããããã¯ãªã¹ãä»£å ¥ã¨ããå½¢å¼ã§ãæ¸ãã¦ã ($host_bu[0], $host_bu[1], $host_â¦
ã»ãã¨ã¯æ¨æ¥ã®id:hakobe932:20060418ããã¹ã«ã©ãã¼ã¿ ãã®1ãããã ã£ããã ãã©ããç ãã®ã§æçã«ãæ¬æ¥å¦ãã ãªã¹ãã æååã¨æ°å¤ã¯Perlãè¯ããããªæ¹ã«ãããã¦å¤æãã¦ããã æ¯è¼ã«ã¯æ°å¤ç¨ã¨æååç¨ããã(ã©ã£ã¡ã§æ¯è¼ãã¹ããããããªãããâ¦
PythonãããããRubyãã¡ãã£ã¨ã¯æ¸ãããã©ãPerlã¯ã¾ã£ãããã£ã±ãæ¸ãã¾ãããããããä¸ã®ããã«ã¼çã§ã¯ã¼ã«ãªãã®ã®åææã¯Perlãå¤ãã£ã½ãã®ã§ããã¯ãåå¼·ããããããã§ã妿 ¡ã®å³æ¸é¤¨ãããªã£ãæ¬ãã¨ããåãã¦ã®Perlããåãã¦ããã®ã§ãæ¬â¦
ã¯ã¦ãªã°ãªã¼ã¹ã¢ã³ãã¼ã§ãç´¹ä»ããã¦ãã¦ããã¡ãæ°ã«å ¥ã£ã¦ä½¿ã£ã¦ããGreasemonkeyã¹ã¯ãªãããhttp://misccs.dyndns.org/wiki/Language/Engine_shortcut_for_Googleãããããã¯ããã®ã¹ã¯ãªããã¯GPLã©ã¤ã»ã³ã¹ããããã§ãããGPLã¡ããã¨ããã ãã¨ãªâ¦
ã¾ããããããã¨ãããªããã ãã©ãèªåã®ã½ã¼ã·ã£ã«ããã¯ãã¼ã¯ã®ããã¨ã§èªããã¿ã°ãã¤ãã¦ããã¼ã¸ä¸è¦§ããWebãã©ã¦ã¶ã®ãã¼ã ãã¼ã¸ã«è¨å®ãã¦ã¿ããããã¨ãæ¯æ¥å«ã§ãã¿ããã¨ã«ãªãã ãããããæéãããã°ãã®æèªãã ãããã¼èªã¾ãªãããããâ¦
æ¬æ¥ã®Rubyçãåå¼·ãWebãããããããã¼ã¿ãã²ãã£ã¦å¦çãããã£ãã®ã§ãRubyã§urlãç´æ¥éãæ¹æ³ãåå¼·ãã¾ããã require 'open-uri' open('http://d.hatena.ne.jp/hakobe932/') do |f| f.each_line {|line| print line} endopen-uriã©ã¤ãã©ãªããã¼ãâ¦
ææ¥ã§tomcatã使ããã¨ã«ãªãã¾ãããææ°ã®tomcatã¯ãªããJava 5.0ã§ããåããªããããã®ã§ããã¡ã®Mac OS X Tigerã§ä½¿ããããã«ããã¡ã¢ãã¾ããJava 5.0æ¬ä½ãã¤ã³ã¹ãã¼ã«ãã¾ãããã¡ãã®ãJava 2 SE 5.0 Release 3ããããããããã®ã¾ã¾ã ã¨ãã³ãâ¦
åºãããã«ã¾ãã¨è¨ããã¦ããGoogle Calendarã使ããããã«ãªã£ããããã§ããããã¤ããhttp://www.google.com/calendar/ãã¡ããã©ã30 Boxesã使ãå§ããããã¨ããã¨ããã ã£ãã®ã§ãããããã¿ã¤ãã³ã°ãªã®ã§GoogleCalendar試ãããã¨ãããã¡ã¼ã«ã«â¦
ãããã¦ã¿ã¾ããæå¯ãé§ ã§ããmap:x135.9474y35.0038:map:h200mapè¨æ³ã«å¿ è¦ãªåº§æ¨ã調ã¹ãã®ã大å¤ãGoogleãããã§èª¿ã¹ãã®ã¯ç¡è¬ããã§ããåº§æ¨æ å ±ã©ãï¼ã¯ã¦ãªãããã ã¨mapè¨æ³ãèªåçæããã¦ã¡ãã£ã¨ä¾¿å©ãããããããã§ã¯ãã³ã³ã¨ãã座æ¨ãè¦â¦
話é¡ã®ããã©ã¡ããã¨ãã¼ã¢ããã¯ã»ãã³ãã¼ãèªã¿ã¾ãããããã¾ã§ã®ã·ãªã¼ãºã¯èªãã§ãªããã§ããããªããªã楽ããã¾ããããã«ã«ã¡ããã¯è¯ããã³ãã¬ã (éããªã«ããã¡ã¯ãæ°å¦ã¨ããã¨ãã£ã±ãã§ãå¾®åç©åãããã¨ã¢ã¬ãï¼ã¨ããæããªãã§ããããªãâ¦
ã¡ãã£ã¨æ°ã«ãªã£ã¦ããã Life Hacks PRESSãè²·ã£ã¦èªãã§ãã¾ããããã¯è¯ããããã¨æããçæ´»ã®å·¥å¤«ãããããã®ã£ã¦ãã¦ããã試ããããªã£ã¦ãã¾ãå 容ããã£ããããã¼ã«ãç¨æããªãããã£ã¦ãã¨ã§id:omochistã¨å¦æ ¡ã®çåã§ãããããªææ¿å ·ãç©è²â¦