#localで定義した変数が別のサブルーチンで変更できることを確認する &modify_local(); #サブルーチン本体 sub modify_local{ #ローカルで定義 local($local_value) = "元のテキスト"; #ローカルで定義 my($my_value) = "元のテキスト"; print "[実行前]\n";…

#localとmyのテスト #localで宣言した変数の値は別のサブルーチンから参照できるが、myで宣言下変数の値は参照できない #サブルーチン呼び出し &local_my(); #サブルーチン本体 sub local_my{ #localによる定義 local($local_value) = "太郎"; #myによる定義…

#ハノイの塔 #サブルーチン呼び出し &hanoi(3, "左", "中", "右"); #サブルーチン本体 sub hanoi{ my ($disk, $bar1, $bar2, $bar3) = @_; #円盤が1つ以上残っている if($disk > 0){ #再帰呼び出し1 hanoi($disk - 1, $bar1, $bar3, $bar2); #移動内容を表示…

#returnを使って戻り値を返す #サブルーチン呼び出し $string = &hello_return("花子"); #戻り値を表示 print "戻り値： $string"; #サブルーチンの定義 sub hello_return{ my($name) = @_; #文字列を返す return("こんにちは、わたしは$nameです。\n"); } #…

#戻り値を持つhello_retサブルーチンの呼び出し #サブルーチン呼び出し $string = &hello_ret("花子"); #戻り値を表示 print "戻り値： $string"; #サブルーチンの定義 sub hello_ret{ my($name) = @_; #文字列を返す "こんにちは、私は$nameです。\n"; } #…

#引数を取るサブルーチンの呼び出し #サブルーチン呼び出し &hello_arg("太郎"); #サブルーチンの定義 #サブルーチンの引数はリスト@_に入る。myを使ってローカル変数として定義する。 sub hello_arg{ my($name) = @_; print "こんにちは、私は$nameです。\n…

#helloサブルーチンの呼び出し #サブルーチンの呼び出し &hello(); #サブルーチンの定義 sub hello{ print "こんにちは、サブルーチンです。\n"; } #実行結果 # こんにちは、サブルーチンです。 初めてのPerl 第6版作者: Randal L. Schwartz,brian d foy,Tom…

#入力した文字列と数値をパックして表示した後、元の文字列に戻して再表示する。 #packとunpackのテスト #pack("format", list) #unpack("format", variable) print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); $length = length($string); </stdin>…

#スペース文字で区切った数値リストを整列する print "要素をスペース文字で区切った数値のリストを入力してください＞"; $numbers = <STDIN>; chomp($numbers); #ソートして表示 print join(", ", sort{$a <=> $b} (split(/\s+/, $numbers))),"\n"; #実行結果 # 要</stdin>…

#lengthのテスト print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #長さを調べる print "文字列の長さ：", length($string), "\n"; #実行結果 # 文字列を入力してください＞perl is a practical extraction and report language # 文字列</stdin>…

#chopとchompの比較 $string1 = "perl\n"; $string2 = $string1; #chopとchompをそれぞれ２回実行する chop($string1); chop($string1); chomp($string2); chomp($string2); #表示 print "chop: $string1\n"; print "chomp: $string2\n"; #実行結果 # chop: …

#joinを使って配列の要素を合成する #配列の各要素を文字「、」で区切って表示する。 print "文字列を入力してください："; $string = <STDIN>; chomp($string); #スペース文字で区切る @words = split(/\s+/, $string); #各要素の間に,を入れて表示 print join(","</stdin>…

#split関数を使ってスペース文字の前後の文字列を取り出す print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #スペース文字で２つに区切る ($pre, $post) = split(/\s+/, $string, 2); #スペース文字の前後の文字列を表示 print "最初の文</stdin>…

#split関数を使って文字列をスペース文字で区切り、配列に代入する print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #スペース文字で区切る @words = split(/\s+/, $string); foreach(@words){ #各要素を表示 print "単語：$_\n"; } #実行</stdin>…

#printfとsprintfのテスト #文字列 #%sは文字列を表す変換文字。%sは「私は太郎です。」に置き換えられる。 printf("文字列：\t%s\n", "私は太郎です。"); #整数 #整数値を表す%dという変換文字、０はスペースの代わりに0を入れて右揃えにする効果、 #8は整…

#print関数の実験 $_ = "こんにちは。\n"; #特殊変数$_を表示 print; #ファイルprint.txtをオープン open(F, ">print.txt"); #特殊変数$_をファイルハンドルFに定義付けられているファイルprint.txtに書き出す print F; close(F); #リストを表示 print("私",…

#スペースで区切られた２つの入力文字列の順番を入れ替えるスクリプト $string = <STDIN>; chomp($string); #正規表現内で（）を使うと、マッチング変数$&,$`,$'は無効になり、代わりに（）を順番に並べた時は、マッチした内容がその順番で特殊変数$1,$2,...に入る</stdin>…

#eオプションを使って、マッチした数値を計算に使う。2つの数値をスペースで区切って入力すると、それらの数値の積を表示数r。 #スペース文字で区切った2値の積を表示 print "2つの数値をスペースで区切って入力してください。>"; $string =<STDIN>; chomp($string)</stdin>…

#簡単な置き換え $string = <

#入力された英文を単語ごとに区切り、「単語：区切られた単語」のように表示するスクリプト $ward = <STDIN>; chomp($ward); print "単語：$&\n" while($ward =~ /\w+/g); #実行結果 #There's more than one way to do it # There's more than one way to do it # </stdin>…

#oオプション #oオプションをつけると、最初のマッチ時に展開した変数の値をそれ以後のマッチでも使い続ける。 #配列と初期マッチ文字列の定義 @array = ("Perl ABC", "ABCDEF", "Perl", "ABC"); $serch = "ABC"; #途中で$serchの値を変更する print "oなし…

iオプションを使って大文字と小文字を区別しないでパターンマッチを行う #小文字のみで構成 $string = "perl"; print "「perl」にマッチ： $string\n" if ($string =~ /perl/i); #大文字のみで構成 $string = "PERL"; print "「perl」にマッチ： $string\n "…

gオプションをつけて、繰り返し検索を行う。 #繰り返し検索 $string = "ABCDEFABCDABC"; #gオプションとwhileで繰り返し検索する #パターンにマッチした文字列が変数$&に入る #マッチした部分の前の文字列が$`に入る #マッチした部分の後の文字列が$'に入る …

#include <stdio.h> #define N 1000 /* Nまでの素数を求める */ #define TRUE 1 /* 真:素数である */ #define FALSE 0 /* 偽:素数でない */ char is_prime[ N+1 ]; /* 結果を格納する配列 */ int main( void ) { int i, j, k = 0; /* 配列を初期化 */ for( i = 1; i <</stdio.h>…

JavaをやっているうちにC言語のことをすっかり忘れてしまったので少しずつ復習する。 素数を判定するプログラム #include <stdio.h> int prime(int n); int main(void) { int n; printf("自然数を入力してください>>>"); scanf("%d", &n);/*データの入力*/ printf("%d</stdio.h>…

端方法 メニューバーのシステム→キーボードショートカットを選択 「デスクトップ」カテゴリ中の「端末の起動」を選択 ショートカットの部分に「新しいショートカット」と表示される その状態で任意のキーを押下(shift + Tにした) 以上で設定完了 Linux教科書…