Sokushu2_perl

Size: px
Start display at page:

Download "Sokushu2_perl"

Transcription

1 hello.pl Perl print("hello, Bioinformatics!\n"); $ perl hello.pl 1 2 hello.pl print("hello, Bioinformatics!\n"); $ perl hello.pl 3 4 hello.pl 3 hello.pl Perl Perl Perl Perl print("hello, Bioinformatics!\n ); print("hello, Bioinformatics!\n ); $ perl hello.pl $ perl hello.pl 5 6

2 hello.pl hello.pl #!/usr/bin/perl Perl #!/usr/bin/perl Perl print("hello, Bioinformatics!\n ); $ perl hello.pl print("hello, Bioinformatics!\n"); $ perl hello.pl 7 8 "Hello, Bioinformatics!\n print() Hello, Bioinformatics! 29 ATG n 9 10 n r t hello2.pl my $name = Itoshi ; print("hello, $name!\n"); $ perl hello.pl Itoshi 11 12

3 29 ATG n my $box my $box = boy hello2.pl hello2.pl my $name = Itoshi ; print("hello, $name!\n"); my $name = Itoshi ; print("hello, $name!\n"); $ perl hello.pl Itoshi $ perl hello.pl Itoshi hello2.pl my $name = Itoshi ; print("hello, $name!\n"); $ perl hello.pl Itoshi /

