約 3,925,169 件
https://w.atwiki.jp/vocaloid/pages/22.html
ご注意 以下の図は 相関図ジェネレータ で作成されたもので、非公式のものです。 あくまで遊びとしてお楽しみ下さい。 え・・・？ レンも・・・！？ ミクとリンってば・・・ ミクとメイコとカイトの関係 アン参戦 コメント このページ必要でしょうか・・・? -- 名無しさん (2008-03-25 03 28 18) あると困る、ということもない気がします。 -- 名無し編集 (2008-03-28 02 01 18) ミクって腐女子だったんだ･･･。見せ合いっこ仲間って何？ -- af (2008-03-28 23 01 27) レン腐女子かよｗｗｗ -- 名無しさん (2008-04-22 18 13 44) これ・・・あったら困るんじゃ？ -- 名無しさん (2008-08-12 15 34 38) 「腐」って言葉が苦手な人には辛いかもね。何の前置きも無しだし（お遊びだからだろうけど） -- 名無しさん (2008-09-04 17 04 51) 今のネットの状況じゃ「腐」が苦手なんて奴のフィルタレベルは相当高いんじゃないか -- 名無しさん (2008-10-31 16 06 32) 腐女子ってｗｗｗｗｗｗ -- 名無しさん (2009-04-18 20 55 14) おもろいからアリ -- 名無しさん (2009-07-28 18 21 45) vocaloidってそういう関係とかないし、公式でもないんでやめといた方が。 -- 名無しさん (2009-11-25 22 11 29) iranai -- 名無しさん (2009-12-24 13 20 43) 遊びだって書いてあるしあってもいいんじゃない？ -- noa (2010-06-13 20 24 03) Wikiは駄データが有ると重くなるよ -- 名無しさん (2010-06-17 22 43 25) レンが・・・腐女子・・・(笑 -- ピ―― (2010-11-26 16 43 11) 腐女子なのｗｗ -- 布衣うちめいビー (2011-03-15 13 13 59) ちょｗｗ見せ合いっこ仲間ってどーゆー意味やねん -- 姫 (2011-10-29 14 58 37) え？レンが・・・腐・・・女・・・子？ 腐男子の間違いじゃねぇの？ｗｗ -- 名無し (2011-11-06 21 53 03) レン男なのに。。。 -- 名無しさん (2011-11-13 23 29 29) 腐男子って何だｗｗｗ百合好きみたいな？ｗｗ -- 姫 (2011-11-24 18 38 39) 見せあいっこってなに？ネギ？ｗｗ -- てぺ (2012-04-12 14 23 49) 関係図ってこれ！ 恋人とか知りたい -- z (2012-06-09 14 05 59) あれ？カイト、ミクの事好きじゃなかったっけ？（（黙 -- 名無し (2012-08-09 15 11 24) ハクとかネルとかの関係図も見てみたいなーーww -- ズズズ (2012-08-09 15 13 58) アンとリンの関係が「危険」ってどういうことなんだ？まぁ、レンとミクがライバルなのはわかるけど・・・ -- リリアンヌ王女 (2012-10-19 00 05 53) おいっレン男だぞ腐女子ってｗ -- レン好き＾＾ (2012-12-15 13 31 40) レンきゅんが腐女子ｗｗｗｗｗワロタｗｗｗｗ -- めぐ (2013-02-24 09 42 17) レンくんは、ミク姉が好きじゃなきゃいやーーーーーーーーーーーーーーーーーーーーーーーー┌(┌＾o＾)┐ -- ふなっしー (2013-12-24 16 10 16) 私は、メイドだよん（ゝ。∂） -- みみたぶ (2013-12-24 16 11 46) vくcgsぢfごいふdhyfwでpdふぃえwふぇgぷうぇおううぇfrうぇゆfrpをえいyr８おうぇうrぐぇp -- 進撃の巨人 (2013-12-24 16 12 22) これ全然違いませんか？ -- 名無しさん (2014-03-21 19 34 25) こんな設定ないし、勘違いする人が増えると思うので、消したほうがいいのでは？ -- 名無しさん (2017-04-17 21 59 13) 譛ｬ蠖薙↓縺昴≧縺ｪ縺ｮ虫 -- 前田瑠璃 (2017-11-26 13 46 14) アンって誰 -- 名無しさん (2021-03-20 06 14 44) 名前 コメント
https://w.atwiki.jp/karate405/pages/18.html
Perl module checker #!/bin/sh PERL_MODULE_LIST="/Template /AppConfig /Text/Wrap /File/Spec /Data/Dumper \ /DBD/mysql /DBI /Date/Parse /CGI/Carp /GD/ /Chart/Base \ /XML/Parser /MIME/Parser" find_perl_modules() { find `perl -e foreach(@INC){ next if( ! -d $_); print "$_ " unless /^\.$/} ` -name *.pm -print|grep "$1" /dev/null if [ $? -ne 0 ]; then echo "not found $1"; fi } for W in $PERL_MODULE_LIST do find_perl_modules $W done http //hp.vector.co.jp/authors/VA013241/webapp/bugzilla/freebsd51.html
https://w.atwiki.jp/v-ranking/pages/104.html
カタログ 音声合成大事典2009 マイリスト 音声合成大事典2009各種動画一覧 Part1 VOCALOID編 nm6309972 Part2 UTAU（歌編） nm6310064 Part3 UTAU(音編) nm6310141 Part4 音声合成(前編) nm6310213 Part5 音声合成(後編) nm6310307 Part6 棒歌ロイド編 nm6310407 Part7 エンディング nm6310455 音声合成大事典 新訳・音声合成大事典 VOCALOIDカタログ Vocaloidカタログ 2007年11月改訂版 Vocaloidカタログ 2008年 1月版
https://w.atwiki.jp/v-ranking/pages/12.html
Vocaloidランキング一覧（定期） 日刊VOCALOIDランキング http //www.nicovideo.jp/mylist/5024496 【ニコニコ動画】日刊VOCALOIDランキング まとめサイト：http //www.daily-vocaran.info/ blog：http //blog.daily-vocaran.info/ 日刊 #1～#500 http //www.nicovideo.jp/mylist/14671336 日刊 #501～ http //www.nicovideo.jp/mylist/14673695 2008年 02月分 DailyRanking200802 03月分 DailyRanking200803 04月分 DailyRanking200804 05月分 DailyRanking200805 06月分 DailyRanking200806 07月分 DailyRanking200807 08月分 DailyRanking200808 09月分 DailyRanking200809 10月分 DailyRanking200810 11月分 DailyRanking200811 12月分 DailyRanking200812 2009年 01月分 DailyRanking200901 02月分 DailyRanking200902 03月分 DailyRanking200903 04月分 DailyRanking200904 05月分 DailyRanking200905 06月分 DailyRanking200906 07月分 DailyRanking200907 08月分 DailyRanking200908 09月分 DailyRanking200909 10月分 DailyRanking200910 11月分 DailyRanking200911 12月分 DailyRanking200912 新着RSS（マイリスト 日刊VOCALOIDランキング) 日刊VOCALOIDランキング増刊号もどき#145 2011年10月11日～10月18日 日刊VOCALOIDランキング増刊号もどき#144 2011年10月4日～10月11日 日刊VOCALOIDランキング増刊号もどき#143 2011年9月27日～10月4日 日刊VOCALOIDランキング増刊号もどき#142 2011年9月20日～9月27日 日刊VOCALOIDランキング増刊号もどき#141 2011年9月13日～9月20日 日刊VOCALOIDランキング増刊号もどき#140 2011年9月6日～9月13日 日刊VOCALOIDランキング増刊号もどき#139 2011年8月30日～9月6日 日刊VOCALOIDランキング増刊号もどき#138 2011年8月23日～8月30日 日刊VOCALOIDランキング増刊号もどき#137 2011年8月16日～8月23日 日刊VOCALOIDランキング 2011年8月22日 #1289 日刊VOCALOIDランキング 2011年8月21日 #1288 日刊VOCALOIDランキング 2011年8月20日 #1287 日刊VOCALOIDランキング 2011年8月19日 #1286 日刊VOCALOIDランキング増刊号もどき#136 2011年8月9日～8月16日 日刊VOCALOIDランキング 2011年8月18日 #1285 日刊VOCALOIDランキング 2011年8月17日 #1284 日刊VOCALOIDランキング 2011年8月16日 #1283 日刊VOCALOIDランキング 2011年8月15日 #1282 日刊VOCALOIDランキング 2011年8月14日 #1281 日刊VOCALOIDランキング 2011年8月13日 #1280 日刊VOCALOIDランキング 2011年8月12日 #1279 日刊VOCALOIDランキング 2011年8月11日 #1278 日刊VOCALOIDランキング増刊号もどき#135 2011年8月2日～8月9日 日刊VOCALOIDランキング 2011年8月10日 #1277 日刊VOCALOIDランキング 2011年8月9日 #1276 日刊VOCALOIDランキング 2011年8月8日 #1275 日刊VOCALOIDランキング 2011年8月7日 #1274 日刊VOCALOIDランキング 2011年8月6日 #1273 日刊VOCALOIDランキング 2011年8月5日 #1272 日刊VOCALOIDランキング増刊号もどき#134 2011年7月26日～8月2日
https://w.atwiki.jp/atwikimyj/pages/59.html
emplate-Toolkitでのはまり、TIPSを記録する。 ◆リンク集 ＜参考＞ TTdoc 和訳ページ http //www.hakoniwa.net/tt/index.html TT超入門。これで基本がわかった http //www.sea-bird.org/doc/Solaris8/Perl_2.html サンプル http //bob.marlboro.edu/~msie/2001/ipl/perl/code/jan27/TemplateToolkit/ TTで使える関数プチ一覧。なんでもできそうだ。 http //hwat.sakura.ne.jp/hpod/200604/06-140134/ DBマガジンのサンプルプログラム 紙だけど、相当参考になった。 ◆TIPS （１）インストールにきをつけろ perlのサンプルスクリプト上では template というモジュール名になっているので PPMで template と指定してインストール。しかしこれはTTとは別のモジュールなのだ。 本当は template-toolkit でsearchして、この名前でインストールする必要があった、、、。 （２）イテレイト型のオブジェクトをそのままTTにぶんなげる $Sale_prod_list = MAGCLASS ObjectsTable - search( [ $criteria1 , $criteria2 , $criteria3, $criteria4 ],{ order_by = prod_sellrank } ); こんなふうに雑誌情報のオブジェクトを取得して、 my $template = Template- new; my $output; $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ,$output); こうする。複数の雑誌情報を持つオブジェクトが teiki_make_index.html に投げられる。 これを受け入れる書式は [% WHILE ( sp = Sale_prod_list.next) -%] [% IF sp.prod_price != %] ／価格：[% sp.prod_price %]円 [% END %] [% IF sp.prod_toku != %] ／（特典あり） [% END %] [% END %] こんな感じ。まずWHILEでperlから渡されたSale_prod_listを受けるわけだけど １つ１つ順番に読み込むようにSale_prod_list.nextと記述し、その１つ１つの オブジェクトはsp = Sale_prod_list.nextとすることでspに入る。 sp.prod_noなどとすることでオブジェクト内のハッシュを読み取れる。 注意点： ・WHILEやENDなどの書式は必ず大文字 ・条件式は必ずENDで閉めよう （３）作製されたHTMLについて $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ,$output); と記述すると、$outputに作製されたHTMLが入る。 （テンプレート ,{ エイリアス= オブジェクト } , $出力先変数） という書式。注意点として、$outputではだめで、$outputとしなければならない） また、出力先変数を省略して $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ); とすると自動的にprintされる。 以下いろんなサイトからのメモ ■HTMLファイルのエスケープ HTMLタグのエスケープしろという命令をテンプレートに記述できます。フィルター機能についてはTemplate Toolkit Manual Filtersに詳しく書いてありますが、例えば、 [% foo | html %]でfooの中身のHTMLタグをエスケープして出力してくれますし、 [% bar | html_line_break %]
https://w.atwiki.jp/soraka/pages/18.html
ある文字をファイルの中から探す #!/usr/local/bin/perl -w use strict; if(@ARGV != 1){ print "USAGE ./prob18_0207.pl fileName\n"; exit 1; } if(open(FILE, $ARGV[0])){ while(my $line = FILE ){ if($line =~ /[a-zA-Z]{8,}?/){ print $line; } } }else{ print "$ARGV[0] $!\n"; print "USAGE ./prob18_0207.pl fileName\n"; exit 1; } ID=数字 の数字を抜き出す 1 #!/usr/local/bin/perl -w 2 use strict; 3 4 open(FILE, sample.txt ); 5 while(my $line = FILE ){ 6 while($line =~ /ID=(\w+)/g){ 7 print $1,"\n"; 8 } 9 } 数字3つを別々に抜き出す 1 #!/usr/local/bin/perl -w 2 use strict; 3 4 open(FILE, sample.txt ) or die "$!"; 5 while(my $line = FILE ){ 6 if($line =~ /(\d+), (\d+), (\d+)/){ 7 print "height = $1\n"; 8 print "weight = $2\n"; 9 print "age = $3\n"; 10 } 11 } perlワンライナー perl -i -pe s/aaa/ccc/g test.pl i でそのファイル自体を書き換え。-eで、そのあとに続くものをperlプログラムと認識する
https://w.atwiki.jp/niconicokaraokedb/pages/2224.html
VOCALOID/え VOCALOIDのトップページに戻る わ ら や ま は な た さ か あ り み ひ に ち し き い る ゆ む ふ ぬ つ す く う を れ め へ ね て せ け え ん ろ よ も ほ の と そ こ お Air… え？あぁ、そう。 永遠花火 eight hundred AHSファンキー 笑顔にさせて えかきうた EX-GIRL エクスカリバー -EXCALIBUR- Excalibur EXERION echo エコー S escapade Escape/ジミーサムP S・K・Y Es～dirty aspiration～ eternal Etude No.3 エナメルとリボン Ever Everwhite Episode.0 エピデミク・ガール Evidence 絵本『人柱アリス』 Emotion＆Reason えもラブ LOL -lots of laugh- Elfina Electrical Parade - Remix - えれくとりっく・えんじぇぅ えれくとりっく・えんじぇぅ/骨盤P エレクトリック・スター エレクトロニック・ジェノサイド エレディーヌST85錠 演劇テレプシコーラ angel cry Endimia-終焉の娘- Endeavor End of the Ache エンドレス・サマー envy. 円尾坂の仕立屋 EMPTY 名前 コメント
https://w.atwiki.jp/hitkik/pages/22.html
perlと日本語 http //homepage2.nifty.com/ttoyoshima/Perl/Perl.htm http //hardsoft.at.webry.info/200505/article_5.html http //perl.active-venture.com/pod/perljp.html perl 5.8以降はunicodeで動いているので、標準で漢字OKになった。 Winの場合は以下の宣言。 use encoding "cp932"; $/ = "\r\n"; requireの使い方 http //www.nishishi.com/perltips/script1.html モジュール： #! /usr/bin/perl package samplepackage; sub function1 { print "hogehoge\n"; } 1; packageでモジュール名を宣言 メインルーチン： require sample.cgi ; samplepackage function1(); useとrequireの違い http //tech.bayashi.net/pdmemo/use-require.html use： perl5以上 BEGIN, CHECK, INIT ルーチンが使える。 起動時に全て読み込んでコンパイルする require require文実行時にモジュール読み込み BEGINなど使えない。 連想配列 連想配列解説 http //tech.bayashi.net/pdmemo/variable.html 連想配列の連想配列などが可能。 配列の扱い方 コマンドなど http //santamartadotnet.hp.infoseek.co.jp/documents/perl/learningperl05.html %HOGE 連想配列変数 %HOGE 全体 $HOGE{ page } 連想配列変数 %HOGE の page をキーとする要素 %HOGE = ( key = value ); $HOGE{ key } = value ;と同列 %HOGE = (); %HOGE を空にします。 undef %HOGE; %HOGE を未定義値にします。 $a = scalar keys %HOGE; %HOGE の要素数を求めます。 空のハッシュを作成しておき、後から要素を追加 # 空のハッシュを作成 %numbers = (); # 要素を追加 $numbers{119} = "shoubou"; $numbers{911} = "rescue"; print $numbers{119}, "\n"; print $numbers{911}, "\n"; [実行結果] shoubou rescue keysやvaluesを用いると、ハッシュで使用されているキー、値の一覧を配列として取得 # 列挙 while ( ( $key, $value ) = each( %hash ) ) { print "$key $value\n"; } print "\n"; # キーの配列を取得 @keys = keys( %hash ); print "Keys "; foreach ( @keys ) { print "$_, "; } print "\n"; # 値の配列を取得 @values = values( %hash ); print "Values "; foreach ( @values ) { print "$_, "; } existsはハッシュに指定したキーが存在するかを確かめます。 deleteはキーと値の対をハッシュから削除します。 # 列挙 while ( ( $key, $value ) = each( %hash ) ) { print "$key $value\n"; } print "\n"; # キーが存在するかを確かめる if ( exists( $hash{"tempura"} ) ) { print "\"tempura\" exists in hash.\n"; } # キーと値の対を削除 delete $hash{"tempura"}; print "\"tempura\" was removed.\n"; # 列挙 while ( ( $key, $value ) = each( %hash ) ) { print "$key $value\n"; } # キーが存在するかを確かめる if ( !exists( $hash{"tempura"} ) ) { print "\"tempura\" doesn t exists in hash.\n"; } ハッシュを参照する # each関数による列挙 while ( ( $key, $value ) = each( %hash ) ) { print "$key $value\n"; } print "\n"; # キー配列による列挙 foreach ( keys( %hash ) ) { print "$_ $hash{$_}\n"; } 関数名 解説 delete ハッシュから指定したキーとその値を削除する。delete %HOGE{ key }; each ハッシュからキーとその値を取り出す。($key,$value) = each %HOGE; exists ハッシュに指定したキーが存在すれば真を返す。if(exists $HOGE{ key }){ delete $HOGE{ key }; } keys ハッシュ内の全てのキーを取り出す。@keylist = keys %HOGE; values ハッシュ内の全ての値を取り出す。@valuelist = value %HOGE; 連想配列の連想配列 %HOGE = ( Comic = { 夢の温度 = 南Q太 , バガボンド = 井上雄彦 }); print $HOGE{ Comic }{ バガボンド }; %hoge{ a } = %e; 配列の連想配列 @hoge{ a } = @f; 配列の扱い方 コマンドなど 以下広告
https://w.atwiki.jp/atwikimyj/pages/23.html
文字通りperlで実装するセッション管理。 ＜参考＞CGI Session.pmでセッション管理 http //www.dab.hi-ho.ne.jp/sasa/biboroku/perl/session.html インストール linux上で [root@localhost] perl -MCPAN -e shell cpan install CGI session これで終わり。 利用 perlスクリプト内で use CGI Session qw/-ip_match/; #異なるipからのアクセスは認めない #Tutrial .podは -ip-match ，Session.pmは -ip_match ．多分 -ip_match ． my $session=CGI Session- new(undef,undef,{Directory= ./.session }); #セッションidの生成 ．ディレクトリ.sessionは予め作っておく $session- expire( +1m ); #有効期限の設定．1分間 $session- param( name , john ); #セッション経由で引き渡す項目と値
https://w.atwiki.jp/ntaka206/pages/14.html
UNIXのプロセスについて Unix Programming Frequently Asked Questions 日本語訳 バッファリング マニュアル Perl/Tk テキストウィジット 改行するには お約束 単純文 型グロブ 変数未定義の判定など ソケット通信ネットワークプログラミングの基礎知識 Perlの漢字コード扱い処理手順 UTF-8フラグとは Ｐｅｒｌ内部の文字コード use utf8; と use encoding;参考 Perlでクリップボードを使うCAPN Clipboardモジュールを使う Tk clipboardを使う Tkのクリップボード機能を使う Net SSHモジュールについて Perl参考書プログラミングPerl 第２版 Perlベストプラクティス UNIXのプロセスについて Unix Programming Frequently Asked Questions 日本語訳 - 1 プロセス制御 http //www.adl.nii.ac.jp/~moro/unix-programmer/faq-j_2.html Unix Programming Frequently Asked Questions 日本語訳 Unix Programming Frequently Asked Questions 日本語訳 - Table of Contents http //www.adl.nii.ac.jp/~moro/unix-programmer/faq-j_toc.html バッファリング Perlで出力のバッファリングを無効にするには - Sakura scope http //www.nishishi.com/blog/2006/05/perl_buffer_flu.html コアテクの路地 標準出力のバッファリング http //blog.miraclelinux.com/ctd/2006/09/post_1b11.html マニュアル コマンドラインで perldoc Net Telnet Perl/Tk テキストウィジット 改行するには 文字列に改行コード入れる"\n" 3種類の改行コードに対応しているよう。 CR LF CR LF お約束 use strict; use warnings; 単純文 func() if EXPR; 例 func() if $a == 1; func() if ($a == 1); -ダメ 型グロブ 型グロブは、様々な変数型のエントリを持つ一種のハッシュである。 *pkg sym{SCALAR} # \$pkg symと同じ *pkg sym{ARRAY} # \@pkg symと同じ *pkg sym{HASH} # \%pkg symと同じ *pkg sym{CODE} # \ pkg symと同じ *pkg sym{GLOB} # \*pkg symと同じ *pkg sym{FILEHANDLE} # 内部的なファイルハンドル 直接に等価な書き方はない *pkg sym{NAME} # "sym" リファレンスではない *pkg sym{PACKAGE} # "pkg" リファレンスではない 変数未定義の判定など Ippiki - PerlにおけるNULLの扱い http //www.yamareco.com/ippiki/detail.php?mid=26 mver=0 if ($s == NULL) × ソケット通信 ネットワークプログラミングの基礎知識 http //x68000.q-e-d.net/~68user/net/ Perlの漢字コード扱い 文字列をPerlの内部文字列(utf8フラグの付いた文字列)として扱うと、lengthやsubstr等の関数や正規表現などでもバイト単位でなく文字単位で操作することができる。 PerlのスクリプトがUTF-8で書かれていることを示すために、スクリプトの初めに入れる。 use utf8; use utf8 をすることで、perl にソースコード中の文字列がUTF8で書かれていることを教えます。 このことにより、ソースコード中の文字列には、UTF8フラグがつく。 * STDIN, STDOUTにUTF-8を使うなら、binmodeを使って指定する。 binmode STDIN, " utf8"; binmode STDOUT, " utf8"; 読み込むファイルがUTF-8で書かれているなら、次のようにopenで指定する。 open(FH, " utf8", $filename); 読み込むファイルがshift-jisなど、UTF-8以外のコードで書かれているなら、次のようにencodingをopenで用いて指定する。 open(FH, " encoding(shiftjis)", $filename); 処理手順 ソースコードをUTF-8で書き、先頭で宣言する。 use utf8; ファイルを開く場合は文字コードを指定する。 open(FH, " utf8", $filename); open(FH, " encoding(shiftjis)", $filename); ストリーム等から入力した文字列は、内部表現(UTF-8)に変換する。 $s = decode( utf8 , $s); # UTF-8 $s = decode( shiftjis , $s); # SHIFT JIS $s = decode( euc-jp , $s); # EUC STDOUTにUTF-8を出力するなら、binmodeで指定する。 binmode(STDOUT, "utf8"); 内部表現(UTF-8)に変換した文字列は、漢字でもバイト単位ではなく文字単位で扱える。以下のコードで、内部表現になっていない文字列では漢字が正しく表示されない。 $s = decode( utf8 , $s); # UTF-8 foreach $byte (split //, $s) { print $byte; } UTF-8フラグとは スカラー変数の内部表象の状態を示すものとして UTF8 フラグというものがある スカラー変数には文字列として下記のものを格納できる (A) 文字列（内部表象 UTF-8） (B) 文字列（内部表象 ISO-8859-1） 文字列にUTF-8フラグが付いているかどうか確認するには。 Encode is_utf8($tmp); Ｐｅｒｌ内部の文字コード UTF-8/Shift JIS/EUCの入力コード例 UTF-8/Shift JIS/EUCの文字列をPerlに読み込み、標準出力とパイプに出力する use encoding "utf-8"; use Encode; use utf8; 子プロセス側 { binmode(PARENT_WTR, "utf8"); my $s = $telnet- get(Timeout = 3600); #$s = decode( utf8 , $s); # UTF-8 #$s = decode( shiftjis , $s); # SHIFT JIS $s = decode( euc-jp , $s); # EUC print $s; print PARENT_WTR $s; } 親プロセス側 { sysread（PARENT_WTR, $curline, 1024)； # 子プロセスからUTF-8で送られてきた文字列を、内部表現(フラグ付きUTF-8)に変換する $curline = decode( utf8 ,$curline); } use utf8; と use encoding; http //www.rwds.net/kuroita/program/Perl_unicode.html#utf8_and_encoding 参考 UTF8 フラグあれこれ - daily dayflower http //d.hatena.ne.jp/dayflower/20080219/1203493616 Perlの文字コード変換の話 其の参 - It_lives_vainlyの日記 http //d.hatena.ne.jp/It_lives_vainly/20080306/1204629364 Perl 5.8.x Unicode関連 http //www.rwds.net/kuroita/program/Perl_unicode.html Perlでクリップボードを使う CAPN Clipboardモジュールを使う Clipboard - Copy and paste with any OS - search.cpan.org # cpan install Clipboard Perlにコードを書いて実行するとxclipが無いと怒られる freshmeat.net Project details for xclip # aptitude install xclip Tk clipboardを使う Tk clipboard - Manipulate Tk clipboard - search.cpan.org 実行時にエラーが出る Tk Error Failed to AUTOLOAD MainWindow clipboardGet Tkのクリップボード機能を使う $widget- clipboadrClear(); $widget- clipboadrAppend( add to clipboard ); $m_mainWindow- SelectionGet(-selection = CLIPBOARD ); クリップボードの内容を取り出し Net SSHモジュールについて WindowsのActivePerlにもある。 Ver0.08 ただし、中身はopen2またはopen3でsshコマンドを呼び出している。 Perl参考書 プログラミングPerl 第２版 最新版は第３版なので注意！ 第３版は、２冊に分かれているのでいまいち使いにくい、最新の機能を使わないならば第2版でも十分だと感じます。 中古だと安いし(^.^) Perlベストプラクティス