4 bmi.pl my $height = 1.63; my $weight = 58; my $bmi = $weight / ($height * $height); print $bmi n ; bmi.pl my $height = 1.63; my $weight = 58; my $bmi = $weight / ($height * $height); print $bmi n ; $ perl bmi.pl $ perl bmi.pl $a + $b $a - $b $a * $b $a / $b $a % $b $a++ $a-- $a**$b $a $b fat_index.pl my $height = 1.63; my $weight = 58; my $bmi = $weight / ($height * $height); my $fat_index; if ($bmi >= 25) { $fat_index = 1; else { $fat_index = 0; print Your BMI: $bmi n ; print Your Fat index: $fat_index n ; $ perl fat_index.pl if else if fat_index.pl my $height = 1.63; my $weight = 58; my $bmi = $weight / $length * $length my $fat_index; if ($bmi >= 25) { $fat_index = 1; else { $fat_index = 0; print Your BMI: $bmi n ; print Your Fat index: $fat_index n ; $ perl fat_index.pl 23 24

5 fat_index2.pl elsif! if ($bmi >= 25 and $bmi < 30) { $fat_index = 1; elsif ($bmi >= 30 and $bmi < 35){ $fat_index = 2; elsif ($bmi >= 35 and $bmi < 40) { $fat_index = 3; elsif ($bmi >= 40) { $fat_index = 4; else { $fat_index = 0; $ perl fat_index2.pl $a == $b $a eq $b $a!= $b $a ne $b $a < $b $a $ $a <= $b $a $b $a > $b $a $b $a >= $b $a $b $a and $b (&&) $a $b if $a or $b ( ) $a $b $a not $b $a $b genelist.txt DNA9 gagcctaaggtttagggaggtcgtggtactttacgtaaggagtcagaaacgggcctcggt DNA6 ctaaggtgggtgtgtagtggtacgtggtactaaggtgggtgtgtagtggtactaaggtgt DNA3 atgcctgaggggcctcggtgtttagggtcctgggagcctaacggtcgtggtactttaccc DNA4 ctcggtgtttagggaggagcctaaggtaaggtcgtggtactttacgcagtcagaaacggg DNA8 gtcgtggtactttacaaggtatcggtgtttagggaggagcctaggagtcagaaacgggcc DNA1 ctttgtgggctcctgcaagtgccaggcgctgaaggagcctaaggtaaggagtcagaaacg DNA2 gcgtagagtcccttggtggaaggtgggtgtgtaggcagcagaggttaacagaaatctcag DNA7 gttagggaggagcggggtactttacgcctcggtgttctaaggtaaggagtcagaaacgtc DNA5 gggtgtgtataatggagtcgtggtacttcagaggttaacagaaatctcaggtccctaggt $ cat genelist.txt 29 30

6 cat.pl #!/usr/bin/perl $ perl cat.pl genelist.txt cat.pl while #!/usr/bin/perl while $ perl cat.pl genelist.txt cat.pl #!/usr/bin/perl <> = 1 1 $line while 1 $line while 1 $line while $ perl cat.pl genelist.txt undef ( ) while cat.pl #!/usr/bin/perl $ perl cat.pl genelist.txt cat2.pl my ($file) $ perl cat2.pl genelist.txt 35 36

7 cat2.pl ( ) my ($file) $ perl cat2.pl genelist.txt = ( boy, ) $box[0] cat2.pl my ($file) my ($first_box, $second_box) $first_box: boy $second_box: $ perl cat2.pl genelist.txt cat2.pl my ($file) open = cat2.pl my ($file) <>1 $ perl cat2.pl genelist.txt $ perl cat2.pl genelist.txt 41 42

8 Perl 3 while: open pickaline.pl my ($file) push(@lines, $line); print "$lines[1]\n"; pickaline.pl my ($file) push(@lines, $line); print "$lines[1]\n"; $ perl pickaline.pl genelist.txt $ perl pickaline.pl genelist.txt push push(@box, boy ) = ( boy, ) $box[0] $box[1] pickaline2.pl my ($file, $index) push(@lines, $line); print "$lines[$index]\n"; $ perl pickaline2.pl genelist.txt

9 pickaline2.pl pickaline2.pl my ($file, $index) push(@lines, $line); print "$lines[$index]\n"; my ($file, $index) push(@lines, $line); print "$lines[$index]\n"; $lines[1] $ perl pickaline2.pl genelist.txt 1 $ perl pickaline2.pl genelist.txt push pickaline3.pl my ($file, $name) my %lines; $lines{$genename = $sequence; print "$name $lines{$name\n"; $ perl pickaline3.pl genelist.txt DNA pickaline3.pl my ($file, $name) my %lines; $lines{$genename = $sequence; print "$name $lines{$name\n"; $ perl pickaline3.pl genelist.txt DNA1 genelist.txt split DNA9 gagcctaaggtttagggaggtcgtggtactttacgtaaggagtcagaaacgggcctcgg DNA6 ctaaggtgggtgtgtagtggtacgtggtactaaggtgggtgtgtagtggtactaaggtg DNA3 atgcctgaggggcctcggtgtttagggtcctgggagcctaacggtcgtggtactttacc DNA4 ctcggtgtttagggaggagcctaaggtaaggtcgtggtactttacgcagtcagaaacgg DNA8 gtcgtggtactttacaaggtatcggtgtttagggaggagcctaggagtcagaaacgggc DNA1 ctttgtgggctcctgcaagtgccaggcgctgaaggagcctaaggtaaggagtcagaaac DNA2 gcgtagagtcccttggtggaaggtgggtgtgtaggcagcagaggttaacagaaatctca DNA7 gttagggaggagcggggtactttacgcctcggtgttctaaggtaaggagtcagaaacgt DNA5 gggtgtgtataatggagtcgtggtacttcagaggttaacagaaatctcaggtccctagg 53 54

10 genelist.txt DNA9 gagcctaaggtttagggaggtcgtggtactttacgtaaggagtcagaaacgggcctcgg DNA6 ctaaggtgggtgtgtagtggtacgtggtactaaggtgggtgtgtagtggtactaaggtg DNA3 atgcctgaggggcctcggtgtttagggtcctgggagcctaacggtcgtggtactttacc DNA4 ctcggtgtttagggaggagcctaaggtaaggtcgtggtactttacgcagtcagaaacgg DNA8 gtcgtggtactttacaaggtatcggtgtttagggaggagcctaggagtcagaaacgggc DNA1 ctttgtgggctcctgcaagtgccaggcgctgaaggagcctaaggtaaggagtcagaaac DNA2 gcgtagagtcccttggtggaaggtgggtgtgtaggcagcagaggttaacagaaatctca DNA7 gttagggaggagcggggtactttacgcctcggtgttctaaggtaaggagtcagaaacgt DNA5 gggtgtgtataatggagtcgtggtacttcagaggttaacagaaatctcaggtccctagg /PATTERN/ pickaline3.pl my ($file, $name) split(/p/, $s) index($s, $subs) substr($s, $subs, 5) chomp($s) chop($s) P$s $s $subs $s $subs 5 $s $s my %lines; $lines{$genename = $sequence; print "$name $lines{$name\n"; $ perl pickaline3.pl genelist.txt DNA () my %colors = ( leftbottom => white, righttop => orange ) my $white = $colors{ leftbottom pickaline3.pl my ($file, $name) my %lines; $lines{$genename = $sequence; print "$name $lines{$name\n"; $ perl pickaline3.pl genelist.txt DNA

11 5 patternmatch.pl if ($line =~ /tataa/) { print "$line 1\n"; else { print $line 0 n ; $ perl patternmatch.pl genelist.txt patternmatch.pl if patternmatch2.pl if ($line =~ /tataa/) { print "$line 1\n"; else { print $line 0 n ; $ perl patternmatch.pl genelist.txt if ($sequence =~ /^atg/) { print "$line 1\n"; else { print "$line 0\n"; $ perl patternmatch2.pl genelist.txt patternmatch2.pl if ($sequence =~ /^atg/) { print "$line 1\n"; else { print "$line 0\n"; a a abc abc a* a 0 a+ a 1 a+? a ^ $. 1 [abc] abc [abcabc] abcabc [0-9] 0 9 [0-9 -] 0 9, - [^0-4] 0 4 d [0-9] w [a-za-z0-9_] s [ r t n f] D [^0-9] $ perl patternmatch2.pl genelist.txt W [^a-za-z0-9_] S [^ r t n f] 65 66

12 dna2rna.pl dna2rna.pl while( my $line = <> ) { my($name, $sequence) = $name =~ s/dna/rna/; $sequence =~ s/t/u/g; print "$name\t$sequence\n"; while( my $line = <> ) { my($name, $sequence) = $name =~ s/dna/rna/; $sequence =~ s/t/u/g; print "$name\t$sequence\n"; $ dna2rna.pl genelist.txt 67 $ dna2rna.pl genelist.txt 68 dna2rna.pl while( my $line = <> ) { my($name, $sequence) = $name =~ s/dna/rna/; $sequence =~ s/t/u/g; print "$name\t$sequence\n"; 6 $ dna2rna.pl genelist.txt sort.pl my %seqs; while(my $line = <>){ my ($name, $sequence) = $seqs{$name = $sequence; = = sort(@names); foreach my $name (@names){ print "$name\t$seqs{$name\n"; $ sort.pl genelist.txt 71 sort.pl my %seqs; while(my $line = <>){ my ($name, $sequence) = $seqs{$name = $sequence; = = sort(@names); foreach my $name (@names){ print "$name\t$seqs{$name\n"; $ sort.pl genelist.txt 72

13 values(%a) value join( t / keys(%a) key unshift(@a, a ) pop(@a) a / each(%a) key value push(@a, a ) a sort.pl foreach my %seqs; while(my $line = <>){ my ($name, $sequence) = $seqs{$name = $sequence; = = sort(@names); foreach my $name (@names){ print "$name\t$seqs{$name\n"; foreach $name foreach $name foreach $name foreach foreach $ sort.pl genelist.txt () foreach (<>, open) ( ) (if) (while, foreach) (s//) 77 78

14 Perl 3 ( ) Perl ( ) Effective Perl () Perl ( ) 79 80

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV tutimura@mist.i.u-tokyo.ac.jp kaneko@ipl.t.u-tokyo.ac.jp http://www.misojiro.t.u-tokyo.ac.jp/ tutimura/sem3/ 2002 11 20 p.1/34 10/16 1. 10/23 2. 10/30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20

More information

3 Powered by mod_perl, Apache & MySQL use Item; my $item = Item->new( id => 1, name => ' ', price => 1200,

3 Powered by mod_perl, Apache & MySQL use Item; my $item = Item->new( id => 1, name => ' ', price => 1200, WEB DB PRESS Vol.1 79 3 Powered by mod_perl, Apache & MySQL use Item; my $item = Item->new( id => 1, name => ' ', price => 1200, http://www.postgresql.org/http://www.jp.postgresql.org/ 80 WEB DB PRESS

More information

̤Äê

̤Äê SNS 1, IT.,.,.,., SNS,,,..,,.,,,.,.,,. 2 1 6 1.1................................................ 6 1.2................................................ 6 1.3...............................................

More information

I 1 1 ( *) ( *) ex1-1.rb ) 2 CGI

I 1 1 ( *) ( *) ex1-1.rb ) 2 CGI I 1 1 ( *) ( *) ex1-1.rb ) 2 CGI 1-1 http://klis.tsukuba.ac.jp/klib/subjects/progi/example2018/ 1-1 1-2 http://klis.tsukuba.ac.jp/klib/subjects/progi/example2018/ 1-2 I \( ) ( ) 1 3 Ruby 1 1? 1-3 ( ) I

More information

1 ( : Documents/kadai4), (ex.py ),. print 12345679 * 63, cd Documents/kadai4, python ex.py., python: can t open file ex.py : [Errno 2] No such file or

1 ( : Documents/kadai4), (ex.py ),. print 12345679 * 63, cd Documents/kadai4, python ex.py., python: can t open file ex.py : [Errno 2] No such file or Python 2010.6 1 Python 1.1 ( ). mi.,.py. 1.2, python.. 1. python, python. ( ). 2.., python. Python (>>>). Python 2.6.2 (release26-maint, Apr 19 2009, 01:56:41) [GCC 4.3.3] on linux2 Type help, copyright,

More information

1 Ex Ex. 2 2

1 Ex Ex. 2 2 I 20 100 85 40 85 PDF Windows TA ruby TA6 2 8 1. 2. PDF 3. PDF 1 Ex. 1 2 2 Ex. 2 2 2 Ex. 3 seisu = Array.new(3, 0) seisu[0] = gets.chomp.to_i seisu[1] = gets.chomp.to_i seisu[2] = gets.chomp.to_i wa =

More information

UnixText2.pptx

UnixText2.pptx Unix Unix! grep! sed! sort! cut! join! awk! (grep)! grep ' ' [...]! grep 'GO' 1433B_HUMAN.sprot!! 1433B_HUMAN.sprot GO grep '^FT' 1433B_HUMAN.sprot!! 1433B_HUMAN.sprot FT! grep -v! grep -i! grep -w!!!

More information

C¥×¥í¥°¥é¥ß¥ó¥° ÆþÌç

C¥×¥í¥°¥é¥ß¥ó¥° ÆþÌç C (3) if else switch AND && OR (NOT)! 1 BMI BMI BMI = 10 4 [kg]) ( [cm]) 2 bmi1.c Input your height[cm]: 173.2 Enter Input your weight[kg]: 60.3 Enter Your BMI is 20.1. 10 4 = 10000.0 1 BMI BMI BMI = 10

More information

haskell.gby

haskell.gby Haskell 1 2 3 Haskell ( ) 4 Haskell Lisper 5 Haskell = Haskell 6 Haskell Haskell... 7 qsort [8,2,5,1] [1,2,5,8] "Hello, " ++ "world!" "Hello, world!" 1 + 2 div 8 2 (+) 1 2 8 div 2 3 4 map even [1,2,3,4]

More information

Ruby 50 Ruby UTF print, \n [Ruby-1] print("hello, Ruby.\n") [Ruby-2] Hello, Ruby. [Ruby-3] print("hello, \"Ruby\".\n") 2 [Ruby-4] seisuu = 10 pr

Ruby 50 Ruby UTF print, \n [Ruby-1] print(hello, Ruby.\n) [Ruby-2] Hello, Ruby. [Ruby-3] print(hello, \Ruby\.\n) 2 [Ruby-4] seisuu = 10 pr Ruby 50 Ruby UTF-8 1 1 print, \n [Ruby-1] print("hello, Ruby.\n") [Ruby-2] Hello, Ruby. [Ruby-3] print("hello, \"Ruby\".\n") 2 [Ruby-4] seisuu = 10 print(seisuu, "\n") jissuu = 3.141592 print(jissuu, "\n")

More information

2

2 2 3 Page 4 5 6 A-1B-1 C0 D0 E0 F0 G0 A0 B0 C1 D1 E1 F1 G1 A1 B1 C2 D2 E2 F2 G2 A2 B2 C3 D3 E3 7 F3 G3 A3 B3 C4 D4 E4 F4 G4 A4 B4 C5 D5 E5 F5 G5 A5 B5 C6 D6 E6 F6 G6 A6 B6 C7 8 Page 9 1 2 3 1 2 10 1 11

More information

Microsoft PowerPoint - 20140203 Perl講習会.ppt [互換モード]

Microsoft PowerPoint - 20140203 Perl講習会.ppt [互換モード] 中 村 聡 史 1 12345の 約 数 の 数 を 数 えるプログラム int i = 1; int count = 0; while( i

More information

A/B (2018/10/19) Ver kurino/2018/soft/soft.html A/B

A/B (2018/10/19) Ver kurino/2018/soft/soft.html A/B A/B (2018/10/19) Ver. 1.0 kurino@math.cst.nihon-u.ac.jp http://edu-gw2.math.cst.nihon-u.ac.jp/ kurino/2018/soft/soft.html 2018 10 19 A/B 1 2018 10 19 2 1 1 1.1 OHP.................................... 1

More information

1 2 3 4 5 6 X Y ABC A ABC B 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 13 18 30 P331 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 ( ) 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

More information

26 2 3 4 5 8 9 6 7 2 3 4 5 2 6 7 3 8 9 3 0 4 2 4 3 4 4 5 6 5 7 6 2 2 A B C ABC 8 9 6 3 3 4 4 20 2 6 2 2 3 3 4 4 5 5 22 6 6 7 7 23 6 2 2 3 3 4 4 24 2 2 3 3 4 4 25 6 2 2 3 3 4 4 26 2 2 3 3 27 6 4 4 5 5

More information

mogiJugyo_slide_full.dvi

mogiJugyo_slide_full.dvi a 2 + b 2 = c 2 (a, b, c) a 2 a 2 = a a a 1/ 78 2/ 78 3/ 78 4/ 78 180 5/ 78 http://www.kaijo.ed.jp/ 6/ 78 a, b, c ABC C a b B c A C 90 a 2 + b 2 = c 2 7/ 78 C a b a 2 +b 2 = c 2 B c A a 2 a a 2 = a a 8/

More information

001 No.3/12 1 1 2 3 4 5 6 4 8 13 27 33 39 001 No.3/12 4 001 No.3/12 5 001 No.3/12 6 001 No.3/12 7 001 8 No.3/12 001 No.3/12 9 001 10 No.3/12 001 No.3/12 11 Index 1 2 3 14 18 21 001 No.3/12 14 001 No.3/12

More information

EPSON VP-1200 取扱説明書

EPSON VP-1200 取扱説明書 4020178-01 w p s 2 p 3 4 5 6 7 8 p s s s p 9 p A B p C 10 D p E 11 F G H H 12 p G I s 13 p s A D p B 14 C D E 15 F s p G 16 A B p 17 18 s p s 19 p 20 21 22 A B 23 A B C 24 A B 25 26 p s p s 27 28 p s p

More information

橡ボーダーライン.PDF

橡ボーダーライン.PDF 1 ( ) ( ) 2 3 4 ( ) 5 6 7 8 9 10 11 12 13 14 ( ) 15 16 17 18 19 20 ( ) 21 22 23 24 ( ) 25 26 27 28 29 30 ( ) 31 To be or not to be 32 33 34 35 36 37 38 ( ) 39 40 41 42 43 44 45 46 47 48 ( ) 49 50 51 52

More information

橡Taro9-生徒の活動.PDF

橡Taro9-生徒の活動.PDF 3 1 4 1 20 30 2 2 3-1- 1 2-2- -3- 18 1200 1 4-4- -5- 15 5 25 5-6- 1 4 2 1 10 20 2 3-7- 1 2 3 150 431 338-8- 2 3 100 4 5 6 7 1-9- 1291-10 - -11 - 10 1 35 2 3 1866 68 4 1871 1873 5 6-12 - 1 2 3 4 1 4-13

More information

untitled

untitled CA Easytrieve CA Technologies CA Easytrieve P 3 7 P 8 30 16 DB2 IMS IMS ADABAS JCL OS 2 Copyright 2012 CA. All rights reserved. CA Easytrieve CA Easytrieve CA Easytrieve CA Easytrieve COBOL,PL/I 3 Copyright

More information

超初心者用

超初心者用 3 1999 10 13 1. 2. hello.c printf( Hello, world! n ); cc hello.c a.out./a.out Hello, world printf( Hello, world! n ); 2 Hello, world printf n printf 3. ( ) int num; num = 100; num 100 100 num int num num

More information

< > = grep(/< >/, = ("AAA", "AAB", = foreach $Temp print "$Temp\n"; < > = sort = ("b"

< > = grep(/< >/, = (AAA, AAB, = foreach $Temp print $Temp\n; < > = sort = (b Perl 1 Unix qx{< > open(test,">test.txt"); # @resalt = qx{ls; #ls print TEST @resalt; # close(test); $< >{< > = [< >] @List = ("a","aa","aaa"); $Hush{"AAA" = [@List]; foreach $Temp (@{$Test{"AAA"){# print

More information

改訂履歴 版数日付変更理由変更内容変更者 1.0 H29/2/1 新規作成 1.0 版作成 -2-

改訂履歴 版数日付変更理由変更内容変更者 1.0 H29/2/1 新規作成 1.0 版作成 -2- 実証実験で使用したシステムの仕様 動的解析システムソースコード 平成 29 年 2 月 1 日 -1- 改訂履歴 版数日付変更理由変更内容変更者 1.0 H29/2/1 新規作成 1.0 版作成 -2- 目次 1 2 2.1 はじめに... 4 ソースコード... 5 動的解析システム... 5-3- 1 はじめに 本書は 平成 28 年度の総務省施策である スマートフォン上のアプリケーションにおける利用者情報の取扱いに係る実証調査研究の請負

More information

WEB DB PRESS Vol.1 65

WEB DB PRESS Vol.1 65 http://www.fastcgi.com/ http://perl.apache.org/ 64 WEB DB PRESS Vol.1 WEB DB PRESS Vol.1 65 Powered by mod_perl, Apache & MySQL my $input; my %form; read STDIN, $input, $ENV{'CONTENT_LENGTH'}; foreach

More information

新たな基礎年金制度の構築に向けて

新たな基礎年金制度の構築に向けて [ ] 1 1 4 60 1 ( 1 ) 1 1 1 4 1 1 1 1 1 4 1 2 1 1 1 ( ) 2 1 1 1 1 1 1 1996 1 3 4.3(2) 1997 1 65 1 1 2 1/3 ( )2/3 1 1/3 ( ) 1 1 2 3 2 4 6 2.1 1 2 1 ( ) 13 1 1 1 1 2 2 ( ) ( ) 1 ( ) 60 1 1 2.2 (1) (3) ( 9

More information

Microsoft Word - ランチョンプレゼンテーション詳細.doc

Microsoft Word - ランチョンプレゼンテーション詳細.doc PS1-1-1 PS1-1-2 PS1-1-3 PS1-1-4 PS1-1-5 PS1-1-6 PS1-1-7 PS1-1-8 PS1-1-9 1 25 12:4514:18 25 12:4513:15 B PS1-1-10 PS1-2-1 PS1-2-2 PS1-2-3 PS1-2-4 PS1-2-5 PS1-2-6 25 13:1513:36 B PS1-2-7 PS1-3-1 PS1-3-2

More information

1

1 1 2 3 4 5 0% 20% 40% 60% 80% 100% 6 7 8 0% 20% 40% 60% 80% 100% 9 0% 20% 40% 60% 80% 100% 10 100% 90% 80% 70% 60% 50% 40% 30% 20% 10% 0% 2529 (n=17) 3034 35 (n=21) (n=17) 2529 (n=19) 3034 35 (n=34) (n=64)

More information

parser.y 3. node.rb 4. CD-ROM

parser.y 3. node.rb 4. CD-ROM 1. 1 51 2. parser.y 3. node.rb 4. CD-ROM 1 10 2 i 0 i 10 " i i+1 3 for(i = 0; i

More information

Perl入学式 #3

Perl入学式 #3 Perl Entrance #3 参考資料 2012 年 3 月 18 日 Perl 入学式代表取り締まられ役 papix ( papix2011@gmail.com ) 1. 前回の復習 Sample Code use strict; use warnings; use utf8; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $age;

More information

N88 BASIC 0.3 C: My Documents 0.6: 0.3: (R) (G) : enterreturn : (F) BA- SIC.bas 0.8: (V) 0.9: 0.5:

N88 BASIC 0.3 C: My Documents 0.6: 0.3: (R) (G) : enterreturn : (F) BA- SIC.bas 0.8: (V) 0.9: 0.5: BASIC 20 4 10 0 N88 Basic 1 0.0 N88 Basic..................................... 1 0.1............................................... 3 1 4 2 5 3 6 4 7 5 10 6 13 7 14 0 N88 Basic 0.0 N88 Basic 0.1: N88Basic

More information

橡Pascal-Tの挙動を調べる

橡Pascal-Tの挙動を調べる PROGRAM SAMPLE01(INPUT, OUTPUT); BEGIN END. PROGRAM SAMPLE02(INPUT, OUTPUT); VAR X, Y, Z : INTEGER; BEGIN X := 1; Y := 2; Z := X + Y; WRITELN(Z); END. #!/usr/local/bin/perl #PASCAL-T OBJECT MAC FILE

More information

untitled

untitled Perl2 Web2 PerlCGI Web IT2006 2 Perl Perl Perl Perl Perl Perl OS CGIWeb IT2006 4 1. FTP CD-ROM 2. IT2006 5 3. +Lhaca C: Program Files asperl C: Programs 4. IT2006 6 +Lhaca /Archives +Lhaca / local Lhaca075.EXE

More information

コンピュータ概論

コンピュータ概論 4.1 For Check Point 1. For 2. 4.1.1 For (For) For = To Step (Next) 4.1.1 Next 4.1.1 4.1.2 1 i 10 For Next Cells(i,1) Cells(1, 1) Cells(2, 1) Cells(10, 1) 4.1.2 50 1. 2 1 10 3. 0 360 10 sin() 4.1.2 For

More information

EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編

EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編 K L N K N N N N N N N N N N N N L A B C N N N A AB B C L D N N N N N L N N N A L B N N A B C N L N N N N L N A B C D N N A L N A L B C D N L N A L N B C N N D E F N K G H N A B C A L N N N N D D

More information

ありがとうございました

ありがとうございました - 1 - - 2 - - 3 - - 4 - - 5 - 1 2 AB C A B C - 6 - - 7 - - 8 - 10 1 3 1 10 400 8 9-9 - 2600 1 119 26.44 63 50 15 325.37 131.99 457.36-10 - 5 977 1688 1805 200 7 80-11 - - 12 - - 13 - - 14 - 2-1 - 15 -

More information

EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編

EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編 K L N K N N N N N N N N N N N N L A B C N N N A AB B C L D N N N N N L N N N A L B N N A B C N L N N N N L N A B C D N N A L N A L B C D N L N A L N B C N N D E F N K G H N A B C A L N N N N D D

More information

公務員人件費のシミュレーション分析

公務員人件費のシミュレーション分析 47 50 (a) (b) (c) (7) 11 10 2018 20 2028 16 17 18 19 20 21 22 20 90.1 9.9 20 87.2 12.8 2018 10 17 6.916.0 7.87.4 40.511.6 23 0.0% 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2.0% 4.0% 6.0% 8.0%

More information

Q1 Q2 Q3 Q4 Q1 Q2 Q3 Q4 A B (A/B) 1 1,185 17,801 6.66% 2 943 26,598 3.55% 3 3,779 112,231 3.37% 4 8,174 246,350 3.32% 5 671 22,775 2.95% 6 2,606 89,705 2.91% 7 738 25,700 2.87% 8 1,134

More information

橡hashik-f.PDF

橡hashik-f.PDF 1 1 1 11 12 13 2 2 21 22 3 3 3 4 4 8 22 10 23 10 11 11 24 12 12 13 25 14 15 16 18 19 20 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 144 142 140 140 29.7 70.0 0.7 22.1 16.4 13.6 9.3 5.0 2.9 0.0

More information

198

198 197 198 199 200 201 202 A B C D E F G H I J K L 203 204 205 A B 206 A B C D E F 207 208 209 210 211 212 213 214 215 A B 216 217 218 219 220 221 222 223 224 225 226 227 228 229 A B C D 230 231 232 233 A

More information

ネットショップ・オーナー2 ユーザーマニュアル

ネットショップ・オーナー2  ユーザーマニュアル 1 1-1 1-2 1-3 1-4 1 1-5 2 2-1 A C 2-2 A 2 C D E F G H I 2-3 2-4 2 C D E E A 3 3-1 A 3 A A 3 3 3 3-2 3-3 3-4 3 C 4 4-1 A A 4 B B C D C D E F G 4 H I J K L 4-2 4 C D E B D C A C B D 4 E F B E C 4-3 4

More information

1

1 1 2 3 4 5 (2,433 ) 4,026 2710 243.3 2728 402.6 6 402.6 402.6 243.3 7 8 20.5 11.5 1.51 0.50.5 1.5 9 10 11 12 13 100 99 4 97 14 A AB A 12 14.615/100 1.096/1000 B B 1.096/1000 300 A1.5 B1.25 24 4,182,500

More information

05[ ]戸田(責)村.indd

05[ ]戸田(責)村.indd 147 2 62 4 3.2.1.16 3.2.1.17 148 63 1 3.2.1.F 3.2.1.H 3.1.1.77 1.5.13 1 3.1.1.05 2 3 4 3.2.1.20 3.2.1.22 3.2.1.24 3.2.1.D 3.2.1.E 3.2.1.18 3.2.1.19 2 149 3.2.1.23 3.2.1.G 3.1.1.77 3.2.1.16 570 565 1 2

More information

/9/ ) 1) 1 2 2) 4) ) ) 2x + y 42x + y + 1) 4) : 6 = x 5) : x 2) x ) x 2 8x + 10 = 0

/9/ ) 1) 1 2 2) 4) ) ) 2x + y 42x + y + 1) 4) : 6 = x 5) : x 2) x ) x 2 8x + 10 = 0 1. 2018/9/ ) 1) 8 9) 2) 6 14) + 14 ) 1 4 8a 8b) 2 a + b) 4) 2 : 7 = x 8) : x ) x ) + 1 2 ) + 2 6) x + 1)x + ) 15 2. 2018/9/ ) 1) 1 2 2) 4) 2 + 6 5) ) 2x + y 42x + y + 1) 4) : 6 = x 5) : x 2) x 2 15 12

More information

/

/ / 1 UNIX AWK( ) 1.1 AWK AWK AWK A.V.Aho P.J.Weinberger B.W.Kernighan 3 UNIX AWK GNU AWK 1 1.2 1 mkdir ~/data data ( ) cd data 1 98 MS DOS FD 1 2 AWK 2.1 AWK 1 2 1 byte.data 1 byte.data 900 0 750 11 810

More information

Windows Cygwin Mac *1 Emacs Ruby ( ) 1 Cygwin Bash Cygwin Windows Cygwin Cygwin Mac 1 Mac 1.2 *2 ls *3 *1 OS Linux *2 *3 Enter ( ) 2

Windows Cygwin Mac *1 Emacs Ruby ( ) 1 Cygwin Bash Cygwin Windows Cygwin Cygwin Mac 1 Mac 1.2 *2 ls *3 *1 OS Linux *2 *3 Enter ( ) 2 September 2016 1 Windows Cygwin Mac *1 Emacs Ruby 1 1.1 ( ) 1 Cygwin Bash Cygwin Windows Cygwin Cygwin Mac 1 Mac 1.2 *2 ls *3 *1 OS Linux *2 *3 Enter ( ) 2 ~/16:00:20> ls 2 2 ls ls -a ~/16:00:20> ls -a

More information

本チュートリアルについて 14 部構成 比較的簡単なトピックから 各回 プログラミング言語 任意 チュートリアルで 新しい内容 宿題 プログラミング演習 次の週 結果について発表 もしくは話し合いをする スライドは Python で Python, C++, Java, Perl についての質問い答

本チュートリアルについて 14 部構成 比較的簡単なトピックから 各回 プログラミング言語 任意 チュートリアルで 新しい内容 宿題 プログラミング演習 次の週 結果について発表 もしくは話し合いをする スライドは Python で Python, C++, Java, Perl についての質問い答 自然言語処理プログラミング勉強会 0 プログラミング入門 Graham Neubig 奈良先端科学技術大学院大学 (NAIST) 1 本チュートリアルについて 14 部構成 比較的簡単なトピックから 各回 プログラミング言語 任意 チュートリアルで 新しい内容 宿題 プログラミング演習 次の週 結果について発表 もしくは話し合いをする スライドは Python で Python, C++, Java,

More information

2002 awk Aho,Weinberger,Kernighan DFA awk Brian Kernighan DFA GNU awk Arnold Robbins DFA NFA MKS awk Mortice Kern Systems POSIX NFA mawk Mike Brennan

2002 awk Aho,Weinberger,Kernighan DFA awk Brian Kernighan DFA GNU awk Arnold Robbins DFA NFA MKS awk Mortice Kern Systems POSIX NFA mawk Mike Brennan 153 167 2002 Processing Mechanism on Regular Expressions Yoshiyuki SAKAMOTO and Hiroyuki EDO awk NFA DFA DFANFA POSIX NFA DFA NFA NFA NFATcl, Perl, Python, GNU Emacs, ed, sed, vi, grep egrep, awk DFA egrep,

More information

listings-ext

listings-ext (6) Python (2) ( ) ohsaki@kwansei.ac.jp 5 Python (2) 1 5.1 (statement)........................... 1 5.2 (scope)......................... 11 5.3 (subroutine).................... 14 5 Python (2) Python 5.1

More information

mstrcpy char *mstrcpy(const char *src); mstrcpy malloc (main free ) stdio.h fgets char *fgets(char *s, int size, FILE *stream); s size ( )

mstrcpy char *mstrcpy(const char *src); mstrcpy malloc (main free ) stdio.h fgets char *fgets(char *s, int size, FILE *stream); s size ( ) 2008 3 10 1 mstrcpy char *mstrcpy(const char *src); mstrcpy malloc (main free ) stdio.h fgets char *fgets(char *s, int size, FILE *stream); s size ( ) stream FILE ( man ) 40 ( ) %./a.out String : test

More information

オンラインテスト

オンラインテスト 1. 2. JavaScript 3. Perl 4. CGI 1. WWW HTML WWW World Wide Web HTML Hyper Text Markup Language XML, XHTML Java (.java) JavaApplet (.class,.jar) JavaServlet (.jsp) JavaScript (.html) CGI (.cgi) SSI (.shtml)

More information

untitled

untitled 186 17 100160250 1 10.1 55 2 18.5 6.9 100 38 17 3.2 17 8.4 45 3.9 53 1.6 22 7.3 100 2.3 31 3.4 47 OR OR 3 1.20.76 63.4 2.16 4 38,937101,118 17 17 17 5 1,765 1,424 854 794 108 839 628 173 389 339 57 6 18613

More information

untitled

untitled 1. 3 14 2. 1 12 9 7.1 3. 5 10 17 8 5500 4. 6 11 5. 1 12 101977 1 21 45.31982.9.4 79.71996 / 1997 89.21983 41.01902 6. 7 5 10 2004 30 16.8 37.5 3.3 2004 10.0 7.5 37.0 2004 8. 2 7 9. 6 11 46 37 25 55 10.

More information

Microsoft Word - Perl4_9

Microsoft Word - Perl4_9 初心者用 Perl 講座 第 3 版 2010 年 4 月 8 日 文責 : 斎藤輪太郎 永安悟史 0. はじめに Perl はテキスト処理言語です 与えられたテキストファイル (cat や more で中味を見ることができるファイル ) を加工して出力する時などに特に威力を発揮します awk もテキスト処理が得意ですが 機能が豊富で使い方次第で awk より大きな仕事ができます このテキストではいくつかの例題をこなしながら手っ取り早く

More information

(CC Attribution) Lisp 2.1 (Gauche )

(CC Attribution) Lisp 2.1 (Gauche ) http://www.flickr.com/photos/dust/3603580129/ (CC Attribution) Lisp 2.1 (Gauche ) 2 2000EY-Office 3 4 Lisp 5 New York The lisps Sammy Tunis flickr lisp http://www.flickr.com/photos/dust/3603580129/ (CC

More information

Microsoft Word - C.....u.K...doc

Microsoft Word - C.....u.K...doc C uwêííôöðöõ Ð C ÔÖÐÖÕ ÐÊÉÌÊ C ÔÖÐÖÕÊ C ÔÖÐÖÕÊ Ç Ê Æ ~ if eíè ~ for ÒÑÒ ÌÆÊÉÉÊ ~ switch ÉeÍÈ ~ while ÒÑÒ ÊÍÍÔÖÐÖÕÊ ~ 1 C ÔÖÐÖÕ ÐÊÉÌÊ uê~ ÏÒÏÑ Ð ÓÏÖ CUI Ô ÑÊ ÏÒÏÑ ÔÖÐÖÕÎ d ÈÍÉÇÊ ÆÒ Ö ÒÐÑÒ ÊÔÎÏÖÎ d ÉÇÍÊ

More information

Bayonを使って 登録タグでニコマス分類

Bayonを使って 登録タグでニコマス分類 データクラスタリング bayon というツールを使って 登録タグの情報から動画をグループ化する ( データクラスタリング ) 動画 ID を元に同じグループの動画を検索できるようにする 代表的な登録タグについて グループ化された動画を検索できるようにする CentOS5 をインストールした PC 本体が用意できなければ VMware Player 等を利用 文字コードは UTF-8N(BOM なし

More information

25 II :30 16:00 (1),. Do not open this problem booklet until the start of the examination is announced. (2) 3.. Answer the following 3 proble

25 II :30 16:00 (1),. Do not open this problem booklet until the start of the examination is announced. (2) 3.. Answer the following 3 proble 25 II 25 2 6 13:30 16:00 (1),. Do not open this problem boolet until the start of the examination is announced. (2) 3.. Answer the following 3 problems. Use the designated answer sheet for each problem.

More information

untitled

untitled ( ) 200133 3 3 3 3, 7 347 57 10 i ii iii -1- -2- -3- -4- 90011001700mm -5- 4.2 1991 73.5 44.4 7.4 10.5 10.5 7.4 W 3 H 2.25 H 2.25 7.4 51.8 140.6 88.8 268.8m 5,037.9m 2 2mm 16cm916cm 10.5 W 3 H 2.25 62.8

More information

Windows [ ] [ (R)..] cmd [OK] Z:\> mkdir progi [Enter] \ ) mkdir progi ) (command ) help [Enter] help ( help ) mkdir make directory Windows ) mkdir mk

Windows [ ] [ (R)..] cmd [OK] Z:\> mkdir progi [Enter] \ ) mkdir progi ) (command ) help [Enter] help ( help ) mkdir make directory Windows ) mkdir mk Ruby I I 1 Windows 1 Meadow 1: Meadow I Meadow 2 2 Ruby 2.1 I Z progi 1 Windows [ ] [ (R)..] cmd [OK] Z:\> mkdir progi [Enter] \ ) mkdir progi ) (command ) help [Enter] help ( help ) mkdir make directory

More information

LAPP/LAMP (SQL + cgi)

LAPP/LAMP (SQL + cgi) LAPP/LAMP (SQL + cgi) 2013 12 9 OA E-Learning Web LAMP (Linux + Apache + MySQL + PHP or Perl) LAPP (Linux + Apache + PostgreSQL + PHP or Perl) Linux OS Web Apache MySQL PostgreSQL Web cgi-bin PHP Perl

More information

2

2 Haskell ( ) kazu@iij.ad.jp 1 2 Blub Paul Graham http://practical-scheme.net/trans/beating-the-averages-j.html Blub Blub Blub Blub 3 Haskell Sebastian Sylvan http://www.haskell.org/haskellwiki/why_haskell_matters...

More information

EPSON LP-8900ユーザーズガイド

EPSON LP-8900ユーザーズガイド 3 4 5 6 7 8 abc ade w p s 9 10 s s 11 p 12 p 13 14 p s 15 p s A B 16 w 17 C p 18 D E F 19 p w G H 20 A B 21 C s p D 22 E s p w 23 w w s 24 p w s 25 w 26 p p 27 w p s 28 w p 29 w p s 30 p s 31 A s B 32

More information

News_Letter_No35(Ver.2).p65

News_Letter_No35(Ver.2).p65 OCIAL AFETY CIENCE No.35 2000.8 from Institute of Social Safety Science 10 11 17 11 19 17 181819 18 420-0042 5-9-1 JR 25 Tel 054-251-7100-1 - 10 10 I (1) 12 11 17 19 (2) 5-9-1 JR 25 II (1) 12 9 18 (2)

More information

soturon2013

soturon2013 4.4. CGI, CGI Web. UNIX, UNIX Windows. UNIX CGI. i ( ). mi- http://www.mimikaki.net/ 67 (mi- ),mi-, http://ugawalab.miyakyo-u.ac.jp/j3/chika/wari.cgi.txt http://ugawalab.miyakyo-u.ac.jp/j3/chika/wari.cgi.txt,.

More information

Taro-cshプログラミングの応用.jt

Taro-cshプログラミングの応用.jt c s h プログラミングの応用 0. 目次 1. 課題 課題 1 : 与えられたパス名からディレクトリ名とファイル名を分離し出力せよ 課題 2 : オプション (-in) の後に続く文字列とオプション (-out) の後に続く文字列をそれぞれまとめる オプションの指定がなく文字列から始まるとき -in を仮定する 課題 3 : 複数のファイルから与えられたパターンとマッチする文字列を含む行を取り出せ

More information

PageScope Box Operator Ver. 3.2 Box Operator !. - - 2! - - 2 - 2 - - - - - - - - - - - - - 2 2-2 2-2 - - - 1 2 3 4 2 - 2 - - - - - - - - - - 2 - - - - - - - - - 2 0 - - 2 0 - - 2 0 - -

More information

untitled

untitled II yacc 005 : 1, 1 1 1 %{ int lineno=0; 3 int wordno=0; 4 int charno=0; 5 6 %} 7 8 %% 9 [ \t]+ { charno+=strlen(yytext); } 10 "\n" { lineno++; charno++; } 11 [^ \t\n]+ { wordno++; charno+=strlen(yytext);}

More information

Webデザイン論

Webデザイン論 2008 年度松山大学経営学部開講科目 情報コース特殊講義 Web デザイン論 檀裕也 (dan@cc.matsuyama-u.ac.jp) http://www.cc.matsuyama-u.ac.jp/~dan/ 出席確認 受講管理システム AMUSE を使って 本日の出席登録をせよ 学籍番号とパスワードを入力するだけでよい : http://davinci.cc.matsuyama-u.ac.jp/~dan/amuse/

More information

ruby novice ruby novice ruby novice.

ruby novice ruby novice ruby novice. GitHub Ruby 2549 2017 3 1 1 3 2 4 2.1 ruby novice........................... 4 2.2.............................. 6 3 8 3.1 ruby novice....................... 8 3.2 ruby novice............................

More information

78905 物流Sea&Air 海外引越.pdf, page Normalize ( 78905 Ł¨Š¬Sea&Air −C−O‹ø›z )

78905 物流Sea&Air 海外引越.pdf, page Normalize ( 78905 Ł¨Š¬Sea&Air −C−O‹ø›z ) C O N T E N T S 1 2 2 4 3 8 4 9 5 10 6 11 7 12 1 1 1 2 1 2 13 FAX E- 3 4 1 2 3 2 1 2 2 ABC A B C 1015 1015 5 6 3 2 7 3 1/3 8 9 4 5 1 393227 403342 525244 box 845129 3628121 5 2 10 6 1 CDDVD 6 2 CDDVD 11

More information

¥¤¥ó¥¿¡¼¥Í¥Ã¥È·×¬¤È¥Ç¡¼¥¿²òÀÏ Âè11²ó

¥¤¥ó¥¿¡¼¥Í¥Ã¥È·×¬¤È¥Ç¡¼¥¿²òÀÏ Âè11²ó 11 2013 6 19 11 (6/19) 6 (18:10-19:40) λ13 UNIX : 2 / 26 UNIX UNIX sort, head, tail, cat, cut diff, tee, grep, uniq, wc join, find, sed, awk, screen 3 / 26 sort sort : $ sort [options] [FILE...] options

More information

Ruby Ruby ruby Ruby G: Ruby>ruby Ks sample1.rb G: Ruby> irb (interactive Ruby) G: Ruby>irb -Ks irb(main):001:0> print( ) 44=>

Ruby Ruby ruby Ruby G: Ruby>ruby Ks sample1.rb G: Ruby> irb (interactive Ruby) G: Ruby>irb -Ks irb(main):001:0> print( ) 44=> Ruby Ruby 200779 ruby Ruby G: Ruby>ruby Ks sample1.rb G: Ruby> irb (interactive Ruby) G: Ruby>irb -Ks irb(main):001:0> print( 2+3+4+5+6+7+8+9 ) 44 irb(main):002:0> irb irb(main):001:0> 1+2+3+4 => 10 irb(main):002:0>

More information

Asterisk PBX 不正利用防止

Asterisk PBX 不正利用防止 Asterisk PBX ICTR120716-OR01A Info Circus,Inc. 1 2 2 IP-PBX 3 2.1........................... 3 3 IP-PBX 4 3.1........................................... 4 3.2..................................... 4 3.3..............................

More information

R による統計解析入門

R による統計解析入門 R May 31, 2016 R R R R Studio GUI R Console R Studio PDF URL http://ruby.kyoto-wu.ac.jp/konami/text/r R R Console Windows, Mac GUI Unix R Studio GUI R version 3.2.3 (2015-12-10) -- "Wooden Christmas-Tree"

More information

1/10 ページ 日記検索ブログトップ記事一覧ログイン無料ブログ開設 Perl 入門 ~ サンプルコードによる Perl 入門 ~ サンプルコード中心のPerlの入門サイトです 現代的なPerl(v5.8.1 以降 ) の書き方に準拠しています サイトマップ - サンプルコードによるPerl 入門の読み方 最近の活動 - 筆者の最近の活動 PerlとCGIの入門書木本裕紀著 今日のひとこと : 基礎文法最速マスターシリーズがたくさん誕生しました

More information

Microsoft Word - COMP-MATH-2017-FULLTEXT.doc

Microsoft Word - COMP-MATH-2017-FULLTEXT.doc #2 2017/10/10 5. printf() 解説画面に表示する関数 (= 機能 ) を printf という print は印刷 ( 表示 ) f は format( 書式 ) の意味で プリント-エフと読む どんなプログラムでも 必ず ( といってよい程 ) 使われる関数である 以下を printf.c として秀丸で作製し Visual Studio でコンパイル (cl) し 実行する

More information

3360 druby Web Who is translating it? http://dx.doi.org/10.1007/s10766-008-0086-1 $32.00 International Journal of PARALLEL PROGRAMING Must buy! http://dx.doi.org/10.1007/s10766-008-0086-1 toruby LT Linux

More information

11夏特集号初校.indd

11夏特集号初校.indd 1 2 3 5 50 40 7 6 3 ABC 3 5 A 5% B C 100 3 1 2 3 A 5% 5% 5% B 10% 5% 0% C 20% 10% 15% A 15.8% 15.0% 0.8% B 15.5% 15.0% 0.5% C 12.2% 15.0% 2.8% 2,000 1,500 1,000 500 0 10% 5% 3% 1% 01 5 10 15 20 25 30

More information